#
# Date : 2010. 11. 12
#
# Author : chobocho.com
#
# Description : 패턴에 포함된 라인을 출력해주는 스크립트
###############################################
# File Name
$filename = "express.ini";
open (EXP_FILE, "<".$filename) || die $!;
@expressions = <EXP_FILE>;
close(EXP_FILE);
print "!!! chobocho filter V0.01 !!!\n";
print "-----------------------------\n";
print @expressions;
print "\n---------------------------\n";
{
if (-f $ARGV[0])
{
print "!!! Read ".$ARGV[0]."!!!\n";
print "\n---------------------------\n";
open (IN_FILE, "<".$ARGV[0]) || die $!;
while (my $line = <IN_FILE>)
{
foreach $expression(@expressions)
{
if ( $line =~ /$expression/ )
{
print $line;
}
}
}
close (IN_FILE);
}
}
[실행파일]
log.zip
log.exe'Coding > Perl 삽질기' 카테고리의 다른 글
| 자주 쓰는 정규 표현식 (0) | 2010.02.25 |
|---|---|
| 폴더내 모든 파일에서 특정 스트링이 포함된 라인만 추출하는 스크립트 (0) | 2010.02.10 |
| [Perl] Hex2Ascii (0) | 2009.06.16 |
