是否有任何函数可用于将字符串中的所有换行符转换为空格？
例如：
$a = "dflsdgjsdg dsfsd gf sgd g sdg sdf gsd";
我要找的结果是：
$a = "dflsdgjsdg dsfsd gf sgd g sdg sdf gsd"
解决方法
我建议限制使用$a和$b来排序例程.
对于你的问题,tr ///比s ///更合适：
#!/usr/bin/perl
use strict;
use warnings;
my $x = q{dflsdgjsdg
dsfsd
gf
sgd
g
sdg
sdf
gsd};
$x =~ tr{\n}{ };
print $x,"\n";
__END__
输出：
C:\Temp> ttt dflsdgjsdg dsfsd gf sgd g sdg sdf gsd
更新：我不认为TMTOWTDI在这里使用除了tr ///以外的任何东西是合理的.首先,在语义上,OP要求的是音译,因此使用音译是有意义的.其次,至少在我的带有5.10的Windows XP笔记本电脑上,基准模块提供了明显的对比：
#!/usr/bin/perl
use strict;
use warnings;
use Benchmark qw( cmpthese );
use constant LONG_STRING => "\n" x 1_000_000;
cmpthese -10,{
subst => sub {
my $x = LONG_STRING;
$x =~ s{\n}{ }g;
return;
},split_join => sub {
my $x = LONG_STRING;
$x = join ' ',split /\n/,$x;
return;
},tr => sub {
my $x = LONG_STRING;
$x =~ tr{\n}{ };
return;
},nop => sub {
my $x = LONG_STRING;
return;
}
};
__END__
结果：
Rate split_join subst tr nop split_join 0.354/s -- -85% -100% -100% subst 2.40/s 578% -- -99% -100% tr 250/s 70514% 10320% -- -92% nop 3025/s 854076% 125942% 1110% --
还有一个更新：我应该指出tr ///到s ///的相对性能取决于源字符串的大小和组成.我在这里选择插图的情况绝对是极端的.使用不太极端的输入字符串,性能比似乎接近15：1而不是100：1