如何将换行字符转成 <br>急！

bluestarly

如题，将换行字符转成 <br>，php下可以使用nl2br（）函数，但perl下缺没有发现，希望大家给我个办法。急用！！！

flw

这都要有专用的函数，也太不正交了，faint～

1. $str =~ s/\n/<br>/sg;

复制代码

hgneng

open(FILE_IN, '<', 'in_file');
open(FILE_OUT, '>', 'out_file');
while(<FILE_IN>) {
  s/\n$/<br>/;
  print FILE_OUT $_;
}
close(FILE_OUT);
close(FILE_IN);

flw

原帖由 hgneng 于 2007-1-29 14:35 发表
open(FILE_IN, '<', 'in_file');
open(FILE_OUT, '>', 'out_file');
while(<FILE_IN>) {
  s/\n$/<br>/;
  print FILE_OUT $_;
}
close(FILE_OUT);
close(FILE_IN);

1. $\ = '<br>';
   
2. open( FIlE_IN, '<', 'in_file' );
   
3. open( FILE_OUT, '>', 'out_file' );
   
4. while( <FILE_IN> ){
   
5.     chomp;
   
6.     print FILE_OUT;
   
7. }
   
8. close(FILE_OUT);
   
9. close(FILE_IN);

复制代码

bluestarly

我刚开始学习，不懂的太多，假如我要过滤$val1中的字符串最后送到$val2中，改如何写，求教中？

flw

原帖由 bluestarly 于 2007-1-29 14:42 发表
我刚开始学习，不懂的太多，假如我要过滤$val1中的字符串最后送到$val2中，改如何写，求教中？

my $val2 = $val1;
$val2 =~ s/\n/<br>/sg;

hgneng

$val2 = $val1;
$val2 =~ s/\n/<br>/sg;

bluestarly

问题解决，诚挚的谢谢楼上的各位！