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

初学 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); 第二：提取指定的某些列（提取 1235 列）： 复制代码代码如下: #!/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, E:/file3.txt); open(OUTF