手机
当前位置:查字典教程网 >脚本专栏 >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处理csv文件的小例子

使用perl清理电脑上重复文件实现代码(续)

perl大文件读取处理的模块介绍

perl上下文介绍

perl常量、多维数组及变量的初始化的实例代码

perl比较两个文件字符串的实例代码

perl实现检测服务器中的服务是否正常脚本分享

perl中使用ip138网站查询ip归属地脚本分享

perl ping检测功能脚本代码

精品推荐
分类导航