http://
我需要用文件中的每一个替换//
。该文件可能(至少)在UTF-8
、CP1251
或CP1255
.
下面的工作吗?
use File::Slurp;
my $Text = read_file($File, binmode=>':raw');
$Text =~ s{http://}{//}gi;
write_file($File, {atomic=>1, binmode=>':raw'}, $Text);
这似乎是正确的,但我需要确保文件不会被损坏,无论它具有什么编码。请帮助我确定。