Perl 去掉行分割符

概述[oracle@dwh1 perl]$ cat 9.pl open my ($fh),'<',"1.txt" or die;foreach (<$fh>) {chomp ($_);print "$_";};[oracle@dwh1 perl]$ cat 1.txt aaaaaaaabbbbbbbbccccccccddddddddeeeeeeeeffffffffgggggg

[oracle@DWh1 perl]$ cat 9.pl open my ($fh),'<',"1.txt" or dIE;foreach (<$fh>) {chomp ($_);print "$_";};[oracle@DWh1 perl]$ cat 1.txt aaaaaaaabbbbbbbbcccccccc@R_404_6605@@R_404_6605@eeeeeeeeffffffffgggggggg[oracle@DWh1 perl]$ perl 9.pl aaaaaaaabbbbbbbbcccccccc@R_404_6605@@R_404_6605@eeeeeeeeffffffffgggggggg[oracle@DWh1 perl]$ 

总结

以上是内存溢出为你收集整理的Perl 去掉行分割符全部内容，希望文章能够帮你解决Perl 去掉行分割符所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。