关于format

jnulvs

#!/usr/bin/perl -w
use strict;
my $line;
my $search = <>;
chomp $search;
print "$search\n";
open IN,"/var/log/messages";
while ($line = <IN>){
        if ($line =~/$search.*/si ){
                my $text = $line ;
                format STDOUT =
                input;@<<<<<
                $text
                .
                write
        }else{
                print "Sorry System Logs Not found \n";
                last;
        };
}
close IN;     
求解为何出错呢

redicaps

format已经被淘汰了

jnulvs

啊  那用啥呢