Передача пераметров SHELL->PERl

[sofinan]

Здрасти, тут такая задача возникла, запустить perl скрипт из shell скрипта и передать ему переменную в данном случае IFACE.

Сам скрипт

Код: Выделить всё

#!/bin/sh
IPACCTCTL="/usr/local/sbin/ipacctctl"
IFACE=$1
$IPACCTCTL ${IFACE}_ip_acct:$IFACE checkpoint
$IPACCTCTL ${IFACE}_ip_acct:$IFACE show | /root/diplom/try2.pl $IFACE
$IPACCTCTL ${IFACE}_ip_acct:$IFACE clear

Код: Выделить всё

Can't open rl0: No such file or directory at /root/diplom/try2.pl line 21.
Can't open vr0: No such file or directory at /root/diplom/try2.pl line 21.

В чем ошибка не пойму, вроде все правильно...Али нет?)))Подскажите плиз)

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[zg]

В чем ошибка не пойму, вроде все правильно

если всё правильно, то должно работать

Али нет?)))Подскажите плиз)

гм.. исходник давай, тут телепатов нет

[sofinan]

какой именно исходник? Исходник на perl выглядит так

Код: Выделить всё

#!/usr/bin/perl
print ${argv[0]}

[ProFTP]

Код: Выделить всё

#!/usr/bin/perl
print "@argv\n";

[sofinan]

)))Нее, дело не в скрипте на perl, дело в том что данные которые порождаются show должны перенаправляться на обработку скрипту на try2.pl с параметром $IFACE, а получается что имя скрипта и параметра интерпретириются как два разных скрипта.

[zg]

Исходник на perl выглядит так

гм.. кто-то из вас двоих врёт либо ты либо перл

at /root/diplom/try2.pl line 21.

тебя номер строки не смущает?

[sofinan]

)))Ладно каюсь это был я))))))))))))))))))))) Блин дак значит это все таки ошибка в перл скрипте))))))ZG спасибо за подсказку. Даже не мог подумать что это он ругается(((((

Код: Выделить всё

#!/usr/bin/perl -w
use DBI;
#       open(NG,<>) or die "не";
my $table_name=$ARGV[0] ;
print $table_name;
my $dbname='IPPACTDB';
my $user='*******;
my $passwd='******';
my $ip_out="*********";
my $network="192.168.0.";
my $time_stamp;
my $ip_source;
my $port_source;
my $ip_dest;
my $port_dest;
my $num_proto;
my $quantity_pack;
my $quantity_byte;
$dbh=DBI->connect("DBI:Pg:dbname='$dbname'","$user","$passwd") or die \
"Не connect";
while ($line=<>){                                                                           #ошибка тут
        ($ip_source,$port_source,$ip_dest,$port_dest,$num_proto,
        $quantity_pack,$quantity_byte,$time_stamp)=split(" ",$line);
#       for ($ip_source,$ip_dest){
#               s/$network//; s/$ip_out/0/;
#       }
#       print localtime($time_stamp)."\n";
#       print $ip_source."\n";
#       print $port_source."\n";
#       print $ip_dest."\n";
#       print $port_dest."\n";
#       print $num_proto."\n";
#       print $quantity_pack."\n";
#       print $quantity_byte."\n";
        $sth=$dbh->prepare("insert into stat (ip_source, port_source, \
         ip_dest, port_dest, num_proto, quantity_pack, quantity_byte, \
        time_stamp) values('$ip_source','$port_source','$ip_dest', \
        '$port_dest','$num_proto','$quantity_pack','$quantity_byte', \
        '$time_stamp')");
$sth->execute();
$sth->finish();
}
$dbh->disconnect;
#print "SUCCESS\n";

Как теперь считывать данные? while ($line=<>)- такая тема уже не проканает)

[zg]

while ($line=<>)- такая тема уже не проканает)

это к ProFTP, он такой скрипт уже писал

кстати, можешь поискать по форуму подобных скриптов тут уже штук пять.

[sofinan]

А ну впринципе если сделать так while <STDIN> это работает...Но верно ли это?!)))))

[zg]

А ну впринципе если сделать так while <STDIN> это работает...Но верно ли это?!)))))

если работает, значит верно. В принципе пойдёт и так.