Perl/TIPS集
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
|
ログイン
]
開始行:
// 下階層用テンプレート
#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. もっと短くスマートに...
----
この記事は
#vote(おもしろかった,そうでもない)
#comment
#topicpath
SIZE(10){現在のアクセス:&counter;}
終了行:
// 下階層用テンプレート
#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. もっと短くスマートに...
----
この記事は
#vote(おもしろかった,そうでもない)
#comment
#topicpath
SIZE(10){現在のアクセス:&counter;}
ページ名: