|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Sergey Gernichenko 2:5079/32.34 07 May 2001 20:24:52
To : All
Subject : Проанализировать вывод другой проги
--------------------------------------------------------------------------------
Хочу сабж. Пишу скрипт
=== 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 $!;
while(<FILE>)
{
if ($_ =~ /Ошибка/)
{
print "Error 332532453253245325\n";
}
print "\U$_";
}
=== Конец Windows Clipboard ===
оно выводит:
=== Hачало Windows Clipboard ===
C:\FIDO>a.pl
ЭТО БЫЛ HИЖHИЙ РЕГИСТР а это смешанный регистр
C:\FIDO>Error from RasGetEntryProperties = 623
Ошибка службы удаленного доступа 623 - Hе найдена запись телефонной книги.
Чтобы вывести сведения о данной ошибке:
введите 'winhlp32 rasphone.hlp' и по
предметному указателю найдите 'Ошибка 623'.
=== Конец Windows Clipboard ===
То есть. Вывод от расдиал я не получаю. Возврат в ДОС происходит до запуска
расдиал (точнее вывод от него идет после завершения скрипта)
Если запускаю из FAR'а, то вобще всё лезет поверx FAR.
Почему так происходит?? Если я убираю значок "|", то происходит выход по die с
ошибкой "No such file or directory", даже если указываю полный путь.
Или под виндами и это не работает???
=== Hачало Windows Clipboard ===
C:\FIDO>Perl -v
This is perl, v5.6.0 built for MSWin32-x86-multi-thread
(with 1 registered patch, see perl -V for more detail)
=== Конец Windows Clipboard ===
С уважением Сергей.
--- GoldED+/W32 1.1.4.7
* Origin: Всё идет хорошо. Только мимо (c) (2:5079/32.34)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
