파일핸들로 참조한 파일에 특정열을 찾아서 특정열에서 일정값을 뽑은 후에 또 다른 파일에서 다른 값을 뽑을려고 참조하려는데 잘 안됩니다.
my $file = '/home/mrtg/www/bd/192.168.10.1_1001.html';
open( F, $file ) || die "Oops! $!";
seek( F, -4592, 2 );
my $line = <F>;
my $value = substr( $line, 2, 5 );
my $num = '1:1';
if ( $value > 50 )
{
&do_page ("bd_$num traffic $value ");
}
close F;
my $file3 = '/home/mrtg/www/bd/192.168.10.1_1003.html';
open( F, $file3 ) || die "Oops! $!";
seek( F, -4592, 2 );
my $line3 = <F>;