perlquestion
jrtaylor
<code>
#!/usr/bin/perl -w
use strict;
use IO::Socket;
use MIME::Lite;
use Time::Out qw(timeout);
use IO::Handle;
$SIG{PIPE} = "IGNORE";
$| = 1;
my $nb_secs = 10;
my $buf = "";
my $file;
umask 002;
my $sock = new IO::Socket::INET (PeerAddr => '192.168.173.9',
PeerPort => 7001,
Proto => 'tcp',
Type => SOCK_STREAM,
);
die "cannot open socket" unless ($sock);
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
my $hrmin = sprintf ("%02d%02d",$hour,$min);
my $ymd = sprintf("%04d%02d%02d%02d%02d%02d",$year+1900,$mon+1,$mday,$hour,$min,$sec);
my $filename = "/var/flexshare/shares/logs/backup.$ymd.txt";
open $file, ">$filename" || die("Couldn't open $file");
$file->autoflush(1);
my $login = "&NE014\r\n";
my $pass = "house\r\n";
my $dump = "P H 19\r\n";
my $logout = "&NG\r\n";
my $enter = "\r\n";
print $sock $enter;
print $sock $enter;
# if (<$sock> =~ m/^(R> )/) {
# print $sock $dump;
# } else {
# print $sock $logout;
# print $sock $login;
# print $sock $pass;
# }
print $sock $dump;
while (my $line = <$sock>) {
timeout $nb_secs => sub {
my $count = 0;
until ($count == 5 ) #Read the next xx lines
{
print $file $line;
$sock->flush();
$count++;
}
};
if ($@){
$line = "";
}
}
close $file;
close $sock;
</code>