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/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 の使い方はここを見ておけば、大概は困ることないよ
っていうサイトはありますか？

**nobodyさん** · 2009/08/21(金) 10:43:59

質問です。
どこで聞いていいのかわからないので適切なスレがあれば誘導お願いいたします。

たとえば下記のようなディレクトリ環境をサーバに上げた場合、
a1以下全ての属性を777にしようとffftpのソフトでやると一つずつしか変更できないようでした。
そこでDOSプロンプトからftpで入り
quote site chmod 777 a1
としたところうまくいったので、下記のように再帰オプションをつけたところエラーになりました。
quote site chmod -R 777 a1
ヘルプをみると引数が2とあったので、ここでのchmodにはオプションが使えないのだと思います。

a1/
|---b1/
| |---text.txt
|---b2/
| |---c1
| |---text.txt
|---b3/

telnetなどがサポートされていないサーバなのですが、再帰処理ができるソフトやコマンドはありますでしょうか。

**nobodyさん** · 2009/08/21(金) 12:04:28

>>916
http://search.cpan.org/dist/libwww-perl/lwptut.pod
http://search.cpan.org/dist/libwww-perl/lwpcook.pod

>>917
△▲　WebProg 初心者の質問 Part19　▼▽
http://pc11.2ch.net/test/read.cgi/php/1244038749/

**nobodyさん** · 2009/08/21(金) 14:15:44

>>915
html読み込まず、
cgiから吐き出せば？

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

>>912
まず html 側に独自タグを定義して、読み込んだときに置換すればいいかな
例えば

------- test.html -------
<form action="hoge.cgi" method="post">
<input name="nanka_no_flag" value="1"{checked} />
</form>

-------- test.cgi --------
$q = new CGI;
open FH, 'test.html';

print "Content-Type: text/html;\n\n";
while my $line(<FH>){
if($q->param('nanka_no_flag') == 1){
$line =~ s/{checked}/ checked="checked"/;
}
print $line;
}

こんな感じ？
ニュアンスが伝わればいいけど

あとはJavaScript使うとか

**nobodyさん** · 2009/08/21(金) 21:32:25

X <input name="nanka_no_flag" value="1"{checked} />
O <input type="radio" name="nanka_no_flag" value="1"{checked} />

orz

**nobodyさん** · 2009/08/21(金) 22:04:09

セレクト値も送っといて、その値に合わせてselectedをつけるか、
javascriptでセレクト値のクッキー食わせといて、javascriptで選択済みにするかぐらいか。
コンボボックスなら入力値を手入力できるだろうから、その辺もきちんと処理しないとね。

**nobodyさん** · 2009/08/22(土) 01:27:58

SSI使用ページ（shml）があって、その中でcgiを複数呼び出している。
そのshtmlページをサーバのロックでなくて、パスワードでアクセス制限したい。

なら素直に全部をトータルでcgi使えという声もあろうが、全部がスクリプトだと
レイアウト変更や更新が面倒。それに、一部iFrameなんかは楽だしね。

で、shtmlページを完全にアクセス制限する手はなんか内でスカイ？

**nobodyさん** · 2009/08/22(土) 02:25:22

いや、それperl関係無いし

**Name_Not_Found** · 2009/08/22(土) 10:13:30

>>919-922の皆さんご回答ありがとうございます。
早速それらの方法を真似て修正したいと思います。
またつまづいてしまったらきます。
ありがとうございました。

**879** · 2009/08/22(土) 20:07:07

cpanで「install libwww::perl」と行っらインストールできなかったのですが、
何が原因でしょうか？今はもう無くなってしまったのでしょうか？
他のモジュールは通常通りインストールできます。

**nobodyさん** · 2009/08/22(土) 21:42:34

>>926
> cpan LWP

**879** · 2009/08/23(日) 18:08:57

通常プロキシ経由で外部と通信しているのですが、私のPCは外部との直接通信を許可してあります。
他の許可してあるPCではis_successで成功するのですが、私のでは出来ません。
firefoxでプロキシなしでネットに繋ごうとすると繋がりません。

いろいろ試したのですがよく分からないので、考えられる原因を教えてください。

**nobodyさん** · 2009/08/23(日) 18:14:27

>>928
それってつまり、プロクシなしで正常に外部と通信出来てないってことじゃん。
それじゃあLWP云々の前に、そのPCで正常にアクセス出来るよう
設定見直すなり、会社(組織？)の管理者あたりに相談だな。

**nobodyさん** · 2009/08/23(日) 18:16:42

>>929
あぶねえ、同じようなこと投稿するところだったｗ
perlの問題じゃなさそうだし、直接そのPCを見ることのできる人に相談だろうな。

**nobodyさん** · 2009/08/23(日) 19:12:32

>>928
コマンドプロンプトから
pingとtracerouteで接続状況を確認したら？
perlの問題じゃないと思ふ

**nobodyさん** · 2009/08/24(月) 15:05:19

こんなの初めてだよ

$aには1002が入ってて、$bには002001が入ってるはずだから、print "$a$b" ってすると1002002001となるはずが
1002
002001
と表示される、勝手に改行されている
chomp $aやchop $aしてみたけど、chompをやった結果は最初と変わらんし、chopをやると
100
002001
という結果になる
原因も対処法もわからない
ちなみに$a<>$bってやると
1002<>
002001
<>が上に来る不思議

**nobodyさん** · 2009/08/24(月) 15:16:07

>>932
パズルの問題でもつくっているのか？
変数毎に検証すれば何も難しくないと思うが。

$a = '1002';
$b = "\n002001";
これで、望み通りの結果だ。

print "$a$b"; # => 1002\n002001
print "$a<>$b"; # => 1002<>\n002001
chomp $a;
print "$a$b"; # => 1002\n002001
chop $a;
print "$a$b"; # => 100\n002001

**nobodyさん** · 2009/08/24(月) 15:16:12

$aと$bは使うなと何度言ったら・・・って突っ込みは置いといて

変数にs/[\r\n\s]//g;を通してからprintしたら治ったり？

URI::Escape;してprint uri_escape($a,"\0-\377");とかして
変なコードはいってないか見てみたら？

**nobodyさん** · 2009/08/24(月) 15:19:02

>>932
なんで$bはスルーなんだ？

**nobodyさん** · 2009/08/24(月) 15:22:00

>>935
「改行」は行の後につく、という固定観念なんだろう。

文字列というデータ列がターミナル上で「改行」として表示されている、
という概念に辿り着けていないんだろうな。

**934** · 2009/08/24(月) 15:24:07

>>933
あぁそういう文章問題だったのか！
真剣に答えちゃったよorz

**nobodyさん** · 2009/08/24(月) 15:33:51

ちょい待てぃ
$bも先頭も最後もいじってみたが解決しなかったぞ、俺を甘く見るな
934ためしてくるぞ、ためしてきてからレスしたほうがいいな

**nobodyさん** · 2009/08/24(月) 15:36:12

>>938
まあ、自分で検証してみなって。
>>933 の入力で、>>932の文章による結果は満たしている。
十分合理的で簡潔な解だと思う。

他の条件で異なる結果が得られるのなら、
それも示さなければ、他人には絶対理解できない。

**nobodyさん** · 2009/08/24(月) 15:39:03

無理ですたorz
俺は何も悪いことしてない
俺も933は思いついたんだが、やはり無理でした

**nobodyさん** · 2009/08/24(月) 15:42:03

「入ってるはずだから」って何だよ

**nobodyさん** · 2009/08/24(月) 15:48:02

入ってるはずなのに結果がああなったという日本語
まぁ、もうちょっと一人でなんとかしてみるわﾉｼ

**nobodyさん** · 2009/08/24(月) 15:53:13

>>942
本当に「入っている」のならば、そのデータと eq で比較すればいいだろうに。
print "a is ok. " if $a eq '1002';
print "b is ok. " if $b eq '002001';

**nobodyさん** · 2009/08/24(月) 16:00:52

>>934をしてみてよ。

use URI::Escape;

print '$a = ', uri_escape($a,"\0-\377"), "\n";
print '$b = ', uri_escape($b,"\0-\377"), "\n";

**nobodyさん** · 2009/08/24(月) 16:04:33

>>932
print "$a$b";
print "$a$b";
print "-$a-$b-";

これで少しは問題の切り分けができるだろ。
俺は他の部分のケアレスミスと踏んでるがな。

**nobodyさん** · 2009/08/24(月) 16:09:28

みんなありがとう、本当にありがとうｂ
uri_escapeしたら$bの先頭に%0Aがでてきた
しかし対処の仕方は $b =~ s/%0A//; しか思いつかなかった

**nobodyさん** · 2009/08/24(月) 16:36:10

>>946
\nでダメだったんなら多分\rだろ。このメタ文字は環境依存するからな。