ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Gennadij Pastuhov                    2:5036/26.25   31 Mar 2003  12:54:08
 To : All
 Subject : .bat vs .pl
 -------------------------------------------------------------------------------- 
 

 net use u: \\user01\c 01 /yes
 %1 %2
 net use u: /delete
 net use u: \\user02\c 02 /yes
 %1 %2
 net use u: /delete
 и т.д.
 === Cut ===
 
 , который обходит все компы и делает на каждом команды %1 %2, пишу скрипт:
 === Cut ===
 #!/usr/bin/perl -w
 use strict;
 
 my ($line, $ws, $password, $cmd);
 
 my $cmd1 = @ARGV;
 open(PASSWD,"\\etc\\passwd") or die "$!";
 while ($line = <PASSWD>) {
         if ( ($ws, $password) = ($line =~ /(\w+):(\w+)/) ) {
                 print $ws . ":" . $password . "\n";
                 if ( $ws =~ /^user/ ) {
                         $cmd = "net use u: \\\\$ws\\c $password";
                         print $cmd;
                         system($cmd);
                         system("$cmd1");
                         $cmd = "net use u: /delete";
                         print $cmd . "\n";
                         system($cmd);
                 }
         }
 }
 close(PASSWD);
 === Cut ===
 
 При попытке его выполнить получаю:
 
 === Cut ===
 C:\message>perl all_work.pl
 user01:01
 net use u: \\user01\c 01Синтаксическая ошибка.
 Получить справку позволяет команда NET USE /?.
 net use u: /delete
 
 Ошибка 3: Указанный путь на диске не существует. Проверьте его правильность и
 повторите попытку. Если путь ссылается на временно недоступный сетевой
 ресурс, повторите попытку позже.
 === Cut ===
 
 При этом сам perl совершает недопустимую операцию.
 
 Как я вижу, второй вызов system понимается системой правильно. Подскажите, плз,
 в чём ошибка?
 
 ... Jonny wanna live
 --- GoldED+/W32 1.1.5-021124                                 xenofont.chat.ru
  * Origin: Zomby Station (2:5036/26.25)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор