求助，如何把fomat格式输出嵌套进while循环

浅倦

我想将一行很长的字符串按每行一定个数输出，于是想到了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);
}

但是运行的时候并不会成功输出，错误提示为
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 里面删除了，既复杂又难用，是为了在早期的终端中做表格而设计的功能。不要想起 format 了，每次想起都是错误的。

把字符串按定宽度输出把它截断或分段取不就好了。

1.
while ($str =~ /\G(.{1,你要的宽度})/g) {
    say $1;
}

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

3.
用 substr 好像要麻烦点不会写

浅倦

回复 2# zhlong8


    前两种就够了~~~谢谢版主大大了~

jason680

回复 1# 浅倦

http://bbs.chinaunix.net/thread-4176476-1-1.html
   

lichmama

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

rubyish

zhlong8 发表于 2015-05-12 12:14

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

3  Q ~ ~