Perl脚本小程序之（依赖检查）Dependent Check

#!/usr/bin/perl


my $DATABASENAME = "T_PDATA";
my $FILENAME= "data.txt";


if(@ARGV>=1){
$FILENAME = $ARGV[0];
print $ARGV[0]."\n";
}
#$FILENAME = $ARGV[0]
#$ARGV[1]


open( FH, "data.txt" ); #打开文件
foreach $line ( ){ #循环读取文件
$line =~ s/\x0D?\x0A?$//; #取得一行，去掉结尾换行符
@datas = split(" ",$line); #把空格当中分隔符，取得数据
foreach $item (@datas) {
   # do something with $item
   if($item =~ m/T_PDATA.*/)
{
print $item."\n"; 
}
}


}