CGI Perl総合

**名無しさん** · NG

>>4
何がしたいのかさっぱりわからん。
これで良いのか？

open (IN,"hoge.txt") || &error('オープンエラー','指定された書込みファイルが開けません。');
@LINES = <IN>;
close (IN);

$xx = "c";

foreach (@LINES) {
  my ($t1, $t2, $t3) = split /<>/;
  next unless $t2 eq $xx;
  $t3++; $_ = join ("<>",$t1,$t2,$t3);
  last;
}

open (OUT,">$hoge.txt") || &error('オープンエラー','指定された書込みファイルが開けません。');
print OUT (@LINES);
close (OUT);