perl用来提取文本行或列的实例代码.docVIP

初学perl语言，感觉提取文本矩阵的某些行或者列还是比较有用的。下面是举一些具体的例子，供大家学习参考。 第一：提取含有某个关键字的行：? 复制代码代码如下: #!/usr/bin/perl open FILE, E:/SNP.txt ;open OUT1,+E:/file3.txt; foreach (FILE) {@pairs=split(/ /, $_);$count=@pairs; if($pairs[$count-1] =~ m/^reference$/){? print OUT1 $_,\n;}}close(FILE);close(OUT1); 第二：提取指定的某些列（提取1 2 3 5列）：? 复制代码代码如下: #!/usr/bin/perl? open(INFILE, E:/file3.txt);open(OUTFILE, E:/file4.txt)|| die Cannot open the newfile: $!\n;; while (INFILE) {??????? @a = split( );??????? print OUTFILE $a[0]\t $a[1]\t $a[2]\t $a[4]\n;}exit; 第三：去掉文本中有空行的命令：? 复制代码代码如下: #!/usr/bin/perl open(INFILE,