Perlについての質問箱 37箱目at TECHPerlについての質問箱 37箱目 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト400:デフォルトの名無しさん 08/08/29 22:21:28 >>399は40代と見た。 401:デフォルトの名無しさん 08/08/29 23:14:08 いきなり考えなしに実行すると危険なことってあるよね。 コンソールレベルでも、 open FILE > C:/windows/comamnd.com とか。 コマンドコムが上書きされてしまう。 あと危険なのは、rmとか。 systemとか。 あと、レンタルサーバーで無限ループになったときって どうすればいいの？ 402:デフォルトの名無しさん 08/08/29 23:40:30 my a=1; これでエラーが出るんで、 「おかしいなーおかしいなー」 って悩んでたら、よく考えたら、 ＄が抜けてた。 403:デフォルトの名無しさん 08/08/30 00:00:37 use utf8; use open IO => ":encoding(cp932)"; binmode STDIN => ":encoding(cp932)"; binmode STDOUT => ":encoding(cp932)"; binmode STDERR => ":encoding(cp932)"; use Encode; system q|cls|; #---------------------------------- my $bar = 'fuga.txt'; if (-f $bar) { print "ファイル".$bar."が存在します。\n"; } else { print"ファイル". $bar."が存在しません。\n"; } ↑このコードすごいよ。 ファイルが存在するかどうかを調べてくれて、 レポートまでしてくれるよ。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch