#!/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轉寄