如何将一行文本分成多行？

chhli3

各位前辈：
      我有很多行文本，但是想将每一行按70个字符为一行划分成多行，请问怎么做啊？谢谢大家了！

chhli3

求求各位前辈啊！别沉啊！

kk861123

回复 1# chhli3

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $data = join('',1..9,0);
   
6. $data = $data x 50;
   
7. print $data,"\n";
   
8. 
   
9. open my $fh,"<",\$data;
   
10. {
    
11.     local $/=\70;
    
12.     while (<$fh>) {
    
13.         print "$_\n";
    
14.     }
    
15. }

复制代码

yizhengming

1. #! /usr/bin/perl -w
   
2. use strict;
   
3. open FD, "DATA";
   
4. while (<FD>) {
   
5.     our $i = 0;
   
6.     m{(.)(?{if((++$i)%70 == 0) {print "$1\n"} else {print $1}})(?!)}gs;
   
7. }
   

复制代码

chhli3

回复 3# kk861123


    大哥你好，你的方法可能确实可以，但是小弟不才，没能将我的问题搞定，有一问题就是 local $/ 是什么变量？

kk861123

回复 5# chhli3


    输入格式分隔符

chhli3

回复 4# yizhengming


    谢谢回复！

chhli3

回复 6# kk861123


    不好意思，还是不懂！

cdtits

呵呵，3、4楼的方法都非常好啊

xiyoulaoyuanjia

这个不错～～