#!/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);
創作者介紹

創造心理的感動

gisanfu 發表在 痞客邦 PIXNET 留言(0) 人氣()