請(qǐng)問怎么設(shè)置每輸出50個(gè)字符后就自動(dòng)換行

raoweijian

現(xiàn)在需要連接染色體，scaffold都是標(biāo)準(zhǔn)的文件（圖1）
，但是scaffold之間需要用不同長(zhǎng)度的N來補(bǔ)充，如果直接輸出的話，補(bǔ)N的時(shí)候就不會(huì)自動(dòng)換行。
請(qǐng)問怎么讓perl每輸出50個(gè)字符就自動(dòng)換行呢。

kernel69

不要截圖啊，來點(diǎn)文本數(shù)據(jù)

stanley_tam

50個(gè)字符才換行：

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__

復(fù)制代碼

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

復(fù)制代碼

回復(fù) 1# raoweijian


   

raoweijian

回復(fù) 4# mcshell


    謝謝~  達(dá)到效果了

stanley_tam

學(xué)習(xí)了{(lán):3_182:}

wenbinsan

回復(fù) 4# mcshell

學(xué)習(xí)了，3ks。