くだすれPerl（超初心 ..
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
104:nobodyさん 07/03/23 12:35:39 せめてTeraterm使ってください 105:nobodyさん 07/03/26 05:21:22 表示文字コードを変更できないプロンプトってあるの？ 106:nobodyさん 07/04/18 00:42:41 2fOrfnuV #ディレクトリを開く print "変換するフォルダのパスを入力してください\n"; $folder_path = <STDIN>; chomp($folder_path); #改行コード削除 opendir(DIR, "$folder_path"); @file = readdir(DIR); closedir(DIR); #ファイル名を調べる foreach (@file) { #htmlファイルなら処理 if( $_ =~ /.html/ ){ print "$1\n"; ##ここは呼ばれるが$1が空## #ファイルを開く open(F, "+< $_.$1" ); #ファイル１行読み込む while($line = <F>){ #iso-8859-1をShift_JISに変換 if( $line =~ s/charset=iso-8859-1/charset=Shift_JIS/ ){ print(F "$line"); } } close(F); } } htmlファイルの文字コードをかえるコードを書きたいのですが、うまくいきません。 どこが、間違ってるのでしょうか？
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
4291日前に更新/307 KB
担当:undef