Perl健忘録

一番簡単なファイルのOPEN-CLOSE ＋ 一番簡単なエラー処理

#!/usr/local/bin/perl -w
use strict;
use warnings;
eval{
  my $file = './test.txt';
  open(OUT, ">> $file");
  print OUT "らくがき\n";
  close(OUT);
  open(IN, "$file");
  while (<IN>) { print; }
  close(IN);
};
if( my $err = $@ ){
  print "Exception : " . $err . "\n";
  return;
}