求助，如何把fomat格式輸出嵌套進(jìn)while循環(huán)

淺倦

我想將一行很長(zhǎng)的字符串按每行一定個(gè)數(shù)輸出，于是想到了format格式輸出，我寫的代碼如下。
#在文件中查詢，并輸出
my $first;
my $second;
open (READIN, "/var/www/ibi/phylogenedb/download/$last.txt") or die "Cannot read $last: $!";
open (WRITEOUT,">/var/www/ibi/phylogenedb/download/sequence.fasta") or die "Cannot read $last: $!";
#while (<READIN>){
#       print $_;
#}
select WRITEOUT;
$~="WRITEOUT"
write;
while (chomp($first=<READIN>),chomp($second=<READIN>)){
        $_ = $first;
        if (/]$match.$last/){
                format WRITEOUT=
                ~~^<<<<<<<<<<<<<<<<<<<<<<<<
                $second;
                .
        }
}

select STDOUT;
close (READIN);
close (WRITEOUT);
}

但是運(yùn)行的時(shí)候并不會(huì)成功輸出，錯(cuò)誤提示為
Format not terminated at seq_screen.cgi line 60, at end of line
syntax error at seq_screen.cgi line 60, at EOF
Execution of seq_screen.cgi aborted due to compilation errors.

求解為什么？

zhlong8

不要用 format write select 這功能能早該從 Perl 里面刪除了，既復(fù)雜又難用，是為了在早期的終端中做表格而設(shè)計(jì)的功能。不要想起 format 了，每次想起都是錯(cuò)誤的。

把字符串按定寬度輸出把它截?cái)嗷蚍侄稳〔痪秃昧恕?br />
1.
while ($str =~ /\G(.{1,你要的寬度})/g) {
    say $1;
}

2.
say for split /(?:.{你要的寬度})\K/, $str;

3.
用 substr 好像要麻煩點(diǎn)不會(huì)寫

淺倦

回復(fù) 2# zhlong8


    前兩種就夠了~~~謝謝版主大大了~

jason680

回復(fù) 1# 淺倦

http://72891.cn/thread-4176476-1-1.html
   

lichmama

$str =~ s/(.{30})/$1\n/g;

rubyish

zhlong8 發(fā)表于 2015-05-12 12:14

say for split /(?:.{你要的寬度})\K/, $str;

3  Q ~ ~