// 下階層用テンプレート
#topicpath
----
//ここにコンテンツを記述します。

**標準入力からもらって、なんかする [#x82df99b]
とりあえず、標準出力をそのままPrintしてます。
とりあえず、標準入力をそのまま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;}
トップ   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS