|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Pavel V. Ammosov 2:5020/52 09 May 2001 02:29:30
To : All
Subject : Re: Проанализировать вывод другой проги
--------------------------------------------------------------------------------
> Рад приветствовать тебя, All!
>
>Хочу сабж. Пишу скрипт
Hичего не понимаю в windows, но твой скрипт вызывает сам по себе
некоторые вопросы.
>
>=== Hачало Windows Clipboard ===
>#!/usr/bin/perl
>use Strict;
>use locale;
>use POSIX qw (locale_h);
>setlocale(LC_CTYPE, "Russian_Russia.866"); #1251
>print "\Uэто был нижний регистр\L А это смешАннЫй РеГистр\n";
>
>open (FILE,"|rasdial.exe Connection username password") or die $!;
| стоит в начале, таким образом ты пытаешься открыть rasdial.exe на
запись в его stdin, а писать он будет не в твой скрипт, а в stdout.
open FILE, "rasdial.exe Connection username password|") or die "$!";
>while(<FILE>)
Тут ты пытаешься читать и обламывается
>{
> if ($_ =~ /Ошибка/)
Это не ошибка, но $_ тут не нужен: if (/Ошибка/) ....
> {
> print "Error 332532453253245325\n";
> }
> print "\U$_";
>}
>=== Конец Windows Clipboard ===
>
>оно выводит:
>
>=== Hачало Windows Clipboard ===
>
>Или под виндами и это не работает???
--
Pavel Ammosov O \
apavel@aha.ru __ )
http://isabase.philol.msu.ru/~apavel/ )
wget -O - isabase.philol.msu.ru/~apavel/key.asc|pgp -fka O /
--- slrn/0.9.6.3 (Linux)
* Origin: Zenon N.S.P. news server (2:5020/52.0)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Проанализировать вывод другой проги 