Perlコーディング初心 ..
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
126:nobodyさん 08/03/14 22:50:02 >>125 open(FH, "$_") or die "$! [$_]"; 1 while <FH>; とでもして吐かれたエラーメッセージを読む。 127:nobodyさん 08/03/14 23:25:19 >>125 File::Find の find では pwd が変りますが、 $File::Find::name で得られるのはこの場合は $dir からのパス。 use Cwd ; して if 文の中に print getcwd ； して確認してみそ。 簡単な解決方法は、$dir にゼッタイパスを突っ込め。 それから perldoc File::Find くらいしろ。 128:nobodyさん 08/03/16 19:27:01 483Ek7KZ Commonで漢字を含むデータをＰＯＳＴしたいのですが、漢字部分が出力されません。 以下で生成されたcontentをチェックしても、漢字だけ消えています。 どの様にすれば良いでしょうか。 よろしくお願いいたします。 use encoding "shift-jis"; LWP::UserAgent; use HTTP::Request::Common qw(POST); my %form=('test'=>'漢字123'); my $request = POST('http://test.test',[%form]); my $con=$request->content; print "test:$form{test}\n"; print "content:$con\n"; 出力 test:漢字123 content:test=123
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
4954日前に更新/211 KB
担当:undef