perl 运行结果保存问题

perl 运行结果保存问题

楼主

concordya [离线]

2★★☆☆☆

发帖数：800 积分2477

1楼

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

2016/2/1 5:43:40

倘若梨花落 [离线]

2★★☆☆☆

发帖数：740 积分2291

2楼

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

签名档

bazinga

2016/2/1 6:30:36

返回本版

1

2

3