ru.linux

 
 - RU.LINUX ---------------------------------------------------------------------
 From : Ilya Evseev                          2:5020/400     06 Jun 2001  05:08:52
 To : All
 Subject : Re: perl: работа со строками
 -------------------------------------------------------------------------------- 
 

 
 > Пускаю из /etc/mgetty+sendfax/login.config следующий скрипт:
 >
 > ------------------------------------------
 > #!/usr/bin/perl
 > $d=substr($ARGV[1],-8);
 > system("set>>/var/log/fidonet/aon.log");
 > system("echo `date` $ARGV[0] connected from $d
 >>/var/log/fidonet/aon.log");
 > system("$ARGV[2] $ARGV[3] $ARGV[4]");
 > ------------------------------------------
 >
 > При этом в ARGV[1] передается строка $CONNECT из модема.
 > Скрипт должен выделить из нее номер звонящего,
 > ааа/ббб/ссс/123456789 -> 123456789.
 >
 > Этот скрипт работает, если я его запускаю руками.
 > вопрос в том, почему этот скрипт не работает,
 > если я его запускаю из mgetty
 
 Массив @ARGV содержит только аргументы командной строки,
 без имени программы, то есть $ARGV[0] - это первый аргумент.
 У тебя это учтено?
 
 С уважением,
 Илья Евсеев
 --- ifmail v.2.15dev5
  * Origin: UCVT (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    perl: работа со строками   Ilya Lushcheev   01 Jun 2001 13:58:38   Re: perl: работа со строками   Ilya Evseev   06 Jun 2001 05:08:52