perl實現(xiàn)的兩個文件對比并對數(shù)據(jù)進行篩選的腳本代碼
更新時間：2013年03月20日 23:03:21 作者：
對比兩個文件并對數(shù)據(jù)進行篩選的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";
}
}
相關(guān)文章
Perl的語法糖更是其魅力所在,它不僅提高了開發(fā)效率,還使得代碼更加直觀易讀,本文將深入探討Perl語言中的語法糖,分析它們的工作原理及其對開發(fā)過程的影響,感興趣的朋友一起看看吧2025-01-01
本文和大家重點討論一下Perl方法的概念，Perl方法定義不提供任何特殊語法，但規(guī)定Perl方法的第一個參數(shù)為對象或其被引用的包。Perl有兩種Perl方法：靜態(tài)Perl方法和虛Perl方法2013-03-03
perl中srand()與time的函數(shù)使用方法介紹
這篇文章主要介紹了perl中srand與time函數(shù)的使用，需要的朋友可以參考下2013-03-03
本文向大家簡單介紹一下Perl語法中Perl運算符的概念，Perl語言中Perl運算符有很多值得學習的地方，這里和大家分享一下它的概念和用法2013-03-03
Perl Sort函數(shù)用法總結(jié)和使用實例
這篇文章主要介紹了Perl Sort函數(shù)用法總結(jié)和使用實例,需要的朋友可以參考下2014-05-05
Perl ASCII 字符判斷2008-12-12
perl寫的一個隨機編故事的程序(rand隨機函數(shù))
用perl寫的一個隨機編故事的程序，用到了rand隨機函數(shù)，注釋也很詳細，需要的朋友可以參考下2013-03-03
這兩天在用Perl編寫一些監(jiān)控腳本，其實寫代碼也是一件挺有意思的事情，就是挺廢時間的。而且，由于語法不太熟，基本想到一個東西都要先Google一下看怎么實現(xiàn)。2008-06-06
Perl語言有很多值得學習的地方，你對Perl語法中的變量是否熟悉，Perl變量分為標量變量,數(shù)組變量,聯(lián)系關(guān)系數(shù)組變量3類2013-03-03
perl 變量 $/ 的用法解析 上下文為行模式時，$/ 定義以什么來區(qū)分行
默認狀態(tài)下，很顯然都是用\n來區(qū)分行，\n也被我們稱作為換行符。當讀取序列時，按行來讀取時，就是以換行符為標準2013-03-03