Perl/TIPS集

標準入力からもらって、なんかする †

とりあえず、標準入力をそのままPrintしてます。

#!/usr/bin/perl

my $str='';
while(<STDIN>) {
  chomp $_;
  # next if  $_ eq "";
  $str = "$str$_\n";
}
print "$str";

ファイルに出力する。 †

#!/usr/bin/perl

open(OUT, "> /home/hogehoge/output.txt");
while (<STDIN>) {
  print(OUT $_);
}
close(OUT);

例外処理とかはとりあえず置いておく(´д`;)

関連リンク †

• TAKENAKA's Web Page: Perl入門 15. もっと短くスマートに書ける : いわゆる syntactic sugar

この記事は

現在のアクセス:3365