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

**nobodyさん** · 2010/06/05(土) 21:11:10

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

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

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

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

お勧めサイトは >2 以降

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

**nobodyさん** · 2010/12/20(月) 14:28:44

>>903
手元のlinux上の5.10.1で動かしてみたが別に変なことはないけどな。
プログラムは特になんの変哲もないから、現象が本当ならなにかの
バグぐらいしかおもいつかない。バージョンや環境は?

**nobodyさん** · 2010/12/20(月) 14:32:42

>904
RedHat ES4 + perl-5.8.5と、FreeBSD 5-STABLE + perl 5.8.8の2つの環境で
確認しました。
perlのバグですかね・・・。うーん。

**nobodyさん** · 2010/12/20(月) 15:19:18

Encode.pm で落ちてるみたいだけど・・。
does not map to euc-jp at /usr/lib64/perl5/5.8.8/x86_64-linux-thread-multi/Encode.pm line 158.

途中で euc にマッチするコードになるんだろうか？

binmode を使わないで、最後の方をこうするしかないみたい。
-------------
utf8::encode($x);
Encode::from_to($x, 'utf8', 'iso-2022-jp');
print $x . "\n";
-------------

**nobodyさん** · 2010/12/20(月) 15:25:33

>906
最新のEncode.pm(2.40)でもdoes not map to euc-jpと出ました。
5.10.1でOKということはEncode.pmの問題じゃなくて本体の方の問題ですかね。

>binmode を使わないで、最後の方をこうするしかないみたい。

なるほど、確かにこちらならOKでした。
出力先がフィルターやファイルなのでこのまま書き直してうまく行くか確認が
必要ですが、こちらの方で動くか試してみます。ありがとうございます！

**nobodyさん** · 2010/12/20(月) 18:35:18

content-type が Shift_JIS とか指定してたりして。。。

**nobodyさん** · 2010/12/21(火) 01:22:26

再現した
v5.8.8 built for i386-linux-thread-multi
Encode 2.40

**nobodyさん** · 2010/12/21(火) 03:00:18

それPerlIOの仕様で1024バイト目でぶっちぎれてるんでしょ。
http://blog.livedoor.jp/dankogai/archives/51231739.html

>>906の言うようにbinmodeを使わないのが正解。
utf8::encodeしてfrom_toとかじゃなくて print encode("iso-2022-jp", $x) のほうがいいと思うけど。

**nobodyさん** · 2010/12/21(火) 06:28:50

>>910
すごい。勉強になった。

**nobodyさん** · 2010/12/21(火) 09:05:29

>>910
自分でencode関係のモジュール作るときは気をつけろって話じゃないの?
さすがにちぎれたからって結果がおかしくなるようなものが標準添付なのは
どうかと思うな。

**nobodyさん** · 2010/12/21(火) 09:35:50

元質問者です。
>910
なるほど・・勉強になりました。

**nobodyさん** · 2010/12/21(火) 17:40:31

WWW::Mechanize を使ってフラッシュプレイヤーがインストール済み
であるかのように振舞うにはどうしたらいいのでしょうか？

**nobodyさん** · 2010/12/22(水) 08:58:19

>>914
普通のブラウザでアクセスしたときの通信内容をよく観察して
真似すればたいていなんとかなる。

**nobodyさん** · 2010/12/22(水) 09:00:32

大概Javascriptで判定されてるからあんまり気にしなくてもいいんじゃない

**nobodyさん** · 2010/12/22(水) 11:08:37

WWW::Mechanize が JavaScript をエミュレートしてくれればねぇ。。。

**nobodyさん** · 2010/12/23(木) 10:41:19

utf フラグが付いた文字列を LWP に投げるとエラー出るのね

１時間ぐらい悩んだわ

**nobodyさん** · 2010/12/25(土) 00:42:21

use utf8 すると、
use CGI::Carp qw(fatalsToBrowser);
がうまく動かないんですね。

%test ってだけすると Internal Server Error としか出ず。
use utf8 を外すと

Global symbol "%test" requires explicit package name at test.cgi line 25.
Execution of test.cgi aborted due to compilation errors.

ってちゃんと出る。

むぅ。。。

**nobodyさん** · 2010/12/25(土) 01:59:19

$ perl test.cgi

**nobodyさん** · 2010/12/25(土) 04:32:14

あらほんとだ。表示された。。。
逆になんでブラウザだと表示されないのか、それはそれで疑問がｗ

**nobodyさん** · 2010/12/25(土) 04:48:35

use utf8;

**nobodyさん** · 2010/12/25(土) 04:57:06

それは外せない。

**nobodyさん** · 2010/12/26(日) 16:40:31

　　　　　　　■ 2chに韓国猿降臨 ■

　Flash板のスレッドにバカチョンが降臨しました、
スレッドは以下のスレです。

2009年　紅白FLASH合戦　新企画・反省スレッド
http://hibari.2ch.net/test/read.cgi/swf/1262431858/l50

　上記スレッドの281が韓国猿で、
＞来年 12月 11日に全域します. 後でみなさんと共にできますね.
等とほざいています、是非煽って煽りまくって火病らせてあげてください^^

**891** · 2010/12/28(火) 04:26:30

>>892，893
遅くなりましたがアドバイスありがとうございました

**nobodyさん** · 2011/01/02(日) 02:18:19

明けましておめでとうございます
AmigoDatabaseを使ってデータベースに興味をもち、CSV形式で
１項目あたり２０００個くらいの要素を抱えていて全部で１万項目
くらいのデータベースになりました
それぞれの要素は原則文字列なのですが時々数値が混じります
この数値を足し算したい場合、個々の数値が連想配列だとしたら
どのようにすれば良いのでしょうか
質問の仕方があいまいですみません

**!omikuji** · 2011/01/02(日) 07:35:30

**nobodyさん** · 2011/01/02(日) 14:45:17

>>926
>>1-2
http://perldoc.jp/docs/perl/5.10.1/perlfaq.pod

**nobodyさん** · 2011/01/03(月) 00:07:46

abcdefg

っていう文字列に対して

cdefg を検索し、efg を xyz に置換

っていうのはどうかけばいいんでしょう？

**nobodyさん** · 2011/01/03(月) 00:17:22

my $s = 'abcdefg';
$s =~ s/efg/xyz/
if($s =~ /cdefg/);#cdefgを検索

こうですか

**nobodyさん** · 2011/01/03(月) 00:22:50

いつも
my $s = 'abcdefg';
$s =~ s/(cd)efg/$1xyz/;
みたいな感じでやってる

**nobodyさん** · 2011/01/03(月) 00:27:26

$s =~ s/cdefg/cdxyz/g;
では不満なのか

あえて特殊エスケープとかつかうなら
$s =~ s/cd\Kefg/xyz/g;
または
$s =~ s/(?<=cd)efg/xyz/g;

**nobodyさん** · 2011/01/03(月) 00:30:47

はいｗ
s/abcdefg/abcdxyz/;

**nobodyさん** · 2011/01/03(月) 01:31:06

スクレイピングで色々やってんだけど、記事を持ってくるサイトが
頻繁に CSS のクラス名を変えたり、順番を変えたりするもんで、
修正漏れに気がつかずにハマったので、一致するけど
置換は行わない部分の指定が出来れば。と思った次第です。

なので、>>932 さんの方法を試してみます。

**931** · 2011/01/03(月) 01:49:54

>>932
おぉ。そんな感じにできるんだ。すげぇ。
perldoc perlre見たらちゃんと書いてあった。勉強になった。
For instance
s/(foo)bar/$1/g;
can be rewritten as the much more efficient
s/foo\Kbar//g;

**932** · 2011/01/03(月) 02:46:25

あーでも\K使えるのはPerl5.9.5以降だから一応注意な。

**nobodyさん** · 2011/01/03(月) 08:19:04

\Kは*や+といったメタ記号も使えるから便利だね。
否定形は何故作らなかったのだろうか。

**nobodyさん** · 2011/01/03(月) 12:15:50

否定だと普通にマッチして場所覚えるだけじゃ
すまなくなるからじゃないかな。

**Perl忍者** ◆M5ZWRnXOj6 · 2011/01/03(月) 16:28:47

gfx君←（笑）

**nobodyさん** · 2011/01/04(火) 14:59:21

コンソールで Term::Screen 使ったあとに vim を使うと
日本語入力ができなくなっているのですがどうすれば良いでしょう？
何かもとに戻す手続きはあるのでしょうか？

$ cat ./ScreenApp.pl

#!/usr/bin/perl
use Term::Screen;
my $scr = new Term::Screen;

$ ./ScreenApp.pl

画面描画

$ vi

で　“あ[Enter]”　と入力すると　“c^B” と表示されて
「まだテキストが挿入されていません」とエラー

**nobodyさん** · 2011/01/04(火) 15:07:36

おい、早く質問に答えろ

**nobodyさん** · 2011/01/04(火) 15:25:09

はい

**940** ◆GUbG3XWPzc · 2011/01/04(火) 15:28:40

>>941
は自分ではありません。
よろしくお願いいたします

**940** ◆vx6KgJyjvE · 2011/01/04(火) 15:55:48

>>943
偽？やめてくれませんか？

教えてください

**nobodyさん** · 2011/01/04(火) 16:03:28

>>940
試してみたら手元の環境でもおかしくなった。resetコマンドで
直ったけど端末関係は詳しくないので原因とかはわかんね。
何かの状態を書き換えたまま放置とかしてるんだろうけど。

◆GUbG3XWPzc · 2011/01/04(火) 16:31:45

ご報告ありがとうございます
reset コマンドは初耳でしたが有効でした

**926** · 2011/01/05(水) 02:24:02

>>928
リンク先の>>1-2は別として、有用なリンクを教えて頂いてどうもありがとうございます。
Perlをよくご存知の方なら知っていて当然のリンクも分からないのが今の自分なんです。
これから精進します。

**nobodyさん** · 2011/01/06(木) 09:58:08

my $in = new CGI;
ってやった時に $in から ENCTYPE を調べる方法ってありますか？
あと GET と POST を同時受け取るのって、CGI からは無理？
<form method="POST" action="aaa.cgi?opt=1">
みたいので呼び出したいのですが。。。

**nobodyさん** · 2011/01/06(木) 11:21:12

query stringじゃないといけないんですか、<input type=hiddenでは駄目なんですか？

**nobodyさん** · 2011/01/06(木) 12:07:30

作り方が悪いのは承知ですが、処理の振り分けのオプションは GET で渡してて、
機能追加でファイルアップロードを付けようとしてるしだいで、GET で渡す部分は
弄りたくは無いなと・・・

**nobodyさん** · 2011/01/06(木) 12:27:29

>>948
request_methodとurl_paramでなんとかなるだろ。
詳しくはマニュアル嫁

**nobodyさん** · 2011/01/06(木) 12:36:05

お～ url_param がまさに求めてたやつ！！
thx！

**nobodyさん** · 2011/01/10(月) 17:44:08

2chソースくれ

**nobodyさん** · 2011/01/10(月) 19:35:07

>>953
【速報】bbs.cgiのソースが流出　ついに来たか・・・
http://hato.2ch.net/test/read.cgi/news/1294647372/

ここからDLできる

**nobodyさん** · 2011/01/11(火) 22:48:54

半角記号をパターンマッチさせたいのですが、上手くいきません。
Perlどころか正規表現の扱い方すら覚え始めなので、根本的に間違ってるかも知れませんが

if ($value =~ /[@-/]/)
if ($value =~ /[\@-\/]/)
if ($value =~ [@-/])

どれもエラーが出てしまいます。
模範的な書き方としてはどうすればいいのか、お教え願えませんか

**nobodyさん** · 2011/01/11(火) 23:17:24

>>955
どの範囲にマッチさせたいのかわからない。
http://e-words.jp/p/r-ascii.html

^@ で表したりする NUL(\x00) と @(\x40)はちがうよ。

**nobodyさん** · 2011/01/11(火) 23:23:27

/ はエスケープ
@はそのまま
-を３文字の中央に配置すると範囲指定になるので、エスケープするか最初に配置

**nobodyさん** · 2011/01/12(水) 00:04:41

>>956-957
お早いご回答、ありがとうございます。

$valueが
半角記号を含むかどうかを判別したいと思っていましたが
どうやら間違えていたのでしょうか
ttp://jp.layer8.sh/reference/entry/show/id/1121
こちらを見て
[@-/] で @!"#$%&'()*+,-./ をマッチ出来ると思っていました。

それならばとりあえず@は省くとしたら、

if ($value =~ /[!-\/]/)

これで !"#$%&'()*+,-./ を含むかどうか、を判別出来ると思ったのですが、
今度はエラーは出ないものの、マッチしてくれません。

基本的すぎるのか、
perl 半角記号パターンマッチ正規表現
あたりのキーワードでググってみても、いまいち解り易いページに辿り付けなくて難儀してます。

**nobodyさん** · 2011/01/12(水) 00:14:06

ん？どうなって欲しいんだろう。\x21-\x2fの範囲内のが混ざってたら真が返るはずだけど。

**nobodyさん** · 2011/01/12(水) 00:17:44

$value =~ m{[@-/]};
Invalid [] range "@-/" in regex; marked by <-- HERE in m/[@-/ <-- HERE ]/ at - line 1.

エラーになるのか。初めて知った。

**nobodyさん** · 2011/01/12(水) 00:18:13

[\x21-\x2f]
[\x3a-\x40]
[\x5b-\x60]
[\x7b-\x7e]

これが記号かな？

**955** · 2011/01/12(水) 00:38:59

>>959
申し訳ない、ちゃんと正しい結果が返っていました。
こちらの確認不足でした。

>>961
こう16進数で表記してマッチさせる事も出来るんですか。
より幅広くチェック出来そうなので、色々試してみます。

とりあえず、したかった事はどうにか上手くいきそうです。
皆様ご助言、ありがとうございました。

**nobodyさん** · 2011/01/12(水) 18:05:54

LWP で $ua->proxy('http', 'http://' . $proxy) のように Proxy をセットしたものの、
後々解除したいときってどうすればいいんでしょう？

$ua->proxy('http', '') とかでよかったりします？

**nobodyさん** · 2011/01/12(水) 19:23:23

ためしてみりゃいいじゃん

**Ｐｅｒl忍者** ◆M5ZWRnXOj6 · 2011/01/12(水) 21:33:48

ためしてみりゃいいじゃん

**nobodyさん** · 2011/01/14(金) 00:08:21

モジュールの命名規則についての質問です。
自分用のモジュールを用意しようと考えています。

オブジェクト指向のものを「Object::○○」に置き、
関数指向のものを「Function::○○」か「Utility::○○」に置こうと考えています。

問題点や、別の考え方、流行などがあればご指摘おねがいします。

**Perl忍者** ◆M5ZWRnXOj6 · 2011/01/14(金) 00:29:01

ガッチガチですね＾＾；

**nobodyさん** · 2011/01/14(金) 00:37:38

>>966
http://perldoc.jp/docs/perl/5.10.0/perlnewmod.pod
>・Choose a name
> (名前を決める)
> CPAN に含まれる Perl モジュールには、命名階層があり、それに合わせる必要があります。
> これがどのように整理されているかの詳細は、perlmodlib を参照してください。
> また、CPAN やモジュールリストを見て回って、どんなものか触れてみてください。

http://search.cpan.org/

http://perldoc.jp/docs/perl/5.10.0/perlmodlib.pod
> ・モジュールのための名前を選択しましょう。

> 関連したモジュール/クラスの一揃えを開発するのであれば、それは名前空間を破壊することを
> 防ぐような一般的なプリフィックスを持つネストしたクラスを使うよい練習になるでしょう。たとえば
> Xyz::Control, Xyz::View, Xyz::Model といったものです。

> もしプライベートな内部やプロジェクト固有の用途のために開発中のモジュールが決して公開
> されることがないなら、将来の公開モジュールと名前が衝突しないことを確実にしてください。
> これは、予約済みの Local::* カテゴリを使うか、 Foo_Corp::* のように名前に下線を含める
> ことで行えます。

**nobodyさん** · 2011/01/14(金) 01:10:22

>>968
回答ありがとうございます。
公開予定のないモジュールですので、名前に下線を含める方向で検討したいと思います。

**nobodyさん** · 2011/01/14(金) 01:34:59

while($html =~ s/ / /){
print '.';
}

連続した３つの改行タグを２つの連続した改行タグに置換しようとしてるんだけど、
改行タグが置換されません。

**nobodyさん** · 2011/01/14(金) 02:12:58

>>970
こういうのじゃだめかしらん？

$html =~ s/ / /gm;
print $html;

**nobodyさん** · 2011/01/14(金) 03:21:44

セルフ以外の値を得る場合に、アクセサのゲッターメソッドを使うという制約をつけてみようと思いました。
こういったやりかたが一般的かどうかを知りたいので、賛成意見、反対意見などがありましたら、宜しくお願いします。

ファイル操作で例えると以下のような感じです。（※セルフ＝blessしたクラス名、括弧内の$は引数の有無を表している）

-- FILEクラス --
new() .................セルフを返す
set_filename($) ..セルフを返す
set_filedata($) ...セルフを返す
get_filename() ....値を返す
get_filedata() ......値を返す
read() .................セルフを返す
write() ................セルフを返す

-- サンプルコード --
my $file = FILE->new->set_filename("./aaa.txt")->set_filedata("bbb")->write->read;
print $file->get_filename . "n" . $file->get_filedata . "n";

**nobodyさん** · 2011/01/14(金) 07:35:58

メソッドチェーン？

**nobodyさん** · 2011/01/14(金) 17:50:11

>>973
そそ、メソッドチェーン。
セルフを返すメソッドと返さないメソッドが混在するのがモヤモヤするから質問してみた。
それだったら、アクセサだけで対応しようかなとおもったわけで。
井の中の蛙なので、外の情報が欲しいのです。

**nobodyさん** · 2011/01/14(金) 18:22:33

この例だとあえてメソッドチェインを使うメリットはない気がするけど、
それは置いといてもset_*でselfが返ってくるのはキモいと思う。

**nobodyさん** · 2011/01/14(金) 18:55:04

>>971
それでも駄目でした。
ん～なんだろ。。。

**nobodyさん** · 2011/01/14(金) 19:00:21

本当に解決したいと思ってんなら$htmlの当該部分を書けよボケ

**nobodyさん** · 2011/01/14(金) 20:21:04

>>977
my $html =<<"EOM";
aaa aaa aaa
bbb bbb
EOM

テストするなら、$htmlの中身はこんな感じのを入れればいいんじゃね？
while使う理由がわからんけど、while使ったら、改行タグ減りまくりになりそう。

**nobodyさん** · 2011/01/14(金) 20:27:11

>>978
>>977が言いたいのは「htmlがおかしいんじゃねぇの？」ってことでしょ
解決するような世紀表現出しても元がおかしくてダメだと解決しないからってことで

**nobodyさん** · 2011/01/14(金) 23:05:32

>>978
あー、部分的なコードだけみても、対応できないってことか。

**nobodyさん** · 2011/01/15(土) 01:05:53

>>978
改行タグを減らしまくるのが目的です

$html の中身はブログから持ってきたデータで、 を削除する前に
s/\r|\n|\t//g で改行コードとタブコードを全部削除して１行にしてあります。

で、処理するデータはデバッグとしてファイルに書き出して、目視で削除したい の連続があるのを確認済みです。

**nobodyさん** · 2011/01/15(土) 01:09:23

お客様の中にエスパー様はいらっしゃいませんかー

**nobodyさん** · 2011/01/15(土) 01:53:54

>>981
とりあえず、問題点を予想してみた。

・テキスト側が、 ではなく （半角スペースとスラッシュをつけていない）
・テキスト側が、 ではなく （スペースの入れ忘れ）
・質問者のサーバーがMac。を入れるところを\マークにしている。
・エラーコード500である。
・strict宣言をしているのに、変数を初期化していない。

<<982
いや、まさかな
・元になるテキストの、 と の間にスペースが入っていたりして。

とりあえず、改行タグを取る前の内容を出力してみてはどうでしょう？

**nobodyさん** · 2011/01/15(土) 06:05:42

>>981
$html =~ tr/\t\n\r / /s; # 改行、TAB、空白の圧縮
$html =~ s/^ | $//g; # 先頭と末尾に空白があれば削除
$html =~ s/(?<=>) (?=<)//g; # タグ間の空白を削除
$html =~ s|(?:<br\b[^>]*>){3,}| |gi;

**nobodyさん** · 2011/01/15(土) 08:03:36

>>983
んー。試したら、普通に動いてしまった。気のせいだろうか。
おいらの結論としては、$htmlの中身、ブログのテキストをうまくとりこめてないのかなと。
ファイルが原因だとしたら、デコードやエンコードを失敗してるのではないでしょうか。
そうでなければ、余計な文字列が紛れ込んでいるのかなと。

**nobodyさん** · 2011/01/15(土) 08:05:58

>>985
安価まちがえた
>>984

**nobodyさん** · 2011/01/15(土) 09:59:19

>そうでなければ、余計な文字列が紛れ込んでいるのかなと。
だから >>984 は空白を削除したり[^>]*で余計な文字列が紛れ込んでてもマッチするようにしてるんじゃないか

**nobodyさん** · 2011/01/16(日) 03:20:10

質問させてください
perlでCGIを作っているのですが、
アクセスしてきた人が、どんなHTTPヘッダーを送ってきているのか調べたいのですが、
ページにアクセスされた時にHTTPヘッダーの取得する方法はどうすればいいでしょうか？

**nobodyさん** · 2011/01/16(日) 03:47:42

use cgi
my $in = cgi->new
$in->str_なんちゃら

関数名失念

**nobodyさん** · 2011/01/16(日) 03:54:27

$ENV{HTTP_*}

**nobodyさん** · 2011/01/16(日) 04:20:42

それだけとは限らないｗ

**nobodyさん** · 2011/01/16(日) 06:51:02

>>>990 それは環境変数であって HTTP ヘッダではない

**nobodyさん** · 2011/01/16(日) 08:32:57

>>988
CGIの仕様としては送られてきたヘッダはHTTP_*という環境変数に入れて渡すという
ことになっているが、必ずしも全て渡さなくていいというよりむしろいらないヘッダは
渡すべきではないということになってるので確実に全てのヘッダを取得することは一般的
にはできないと思った方がいい。(RFC3875の4.1.18)

> サーバは、それが受信した全てのヘッダフィールドについての外部変数を作成する必要はない。
> 特に、例えば 'Authorization' のような、認証情報を転送する任意のヘッダフィールドや、
> あるいは、例えば 'Content-Length' や 'Content-Type' のような、他の変数からスクリプト
> にて利用可能なものは取り除くすべきである。サーバは、'Connection' のような、クライアント
> 側との通信上の点にのみ関係するようなヘッダフィールドは取り除いてもよい。

特定のヘッダが欲しいのかただなんとなくみたいだけなのかトラブルシューティングで全部
必要なのかよくわからんからこれ以上はなんとも言えんな。

**nobodyさん** · 2011/01/16(日) 10:27:12

>>989-993
お答えいただきありがとうございました
HTTPヘッダーで値を受け渡しして動作するCGIを作ってみようと思ったのですが、
HTTP_*で取得できるのですね
本当にありがとうございました

**nobodyさん** · 2011/01/16(日) 18:28:35

次スレ立ててくる。

**nobodyさん** · 2011/01/16(日) 18:30:17

はい。

Perlコーディング初心者質問スレ Part 62
http://hibari.2ch.net/test/read.cgi/php/1295170172/

**nobodyさん** · 2011/01/16(日) 18:36:51

otu

**nobodyさん** · 2011/01/16(日) 19:37:25

ぺｒｌ
ぺｒｌ
ぺｒｌ

**nobodyさん** · 2011/01/16(日) 22:34:01

999

**nobodyさん** · 2011/01/16(日) 22:34:42

1000

**１００１** · Over 1000

このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。