// 下階層用テンプレート #topicpath ---- //ここにコンテンツを記述します。 **標準入力からもらって、なんかする [#x82df99b] とりあえず、標準入力をそのままPrintしてます。 #!/usr/bin/perl my $str=''; while(<STDIN>) { chomp $_; # next if $_ eq ""; $str = "$str$_\n"; } print "$str"; **ファイルに出力する。 [#va4dfc3b] #!/usr/bin/perl open(OUT, "> /home/hogehoge/output.txt"); while (<STDIN>) { print(OUT $_); } close(OUT); 例外処理とかはとりあえず置いておく(´д`;) **関連リンク [#xd733ab3] -[[TAKENAKA's Web Page: Perl入門 15. もっと短くスマートに書ける : いわゆる syntactic sugar>http://takenaka-akio.cool.ne.jp/doc/perl_kiso/sugar.html]] ---- この記事は #vote(おもしろかった,そうでもない) #comment #topicpath SIZE(10){現在のアクセス:&counter;}