perl实现的两个文件对比并对数据进行筛选的脚本代码
更新时间:2013年03月20日 23:03:21 作者:
对比两个文件并对数据进行筛选的perl脚本,涉及到哈希的应用和perl编程风格的改变。有需要的朋友可以参考下
复制代码 代码如下:
#!/usr/bin/perl
my %scyjm;
open (CONTACT,"f:\\perl\\f.txt")||die("can not open the file!");
while (<CONTACT>)
{
next if /^#/;#if($_=~/^#/的简写
chomp;
my @information =split;# my @information=split/\s+/,$_;的简写
next if(($information[1]=~/\./) && ($information[2]=~/\./));
$scyjm{$information[13]}->{$information[0]}=$information[3];
}
close CONTACT;
open (SC,"f:\\perl\\a.csv")||die("can not open the file!");
while(<SC>)
{
chomp;
my @sc=split;
if ( $scyjm{$sc[1]}{$sc[2]})
{
print "$sc[0] $sc[1] $sc[2] $sc[3] $sc[4] $sc[6] $yjm[6]\n";
}
}
相关文章
perl 变量 $/ 的用法解析 上下文为行模式时,$/ 定义以什么来区分行
默认状态下,很显然都是用\n来区分行,\n也被我们称作为换行符。当读取序列时,按行来读取时,就是以换行符为标准2013-03-03
最新评论