Top / 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);

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

関連リンク


この記事は

選択肢 投票
おもしろかった 0  
そうでもない 0  

Top / Perl / TIPS集

現在のアクセス:2131


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2008-05-18 (日) 01:10:11 (4109d)