请问怎么设置每输出50个字符后就自动换行

raoweijian

现在需要连接染色体，scaffold都是标准的文件（图1）
，但是scaffold之间需要用不同长度的N来补充，如果直接输出的话，补N的时候就不会自动换行。
请问怎么让perl每输出50个字符就自动换行呢。

kernel69

不要截图啊，来点文本数据

stanley_tam

50个字符才换行：

1. #!/usr/bin/perl
   
2. use strict;
   
3. 
   
4. open my $fh, '<', shift;
   
5. 
   
6. my $i = 1;
   
7. while (my $char = getc $fh) {
   
8.     next if $char eq "\n";
   
9.     if ($i == 50) {
   
10.         print "$char\n";
    
11.         $i = 0;
    
12.     }
    
13.     else {
    
14.         print $char;
    
15.     }
    
16.     $i++;
    
17. }
    
18. 
    
19. close $fh;
    
20. __END__

复制代码

mcshell

perlvar:
....
Setting $/ to a reference to an integer, scalar containing an integer, or scalar that's convertible to an integer will attempt to read records instead of lines, with the maximum record size being the referenced integer number of characters.
...{:3_186:}

1. $/=\50;
   
2. print "$_\n" while <DATA>;
   
3. __DATA__
   
4. ....

复制代码

回复 1# raoweijian


   

raoweijian

回复 4# mcshell


    谢谢~  达到效果了

stanley_tam

学习了{:3_182:}

wenbinsan

回复 4# mcshell

学习了，3ks。