Question

perl ：DATA中数据处理，每三行换成一行，为什么第一个词汇匹配不上。

use strict;
use warnings;
while(<DATA>){
$/=";";
chomp;
s/(.+)\n(.+)\n(.+)\n/$1"-"$2"-"$3\n/g;
print ;
}

__DATA__
Adiponectin(ACRP30)
ADIPOQ
Q15848
VEGF-A
VEGFA
P15692
VEGFR2
KDR
P35968
VEGFR3
FLT4
P35916
VEGF-D
FIGF
O43915

Answer 1

kurri说的很可能是对的,你的 $/ 变量应该在用 <DATA> 读取文件之前设置,因为读文件的时候就是每次取出遇到 $/ 变量的一段内容,第一句就要用到了.不能放到while循坏里面,而且也没必要放到循环里面,只需要一次修改,读取文件结束记得改回来就好了,这是一个值得保持的好习惯.
另外就是发现你这个脚本的执行条件有点苛刻,读入文件必须要每三行有一个分号 ; 结束才行.要是我写的话,我更倾向写"皮实"一些的脚本.多些几行代码也无所谓.
比如一个循环读三行,然后用变量取出来再连着打印出来..比如向下面这样..
#!/usr/bin/perl -w
use strict;
my $file = shift;
open(DATA,"<$file")||die $!;
while(<DATA>){
chomp;
my $line1 = $_;
my $line2 = <DATA>;
chomp $line2;
my $line3 = <DATA>;
chomp $line3;
$line1 =~ s/\;//g;
$line2 =~ s/\;//g;
$line3 =~ s/\;//g;
print $line1,'-',$line2,'-',$line3,"\n";;
}
close DATA;

Answer 2

$/=";"; 这一行放到 while循环之前