トップページ⇒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
0002デフォルトの名無しさん2007/03/14(水) 22:55:02
[プログラミング自体の経験が無い奴はまずココを読め]
Perlプログラミング講座: http://www.site-cooler.com/kwl/perl/

[本]
リャマ: http://www.oreilly.co.jp/books/4873111269/
駱駝: http://www.oreilly.co.jp/books/4873110963/
Effective Perl: http://www.ascii.co.jp/books/detail/4-7561/4-7561-3057-7.html
クックブック: http://www.oreilly.co.jp/books/4873112028/

[オンラインマニュアル] (追加)
最新のドキュメント: http://search.cpan.org/~nwclark/perl-5.8.8/
perl5.8.xのドキュメント(一部): http://www.kt.rim.or.jp/~kbk/perl-5.8/
perl5.005_03 のドキュメント: http://www.kt.rim.or.jp/~kbk/perl5.005/
日本語ドキュメント検索: http://www.cpan.jp/search.cgi
perldoc.jp: http://www.perldoc.jp/
Perldoc.com: http://www.perldoc.com/
0003デフォルトの名無しさん2007/03/14(水) 22:55:32
[モジュール]
CPAN.com: http://search.cpan.org/
河馬屋二千年堂: http://homepage3.nifty.com/hippo2000/

[テクニック]
Perlメモ: http://www.din.or.jp/~ohzaki/perl.htm
Perlのページ: http://homepage1.nifty.com/nomenclator/perl/
Perlの小技: http://homepage3.nifty.com/hippo2000/perltips/index.htm

[Perl5.8Unicodeメモ]
http://www.pure.ne.jp/~learner/program/Perl_unicode.html
http://www.namazu.org/~tsuchiya/perl/perl-5.8.html
http://www.lr.pi.titech.ac.jp/~abekawa/perl/perl_unicode.html
0004デフォルトの名無しさん2007/03/14(水) 22:56:03
[過去スレ]
1 ttp://pc.2ch.net/tech/kako/1017/10177/1017736187.html
2 ttp://pc3.2ch.net/tech/kako/1033/10336/1033688230.html
3 ttp://pc2.2ch.net/tech/kako/1041/10412/1041205885.html
4 ttp://pc2.2ch.net/tech/kako/1048/10485/1048519394.html
5 ttp://pc5.2ch.net/tech/kako/1053/10530/1053053082.html
6 ttp://pc5.2ch.net/tech/kako/1060/10606/1060689008.html
7 ttp://pc2.2ch.net/test/read.cgi/tech/1068051036/
8 ttp://pc2.2ch.net/test/read.cgi/tech/1074151549/
9 ttp://pc5.2ch.net/test/read.cgi/tech/1079114157/
10 ttp://pc5.2ch.net/test/read.cgi/tech/1085564875/
11 ttp://pc5.2ch.net/test/read.cgi/tech/1090889189/
12 ttp://pc5.2ch.net/test/read.cgi/tech/1094579428/
13 ttp://pc5.2ch.net/test/read.cgi/tech/1097851764/
14 ttp://pc5.2ch.net/test/read.cgi/tech/1101649274/
15 ttp://pc5.2ch.net/test/read.cgi/tech/1105953092/
16 ttp://pc8.2ch.net/test/read.cgi/tech/1111034732/
17 ttp://pc8.2ch.net/test/read.cgi/tech/1117870308/
18 ttp://pc8.2ch.net/test/read.cgi/tech/1121804136/
19 ttp://pc8.2ch.net/test/read.cgi/tech/1126977805/
20 ttp://pc8.2ch.net/test/read.cgi/tech/1131286411/
21 ttp://pc8.2ch.net/test/read.cgi/tech/1134327348/
22 ttp://pc8.2ch.net/test/read.cgi/tech/1138519327/
23 ttp://pc8.2ch.net/test/read.cgi/tech/1141742901/
24 ttp://pc8.2ch.net/test/read.cgi/tech/1146022352/
25 ttp://pc8.2ch.net/test/read.cgi/tech/1149259409/
26 ttp://pc8.2ch.net/test/read.cgi/tech/1153412251/
27 ttp://pc8.2ch.net/test/read.cgi/tech/1157874614/
28 ttp://pc8.2ch.net/test/read.cgi/tech/1162273941/
29 ttp://pc11.2ch.net/test/read.cgi/tech/1166708139/
0005デフォルトの名無しさん2007/03/14(水) 23:28:35
RTFM = マニュアルを参照してください
0006デフォルトの名無しさん2007/03/14(水) 23:33:02
乙
0007デフォルトの名無しさん2007/03/15(木) 00:13:38
しょーりゅーけｎ
0008デフォルトの名無しさん2007/03/15(木) 09:55:34
テンプレにPBPがはいってないのはどうかと
0009デフォルトの名無しさん2007/03/15(木) 11:27:42
DAT落ちした過去スレって貼る意味あるの？
前スレだけでいいんじゃないかと思うが。
0010デフォルトの名無しさん2007/03/15(木) 12:02:31
これもテンプレに入れない？　（前スレの115）
---------------------------------------------------------
#　　【Perl 日本語処理の基礎の基礎】
#　このレスは、Windows の ActivePerl で日本語処理を行う場合のテンプレートです。
#　このレスの内容をそのまま、UTF8 形式のソースファイルに保存して下さい。
#　入出力ともシフトJIS形式のファイルまたはDOS窓を想定しています。
#　文字コードの条件が異なる場合には編集が必要です。
#　編集の仕方はご自分で勉強するか、このスレで質問して下さい。
#　まず、以下の行を先頭に入れて下さい。
use utf8;
use open IO => ":encoding(cp932)";
binmode STDIN => ":encoding(cp932)";
binmode STDOUT => ":encoding(cp932)";
binmode STDERR => ":encoding(cp932)";
#　次に、あなたが実行したい処理の内容を入れて下さい。
print "やあ！\n";
sleep(1);

0011デフォルトの名無しさん2007/03/15(木) 12:38:08
テンプレに入れる必要性が分からない
0012デフォルトの名無しさん2007/03/15(木) 12:56:56
よくある質問のまとめサイトでも作って載せとけ
0013デフォルトの名無しさん2007/03/15(木) 20:59:50
encodingに手を出すと泥沼にしかならないからなあ
0014デフォルトの名無しさん2007/03/15(木) 21:49:50
現実問題として、encodingまわりの質問は多いわけで、
テンプレ化することで、くだらない質問が減るのなら十分意味があることだと思う。
0015デフォルトの名無しさん2007/03/15(木) 22:28:23
＞#　編集の仕方はご自分で勉強するか、このスレで質問して下さい。

これじゃあ結局変わらないんじゃないか。

＞# 上記は、あくまで文字処理がわからない人のためのおまじないです。
＞# 上記以外のことをやろうと思ったら、自分で勉強してください。

わからんやつに、手取り足取り説明してもやっぱりわからん。
こっちで動くように書き直した方が100倍早い。
Cのポインタみたいな状況になってる。
0016デフォルトの名無しさん2007/03/15(木) 22:42:07
テンプレなら一言 use Jcode; 使えってレベルでいいでしょ。
0017デフォルトの名無しさん2007/03/15(木) 22:43:56
Jcodeだとコアにはいってないじゃん。どうやってインストールするんですか？とかになるよ。
0018デフォルトの名無しさん2007/03/15(木) 22:48:47
>>16 >>17
あんたらはどうせバカ以前だろ。
あれが今となっては誤解を引き起こす要因になっていることすらわかっていない。
0019デフォルトの名無しさん2007/03/15(木) 23:14:57
誤解って何の話？　そんなの初めて聞いたが。
0020デフォルトの名無しさん2007/03/16(金) 00:19:43
>>19
多分、>>18は、「Perl5.8 でもJcode.pm を使って文字コードを変換しなければならない」
と誤解したのではないだろうか。

初心者は、回答者が>>10のように回答できるような質問をすることすらできないのが現実。
前スレの>>68-71 なんか見てると、悲惨だね。
この点を解説している入門書も少ないと思うし、テンプレに入れてやってもいいんじゃないの？
0021デフォルトの名無しさん2007/03/16(金) 00:48:59
Perlにもクロージャがあるようですが、
皆さん使ってますか？どんなときに使うか教えてください
0022デフォルトの名無しさん2007/03/16(金) 17:39:12
ぐぐればいいのに
ttp://d.hatena.ne.jp/naoya/20060109/1136812096
ttp://d.hatena.ne.jp/tociyuki/20060110/1136910241
0023デフォルトの名無しさん2007/03/16(金) 17:52:52
sub func {
・・・
return (\@a, \@b, \@c);
}

(@a, @b, @c) = func();

ってやると全部@aに合体してるんだけど
どうすればいいの？
0024デフォルトの名無しさん2007/03/16(金) 17:53:40
($a, $b, $c) = func();
0025デフォルトの名無しさん2007/03/16(金) 18:30:51
(*a, *b, *c) = &func;
0026232007/03/16(金) 20:32:44
リファレンスやっと理解できた
0027デフォルトの名無しさん2007/03/16(金) 22:56:12
@data = <IN>;
print OUT reverse @data;
メモリに入りきらない巨大csvファイルを上のように
逆順にするにはどうすればいいでしょうか？

0028デフォルトの名無しさん2007/03/16(金) 23:06:51
Tie::Fileを使えば幸せになれる予感
0029デフォルトの名無しさん2007/03/16(金) 23:57:22
>>27
http://www.din.or.jp/~ohzaki/perl.htm#File_Reverse
0030デフォルトの名無しさん2007/03/18(日) 04:31:05
WindowsXP Proで、
プロセスの終了を待たずにhoge.exeを起動して
次の処理へと移りたいのですが、どうすればいいのでしょうか？

&routine;
system('hoge.exe'); # ここで終了を待ちたくない
&routine2;
0031デフォルトの名無しさん2007/03/18(日) 04:42:09
forkを使え、ルーク
0032デフォルトの名無しさん2007/03/18(日) 06:32:23
delete の一般版というか、undef の削除した内容を返すような関数はあるのでしょうか？
スカラーの場合だと、こんな感じの関数で。

sub Del {
my $v = $_[0];
$_[0] = undef;
return $v;
}
0033デフォルトの名無しさん2007/03/18(日) 06:40:08
>>30
system('start hoge.exe');
0034デフォルトの名無しさん2007/03/18(日) 11:33:47
>>32
ない。
0035デフォルトの名無しさん2007/03/18(日) 13:50:21
前スレぐらいで出てた気がするけど、
第一引数に1を。
ActivePerlだけだっけ。
0036デフォルトの名無しさん2007/03/18(日) 14:22:24
>>30
Win32::Processは？
0037デフォルトの名無しさん2007/03/18(日) 16:01:20
perl って質問じゃない本スレみたいなのないの？
0038デフォルトの名無しさん2007/03/18(日) 16:42:21
>>37
あってもどうせ過疎る。
だからここでけっこう雑談もしてる。
0039デフォルトの名無しさん2007/03/18(日) 17:16:31
なる
perl って普及してるのにそう言う人あまり居ないんだね
道具として使っている人がほとんどなのかな
0040デフォルトの名無しさん2007/03/18(日) 17:29:29
英語圏のコミュニティがたくさんあるからだと思うよ
0041デフォルトの名無しさん2007/03/18(日) 17:52:44
Perl関連のスレがあちこちに散らばってるしなぁ。
本スレがあれば変な分散抑えられるかもだけど…。でもやっぱ過疎りそうだね。
0042デフォルトの名無しさん2007/03/18(日) 18:18:38
もう道具以上の発展がないんじゃないの
0043デフォルトの名無しさん2007/03/18(日) 18:43:54
>>34
ありがとうございます。
一瞬演算子レベルであっても良さそうな気はしたが、あってもあまり使わないか。
0044272007/03/18(日) 20:40:07
>>28
>>29
ありがとう。ずっと前から愛してました。
0045デフォルトの名無しさん2007/03/18(日) 22:36:23
Net::IRCで、サーバーとの接続が切れたら
再度繋ぎなおしたいのですが、接続が切れると、
「No active connections left, exiting...」という表示と共に
スクリプト自体が死んでしまいます。
どうすれば接続が切れたときに再度繋ぎ直すことが出来ますか？
0046デフォルトの名無しさん2007/03/19(月) 00:20:46
eval
0047デフォルトの名無しさん2007/03/19(月) 13:54:47
>>31 >>33 >>35-36
ｱﾘｶﾞﾄｳｺﾞｻﾞｲﾏｼﾀ。とりあえず>>33で*.lnkを呼び出して済ませました。
0048デフォルトの名無しさん2007/03/20(火) 16:10:23
CPAN のモジュールをいろいろ組み込んだ結果、
print 'hello!'; だけでもメモリを 20M くらい使うようになりました。

サーバのメモリが 2G のため、同時に 100 アクセスくらいあると
サーバがかなり重くなってしまいます。

サーバのスペックを上げることになったのですが、
同時に消費メモリも下げろと言われています。

CPAN のモジュールは外せないのですが、
ソフトウェア的に何か解決策はありませんか？
0049デフォルトの名無しさん2007/03/20(火) 16:13:48
お前は何を言っているんだ？（画像ｒｙ
0050デフォルトの名無しさん2007/03/20(火) 16:17:42
>>48
いろいろあるだろうけど、コードの再利用で量を減らすとか、
容量の大きい配列は、他の変数への複製を一切せず、全て
参照等で解決するとか。
0051デフォルトの名無しさん2007/03/20(火) 16:21:24
mod_perl とか FastCGI とか使って、プロセスを使いまわすようにすればいいじゃない
0052デフォルトの名無しさん2007/03/20(火) 16:35:11
モジュールは何を使ってるの？
0053デフォルトの名無しさん2007/03/20(火) 18:44:58
そもそも、同時に100アクセスも来るサイトに鯖1台で、CGIでPerlを起動したらCPUが間に合わない
0054デフォルトの名無しさん2007/03/20(火) 18:53:15
threadsについての質問ですが、

例えばソケットを作ってから新規スレッドを作った場合、ソケットも2つ存在し、

my $sock = IO::Socket::INET - > new(attributes);
my $thread = threads -> create(\&example);
$thread -> detach;
$sock -> close();

この場合、生成されたスレッドからはまだソケット利用できるということでしょうか？

ソケットの実体がいまいち掴めてないので余計に混乱してしまいました・・・
0055デフォルトの名無しさん2007/03/20(火) 20:04:04
>>54 perl以前にまずスレッドについて勉強したほうがいい。 プロセスとスレッドを混同してる。
0056デフォルトの名無しさん2007/03/20(火) 20:32:31
>>50に関連しているのかいないのかだけど、
配列をサブルーチンへ渡したりサブルーチンから返したりする場合に、
複数の配列ではなく（1つのリストにまとめられる心配がない）、
大きくもない配列の場合だったら、
そのまま渡したり返したりした方が
ほとんどパフォーマンスが変わらない上にコードの見通しが良くなったりしますか？
0057デフォルトの名無しさん2007/03/20(火) 20:43:08
>>55
再度勉強してきます。有難うございました。
0058デフォルトの名無しさん2007/03/20(火) 22:10:03
>>56
？？？
一つのリストにまとめられない心配がない、じゃなくて？
0059デフォルトの名無しさん2007/03/20(火) 22:44:25
>>56
そりゃあ使わないで済むなら、リファレンスなんて使わないほうがシンプルになるだろうね。
でも、後で「やっぱり大きな配列を扱うようにしたい」とか「複数の配列を受け取りたい」とか
思った時の事を考えると、あらかじめリファレンス受け取りにしといた方が、少ない変更で済んで
互換性を保ちやすいのは確かだと思うよ。
0060502007/03/20(火) 23:00:32
そうでしょうね。

　先のメモリ最適化は、perlみたいな高級言語(BASICとか)では
できる事には限界があるでしょね。
メモリの解放だってできないすぃ。いかに使わないか、なのかな。
0061562007/03/21(水) 07:11:38
>>58
自分の書き方がまどろっこしくてごめんなさい
●複数の配列ならまとめられてしまうので、リファレンスのリストで渡す・返すのは必須
●考えていたサブルーチンでは、複数の配列を渡さない・返さない
　＝　リストがまとめられる心配がないので、リファレンスを使わず無精でｳﾏｰ
と考えていました

>>59-60
サンクスです
短期的には何はともあれプロファイラで見るか、という勢いだったのですが、
中長期的な視点も大事ですね
ループで回しているようなサブルーチンだとかだと、
塵も積もれば……にもなりそうですので、節約することにします
0062デフォルトの名無しさん2007/03/21(水) 14:03:20
>>48
プロセス間通信を使うのがいいんじゃないかな。
モジュールを呼び出して実行するプロセスを一つ立ち上げて、
他のプロセスはこのプロセスと通信して実行結果をもらうようにする。
0063デフォルトの名無しさん2007/03/21(水) 14:07:03
突然すみません、エスパーを募集します。
MP3::InfoモジュールがどうもShiftJISを想定してないのかどうかは知りませんが、
とにかくID3v1（エンコードはShiftJIS）で曲名など、日本語を含んだ文字列を取得すると
utf8フラグを持っているのに中身はShiftJISという訳の分からない文字列が出ます。
そしてGuessでfrom_toでutf8に変換しようとすると、
　　iso-8859-1 or utf8 at C:/Perl/lib/Encode.pm line 186
上記のエラーで止まってしまいます。Jcodeのgetcodeでもutf8と判別されました。
これを、通常のShiftJISの文字列にするにはどうすれば良いでしょうか。
ID3v1にShiftJIS以外の文字列が入るかどうかは置いといて、
色々やって通常のShiftJISの文字列にしようと試みたのですが、
激しい文字化けに見舞われたり、だめでした。
どうか、お力をお貸しいただけませんでしょうか。宜しくお願いします。
0064デフォルトの名無しさん2007/03/21(水) 14:54:56
POD嫁
書いてあるから
0065632007/03/21(水) 15:08:22
>>64
すみません、英語は正確に読めません。
フィーリングで適当にイグザンプルを斜め読みして書いてます。
use_mp3_utf8() の事でしたら、違います。
確かにこれでShiftJISは治るのですが、
Unicodeが全部"?"に変換されてしまいます。
0066デフォルトの名無しさん2007/03/21(水) 15:24:47
> utf8フラグを持っているのに中身はShiftJIS

shiftjisにutf8フラグが付いてるだけじゃないの？
0067632007/03/21(水) 15:41:15
>>66
その通りだと思うのですが、
_utf8_off、encode、decode等してみたのですが
全て化け化けの結果が返ってきたのです…
0068デフォルトの名無しさん2007/03/21(水) 16:19:55
>>65
英語を勉強しろよ。
別のモジュールを使おうとしたときに同じような目に遭うぞ
0069デフォルトの名無しさん2007/03/21(水) 17:58:00
必要なのは、RAW_V1なんだよな〜
0070デフォルトの名無しさん2007/03/21(水) 18:34:37
1年くらい前に同じ問題で七転八倒したことがあるけど、Rubyに逃げたわ。

Rubyでもモジュールの内臓を引き摺り出して書き換える必要があったけど。
0071デフォルトの名無しさん2007/03/21(水) 21:42:27
>>63
お約束の「はまり」だ。自力で頑張ってくれ。

例のごとく「PODを読め」とかほざいているやつは、Jcode使えとか言ってるバカと同様
八割方テメエでもできないから心配することはない。

ちなみに、あんたが既に挙げている材料だけでうまくいくよ。
0072632007/03/21(水) 22:28:13
>>71
もうかなり悩んでるんです…
挙句の果てにはUnicode文字が含まれてたら
_utf8_off で普通の文字列にし、それ以外はShiftJISとしてutf-8にエンコードしてます。
本当にお願いします…コードをいくつか書いて頂ければ…
0073デフォルトの名無しさん2007/03/22(木) 00:07:55
utf8フラグだけ落としたらいいじゃない
0074デフォルトの名無しさん2007/03/22(木) 04:24:32
ご存じの方ありましたら教えてください。
掲示板に貼られる画像のサニタイジングをしたいのですが、CPANか
どこかにコードがなかったでしょうか。とりあえずJPEGとPNGだけでも
処理できたらいいのですが。
0075デフォルトの名無しさん2007/03/22(木) 05:05:44
しかし、文字コードになるとキレる奴がいるなｗ
0076デフォルトの名無しさん2007/03/22(木) 08:35:23
>>74 適当なモジュールでデコードしてエンコードすればいいんじゃ
0077デフォルトの名無しさん2007/03/22(木) 08:43:35
ImageMagick
0078742007/03/22(木) 15:14:14
>>76-77
ありがとうございます。試してみます。
0079デフォルトの名無しさん2007/03/22(木) 16:11:56
The GUI LoftのようなGUIデザインツールがTkにもあれば教えていただけないでしょうか？
0080デフォルトの名無しさん2007/03/22(木) 17:12:58
$q = new CGI;


これがエラーになるのですが考えられる原因はなんでしょうか？
0081デフォルトの名無しさん2007/03/22(木) 17:22:22
・perlのパスが違う
・useしてない
・モジュールが無い
・ブラウザで表示してるのにContentヘッダを出力してない
・脳内鯖にしかアップしてない

とりあえずエラーログ見ればいいと思う
0082デフォルトの名無しさん2007/03/22(木) 17:44:29
use strictをはずしたら動きました
0083デフォルトの名無しさん2007/03/22(木) 17:55:05
それはまず、なぜstrictありで怒られてたのかを考えるべきところじゃないのか?
0084デフォルトの名無しさん2007/03/22(木) 18:03:42
っ my
0085デフォルトの名無しさん2007/03/22(木) 18:03:46
・$qをmyしてない
0086デフォルトの名無しさん2007/03/22(木) 18:14:19
>>82
0087デフォルトの名無しさん2007/03/22(木) 18:28:02
いろいろな点で酷過ぎる
■ このスレッドは過去ログ倉庫に格納されています