perl 运行结果保存问题

楼主

发帖数：774 积分2393

1楼

#!/usr/bin/perl

$filename = "F:\基因库.pl"; ### 加上文件路径。

open IN, "$filename"; #读取

while(<IN>){
if(~/^>/){
s/locus=.*$//;
}
print;
}
怎样修改才能保存结果啊

2016/1/31 21:07:58

amyj [离线]

发帖数：744 积分2304

2楼

急啊

2016/1/31 23:27:38

发帖数：737 积分2282

3楼

Cout<<"保存结果";

0000

2016/2/1 0:13:56

发帖数：732 积分2265

4楼

很急啊，谁帮个忙啊

2016/2/1 4:05:27

发帖数：800 积分2477

5楼

开头加一个$^I = ".bak";

2016/2/1 5:43:40

发帖数：740 积分2291

6楼

比如
$^I = ".bak";
while (<>) {
s/(#!.*$)/$1##Copyright (c) 2016 4 15 Yours/;
print;
}

bazinga

2016/2/1 6:30:36