亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標(biāo)題: 請問怎么設(shè)置每輸出50個字符后就自動換行 [打印本頁]
作者: raoweijian    時間: 2013-08-21 18:02
標(biāo)題: 請問怎么設(shè)置每輸出50個字符后就自動換行
現(xiàn)在需要連接染色體，scaffold都是標(biāo)準(zhǔn)的文件（圖1）
，但是scaffold之間需要用不同長度的N來補充，如果直接輸出的話，補N的時候就不會自動換行。
請問怎么讓perl每輸出50個字符就自動換行呢。

1.jpg (60.38 KB, 下載次數(shù): 28)

1.jpg
作者: kernel69    時間: 2013-08-21 22:07
不要截圖啊，來點文本數(shù)據(jù)
作者: stanley_tam    時間: 2013-08-21 23:42
本帖最后由 stanley_tam 于 2013-08-21 23:44 編輯

50個字符才換行：
  1. #!/usr/bin/perl
  2. use strict;

  4. open my $fh, '<', shift;

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

  19. close $fh;
  20. __END__
復(fù)制代碼
作者: mcshell    時間: 2013-08-22 00:40
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    時間: 2013-08-22 10:17
回復(fù) 4# mcshell


    謝謝~  達(dá)到效果了
作者: stanley_tam    時間: 2013-08-22 10:32
學(xué)習(xí)了{(lán):3_182:}
作者: wenbinsan    時間: 2013-09-05 11:11
回復(fù) 4# mcshell

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


   



歡迎光臨 Chinaunix (http://www.72891.cn/) Powered by Discuz! X3.2