#!/usr/bin/perl

$filename=shift || die "no arg\n";

$filename .= '*' if $filename ne '*';

$path='/var/log/httpd';
$totallog='/tmp/result_log';

open(RESULT,">$totallog");
while (glob "$path/$filename") {
open(FH,"$_");
print RESULT $_ while ;
close(FH)
}
close(RESULT);
arrow
arrow
    全站熱搜

    付爸爸 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄