Coding/Perl 삽질기2010. 11. 12. 01:26
#
# 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);
    } 
}


[실행파일]
Posted by chobocho