--------------------------
为什么不这样写呢？
#!/usr/bin/perl -w
use strict;
use 5.014;
$^I='.bak';
while(<>)
{
s/^how .*//;
print;
}
------------------------------
>>> perl x.pl a.txt
或者源文件中不写 $^I='.bak';
>>>perl -i.bak x.pl a.txt
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
open (DIR,"C:\\a.txt");
#隐式声明从文件读。
$^I=".bak";
#$^I和钻石操作符配合使用
while(<DIR>){
s/^how .*//;
print;
#print $_;
=pod
或者从DIR输入，从另一个OUTFILE输出。
除非定义个输出文件句柄，print OUTFILE ;
open OUTFILE,'>c:\\a.txt.bak'
or die "error:$!";
...
print OUTFILE;
DIR只是输入句柄，不能作为输出句柄。
=cut
}这个为什么没生成备份文件呢？
为什么不这样写呢？
#!/usr/bin/perl -w
use strict;
use 5.014;
$^I='.bak';
while(<>)
{
s/^how .*//;
print;
}
------------------------------
>>> perl x.pl a.txt
或者源文件中不写 $^I='.bak';
>>>perl -i.bak x.pl a.txt
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
open (DIR,"C:\\a.txt");
#隐式声明从文件读。
$^I=".bak";
#$^I和钻石操作符配合使用
while(<DIR>){
s/^how .*//;
print;
#print $_;
=pod
或者从DIR输入，从另一个OUTFILE输出。
除非定义个输出文件句柄，print OUTFILE ;
open OUTFILE,'>c:\\a.txt.bak'
or die "error:$!";
...
print OUTFILE;
DIR只是输入句柄，不能作为输出句柄。
=cut
}这个为什么没生成备份文件呢？
