Perlについての質問箱 37箱目
at TECH
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞの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"; } ↑このコードすごいよ。 ファイルが存在するかどうかを調べてくれて、 レポートまでしてくれるよ。
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
4399日前に更新/239 KB
担当:undef