トップページ⇒tech
1001コメント305KB

Perlについての質問箱 30箱目

■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん2007/03/14(水) 22:54:12
"The duct tape of the Internet" こと、Perlについての質問箱です。
"There's more than one way to do it" ということで、Perlの奥深さについて皆で語り合い、追求してまいりましょう。

CGIについての質問は板違いです。WEBプログラミング板でどうぞ。
CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。
(WEBプログラミング板 http://pc8.2ch.net/php/ )

CGIの質問は答えがPerlと全然関係ない話に帰着する場合が多かったりするのでWEBプログラミング板に行って聞いたほうが得ですよ。
このスレでは(CGI以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。

http://www.perl.org/get.html
● 2006/12/21現在の最新版: 5.8.8
● 2006/12/21現在の開発版: 5.9.3

前スレ
Perlについての質問箱 29箱目
http://pc11.2ch.net/test/read.cgi/tech/1166708139/

リンク集は>>2-3
過去スレは>>4
0091デフォルトの名無しさん2007/03/22(木) 20:25:37
伸ばし棒ってどれ。
0092デフォルトの名無しさん2007/03/22(木) 20:26:57
ー

これです
0093デフォルトの名無しさん2007/03/22(木) 20:27:49
これも同じ人？向こうの方がいいんじゃないかな。
0094デフォルトの名無しさん2007/03/22(木) 20:30:15
>>90
具体的にエラーがでる正規表現と、エラーの文も書いてくれ
0095デフォルトの名無しさん2007/03/22(木) 20:33:42
>>94

my $str = "test";
$str =~ s/ニート//;

Unmatched [ in regex; marked by <-- HERE in m/ニー <-- HERE ト
and Settings\\デスクトップ\httpd142p\test.pl line 3.

こんな感じです

>>93
>>90=>>92です
0096デフォルトの名無しさん2007/03/22(木) 20:34:12
>>92
2バイト目が [ になってるんでperlが混乱してるんだな。
0097デフォルトの名無しさん2007/03/22(木) 20:37:10
>>95
\Q\Eで囲め
0098デフォルトの名無しさん2007/03/22(木) 20:40:14
>>97
！！！！！
できました！！ありがとうございます！！！
0099デフォルトの名無しさん2007/03/22(木) 21:22:20
\Q\Eか。それ忘れてた。前それではまって、m/コピ\x{81}\x{5b}/なんてことやってた。
0100デフォルトの名無しさん2007/03/22(木) 21:33:38
あほうは、新テンプレ通りやれよ。同じ事何度も言わせんな。
0101デフォルトの名無しさん2007/03/22(木) 21:52:35
そうだな。
>>98は黙って>>10に書いてある通りのことをやれ。
0102デフォルトの名無しさん2007/03/22(木) 21:53:25
シフトJISって懐かしい。
0103デフォルトの名無しさん2007/03/22(木) 22:08:34
#!/usr/local/bin/perl
use strict;
use LWP::Simple;
use XML::Simple;

my $api = 'http://d.hatena.ne.jp/exist?mode=xml&url=';
my $url = 'http://www.yahoo.co.jp/';

my $document = LWP::Simple::get（$api.$url）
or die "cannot get content from $url";

my $parser = XML::Simple->new;
my $data = $parser->XMLin（$document）;

print $data->{count}->{bookmark}->{content}, "\n";


http://www.itmedia.co.jp/enterprise/articles/0702/26/news011.html
ここのサンプルなんですがエラーがでました
何が悪いのでしょうか？そんなに難しいことをやってるわけではないと思うのですが
0104デフォルトの名無しさん2007/03/22(木) 22:40:11
なんていうエラーがどこで出たのよ?
0105デフォルトの名無しさん2007/03/22(木) 22:45:19
HTTP 500 - 内部サーバー エラー です

0106デフォルトの名無しさん2007/03/22(木) 22:48:42
なんでブラウザにエラーが出るわけ?
0107デフォルトの名無しさん2007/03/22(木) 22:48:48
テンプレに

>エラーが出たらエラーをそのままコピペしろ

と入れた方がいいね。

>>105
コマンドラインで実行した結果を出せよ。出せないなら、WebProg逝き。
0108デフォルトの名無しさん2007/03/22(木) 22:56:48
自己解決しました
コピペした括弧が全角でした

なんで括弧だけ全角なのか意味不明です
わざとなんでしょうかね
ひどいサンプルです
0109デフォルトの名無しさん2007/03/22(木) 23:02:58
ここって初心者向けのスレなの？
0110デフォルトの名無しさん2007/03/22(木) 23:05:47
行番号が付いてるところからも、コピペを前提とはしてない、実際に
手を動かして理解するためのコードだとは思うが、なんで括弧が半端
に全角になってるんだろうな。(9行目の2つと13行目の閉じ括弧)

0111デフォルトの名無しさん2007/03/22(木) 23:35:37
普通の記事をいつも上げるときに使ってるスクリプトがお節介でもしたんだろう。
0112デフォルトの名無しさん2007/03/22(木) 23:37:14
ｆｔｐで相手サーバの接続先にあるファイルのリスト（ワイルドカードで指定した名前に
一致するファイルの一覧）を配列に取得したいのですが相手サーバの設定の関係で
ｗｇｅｔとやらを使って接続しないといけません。
ｗｇｅｔの使い方は調べてみたのですが、それをPerlから実行してファイル一覧を取得
するにはどうやったらよいのでしょうか？
0113デフォルトの名無しさん2007/03/22(木) 23:44:57
open("wget -O- $url |");

どんな内容が返ってくるかは実際に見てみれ。
0114デフォルトの名無しさん2007/03/23(金) 00:07:22
>>74
サニタイジングなんて言ってたら高木大先生に張り倒されるぞ！
0115デフォルトの名無しさん2007/03/23(金) 00:43:28
たいていの場合wget呼ぶよりはLWP使うほうがプログラムは楽だと
思うのだが、wget使わないと取れないってどういう仕掛けなのだろう??
0116デフォルトの名無しさん2007/03/23(金) 02:01:06
FTPで接続だから、LWPよりもNet::FTPじゃね？
0117デフォルトの名無しさん2007/03/23(金) 07:36:19
>>113
ありがとうございます。やってみます。

>>115-116
Net::FTPで作ってたのですがこれだと相手に繋がらなくて客先の担当の方が
「ｗｇｅｔ使ってください」とのことでした。
0118デフォルトの名無しさん2007/03/23(金) 08:57:31
wgetでとれてNet::FTPだとだめというのもかなり不思議だな。
原因はわかってるのかな。それともwgetだと実績あるから
調べるの面倒だしそれにしとけとあしらわれたか?
0119デフォルトの名無しさん2007/03/23(金) 09:41:38
突然ですが、xxxyyy.html というファイル名のファイルの、
全てのa要素のhref属性値をzzzwww.html というファイルに出力する方法を教えてください。
0120デフォルトの名無しさん2007/03/23(金) 09:56:38
>>118
passiveコマンド叩けば通るとかいうオチだったりして……
0121デフォルトの名無しさん2007/03/23(金) 10:23:13
>>119
突然だねぇ・・・
0122デフォルトの名無しさん2007/03/23(金) 10:24:01
>>119
ググレカス
http://module.jp/blog/monday_module_HTML-LinkExtor.html
0123デフォルトの名無しさん2007/03/23(金) 17:56:12
突然DOMで対抗してみたり

javascript:a=document.getElementsByTagName('a');b='';for(i=0;i<a.length;i++)b+=a[i].href+'<br>';document.write(b);
0124デフォルトの名無しさん2007/03/26(月) 16:19:01
>>117
pasv() しても駄目か?
ファイヤーウォールがある場合は passive mode にしないと駄目なことがあるぞ。
0125デフォルトの名無しさん2007/03/28(水) 11:20:00
初心者質問で申し訳ないのですが、perlでコロン単体にはどのような意味があるのでしょう。
リファレンスを引いても載ってないし...。
0126デフォルトの名無しさん2007/03/28(水) 11:49:02
三項演算子?
0127デフォルトの名無しさん2007/03/28(水) 11:54:00
>>126
下記（*）の$_の手前にあるヤツなんですが・・

# CSV形式の $line から値を取り出して @values に入れる
{
my $tmp = $line;
$tmp =~ s/(?:\x0D\x0A|[\x0D\x0A])?$/,/;
@values = map {/^"(.*)"$/ ? scalar($_ = $1, s/""/"/g, $_) : $_}　…（*）
($tmp =~ /("[^"]*(?:""[^"]*)*"|[^,]*),/g);
}
Perlメモ
http://www.din.or.jp/~ohzaki/perl.htm#CSV2Values
0128デフォルトの名無しさん2007/03/28(水) 12:05:15
どう見ても三項じゃん
0129デフォルトの名無しさん2007/03/28(水) 12:12:49
なるほど。ありがとうございました。
0130デフォルトの名無しさん2007/03/29(木) 01:14:28
substrで数値文字列から”001”のような文字列を切り出したいのですが、
デフォルトでは数値として扱われてしまい、1になってしまいます。
キャストの方法を調べたけど思うような情報が得られません。
もうしわけありませんが、教えていただけないでしょうか。
0131デフォルトの名無しさん2007/03/29(木) 01:41:02
sprintfとかは？
0132デフォルトの名無しさん2007/03/29(木) 08:07:32
>>130
ウチの環境下だと、普通に文字列認識なんだが変数かなんかに突っ込んで、
計算かましたりしてない？
% perl -le 'print substr qq{00001}, 3'
01
% perl -le 'print unpack qq{x3A2}, qq{00001}'
01
0133デフォルトの名無しさん2007/03/29(木) 08:08:16
上げてもた…
0134デフォルトの名無しさん2007/03/29(木) 08:27:21
文字列比較で $name == "admin" とかやってるのでは
0135デフォルトの名無しさん2007/03/29(木) 14:13:36
+で連結してるとか。
0136デフォルトの名無しさん2007/03/29(木) 19:40:09
$val="2007年3月29日○○の温度は20度、○○の温度は10度、○○の温度は15度";
のような文字列があった場合
○○の温度は10度の"10"を取得したいのですが、
どのように正規表現を書けばいいんでしょうか。

$value =~ /([0-9]+)/　のようにすると　$1=2007　となりますが、
最大マッチしたうちのn番目を取得できたりする書き方があるんでしょうか


例がちょっとあれですが、○○には同じワードが入ることを想定してます。
0137デフォルトの名無しさん2007/03/29(木) 19:42:39
本嫁
0138デフォルトの名無しさん2007/03/29(木) 19:57:25
while ($val =~ /([0-9]+)/g){ push(@val, $1); }
print "$word[3]\n";

汚くなったけど、上記のようにしてなんとかできました。失礼しました。
0139デフォルトの名無しさん2007/03/29(木) 20:08:05
まー本人がいいっていうのならいいよね(´・ω・`)
0140デフォルトの名無しさん2007/03/29(木) 20:10:40
なにか他にやりかたあれば教えてください(つД｀)
0141デフォルトの名無しさん2007/03/29(木) 20:28:37
３年後に自分のコードみて「俺アホやん」 と思えたら、
君は著しく成長できたということだ。
0142デフォルトの名無しさん2007/03/29(木) 20:45:58
3年とはのんきな話だな。3ヶ月で一定のレベルに達しないなら、その人が向いてないかまたはその言語に悪意が混入されているかだな。
0143壁|・ x ・)つ○2007/03/29(木) 22:09:20
$val =~ /(\d+)度/g
0144デフォルトの名無しさん2007/03/30(金) 12:21:03
>>142
そんなこと言うなよ
0145デフォルトの名無しさん2007/03/30(金) 17:55:55
コーディングテクは日々進化し続けると思うけどなぁ。
俺が還暦を迎えた頃にはスゲーことになってると思うんだ。
0146デフォルトの名無しさん2007/03/30(金) 21:01:15
base.pmなんだけど、

sub get_fields {
() = \%{$_[0].'::FIELDS'};
return \%{$_[0].'::FIELDS'};
}

「() =」これって何してるんでしょう？
perl5.003で動作するように書き換えられないかな？
0147デフォルトの名無しさん2007/03/30(金) 21:06:28
>>146
コメントで「『タイポじゃねーの警告』は黙れ」と書いてあるだろ。
つまりその部分は動作とは無関係。

しかし5.003とはまた随分古いバージョンだな。せめて5.005あたりにしとけよ…。
0148デフォルトの名無しさん2007/03/30(金) 22:23:03
>>147
すまん。
エラー書いてなかった。
Can't modify stub in list assignment at /path/to/base.pm line 43, near "};"
こんなのが出る。


> しかし5.003とはまた随分古いバージョンだな。せめて5.005あたりにしとけよ…。

大人の事情というやつで・・・。
0149デフォルトの名無しさん2007/03/30(金) 22:58:15
>>148
http://search.cpan.org/~nwclark/perl-5.8.8/pod/perldiag.pod#Can't_modify_%25s_in_%25s

- () = \%{$_[0].'::FIELDS'};
+ # () = \%{$_[0].'::FIELDS'};
+ local $^W = 0;
0150デフォルトの名無しさん2007/03/31(土) 00:24:17
> 大人の事情というやつで・・・。

そんな仕事辞めてしまえよ
0151デフォルトの名無しさん2007/03/31(土) 01:14:49
5.003を理由に依願退職する>148であった。
0152デフォルトの名無しさん2007/03/31(土) 02:08:39
linuxのperl向けのIDEでお薦めはなんでしょうか
0153デフォルトの名無しさん2007/03/31(土) 02:12:15
emacs一択。



あとEPICとか？　つーかPerlにはいいIDEないよ。
01541522007/03/31(土) 02:51:38
ども

そうですか、ではボチボチとやってみます
0155デフォルトの名無しさん2007/03/31(土) 02:53:14
春先は150みたいな
社会のしがらみスルー系のレスの
ネタっぽさが薄まるんだよな
0156デフォルトの名無しさん2007/03/31(土) 03:48:41
(1..10)
は1から10までの数を持つリストを生成する式だと思うんですが、
$hoge = (1..10);
print $hoge;
とやればリストの最後の値である10が変数$hogeに代入されると思ったのに
なにも出力されません。
スカラー変数にリストを代入すると、リストの最後の値が代入されると思うんですが
どこが間違っているんでしょうか？
0157デフォルトの名無しさん2007/03/31(土) 03:59:22
Perl7っていつ出るんですか？
0158デフォルトの名無しさん2007/03/31(土) 04:02:35
>>156
↓を実行するとわかるけど、範囲演算子（..）が範囲内の値リストを生成するのは、
リストコンテキストの時。スカラーコンテキストでは、違う意味になるよ。
http://d.hatena.ne.jp/palmo/20060724/rangeop

while (<DATA>) {
  chomp;
  $hoge = (1..3);
  print "$_ = $hoge\n";
}

__DATA__
AAA
BBB
CCC
DDD
EEE
FFF
0159デフォルトの名無しさん2007/03/31(土) 04:05:29
..は範囲演算子。

$hoge = (1..10)
のようにスカラコンテキストで用いた場合、..の左項が真になった
時点から右項が真になるところまで真を返す。(...だとちょっと変わる)

いずれかの項が定数値であった場合、それは $. との比較であるとみなされる。

全く読み込んでいない状態なら $hoge の値は $. == 1 の結果に等しい。
0160デフォルトの名無しさん2007/03/31(土) 04:17:29
最後のとこ、全く読み込んでいないなら、$. == 1の結果は偽、で。

0161デフォルトの名無しさん2007/04/01(日) 16:28:17
>>158,159
...演算子もコンテキストで意味が変わるんですね。
わかりました。ありがとうございます。
0162デフォルトの名無しさん2007/04/02(月) 04:58:36
perlのコミュは初心者に優しくて好きだ。
スクリプト言語経験者でも表記にとっつきにくいからかな。
マニュアル嫁で突っ返されることが少ない気がする。
（マニュアル読んでもわかんなかったりするし;ω;）
0163デフォルトの名無しさん2007/04/02(月) 06:06:27
XpSP2でActivePerl-5.8.8.820-MSWin32-x86-274739.msiを
インストールしたんだけど、Jcode.pmがインストールされない。
なぜ？教えてください。
0164デフォルトの名無しさん2007/04/02(月) 07:17:48
ActivePerlのことはよく知らんが、
Perl 5.8.0以降Jcodeが標準モジュールじゃなくなったからじゃないかな
0165デフォルトの名無しさん2007/04/02(月) 09:35:55
>>164
5.8.0以降はJcode.pmが標準と聞きましたので
当然、インストールされると思ってたのですが、
探しても見つからないんですよ。
0166デフォルトの名無しさん2007/04/02(月) 09:41:41
5.8.0からEncodeモジュールが標準装備になってるからそれ使え。
0167デフォルトの名無しさん2007/04/02(月) 10:17:24
>>166
使っているアクセス解析プログラムがJcode.pm使っているんですよ。
ｐｅｒｌのＰＧ経験がないんで、改造も出来ないんです。

これです。
ttp://www.bflets.dyndns.org/Tools/AWStatsJpn.html
0168デフォルトの名無しさん2007/04/02(月) 10:23:07
>>167
池沼か？標準じゃ入ってないと言ってるだろうが。
0169デフォルトの名無しさん2007/04/02(月) 10:29:59
それじゃ別の方法、考えています
0170デフォルトの名無しさん2007/04/02(月) 10:30:15
考えます
0171デフォルトの名無しさん2007/04/02(月) 10:34:35
普通にJcode.pmインストールすりゃいいじゃないか。莫迦か
0172デフォルトの名無しさん2007/04/02(月) 10:46:55
>>171
インストールしてもうまくいかないんですよ
やりかたが間違ってるかもしれませんが。
説明しているページで、そんなモジュールなかったり。
以下は参考にしたページです。

ttp://sakaguch.com/SetJcodePm.html

win_install．plなんてないし。

マニュアルで置いても、変換後のファイルは０バイトだし。
0173デフォルトの名無しさん2007/04/02(月) 11:33:15
>>172
Jcodeインストールするならコマンドプロンプトからppm(今時はppm-shellかな)を起動させて
install Jcode(enter)
で一発で入ると思うが。
0174デフォルトの名無しさん2007/04/02(月) 11:57:01
>>173
ありがと
意味不明だけど、勉強してやってみる
0175デフォルトの名無しさん2007/04/02(月) 12:17:49
つ[ perl -MCPAN -e shell ]
0176デフォルトの名無しさん2007/04/02(月) 12:23:33
ありがと。ｐｐｍでインスコできた。
でも、うまく動かなった。

これはｐｅｒｌが原因じゃないから
ここで、さよなら。

じゃ、教えてくれた人、ありがと。
0177デフォルトの名無しさん2007/04/02(月) 12:25:27
っ　ttp://openlab.jp/Jcode/index-j.html
0178デフォルトの名無しさん2007/04/02(月) 12:31:16
次から低レベルな質問は
webprog板でやってくださいね
0179デフォルトの名無しさん2007/04/02(月) 13:02:54
>>178
そのわりに、明確な回答書いてる奴いねーけどな
0180デフォルトの名無しさん2007/04/02(月) 13:14:06
こんな時間帯だからじゃないの？ｗ
公式のは古いからいつものサードパーティの
所にver.2.06があるからそれをインストールするだけじゃん
0181デフォルトの名無しさん2007/04/05(木) 09:34:45
すいません。正規表現についての質問なのですが・・・
abcあいうえお123./<>~"@
の様な文字列から日本語だけマッチするもしくはASCIIコードだけマッチさせるようにするには
どうすればよいのでしょうか?
0182デフォルトの名無しさん2007/04/05(木) 10:12:57
>>181
文字コードをeucにして、

my $pat = pack("C*",0x20,0x21..0x7e);

/[$pat]+/ でASCII
/[^$pat]+/ で日本語（と制御コード）
0183デフォルトの名無しさんNGNG?PLT(12980)
http://module.jp/blog/regex_unicode_prop.html
0184デフォルトの名無しさん2007/04/05(木) 20:53:28
正規表現でのグループ化について質問です

$_ = 'AAAbarbarbazZZZ'; だとして

@a = /AAA(foo|bar|baz)+ZZZ/;

とすると、@a の中身は最後にマッチした @a = ('baz') 一つとなりますが、
これを @a = ('bar', 'bar', 'baz')
とする正規表現はあるでしょうか?

(){n} でなく ()+ を使ったのは数量が固定ではないためです。

なんらしか正規表現方法で
上記一文で済ませられたら…と思い質問させていただきました。
0185デフォルトの名無しさん2007/04/05(木) 21:38:28
>>184
何でも一行に詰め込みゃいいってもんでもないけど…
@a = splice @{[ grep length, split /(foo|bar|baz)/, 'AAAbarbarbazZZZ' ]}, 1, -1;
0186デフォルトの名無しさん2007/04/05(木) 21:55:26
確かに一行ですが…^^;レスありがとうございます。
'AAAfooXXbarYYYYYbazZZZ' のように目的外の物が混ざっている場合
のチェックを別にしなければなりませんが。

やはり ()+ でのマッチを正規表現の修正で全部リストする無理でしょうか
0187デフォルトの名無しさん2007/04/05(木) 22:27:05
m/AAA((?:foo|bar|baz)+)ZZZ/
とかすれば全部とれることはとれる。
リストにはならないけど。
0188デフォルトの名無しさん2007/04/05(木) 22:29:35
>>186
> 'AAAfooXXbarYYYYYbazZZZ' のように目的外の物が混ざっている場合
その場合 @a は () とするべきか
AAA　foo　XXbarYYYYYbazZZZ と分けるべきか
AAAfooXX　bar　YYYYYbazZZZ と分けるべきか
AAAfooXXbarYYYYY　baz　ZZZ と分けるべきか
>>184からは読み取れないよ？
01891842007/04/05(木) 23:22:15
レスありがとうございます

>>187
()+ での一気取得が駄目だった場合、私もそれを候補の一つに考えていました
リストにするには(foo|bar|baz)のマッチングがもう一回必要になってしまいますが


>>188
説明不足でした。申し訳ありませんでした
(ある程度大きいテキストから)
'AAA' と 'ZZZ' の間が (foo|bar|baz)+ のみで構成されている箇所を探し
その部分をリストとして取得したいと思っております

ですので、提示くださった選択肢の中では
＞その場合 @a は () とするべきか
を考えています

(foo|bar|baz) の部分は実際はかなり重そうな正規表現の羅列と選択(|)で構成されていて
()+ による繰り返しも回数も非常に多く
(foo|bar|baz) のマッチングによる2度手間(切り出し・リストへ分割)は避けようと思い
今現在は下記の感じの処理を考えています
if (/AAA/) {
while ($' =~ /^(foo|bar|baz|ZZZ)/) {
if ($1 eq 'ZZZ') { OK; last; }
push(@a, $a);
}
}
}

そこで >>184 の質問するに至りました
マッチングも一回で一文で済ませられたら…と
長文失礼
01901842007/04/05(木) 23:38:24
>>189 の
while ($' =~ //)
は
while ($' =~ //o)
を考えています


今docを読み込んでいるんですが ()+ でのグループの繰り返しマッチングの
全リスト取得は、正規表現工夫しても仕様的に無理なのかな…
■ このスレッドは過去ログ倉庫に格納されています