くだすれPerl（超初心 ..

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
107:nobodyさん 07/04/18 01:10:01 まずエラーメッセージを書こうぜ 108:106 07/04/18 01:17:05 2fOrfnuV #ディレクトリを開く print "変換するフォルダのパスを入力してください\n"; $folder_path = <STDIN>; chomp($folder_path); #改行コード削除 opendir(DIR, "$folder_path"); @file = readdir(DIR); closedir(DIR); #ファイル名を調べる foreach (@file) { #htmlファイルなら処理 if( $_ =~ /([A-Za-z0-9_]*\.html)/ ){ print (STDOUT "$1"); #ファイルを開く if( !open(F, "+< $floder_path.$1" ) ){ printf(STDOUT "HTML読み込み失敗\n"); } #ファイル１行読み込む while($line = <F>){ print(STDOUT "変換\n"); #iso-8859-1をShift_JISに変換 if( $line =~ s/charset=iso-8859-1/charset=Shift_JIS/ ){ print(F "$line"); } } close(F); } } としたところ、 ファイル名　HTML読み込み失敗 と表示されます。

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

4292日前に更新/307 KB
担当:undef