Perlコーディング初心者質問スレ Part 59

**nobodyさん** · 2009/02/16(月) 11:42:29

Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。

1：自分はこういう事がしたい。
2：それでこんな風にやってみたが･･･
3：こんなエラーが出て上手く行かなかった。

最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。

お勧めサイトは >2 以降

前スレ　http://pc11.2ch.net/test/read.cgi/php/1218030872/

**nobodyさん** · 2009/07/11(土) 14:57:08

>>515-516
即レスありがとうございます。
any_func() のなかでwantarrayを使用しているのですが、

sub any_func {
my @a = (1, 2, 3);
my $s = 6;
return wantarry ? @a : $s;
}

print文のなかで使用するにはやはり一旦変数にとってからprintでしょうか。
print文のなかで直接any_func()を使用するとscalarのreturnが表示されて困ってました。

**nobodyさん** · 2009/07/11(土) 14:58:10

× >>515-516
○ >>815-816

**nobodyさん** · 2009/07/11(土) 16:34:37

use strict;
use warnings;

sub any_func {
my @a = (1, 2, 3);
my $s = 6;
return wantarray ? @a : $s;
}

print any_func();

wantarryをwantarrayに直しただけで、ちゃんと123が表示されるよ？

**nobodyさん** · 2009/07/11(土) 19:10:03

print +(any_func());

**nobodyさん** · 2009/07/11(土) 19:46:53

>>819
すみません。勘違いでした。printのなかで使用した場合arrayがかえってきました。
>>820
こんな指定の仕方もあるんですね。知らなかった。。

**nobodyさん** · 2009/07/11(土) 22:23:13

マジレスすると、
リストを返す関数からリストを得る為には、関数を「リストコンテキストで評価してやる」だけでよろしいです。
wantarray() の名の通り、array を want してやるだけ(ここは Perl 用語としては array でなく list と呼ぶべきだけれど)。

リストコンテキストの例としては、リスト代入(配列、ハッシュ、あるいはスカラー変数のリストに対する代入)、リストを取る関数の引数部などがそれにあたります。

print() は引数にリストを取る関数なので print の引数はリストコンテキストで評価されます。ですからこの場合、特別な仕掛けは要りません。

Perl の組込関数は、単項演算子として振舞ういくつかを除き、ほとんどが引数をフラットなリストとして扱います。
そのため scalar() はあっても、対となるはずの list() 組込関数は存在しません。(和ラクダ第3版v2 P.925 参照)
# ちなみに scalar() 自身は単項演算子として振舞う関数のひとつです。

**nobodyさん** · 2009/07/16(木) 14:08:29

すみません、質問です。

サーバーはXREAを使っています。
MIME::Parser を使おうと思い、他の箇所は問題無いCGIファイル内に
use MIME::Parser;
という記述を入れると
Argument "2.00_01" isn't numeric in subroutine entry at /usr/local/lib/perl5/site_perl/5.8.8/MIME/Head.pm line 119.
Argument "2.00_01" isn't numeric in subroutine entry at /usr/local/lib/perl5/site_perl/5.8.8/MIME/Head.pm line 120.
Argument "2.00_01" isn't numeric in subroutine entry at /usr/local/lib/perl5/site_perl/5.8.8/MIME/Head.pm line 143.
Argument "2.00_01" isn't numeric in subroutine entry at /usr/local/lib/perl5/site_perl/5.8.8/MIME/Entity.pm line 230.
Argument "2.00_01" isn't numeric in subroutine entry at /usr/local/lib/perl5/site_perl/5.8.8/MIME/Entity.pm line 231.
というエラーが発生してしまいます。

これの回避方法をご教示ください。
よろしくお願いします。

**nobodyさん** · 2009/07/16(木) 15:54:53

>>823
該当ファイルの該当行の前後がどうなってるのか分からないとね。

**nobodyさん** · 2009/07/16(木) 16:17:48

>>823
s/_01//

**nobodyさん** · 2009/07/21(火) 03:06:34

誘導により、プログラム板より移動していきました。

CGIを作っているのですが、<input type="file" name="file">の扱いがよくわかりません。
ファイルが入力されているかいないかの判別を、definedで判別できるかと思ったのですが、
$cgi = new CGI;
if( defined( $cgi->param( "cgi"))) {}
これだと、いつもifの中にはいってしまいます。
わたしが謝ったコードを書いているのでしょうか？
今は、
if( 4 < length( $cgi->param( "cgi")))
で処理していますが、通常はどのような条件分岐を行うのでしょうか？
(上記の条件分岐は、ファイルをzipファイルをアップロード対象としているため、拡張子の分のファイル名を4文字と考えています。

**nobodyさん** · 2009/07/21(火) 03:46:34

大体のブラウザではファイルが選択されていない場合、空文字が入りますのでdefinedでは常に真になります。
ベターなチェック方法は
if( defined( $cgi->upload( "cgi"))) {}
です。
この方法ならファイル選択をせずテキストボックスに適当な文字を入力されたケースにも対応できます(偽が返る)。

**nobodyさん** · 2009/07/21(火) 04:02:29

>>827
それだと2回も uplodad メソッドが呼ばれるからなんか無駄な気分

if( defined( my $file = $cgi->upload("cgi") ) ){
print $file;
}

こんな感じのがよくね？

**nobodyさん** · 2009/07/22(水) 23:40:08

パスワード付きのzipファイルをPerlで解凍する方法を教えてください。
sample.zipのパスパードはtestです。ここまで書きました。

#!/usr/bin/perl

use strict;

my $zipfile = 'sample.zip';
my $pass = 'test';

**nobodyさん** · 2009/07/22(水) 23:52:11

>>829
my $unzip = "/usr/bin/unzip";
my $file = "$unzip -p -P $pass $zipfile |";
open my $fh, $file;
my @lines = <$fh>;
close $fh;

あとは@linesを書けばOK

**nobodyさん** · 2009/07/23(木) 00:27:53

それ、コマンド叩いてるだけじゃ...

**nobodyさん** · 2009/07/23(木) 01:02:41

自力でやる意味がどこにあるんだ
勉強の為だとしたら質問するんじゃない

**nobodyさん** · 2009/07/23(木) 08:23:53

コマンド叩くのが一番自然

**nobodyさん** · 2009/07/23(木) 10:26:53

Archive::Zip はencryptに対応してないってマニュアルに
明記されてるし、IO::Uncompress::Unzipははっきりとは
書いてないけどパスワード与えるインタフェースがなさげ
なのでこちらも多分対応してない。

**nobodyさん** · 2009/07/24(金) 22:10:31

> IO::Uncompress::Unzipははっきりとは
> 書いてないけどパスワード与えるインタフェースがなさげ
> なのでこちらも多分対応してない。

return $self->HeaderError("Encrypted content not supported")
if $gpFlag & (ZIP_GP_FLAG_ENCRYPTED_MASK|ZIP_GP_FLAG_STRONG_ENCRYPTED_MASK);

そうみたいだね。

**nobodyさん** · 2009/07/27(月) 11:10:44

my @bar = (scalar(@{$foo}) > $N) ? @{$foo}[0..($N-1)] : @{$foo};

というコードがあるんですが、何をやっているのかわからないので教えてください。
・@{$foo} は何ですか？$fooでも@fooでもないのでわかりません。
・scalar(@{$foo}) は結局何をしているんでしょうか？

**nobodyさん** · 2009/07/27(月) 11:30:52

> ・@{$foo} は何ですか？$fooでも@fooでもないのでわかりません。

$fooというリファレンスを、デリファレンスしてる

> ・scalar(@{$foo}) は結局何をしているんでしょうか？

配列の要素数を得てる
スカラーコンテキスト。

my $count = @array;
ってやると、コンテキストで要素数が得られるのと同じ。

**nobodyさん** · 2009/07/27(月) 11:42:52

ふと心配になったので、念のため

@{$foo}
と書くのも
@$foo
と書くのも一緒だから、覚えとくといいよ。むしろ後者で書く人の方が多い気がするから。

**nobodyさん** · 2009/07/27(月) 11:46:28

>>837-838
ありがとうございます。@{$foo}と@$fooは同じなんですね。
@{$foo}なんて書き方、初めてみたんですが、これどんなときにつかうんですか。@$fooだけでいいように思いました。

**nobodyさん** · 2009/07/27(月) 12:21:05

>>839
Perlはいろんな書き方出来る言語だから、そんなことでいちいち疑問に思ってたら前に進まないよ

というより、@{$foo}の方が丁寧な書き方っていう印象がある。
俺がそう思うということは、たぶん、オライリーのプログラミングPerlや初めてのPerlにはそう書いてあるはず。

**nobodyさん** · 2009/07/27(月) 12:35:35

>>839
あくまで @{...} が基本形。{} の中はリストリファレンスを返すものなら何でもいい。

@{ ['A'..'Z'] }
@{ $flag ? $bar : baz() }
@{ $foo[1] }
${ $quux }[1]
@{ $quux }[ 1..3 ]
@{"symbolic"} # 文字列ならシンボリックリファレンス
@{bareword} # トークンなら普通の変数

{} の中が単純なスカラー変数の場合は{}を*省略*できる (そして省略する人が多い)。

…と覚えた方が、後で悩まずに済むよ。

**nobodyさん** · 2009/07/27(月) 12:39:54

${foo}

**nobodyさん** · 2009/08/07(金) 10:07:16

バイナリに関してです。

my $head = 0x00000000; #空の4バイト確保
print (pack( "V", $head) . "\n"); #挙動がおかしいのでちょっと出力してみた

しっかり消滅してるしｗ
どうしればいいですか。

**nobodyさん** · 2009/08/07(金) 10:27:48

>>843
よくわからんがhoge.plにそのまま書き込んで実行してみた。

% perl hoge.pl |hex
0x00000000: 00 00 00 00 0a - @@@@J

ちゃんと4バイトの0が出てるので書いてるとおりの動作だな。

これで不満ならどうやって確かめて何がおかしいと思ったのか説明
してもらわないと。

**nobodyさん** · 2009/08/07(金) 10:42:44

すみません。
俺が勝手に使ってるテキストエディタ内の新タブに出力させてたら、エディタの問題だったみたいです。

プロンプト、ファイル出力、共に4バイトありました。

**nobodyさん** · 2009/08/12(水) 14:33:18

この↓ようなモジュールないですかね？

use CGI::Sendmail;

my %mail = (
To => 'you@2ch.net',
Cc => 'he@2ch.net',
Bcc => 'she@2ch.net',
From => 'me@2ch.net',
Name => "ひろゆき",
Subject => "こんにちは",
Body => <<EOL,
お元気ですか？
では、さようなら
EOL
"Sendmail-path" => "/usr/sbin/sendmail",
"Character-code" => "euc-jp",
);

if ( CGI::Sendmail->new(%mail)->send ) { print "送信完了" }
else { print "送信できませんでした" }

**nobodyさん** · 2009/08/12(水) 16:40:16

>>846
http://search.cpan.org/dist/MailTools/
http://search.cpan.org/~markov/MailTools-2.04/lib/Mail/Send.pod
http://search.cpan.org/search?m=module&q=Mail&s=1&n=100

**nobodyさん** · 2009/08/12(水) 18:05:46

超低レベルな質問なんですが
フォームで受け取った$pass(値はhoge)と
同じくフォームで受け取った$idをファイル名に含んだファイルの二行目をfile()で読み込んで
$data[1](値はhoge)に代入して
if($pass==$data[1]){
print"値は同じです".$pass"==".$data[1];
}
else{
print"値は違います".$pass"==".$data[1];
}
を実行すると
「値は違います　hoge==hoge」
と表示されるのですが「値は同じです」と表示させるにはどうしたらいいですか？

**nobodyさん** · 2009/08/12(水) 18:10:12

**nobodyさん** · 2009/08/12(水) 18:11:08

それか改行入ってるとかありがち

**nobodyさん** · 2009/08/12(水) 18:14:13

PHPスレと間違えましたすみませんでした

**nobodyさん** · 2009/08/12(水) 18:16:02

>>847
㌧
文字コード変換とMIME-base64？変換を自分でやれば使えそうです。

**nobodyさん** · 2009/08/13(木) 20:16:07

Perl勉強したときは
printfと書きましょうと習ったんだけど

printでも普通に使えるよね？
昔は使えなかったの？

**nobodyさん** · 2009/08/13(木) 20:43:12

>>853
>printfと書きましょうと習ったんだけど
まずそれがおかしい

**nobodyさん** · 2009/08/13(木) 21:09:54

誰からどう習ったんだよｗ

**nobodyさん** · 2009/08/13(木) 22:41:36

printfのfの意味わかってんの？

**nobodyさん** · 2009/08/13(木) 22:44:43

こういう場合は　という限定的な意味で教えたが、
習った>>853は、全ての場合でと勝手に解釈したってことだろ

会話で生じる誤解としては良くある例

**nobodyさん** · 2009/08/14(金) 01:16:04

printf が使えるなんて知らなかった
print と sprintf だけ使ってた

びっくらこいた

**nobodyさん** · 2009/08/14(金) 01:26:28

人のソースみるとびっくりすること多いよね
こんな書き方できたのか！？って

**nobodyさん** · 2009/08/14(金) 02:07:28

糞質問失礼します

html表示するときのフォントをverdanaにしてるんですが
そうすると半角￥がバックスラッシュで表示されてうざいので

$hoge=~ s/\\/¥/ig;

としようと考えたのですが、すると今度は特定の日本語文字が
化けてしまいます

$hogeの中の英数記号だけを変換するにはどう書いたらよいでしょうか

**860** · 2009/08/14(金) 02:12:28

あっ

$hoge=~ s/\\/&ｙｅｎ/ig;

です

**nobodyさん** · 2009/08/14(金) 02:53:12

use utf8

**nobodyさん** · 2009/08/14(金) 13:14:16

>>859

$hash{$1} = $2 while $str =~ /(.+):(.+)/g;

とかな

**nobodyさん** · 2009/08/14(金) 14:02:57

>>860
バイトコードで書く
\5Cの次にS-JISの2バイト目が来なかった場合のみ置換

**nobodyさん** · 2009/08/15(土) 03:34:02

>>864
正規表現で書くことはできますか？
すみません初心者で

**nobodyさん** · 2009/08/15(土) 03:55:15

>>865
http://www.din.or.jp/~ohzaki/perl.htm#JP_Match

**nobodyさん** · 2009/08/15(土) 11:58:25

>>865
肯定の戻り読みを使って、単語の後と行の先頭のときのみを置換するようにしたらどうだろう？

$hoge =~ s/((?<=^)|(?<=[\x00-\x7F\xA1-\xDF])|(?<=[\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC]))\\/¥/g;

**nobodyさん** · 2009/08/15(土) 12:52:11

>>867
おおおおおおお成功しました。感謝です
?<=なんて初めて知りました

>>866
勉強します

**nobodyさん** · 2009/08/16(日) 14:53:02

それだと例えば「や・ら・わ行」の次に「能」の字とかが来ると化けるけどな

**nobodyさん** · 2009/08/16(日) 15:29:10

以下のようなコードで、

use Data::Dumper;
print @Data::Dumper::EXPORT; #=>Dumper

パスを文字列にしてアクセスする場合は、シンボリックリファレンスにするしかないですかね？

my $path = "Data::Dumper";
print @{$path."::EXPORT"}; #=>Dumper

**nobodyさん** · 2009/08/16(日) 21:22:55

use strict でエラーにならない？

**nobodyさん** · 2009/08/16(日) 23:58:30

>>870
print eval "\@${path}::EXPORT";

**nobodyさん** · 2009/08/17(月) 00:52:26

linuxのperlモジュールについての質問はここで良いのでしょうか？

**nobodyさん** · 2009/08/17(月) 01:29:56

いいんじゃないのー

**nobodyさん** · 2009/08/17(月) 02:14:21

>>870

{package Data::Dumper;
print EXPORT}

とかは？
試してないけど

**nobodyさん** · 2009/08/17(月) 02:18:26

あー意味不明でした

{ package $path; print @EXPORT}

package で変数使えるならいけそうだけど使えなかった記憶が…

**nobodyさん** · 2009/08/17(月) 07:59:43

それ eval "package $path" ってしないとダメだよ。
前に一度そういうコード書いたことあるからわかる

**nobodyさん** · 2009/08/17(月) 09:09:05

あげ

**nobodyさん** · 2009/08/18(火) 00:44:13

LWPモジュールのHTTP::Response::is_success() を使用するとエラーは出ないのですが
中身が空で返ってきます。URLは間違ってないのですが、考えられる原因は何かないでしょうか？

**nobodyさん** · 2009/08/18(火) 01:01:54

>>879
UserAgentがLWPだから
はじかれてるとか？

**nobodyさん** · 2009/08/18(火) 01:17:01

HTTP::Response::as_string
取りあえずこの中身見てみては？

**nobodyさん** · 2009/08/18(火) 02:57:59

本当にからなの？

**nobodyさん** · 2009/08/18(火) 05:23:06

>>879
お父さんが設定した、未成年向け有害情報フィルタでフィルタリングされた。

**nobodyさん** · 2009/08/18(火) 12:26:05

>>879
ありがちなのはUserAgentとかRefererとかCookieとかトークンで弾かれてるってパターンだな。

**nobodyさん** · 2009/08/18(火) 12:34:15

全部偽装してみりゃいい

**879** · 2009/08/18(火) 13:44:36

>>881
これで良いのしょうか？
my $request = HTTP::Request->new('GET',$url);
my $http = $request -> as_string();
print "$http";
GET http://headlines.yahoo.co.jp/rss/indonews_c_int.xml User-Agent: libwww-perl/5.830

>>880
よく分からないのですがどういうことでしょうか
また、はじかれるのを回避するにはどうすれば良いのでしょうか？

**nobodyさん** · 2009/08/18(火) 14:25:27

>>886
http://headlines.yahoo.co.jp/rss/indonews_c_int.xmlが取得したいなら、
LWP附属のGETコマンドで一発で取れるからどっかスクリプトに不具合があるんじゃ
ないかと思われ。

**nobodyさん** · 2009/08/18(火) 16:40:28

use LWP::Simple;

my $url = "http://headlines.yahoo.co.jp/rss/indonews_c_int.xml";
my $file = "./rss.xml";
my $rc = getstore($url, $file);
is_success($rc) or die status_message($rc);

こっちはこれでアクセスできてるけど。
これがダメなら、一度LWPのパッケージのバージョン上げてみて、
それでもダメなら別の角度からどうぞ。

それ以前に、ブラウザでアクセスできてるんかいな。

**879** · 2009/08/18(火) 18:56:58

>>888
最後の行でサーバエラーが出ました…
またブラウザでアクセスは出来ます。

あとアップデートはrootでrpm -Uvh perl-libwww-perlを行って出来ませんでした。
間違いを指摘して貰えると助かります。

**nobodyさん** · 2009/08/18(火) 20:17:49

パッケージマネージャからではなくて、cpanを使ってバージョン上げるとどうなる？
依存関係でcpan使いたくないのなら、別に/usr/localにソースからPerl突っ込んでみるとか。

ここまで来るとlynxかwget使って取得した方が早そうだけど。

**879** · 2009/08/18(火) 22:21:49

>>890
cpanでinstall LWPとした所、LWP is up to date(5.830)となりました。

**nobodyさん** · 2009/08/19(水) 01:47:46

てす

**nobodyさん** · 2009/08/19(水) 09:37:51

>>889
rpmで削除できないか？できないなら@INCから自力でLPW探して
LPWを手動で削除してもっかいcpanから入れてみろ。

**nobodyさん** · 2009/08/19(水) 09:42:45

>>889
つーか、ブラウザではプロキシ経由とかそういうオチじゃないだろうな・・・。

**nobodyさん** · 2009/08/19(水) 18:15:22

プログラム板から誘導されてきました

perl＋htmlで掲示板を作っています。ＰＣ・携帯共に基本的には正常動作するのですが、auの機種のみ

■html側（shift_jis）
<form action="bbs.cgi" method="post">
<textarea name="comment" rows=4 cols=30></textarea>
<input type=submit value=発言>
</form>

↓「あいうえお」と入力

■bbs.cgi（EUC_JP）
use CGI;
$query = CGI->new;
@params = $query->param();
foreach $param (@params) {
　　$in{$param} = $query->param($param);
}

↓

$in{comment}の中身は「??????????」

のような動作になってしまいます。
URLエンコード／デコードのせいかと思ったのですが、受け取り時点でこんな化け方をされるとどうすれば良いのやら……
何か解決法は無いでしょうか。
よろしくお願いいたします。

**nobodyさん** · 2009/08/19(水) 21:20:51

Encode Guess

**nobodyさん** · 2009/08/19(水) 22:50:25

EUC-JPの文字コードはShift_JISとどっかぶりだから、判定できないことがしばしばある。
携帯向けコンテンツはShift_JIS/UTF8のどっちかで作っとくことをお勧めしとく。

**nobodyさん** · 2009/08/19(水) 23:39:59

>>895
全部、UTF-8で作ったら？

**nobodyさん** · 2009/08/19(水) 23:48:54

>>895
$in{comment}の中身は、shift_jisコードで「あいうえお」なのだから、この中身をeucに変換する必要があるでしょ。
変換するとき自動にすると誤作動するから、my $str = Jcode->new($str, "sjis")->euc; などと元のコードを指定するべし。
あと、ページを出力するときにcontent-typeヘッダにcharsetを指定するべし。

**nobodyさん** · 2009/08/20(木) 00:51:47

DBIでcreate databaseとdrop databaseは出来ますか？

**nobodyさん** · 2009/08/20(木) 01:05:38

>>980
できるだろ
適切に設定してあれば

もし外部に操作させようってんなら愚行だと思うが

**nobodyさん** · 2009/08/20(木) 05:47:30

こちらでいいか分かりませんが、質問させてください

今PATH_INFOの汚染チェックでヌルバイト(%00等)があれば消去という処理を
したいんですが、なぜかマッチしてくれません
$PATH = shift;
$PATH =~ s/(\0|\x00|%00)//g;

POSTやGETでは上記の処理で消すことが出来たんですが
PATH_INFOの場合はやり方が違うのでしょうか？
ちなみにタグのサニタイジングは出来ました

**nobodyさん** · 2009/08/20(木) 08:42:44

>>902
サニタイズ脳乙。

つーかapacheだとNULLは受け付けてくれないんだが(Not Foundになる)。
PATH_INFOを16進ダンプとかしてみた？

**nobodyさん** · 2009/08/20(木) 09:14:03

>>903
あー
だからPCからだと404に飛んだんだ

test.cgi/test/%00/aaa/
でPATH_INFOを表示させた場合
PC→404エラー
携帯(au)→/test/
となりました

16進ダンプ…調べてきます

**nobodyさん** · 2009/08/20(木) 10:52:18

あとクライアントが蹴ってるのかサーバーが蹴ってるのか分かんないから、
見れるならサーバーのログもみとくといい。
クライアントが蹴って単にサーバーまで届いてない可能性もある。

**895** · 2009/08/20(木) 11:42:27

>>896-899ご回答ありがとうございました、いくつか試してみました。

１．EUC-JPとShift_JISの判定問題が疑われるので、両方sjisに揃えてみる
　→揃えても$in{comment}の中身は「??????????」で変わらず。この判定問題ではない？
　　Jcode変換しても全く変わらないので、そもそも「??????????」はshift_jisコードですらなさそう。

２．Encode Guessの使用
　→両方sjisに揃えたうえで実行してみましたが、「??????????」はasciiコードとのこと。（「??????????」そのものになっている？）

　UTF-8での作成も試してみようと思います。
　これで出来なかったら素直にPHPに行ってくる……

**nobodyさん** · 2009/08/20(木) 15:40:09

携帯電話なら、Shift_JISが今でも定番だったりするしな。

**nobodyさん** · 2009/08/20(木) 23:15:50

>>895
Encode関連と見た。SJISだと「あいうえお」は全部MSBが立ってるから、
UTF-8ではマップできない。で、?に置換される。
MSBの立ってないのが混じってる「０１２３４」で試してみ？
「?」以外の文字が混ざるようならビンゴだ。
>>897
今のUAでcharset=を解釈しないものとかHTMLの文字コードと送られてくる
文字コードが食い違うものって残ってる？
>>899
Encode使えよ

**nobodyさん** · 2009/08/20(木) 23:57:41

>>908
auはページがUTF8でもフォーム内容はShift_JISで送られてくるんじゃなかったっけ？

**nobodyさん** · 2009/08/21(金) 00:09:36

てか、
> ■bbs.cgi（EUC_JP）
を見て反応して、
> ■html側（shift_jis）
を見逃してた。

なるほどEncode.pm絡みか。

**nobodyさん** · 2009/08/21(金) 00:15:52

これってEncodeの問題？

CGI.pmって
URLデコードが失敗すると?になったような

use CGI;
use URI::Escape;
print CGI::unescape( uri_escape( 'あいうえお' ) );

とかで試してダメならCGI.pmのバージョン上げてみるとか

**Name_Not_Found** · 2009/08/21(金) 00:52:35

Wep製作板から乗り移ってきました。以後よろしくお願いします。
肝心な質問ですが、

検索ボタンと一緒に付随しているコンボボックス？の事についてですが、何か１つコンボボックスの中の項目を選択して検索ボタンを押した後、その選択したコンボボックスを残した状態で検索結果を表示させたいです。
ただ検索ボタンとコンボボックスの領域は別のhtmlになっていて、検索結果を表示するCGI側で、その検索ボタンとコンボボックスがあるhtmlを読む込みようになっています。
前の検索項目を残すようにすることは可能でしょうか？

よろしくお願いします。

**nobodyさん** · 2009/08/21(金) 01:17:05

可能

**nobodyさん** · 2009/08/21(金) 03:36:54

てす

**Name_Not_Found** · 2009/08/21(金) 09:53:12

>>913-914
宜しければ、やり方を教えてください。

**nobodyさん** · 2009/08/21(金) 10:34:03

LWP 使った書き方が沢山ありすぎて迷う
LWP の使い方はここを見ておけば、大概は困ることないよ
っていうサイトはありますか？