Код: Выделить всё
use Net::Telnet ();
use POSIX;
$dir = "/home/user/";
$host = '192.168.0.101';
$port = '2300';
$t = new Net::Telnet (Timeout => 10, Host => $host, Port => $port);
$t->waitfor(String=>'-');
$t->print("SMDR\n");
$t->waitfor(String=>'Enter Password:');
$t->print("PCCSMDR\n");
while (<$t>) {
if ($_ =~m/\n/){
$filename= strftime("smdr-%Y-%m", localtime(time));
$fileexpression = $dir.$filename;
open ($fh,'>>',$fileexpression);
print $fh $_;
close $fh;}
}