手机
当前位置:查字典教程网 >脚本专栏 >perl >perl实现的两个文件对比并对数据进行筛选的脚本代码
perl实现的两个文件对比并对数据进行筛选的脚本代码
摘要:复制代码代码如下:#!/usr/bin/perlmy%scyjm;open(CONTACT,"f:perlf.txt")||die("can...

复制代码 代码如下:

#!/usr/bin/perl

my %scyjm;

open (CONTACT,"f:perlf.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:perla.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实现的两个文件对比并对数据进行筛选的脚本代码】相关文章:

perl上下文介绍

perl读写文件代码实例

perl处理csv文件的小例子

perl实现blog备份的脚本代码

Perl访问MSSQL并迁移到MySQL数据库脚本实例

Perl脚本实现递归遍历目录下的文件

perl批量查询ip归属地的方法代码

perl去除重复内容的脚本代码(重复行+数组重复字段)

用perl实现生物突变的随机模拟程序代码

Perl使用File::Basename获取文件扩展名的代码

精品推荐
分类导航