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

chhli3

各位前輩：
      我有很多行文本，但是想將每一行按70個(gè)字符為一行劃分成多行，請問怎么做啊？謝謝大家了！

chhli3

求求各位前輩��！別沉啊！

kk861123

回復(fù) 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. }

復(fù)制代碼

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. }
   

復(fù)制代碼

chhli3

回復(fù) 3# kk861123


    大哥你好，你的方法可能確實(shí)可以，但是小弟不才，沒能將我的問題搞定，有一問題就是 local $/ 是什么變量？

kk861123

回復(fù) 5# chhli3


    輸入格式分隔符

chhli3

回復(fù) 4# yizhengming


    謝謝回復(fù)！

chhli3

回復(fù) 6# kk861123


    不好意思，還是不懂！

cdtits

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

xiyoulaoyuanjia

這個(gè)不錯(cuò)～～