[英]Perl chomp plus =~s Yielding very strange results
我正在编写一个创建procmailrc文本文件的perl程序。
输出procmail要求如下所示:(部分IP地址以“ |”分隔)
\(\[54\.245\.|\(\[54\.252\.|\(\[60\.177\.|
这是我的perl脚本:
open (DEAD, "$dead");
@dead = <DEAD>;
foreach $line (@dead) { chomp $line; $line =~s /\./\\./g;
print FILE "\\(\\[$line\|\n"; }
close (DEAD);
这是我得到的输出:
|(\[54\.245\.
|(\[54\.252\.
|(\[60\.177\.
为什么chomp不删除换行符? 还是陌生人,为什么是“ |” 出现在每行的开头,而不是结尾?
如果我用一个单词替换$ line,(打印FILE“ \\(\\ [test \\ |”;}),输出看起来就像我期望的那样:
\(\[test|\(\[test|\(\[test|\(\[test|
我在这里想念什么?
所以我找到了不使用chomp的解决方法:答案在这里: https ://www.perlmonks.org/?node_id = 504626
我的新代码:
open (DEAD, "$dead");
@dead = <DEAD>;
foreach $line (@junk) {
$line =~ s/\r[\n]*//gm; $line =~ s/\./\\./g; $line =~ s/\:/\\:/g;
print FILE "\\(\\[$line \|"; }
close (DEAD);
感谢那些给我一些提示的人。
chomp
删除$/
的值,该值默认设置为"\\n"
产生的字符串。
对于输入,您有
@dead = (
"54.245\.\r\n",
"54.252\.\r\n",
"60.177\.\r\n",
);
这个简单的解决方法:
open(my $dead_fh, '<', $dead_qfn)
or die("Can't open \"$dead_qfn: $!\n");
while (my $line = <$dead_fh>) {
$line =~ s/\s+\z//;
$line =~ s/\./\\./g
print($out_fh "\\(\\[$line\|");
}
print($out_fh "\n");
(另一种方法是在输入句柄中添加:crlf
层。)
使用quotemeta
更有意义
open(my $dead_fh, '<', $dead_qfn)
or die("Can't open \"$dead_qfn: $!\n");
while (my $line = <$dead_fh>) {
$line =~ s/\s+\z//;
print($out_fh quotemeta("([$line|"));
}
print($out_fh "\n");
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.