このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1266565626/538
#  test.txt文書内にある 
#  abc001.jpg 
#  abc002.jpg 
#  という2行の文字列を 
#  <Vol.001>abc001.jpg 
#  <Vol.002>abc002.jpg 
#  と書き換えてoutput.txtに書き出すPerlスクリプトを書きたいと思っています。 
#  しかし、test.txt内の文字列が1行の場合には上手くいきますが、 
#  例のような複数行では 
#  <Vol.001>abc001.jpg 
#  abc002.jpg 
#  となってしまいます。 
#  どこが間違っているのでしょうか? 
#   
#  #!/usr/bin/perl 
#  use strict; 
#  use warnings; 
#  $a="test.txt"; 
#  $b="output.txt"; 
#  open my $in , '<', $a or die "Cannot open '$a': $!"; 
#  open my $out, '>', $b or die "Cannot open '$b': $!"; 
#  while(<$in>){ 
#  s/abc(.+?)\.jpg/<Vol\.$1>abc$1\.jpg/; 
#  print $out $_; 
#  }; 
#  close($in); 
#  close($out); 
# 
# 

'test.txt文書内にあるabc001.jpg\nabc002.jpg\nという2行の文字列をabc001.jpg\nabc002.jpgと書き換えてoutput.txtに書き出すPerlスクリプトを書きたいと思っています。' :-
         get_lines('test.txt',Lines),
         tell('output.txt'),
         append(L1,[Line|R],Lines),
         length([_|L1],N),
         write_formatted_atom(';%t\n',[N,Line],S),
         write(S),
         R=[],
         told.