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

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

レス数が1000を超えています。これ以上書き込みはできません。
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
いろいろな点で酷過ぎる
0088デフォルトの名無しさん2007/03/22(木) 19:39:44
strictはずのは自殺行為
0089デフォルトの名無しさん2007/03/22(木) 19:43:35
エラー隠蔽者には、まずエラー内容を吟味することを教えようぜ。
0090デフォルトの名無しさん2007/03/22(木) 20:24:23
質問です。
正規表現で伸ばし棒を使うとエラーが出てしまうのですがこれを回避する方法はないでしょうか？
よろしくお願いいたします
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を読み込んでいるんですが ()+ でのグループの繰り返しマッチングの
全リスト取得は、正規表現工夫しても仕様的に無理なのかな…
01911842007/04/05(木) 23:40:39
push(@a, $a) の行も間違えていました…
慌てて書き上げたもので
連投すみません
0192デフォルトの名無しさん2007/04/05(木) 23:44:49
AAAとZZZの間だけでいいのか？
AAAの前や、ZZZの後ろは無視していいのか？
0193デフォルトの名無しさん2007/04/05(木) 23:47:12
あと、入力データと出力データの例を具体的に示してくれ。
入力文字列と、それに対する@aの中身はどうなるのか。
0194デフォルトの名無しさん2007/04/05(木) 23:51:08
>>190
1対の括弧につき1つの値が保存される仕様なんだから、
1回のマッチにおいて1対の括弧で複数個の値を得るのは
そりゃ無理だわな。
それに複雑な正規表現でバックトラックの嵐にするより、
幾つかのシンプルな処理に分けた方が速い。

if (/AAA/g) {
　　push @a, $1 while /\G(foo|bar|baz)/g;
}
0195デフォルトの名無しさん2007/04/05(木) 23:52:06
マジレスすると、速度とか考慮するなら切り出して二段階とかにした方が速い。
まぁ、元のデータの性質が分からんと何とも言えんが。
0196こういうこと？2007/04/06(金) 00:00:11
if(($x) = /^AAA(.+)ZZZ$/){
  $x =~ s/(foo|bar|baz)/push @a, $1/ge;
}
01971962007/04/06(金) 00:06:16
ああ、AAAが行頭とは限らないのか。
01981842007/04/06(金) 00:15:33
>>192
はい。
/AAA(foo|bar|baz)+ZZZ/
これに厳密にマッチするところの(foo|bar|baz)のみを取得したいので

111AAAfooZZZ222 ： 111 222 等は要りません
111AAAfooXXXbarZZZ222 ： この場合 foo bar も要りません
111AAAfoofoofoobazbarZZZ222 ：　@a = ('foo', 'foo', 'foo', 'baz', 'bar') を取得したい

>>193
申し訳ありません。実際の入力データはお見せすることが出来ないので、
等価な具体例の作成も時間がかかってしまうかも知れません
上記例でご容赦ください

>>194
＞そりゃ無理だわな。
ありがとうございます。
これが出来るのかどうかが一番知りたかったので、ふんぎりがつきました。



実際の具体例のデータを示せないので、(主に速度に関する)お答えは難しいですよね。
その中でも例やヒントを示してくださった方々ありがとうございました。
内部的な処理は詳しくないのですが、試行錯誤しながら参考にさせていただきたいと思います。

皆さんレスありがとうございました。（＿ ＿）
0199デフォルトの名無しさん2007/04/06(金) 04:08:13
>>198
どういたしまして
0200デフォルトの名無しさん2007/04/06(金) 08:54:56
仕事丸投げするのはいいが、藻前さんが辞めた後にメンテする人のことも
わかってやれよな。
0201デフォルトの名無しさん2007/04/06(金) 09:31:06
括弧に量指定子使うのきめえ
0202デフォルトの名無しさん2007/04/06(金) 10:26:07
foo,bar,bazが3文字って決まってるならこれでどうよ。

$_ = '111AAAfoofoofoobazbarZZZ222';
/AAA(?:(foo|bar|baz)(?{push(@a,substr($&,-3))}))+ZZZ/;

print join(",",@a),"\n";
0203デフォルトの名無しさん2007/04/06(金) 11:15:13
つーか、そもそもどうしてそんなデータ構造なのかが気になる件。
0204デフォルトの名無しさん2007/04/06(金) 11:30:16
宿題？
0205デフォルトの名無しさん2007/04/07(土) 13:27:01
########################################
# データ内に改行が無ければ最初の二行は
# $_ = <>; で置き換え可能
########################################
chomp(@tmp = <>);
$_ = join '', @tmp;
$re = qr/foo|bar|baz/i;
s!(AAA(?:$re)+ZZZ)!push @a,$1=~/($re)/g !ge;
print join("-", @a);

これはひどい。
0206デフォルトの名無しさん2007/04/07(土) 13:37:01
qrのオプションは i　じゃなくて o だった。
0207デフォルトの名無しさん2007/04/08(日) 15:55:23
perlでlogの基数が2の場合を求めるには何をつかうのが
ベスト？？
車輪の再発明はしない方向で・・・
0208デフォルトの名無しさん2007/04/08(日) 15:56:59
>>207
底の変換公式
0209デフォルトの名無しさん2007/04/08(日) 16:29:00
>>208
thx
0210デフォルトの名無しさん2007/04/08(日) 21:57:13
仕事で初めてPerl使うんだが難しいな('A`)
0211デフォルトの名無しさん2007/04/08(日) 23:12:16
Cやってりゃ、Cのマクロ言語だと思って書いてれば当座はしのげる。
嵌りどころはあるが、「難しい」ではなく「勝手にいじるなよ！」ってな感じ。
Cの派生言語からでも同様。
「難しい」ってのは今までまっとうな言語の経験がないからじゃないかと思う。
0212デフォルトの名無しさん2007/04/08(日) 23:59:21
つーか、Ｃみたいな型がキッチリしたのから移行すると、
なんとなく気持ち悪いｗ
0213デフォルトの名無しさん2007/04/09(月) 00:12:22
>>212
Cの原始的な型じゃ、実際にコードを書くときたいして助けになってくれてないだろう。
目糞鼻糞だと思うんだけど。
0214デフォルトの名無しさん2007/04/09(月) 00:21:03
俺は、あくまでもテキスト処理用と考えたらすんなり入れた。
Cだと文字列めんどくせえし、C++と比べても正規表現処理のためのコード量がぜんぜん違うからな。
0215デフォルトの名無しさん2007/04/09(月) 00:22:52
>>213
そうでもない。例えばプロトタイプ宣言をちゃんと使っていれば
誤った引数を渡したりしたときなど、コンパイルエラーとして
コンパイルの時点で捕捉出来るし、プロトタイプ宣言自体が
関数の使い方に関する一番簡単なドキュメントになる。
0216デフォルトの名無しさん2007/04/09(月) 00:27:16
>>214
テキストをちょろっと弄くるには便利だよね。
クラスやリスト、リファレンス等の基本的な仕組みが
adhoc過ぎて汚いし（←個人的見解）
プログラムが大きくなればなるほど型付静的言語の有り難味が増す。

Perlで小さいプログラム以上のものを書く気にはとてもなれない。
同じ動的言語でも、Pythonあたりならまだ許容量大きいかな。
0217デフォルトの名無しさん2007/04/09(月) 00:28:33
そゆことだな。主にバイナリ扱うとなると、Ｃみたいなのが書きやすい。
文字列はperlみたいなのが楽だが。
02182132007/04/09(月) 00:40:57
>>215
ああ、そういえばそうだ。目糞鼻糞は撤回する。
0219デフォルトの名無しさん2007/04/09(月) 00:41:27
>>217
バイナリとかバイト／文字単位の処理だとpack(), unpack()の嵐だわな。
それ考えると、文字列処理とか言っても正規表現使いやすいだけって希ガス。
エンコーディング周りもそんなに便利とは言えないし。
0220デフォルトの名無しさん2007/04/09(月) 06:15:36
っ　適材適所
0221デフォルトの名無しさん2007/04/09(月) 07:43:02
ある種の物事を異常に早く片付けられる、それがPerl。
0222デフォルトの名無しさん2007/04/09(月) 19:15:26
元々perlは文字列処理用なんしょ。

しかし、たとうばHTMLのタグを外す処理を書く　ってなった時、
perlなら簡単だけど、Cで書くとなると工程からして憂鬱だ…。
regexp.dll使うけど、メモリリーク等に気を遣わないとで面倒だ…。
0223デフォルトの名無しさん2007/04/09(月) 20:53:41
やっぱ言語組み込みのが楽だよね・・・正規表現は
0224デフォルトの名無しさん2007/04/09(月) 21:53:11
>>222
まぁCで文字列処理はちょっとな。
どうしても(C++でなく)Cを使う必要があるのなら、せめて
GCライブラリを使いたいところ。
C++なら、文字列処理は別に苦にはならないはず。

それとCで字句／構文解析ならlex/yaccを使う場合も
多いんじゃないかな。
0225デフォルトの名無しさん2007/04/10(火) 17:49:24
この記事どうしてくれよう
ttp://gigazine.net/index.php?/news/comments/20070410_libwww/
0226デフォルトの名無しさん2007/04/10(火) 18:03:28
>>225
マジかと思ってUserAgentをlibwwwにしてググったらほんとに検索できなかった。
一時的な効果しか無いだろうに、アホな対応するなぁ…。

これからは適当なAgentを騙れってことでOK?
0227デフォルトの名無しさん2007/04/10(火) 18:18:39
IEのにあわせておくもんだろ
0228デフォルトの名無しさん2007/04/10(火) 19:15:26
>>226
libwww-perlを拒絶しても、本当に悪い奴は遮断できず、
入門過程の新参者を困惑させ余計な時間をとらせるだけ。

まさに1000害あって1利なし。
0229デフォルトの名無しさん2007/04/10(火) 19:59:13
所詮Google。
0230デフォルトの名無しさん2007/04/10(火) 22:32:59
つまり、おまえらpython使えの意
0231デフォルトの名無しさん2007/04/10(火) 22:39:48
その発想はなかったわ・・・
0232デフォルトの名無しさん2007/04/10(火) 22:59:00
フォームへのスクリプト拒否してるからでしょ
0233デフォルトの名無しさん2007/04/11(水) 00:55:09
>>232
んなもんどうでもなるやん。何の意味があるのかさっぱりわからん。
0234デフォルトの名無しさん2007/04/11(水) 01:45:44
2,3日で元のスパムの量に戻るに1ペリカ
0235デフォルトの名無しさん2007/04/11(水) 10:26:47
今更ながらどうもコマンドラインがよく飲み込めてないかもしれないので、
少しお尋ねします。
例えば
perl -pi.bak -e "tr/A-Z/a-z/"*.html
とか便利ですよね？
これを.plとして使いたいのですが無理なのでしょうか？
コマンドラインから打ち込むしか手がないのでしょうか？
0236デフォルトの名無しさん2007/04/11(水) 10:40:03
>>235
perlrun(1)の-iオプションの説明のとこに例があるだろ。よく嫁。

From the shell, saying

$ perl -p -i.orig -e "s/foo/bar/; ... "

is the same as using the program:

#!/usr/bin/perl -pi.orig
s/foo/bar/;

which is equivalent to

#!/usr/bin/perl
$extension = '.orig';
LINE: while (<>) {
if ($ARGV ne $oldargv) {
(改行大杉でおこられるので以下略)
0237デフォルトの名無しさん2007/04/11(水) 10:40:50
http://pc11.2ch.net/test/read.cgi/php/1171102883/593
http://pc11.2ch.net/test/read.cgi/tech/1173880452/235
0238デフォルトの名無しさん2007/04/11(水) 10:49:06
>>236
ｱﾘｶﾞﾄｳございます。
なお、質問するｽﾚが似つかわしくないと重い他ｽﾚにも同じ内容を質問させていただきましたが
ご迷惑かけたようで申し訳ないです。
0239デフォルトの名無しさん2007/04/11(水) 11:06:13
>>235
windowsだとどうも面倒なようなので他の手にします。お騒がせしました。
0240デフォルトの名無しさん2007/04/11(水) 11:33:56
手軽に使えるようになればいいだけなら、適切なオプション
与えたperlをsystemかexecで起動するようなスクリプト書く
手もあるよ。

病的に効率を気にする人にはお勧めしませんけど。
0241デフォルトの名無しさん2007/04/11(水) 21:53:06
>>239
Windowsなら.batに書けばいいんじゃね？
なんで.plにこだわるのかわからん
0242デフォルトの名無しさん2007/04/11(水) 22:50:12
YAPC::Asia 2007 Tokyoのpodcastでてるけど、これは聞いとけってものある？
0243デフォルトの名無しさん2007/04/11(水) 23:15:28
んだ
0244デフォルトの名無しさん2007/04/12(木) 01:10:07
> YAPC::Asia 2007 Tokyoのpodcastでてるけど、これは聞いとけってものある？

馴れ合いなので、聞く必要なし
0245デフォルトの名無しさん2007/04/12(木) 04:01:25
>>242
見事になんにもなし。
0246デフォルトの名無しさん2007/04/13(金) 05:01:57
>>240
ありがとうございます。
>>241
いえ。こだわってないから他の手にするつもりです。
UNIX環境でないとなかなか不便なものなんですね。
0247デフォルトの名無しさん2007/04/13(金) 22:58:40
>>246
>UNIX環境でないとなかなか不便なものなんですね。

この点は同意なんだけどね。
しかし、キミが不便だと言っている点についてオレは不便を感じたことはないな。
0248デフォルトの名無しさん2007/04/14(土) 00:31:00
そんなに頻繁に使うようならスクリプトをちゃんと書けよ
てかperlの質問じゃなくて、コマンドラインについての質問だよな・・・
0249デフォルトの名無しさん2007/04/14(土) 13:30:37
>>247
>しかし、キミが不便だと言っている点についてオレは不便を感じたことはないな。
主観的且つ感情的な意味でしょうか？そうではないとしたら何か理由がおありですよね？
不便と思わない理由はなんでしょうか？
>>248
スレ違いになるかもですね。
そろそろ退散したいと思います。
0250デフォルトの名無しさん2007/04/14(土) 13:32:25
＞そんなに頻繁に使うようならスクリプト
？
0251デフォルトの名無しさん2007/04/14(土) 17:11:52
#!/usr/bin/perl
# >>235 の望みを叶える夢のスクリプト:
exec 'perl', '-pi.bak', '-e "tr/A-Z/a-z/"', shift;
__END__
0252デフォルトの名無しさん2007/04/14(土) 22:29:21
>>251
頭大丈夫？
0253デフォルトの名無しさん2007/04/14(土) 22:41:39
大丈夫な人も大丈夫じゃない人も大丈夫って答えるから
間抜けな質問というしかない。
0254デフォルトの名無しさん2007/04/14(土) 22:55:57
>>184
@a = grep {/(foo|bar|baz)/} split /(foo|bar|baz)/ , $_;
0255デフォルトの名無しさん2007/04/14(土) 23:30:26
こんばんは。
会社のHP作成を引き継いだのですが、わからないことがあるのでどなたか教えていただけないでしょうか。
コンボボックスを外部のテキストから読み込んでいるのですが、途中までしか表示されないのです。
0<>--<><>
1<>A<><>
2<>B<><>
3<>C<><>
4<>D<><>
5<>E<><>
6<>F<><>
7<>G<><>
8<>H<><>
(中略)
14<>N<><>
上記が外部テキストの中身なのですが、コンボボックスには8までしか表示されないのです。
コンボボックスの方は
#編集モード以外は表示するだけ、編集モード時はコンボボックスで表示
if (!$edit) {$html .= "<td align=\"center\"><table width=\"100%\">";
for ($l = 0; $l < $periods; $l++) {
if ($showpname) { $html .= "<tr><td>$periodname[$l]</td>"; }
$html .= "<td align=\"center\">$STATUSSTR[$stats[$l]]</td></tr>";}
$html .= "</table></td>\n";}
となっています。
全てを表示させるようにするにはどこを変えたらいいのでしょうか。
(これだけの情報では不十分でしたらすみません。
　他にどんな情報が必要かも教えていただければ幸いです)
Perl関連の本など読んでみたのですがわからなくて…
宜しくお願いします。
0256デフォルトの名無しさん2007/04/14(土) 23:36:54
コンボボックスじゃなくて表で表示するコードに見えるが・・・。
0257デフォルトの名無しさん2007/04/14(土) 23:48:58
>>256さん
あ、もしかしてここは関係なかったですかね…
カレンダーの1日ごとにコンボボックスが入っているので、そのカレンダーの方のコードなんでしょうか…
わからないことだらけのまま質問してしまってごめんなさい。
もう一度コードを見直してみます。
0258デフォルトの名無しさん2007/04/14(土) 23:53:55
読み込まれたテキストデータがコンボボックスのどの変数になってるのかがわからない。
perlコードの、$periods、$showpname・・・とやらが何なのかわからないと
何もアドバイス出来ないよ。
0259デフォルトの名無しさん2007/04/15(日) 00:03:49
>>258さん
そうですか…
$periodsなどなどは専門用語なのかなぁ、と思っていたのでそこから間違いだったのですね。
前任者とは全く連絡が取れず、初心者の私には何がなにやらさっぱりで…
失礼致しました。
もっと勉強して出直します！
0260デフォルトの名無しさん2007/04/15(日) 00:23:13
periodつーたら何らかの「期間」じゃないのか?
0261デフォルトの名無しさん2007/04/15(日) 00:39:39
>>260さん
期間…カレンダー関係ですかねぇ。
日ごとにアルファベッドを選択して登録するんですけど、
何ヶ月か分をまとめて登録してそれをScriptで(？)違うページに呼び出すので、それですかねぇ…
それにしても8番までしか出てこないのもどこかで指定してるんですかねぇ。
あまりにファイルが多すぎて、探すのに時間がかかりそうです…
0262デフォルトの名無しさん2007/04/15(日) 00:52:49
>>255
本当にそのコードが該当コードなのかどうか怪しいね
ありうるとすれば@STATUSSTRの中が"<select>…"といったhtmlになってるとか

とりあえずPerlの配列変数は先頭の記号が $ だったり @ だったりするので
それだけ注意して変数をさかのぼって行くとか

お節介だけど$showpnameのif文、通らない場合に開始<tr>タグ欠けるよ
0263デフォルトの名無しさん2007/04/15(日) 01:03:42
俺なら解読するの諦めて書き直したくなるな
0264デフォルトの名無しさん2007/04/15(日) 01:56:12
>>255
エスパーのおいらが予測するには、>>255 が挙げた箇所の次に
} else {
という行があり、その後の部分が問題の部分なんだろうな。
0265デフォルトの名無しさん2007/04/15(日) 06:52:58
perlのソースコードの中に直接HTMLが書かれているなら
「type="select"」あたりで検索すれば、該当個所の近辺の
コードに当たるんじゃないか？
02662652007/04/15(日) 06:55:31
間違えた。「type="select"」じゃなくて「<select」だな。
0267デフォルトの名無しさん2007/04/15(日) 23:51:49
>>255さんには内緒で、実はその前任者さんをこのスレにお呼びしています＾＾。
実は前任者さん、その書き込みの様子をモニターを通して見ておりました。
では、心に引っかかっていた辛い過去。
あの時、伝えられなかった想いを今、、、
0268デフォルトの名無しさん2007/04/16(月) 00:50:06
perlの時代は終わった・・・
これからの初心者は、今の時代に合った言語を使ってくれ・・・

・・以上
0269デフォルトの名無しさん2007/04/16(月) 00:53:48
ruby？python？
0270デフォルトの名無しさん2007/04/16(月) 01:04:26
情報保護の時代だからな。
Whitespaceだろ。
0271デフォルトの名無しさん2007/04/16(月) 04:53:46
仕事をPHPいじってから、Perlを汚い言語だなんて言ってた自分の愚かさに気づいた。
Perlは消えなくていい。PHP、頼むから消滅してくれ。
0272デフォルトの名無しさん2007/04/16(月) 04:56:25
s/(?<=仕事)を/で/
0273デフォルトの名無しさん2007/04/16(月) 06:08:15
255です。
皆さんどうもありがとうございます。参考になりました！
ここで皆さんにお聞きするにはあまりにも自分が無知すぎて申し訳ないです。
更新は休みの土日しかできないので、来週までに色々調べてまた挑戦します。

>>262さん
なるほど…
<tr>タグの件、ご指摘ありがとうございます！

>>263さん
書き直すなんて絶対無理ですので頑張って解読したいと思います…

>>264さん
} else { って部分あります！！
その部分に注意してみます。

>>265さん
検索ですね。htmlがperlの中にあるので試してみます！

>>267さん
実は前任者とは全く面識がないので、あの時も何もあったもんじゃない、って感じなのですが…
0274デフォルトの名無しさん2007/04/16(月) 14:16:33
>>225
すんげー今更だな
google出来た頃から規約に書いてあるし
http://www.google.co.jp/accounts/TOS
0275デフォルトの名無しさん2007/04/17(火) 06:50:02
まさかLWP使ったらすべて自動クエリだとか思ってる訳じゃないよな。
0276デフォルトの名無しさん2007/04/17(火) 06:59:52
>検索結果ページに対して

ってあるからなぁ
0277デフォルトの名無しさん2007/04/17(火) 13:36:22
質問です

$var = 010203　とあります

これを
$var = 01/02/03

このように2桁ごとにスラッシュを入れるにはどうしたらよいでしょうか？

0102　や　01、01020304　の場合などどの桁数にも対応したいです
0278デフォルトの名無しさん2007/04/17(火) 13:43:51
 perl -e '$var="010203"; $var=~s/([0-9]{2})/$1\//g;print $var;'
0279デフォルトの名無しさん2007/04/17(火) 15:07:07
ありがとうございます
できました
0280デフォルトの名無しさん2007/04/17(火) 15:48:19
正規表現の中にスラッシュがあるときはエスケープするより
s{([0-9]{2})}{$1/}g
とかの方が良い気がする
0281デフォルトの名無しさん2007/04/17(火) 16:06:26
0-9より\dのがいい気がする
0282デフォルトの名無しさん2007/04/17(火) 16:11:38
'010203' のとき '01/02/03/' になる気がする
0283デフォルトの名無しさん2007/04/17(火) 16:44:03
s{\d{2}(?=\d)}{$&/}g;
かな
0284デフォルトの名無しさん2007/04/17(火) 17:15:38
$& 使うくらいだったら普通に join したくなるなあ、俺は。
perl -le '$var = qq{010203} ; print join q{/}, ( $var =~ /(\d{2})/g )'
0285デフォルトの名無しさん2007/04/17(火) 19:37:56
まあ一般には \d は 0-9 の必要条件であって同値ではないけどな。
0286デフォルトの名無しさん2007/04/17(火) 19:46:31
こういうことか
$ perl -e 'use utf8; print q[０] =~ /\d/'
1
0287デフォルトの名無しさん2007/04/17(火) 22:03:19
J2EEの方がいい気がする
0288デフォルトの名無しさん2007/04/17(火) 22:40:33
>>277
3桁区切りにカンマをつけるというのがよくあるから
それを参考に好きなの使えば？
0289デフォルトの名無しさん2007/04/17(火) 22:57:26
>>282
答えはそれでいいんだろ？
0290デフォルトの名無しさん2007/04/17(火) 23:59:03
>>289
質問者の出してる例はそうは言ってないぞ。
0291デフォルトの名無しさん2007/04/18(水) 03:02:24
>>277
Date::Manipでできんじゃね?
0292壁| x ・)つ○2007/04/18(水) 03:09:07
こういうのは こうりつわるいですか？
for ($i = 2; $i < rindex($var, ""); $i += 3) {
　　substr($var, $i, 0) = "/";
}
0293デフォルトの名無しさん2007/04/18(水) 12:07:56
$var = reverse( ( $var = reverse $var ) =~ s{(\d\d)(?=\d\d)}{$1/}g );
0294デフォルトの名無しさん2007/04/18(水) 12:18:50
近頃はs#･･･#･･･#って書き方見なくなったな
0295デフォルトの名無しさん2007/04/18(水) 13:07:55
>>292
人間の読み書きの部分で効率悪いと思う
0296デフォルトの名無しさん2007/04/18(水) 14:36:58
1 while $var =~ s/(\d{2})(\d{2})/$1\/$2/g;
0297デフォルトの名無しさん2007/04/18(水) 14:43:01
s/(\d{2})(?=\d{2})/$1\/$2/g
0298デフォルトの名無しさん2007/04/18(水) 16:53:45
>>297
$2なんてないじゃん
0299デフォルトの名無しさん2007/04/18(水) 17:11:53
>298
なにを言っているんだお前は。
0300デフォルトの名無しさん2007/04/18(水) 17:40:37
いやさ、 (?= ) は後方参照を生成しないだろう？
> perl -e "q/123/ =~ /(\d)(?=\d)(\d\d)/; print $2;"
23

そもそも、(?= )はゼロ幅先読みだろう。
> perl -e "q/123/ =~ /(\d)((?=\d))/; print $2;"
(出力なし)
0301デフォルトの名無しさん2007/04/18(水) 20:54:57
>>295 なるほど　ワンライナーでさらっとかけるよう しょうじんいたします
・)つ●　←おれいのしな
0302デフォルトの名無しさん2007/04/19(木) 10:56:55
>>300
そのとおり。適切な指摘ありがと。書いてから気がついた。
>>283か、
s|(\d\d)(?=\d)|$1/|g
みたいな感じで。
0303デフォルトの名無しさん2007/04/19(木) 22:59:05
ファイル出力の質問です

open IN , ">$failename";
print IN , "test;
close IN;

で、$filenameに絶対パスを入れたいんですが、なんかうまく言ってくれないんです　Orz
助けてエロい人
0304デフォルトの名無しさん2007/04/19(木) 23:02:26
>>303
> で、$filenameに絶対パスを入れたいんですが、なんかうまく言ってくれないんです　Orz

さあ、「なんかうまく言ってくれないんです」の「なんか」を推定するクイズです!!
0305デフォルトの名無しさん2007/04/19(木) 23:08:28
これは流石に釣りだろう
0306デフォルトの名無しさん2007/04/19(木) 23:11:10
エスパーの私がお答えしよう。

Windows で \ 記号がディレクトリ名の区切りなもんだから
ダブルクォーテーションで括っただけだとエスケープと
解釈されちゃって変な文字列完成。→オープン→エラー。
そんなファイルはねえよヴォケと $! に入っている。
0307デフォルトの名無しさん2007/04/19(木) 23:34:21
$failename (フェイルエネーム?) だからではないか・・・なんてことはないか。
そもそも IN じゃなくて OUT だろうと

use Fatal qw(open close);
open my $out, '>', $filename;
print {$out}, "test";
close $out;
03083072007/04/19(木) 23:39:40
- print {$out}, "test";
+ print {$out} "test";
0309デフォルトの名無しさん2007/04/19(木) 23:40:55
{$out}
0310デフォルトの名無しさん2007/04/19(木) 23:54:37
{$safe}
03112652007/04/19(木) 23:58:02
$failename =~ s/^/zettaipath\/;
03123032007/04/20(金) 00:05:38
みなさま　マジでありがとうです
こんな初心者をささえてくれてありがとお　つω；
0313デフォルトの名無しさん2007/04/20(金) 01:32:59
なんかうまく言えました
0314デフォルトの名無しさん2007/04/20(金) 03:42:05
うまく言えないけれど宝物だよ
0315デフォルトの名無しさん2007/04/20(金) 03:53:44
僕たちはできる!! できるんだ!!
0316デフォルトの名無しさん2007/04/20(金) 03:54:26
最高ですか！！？
最高です！！！
0317デフォルトの名無しさん2007/04/20(金) 12:14:51
プラス思考のスレはここですか?
0318デフォルトの名無しさん2007/04/20(金) 15:30:27
プラス指向プログラミング　POP
0319デフォルトの名無しさん2007/04/20(金) 19:25:20
@http = $_ =~ /s?https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,%#]+/g;
print FILEA @http;
このような記述をしたら、
Variable "@http" is not imported at http-client.pl line 53.
Variable "@http" is not imported at http-client.pl line 54.
Global symbol "@http" requires explicit package name at http-client.pl line 53.
Global symbol "@http" requires explicit package name at http-client.pl line 54.

と言われました。
これは何のエラーですか！？
0320デフォルトの名無しさん2007/04/20(金) 22:19:47
@httpを括弧でくくってください
0321デフォルトの名無しさん2007/04/20(金) 23:21:12
>>319
Variable "@http" is not imported については、perldiagをどうぞ。
というか、「何の」もなにもperlが出しているエラーなんだからまずはここで調べるべし。
つ http://perldoc.jp/docs/perl/5.6.1/perldiag.pod

とりあえず、use strictなのに @http が生で使われているのが原因ですので、パッケージを明示的に
指定して使うか、my宣言すればいいのでは。
0322デフォルトの名無しさん2007/04/21(土) 23:17:55
PDFを解析したいんですが、どのような方法で読み込んでいったらいいと思いますか？
ちなみに、PDFの仕様として：

・改行文字はCR，LF，CRLF，のどれでもよい。
・文字列内での改行文字はそのままのかたちで残さなければならない。
・文字列内で（見た目のために）改行したいときは \改行文字 とする。

read(FILE, $buf, 512) ってのもめんどくさそうだし、できれば while(<FILE>) で
済ましたいんですが、意味のある改行もあるしなぁ。。。
0323デフォルトの名無しさん2007/04/22(日) 00:20:39
>>322
何をしたいのか知らんが、まずCPANでPDF関係のモジュールを
サーチしたほうがいいね。
あなたがしたいことを既に実現しているモジュールがあるかもしれないし、
少なくとも、改行文字の扱い方については、ソースの中にお手本が
あると思うし。
03243032007/04/22(日) 04:50:29
303ですが　またまた超初心者な質問です。

requier './jcode.pl';

sub jis { $msg = $_[0]; &jcode'convert(*msg, 'jis'); }

ってコードがあったのですが
&jcode の後ろについている ' の意味がわかりません。

もしかして
&jcode::convert(*msg,'jis');
と同義ですか？

エディターの色分けが気持ち悪くなるので直したいです。教えてエロい人　Orz
0325デフォルトの名無しさん2007/04/22(日) 05:35:13
Perl4
0326デフォルトの名無しさん2007/04/22(日) 05:37:45
>>324
エロい人よりマニュアルに頼ろうよ。

<q cite="http://www.kt.rim.or.jp/~kbk/perl5.005/perlmod.html">
古いパッケージ区切り子はシングルクォートでしたが、
現在はダブルコロンを使うのが推奨されています。
</q>

http://mikeneko.creator.club.ne.jp/~lab/kcode/jcode.html#h2-2
03273242007/04/22(日) 11:13:18
なるほど！　ありがとうございました　＞＜

Jcodeの使い方も含めて勉強してきます　＞＜ノ
0328デフォルトの名無しさん2007/04/22(日) 14:43:25
CPAN でインストールする際に以下のようなメッセージが出て失敗します。

Undefined subroutine &Compress::Zlib::gzopen called at /usr/local/lib/perl5/5.8.8/CPAN.pm line 5721.

何をインストールしても大体このエラーが出て失敗します。

Zlib は、
/usr/local/lib/perl5/site_perl/5.8.8/Compress/Zlib.pm
にあって、サブルーチン gzopen もありました。

また、@INC に /usr/local/lib/perl5/site_perl/5.8.8 は含まれていました。

どこに問題があるか分からないのですが、教えてもらえないでしょうか。

環境は、
OSX 10.4.9 で Perl 5.8.8 を /usr/local/bin にインストールしました。
0329デフォルトの名無しさん2007/04/22(日) 16:09:08
>>328
あえて /usr/bin/perl ではなく /usr/local/bin/perl を使いたいわけね？
で、実際に使ってる(環境変数 PATH で優先的に参照される)のは /usr/bin/perl ではなく、
/usr/local/bin/perl ってことに間違いはない？
0330デフォルトの名無しさん2007/04/22(日) 16:35:51
>>329
レスありがとうございます。

>あえて /usr/bin/perl ではなく /usr/local/bin/perl を使いたいわけね？
はい。ソースコードからインストールしたらそこにインストールされたので、
/usr/local/bin/perl を使っています。

>で、実際に使ってる(環境変数 PATH で優先的に参照される)のは /usr/bin/perl ではなく、
>/usr/local/bin/perl ってことに間違いはない？
間違いないはずです。
which perl で確認しました。

CPAN.pm の該当箇所をみると、
$CPAN::META->has_inst("Compress::Zlib") で判定した後に、
Compress::Zlib::gzopen を呼び出していました。
そこで gopen がないとなる理由がよく分かりません。
0331 ◆TWARamEjuA NGNG?2BP(6823)
>>330
> >で、実際に使ってる(環境変数 PATH で優先的に参照される)のは /usr/bin/perl ではなく、
> >/usr/local/bin/perl ってことに間違いはない？
> 間違いないはずです。
> which perl で確認しました。
$env
してみると判るけれども標準ではpathが通っていないと思うですです。
PATH=/bin:/sbin:/usr/bin:/usr/sbin
@MacOSX 10.4.9

もっぺん確認してみよう♪

♯tu-ka未だに5.8.6のままなんだよなぁ。。。(´･ω･`)
$ perl -v

This is perl, v5.8.6 built for darwin-thread-multi-2level
(with 3 registered patches, see perl -V for more detail)
0332デフォルトの名無しさん2007/04/22(日) 17:55:38
>>331
レスありがとうございます。

$env
で確認してみましたが、先頭に/usr/local/binがありました。
PATH=/usr/local/bin:/bin:/sbin:/usr/bin:/usr/sbin

こうなるように、以前./bash_profile に追加しました。
となると、原因は不明でしょうか？
インストールの仕方が悪かったのかなあ。
0333デフォルトの名無しさん2007/04/22(日) 20:53:01
CPANなんてまともに動作すると思うほうがおかしい。
手動で入れろ。
0334デフォルトの名無しさん2007/04/22(日) 21:21:50
>>323 THX
PDFファイルのすべてを把握するのが目的です。

CPANをみたところ、PDFのテキストや書誌情報を抽出したりするためのAPIは用意されてる
のですが、もっと低レベルなパーサーがないようです。。

各種トークンが出現するたびにイベントを起動するような奴がほしいんですが。
HTML::ParserのPDF版でPDF::Parserみたいな感じの奴です。
0335デフォルトの名無しさん2007/04/22(日) 23:26:59
日曜潰してまだ分からないので、どなたか助けてください＼(ToT)／
UTF-8でURIエスケープされた文字列を、アンエスケープするPerlの処理でけつまづいてます。

元の文字列をURIエスケープした文字列がサーバ側まで来ているのは確認しました。
「質問」→「%E8%B3%AA%E5%95%8F」だとか、「ü」→「%C3%BC」だとか。

これを
$utf8str =~ s/%([a-f\d]{2}/pack('H2',$1)/egi;
しても、正しくアンエスケープされない（文字化けする）のです。
UTF-8が可変バイトなのが曲者なのでしょうか。。。

ググった先（ttp://oshiete1.goo.ne.jp/kotaeru.php3?q=1644542）の
$utf8str =~ s/%(e[a-f\d])%([a-f\d]{2})%([a-f\d]{2}/pack('H2',$1).pack('H2',$2).pack('H2',$3)/egi;
してもやはりだめでした。
0336デフォルトの名無しさん2007/04/22(日) 23:56:33
>>333
むあじっすか。
0337デフォルトの名無しさん2007/04/22(日) 23:59:22
>335

use Encode qw/from_to/;
my $str = '%E8%B3%AA%E5%95%8F'; # utf8の'質問'をエスケープ
(my $dec = $str) =~ s/%([a-f\d]{2})/pack 'H2', $1/egi;
from_to($dec, 'utf8', 'cp932'); # Winのコマンドプロンプトで表示するのでcp932にしてる
print $dec;

とりあえずこれで動いてるけど？　ブラウザに出してるんなら、Shift_JISって解釈されてるとかじゃない？？
0338デフォルトの名無しさん2007/04/23(月) 00:01:31
>>335
> $utf8str =~ s/%([a-f\d]{2}/pack('H2',$1)/egi;
$1のための括弧が閉じられてません。

あとは、UTF-8に対応したEditorで開いてないとかでしょうか。
上の式で正しくアンエスケープされました。
0339デフォルトの名無しさん2007/04/23(月) 00:35:06
括弧閉じ忘れでごめんなさいorz
>>337さんのスクリプトを実行したところ、文字化けしませんでした。
また、from_toする前でも、ファイルにリダイレクトして、
そのファイルをエディタで開いても同様に文字化けしていませんでした。

しかし、サーバに持って行ってブラウザに結果を出すと文字化けしてしまいます。
エディタはUTF-8に対応していて、Perlスクリプトもutf-8で保存して、
use utf8; use open ":utf8"; use open ":std";して、
print "Content-type: text/html; charset=utf-8\n\n";
いるのですが、
>>337さんのものでprint $dec;でもprint $str;でも駄目（文字化け）でした。
環境はWin XP SP2 + IE7、[表示]-[エンコード]でもUTF-8であることを確認しているのですが。。
。
度々で申し訳ないのですが、他に何か怪しい箇所がありますでしょうか？
0340デフォルトの名無しさん2007/04/23(月) 00:49:03
#!/usr/bin/perl

my $str = '%E8%B3%AA%E5%95%8F';
(my $dec = $str) =~ s/%([a-f\d]{2})/pack 'H2', $1/egi;

print "Content-Type: text/plainl; charset=utf-8\n\n";
print $dec;

__END__

とりあえず手元だとこれで動いてる。まずは問題の発生する最小限のコードまで切り詰めてみ？
03413372007/04/23(月) 01:17:20
ありがとうございました！解決しました。
use open ":std";が余計でした（よく分からないのに「おまじない」で書くのは駄目でしたね）。
問題のスクリプトから上記を除いて、かつ、
自分で作って読んでいるモジュールからも上記を除きました。
本当にありがとうございます！
0342デフォルトの名無しさん2007/04/23(月) 01:18:56
自分（↑）は>>337さんでなくって>>335でした。お目汚しでごめんなさい。
標準入出力を使わないなら、use open ":std";等は確かに不要でした。
03433352007/04/23(月) 03:15:36
事後報告がてら・・・
use open ":std";を外せばアンエスケープで文字化けしないものの、
今度は後続処理でUTF-8な文字を処理できないという問題がありました。

結局、以下のサイトを参照して、
ttp://naoya.dyndns.org/~naoya/mt/archives/000611.html
use open ":std";は残したままで、アンエスケープ処理の後に
utf8::decode($str);でUTF8フラグを落とせば、
スクリプトへのUTF-8文字列の受け渡しも、後続処理も、うまく行きました。

夜更けにお答えくださって、本当にどうもありがとうございました。
これで安心して眠れそうです。
0344デフォルトの名無しさん2007/04/23(月) 18:08:16
■　Perl言語　■　何でも質問コーナー　■
http://mixi.jp/view_bbs.pl?id=17607679&comm_id=1401396
Perlに関すること、cgiに関すること
なんでも質問できるコーナーです(たとえばApacheとかでもOKとします！)
（Web系であればOK）

ルール：
Google検索で調べてわかるようなことでも質問してもOKです
（初心者のうちは、どの情報を取捨選択したらイイのかわからないと思うので）
回答してくださるかたは、暖かく質問者を迎えてやってください
o(^^o) (o^^)o

0345デフォルトの名無しさん2007/04/23(月) 18:19:57
そのトピック自体はどうでもいいんだが
コミュニティのタイトルとか説明文が凄く気になって仕方が無い。
0346 ◆TWARamEjuA NGNG?2BP(6823)
コミュニティの名前
　PERL言語　CGI言語

コミュニティの説明
　perl言語 cgi言語のコミュニティです

だそうです。。。
0347デフォルトの名無しさん2007/04/24(火) 04:11:19
Web系NGなこのスレとうまく連携していければいいですねo(^^)o
0348デフォルトの名無しさん2007/04/24(火) 08:17:44
未だにCGIが（ｒｙ
0349デフォルトの名無しさん2007/04/24(火) 10:36:14
ダメそうなコミュだなｗ
0350デフォルトの名無しさん2007/04/24(火) 22:51:58
どうしようもない質問の数々に、「ちったぁマニュアル読んでください！」と、
最後に管理者がキレるに１票。
0351デフォルトの名無しさん2007/04/25(水) 02:27:30
いやあ管理人もろくすっぽ読んでないんじゃないか?
0352デフォルトの名無しさん2007/04/25(水) 11:12:27
実は、管理人自身が２ちゃんねるで質問したところ、
「ググれカス」だの「マニュアル嫁」みたいな回答しか
返ってこなかったので、管理人にやさしく教えてくれる
ところが欲しかったんじゃないの？
0353デフォルトの名無しさん2007/04/25(水) 12:06:40
>>352
もちろんそうでしょ。
そうじゃなきゃルール書きの冒頭が「Google検索で調べて
わかるようなことでも」で始まるわけないっすよ。
0354デフォルトの名無しさん2007/04/25(水) 12:33:51
モヒカン族はお断りです＞＜
0355デフォルトの名無しさん2007/04/25(水) 17:38:48
モヒカン族の土地に侵入してきたくせに、大きい顔をするな
0356デフォルトの名無しさん2007/04/25(水) 19:00:43
座り込んで動かない、口だけ達者なでっぷり太ったモヒカン族ほど
役に立たないものはない。

川に流してしまいたい。
0357 ◆TWARamEjuA NGNG?2BP(6824)
不法投棄しちゃダメです♪
0358デフォルトの名無しさん2007/04/25(水) 21:32:05
食肉に加工するというのはどうだろう
0359デフォルトの名無しさん2007/04/25(水) 22:08:09
強くなれ!! と願いを込めて、子供たちに食べさせるとよいね。
0360デフォルトの名無しさん2007/04/25(水) 23:13:46
弱者の肉なんかいくら食べても強くなれないよ
0361デフォルトの名無しさん2007/04/25(水) 23:27:06
食べるのなら、戦場で最前線に立つモヒカンを食べよう。
0362デフォルトの名無しさん2007/04/26(木) 09:20:12
　　 ／ ： 》：､∩
　　（===○=）/ 　センセー
＿_ /　　⇔ / 　　　　話しについてけませーん
＼⊂ノ￣￣￣＼
||ヽ||￣￣￣￣||
　...||￣￣￣￣||
0363デフォルトの名無しさん2007/04/26(木) 22:17:39
>>346
CGI言語と来たか・・・。

本当に作ってしまって混乱させるというのはどうか?
もちろんその言語はクライアントマシンの限られた
中でしか使えず、 Web の CGI になんて使えないのだ。
0364デフォルトの名無しさん2007/04/26(木) 22:18:42
Common Graphics Interface とかいう紛らわしいグラフィック操作用言語を新たに作る。
0365デフォルトの名無しさん2007/04/26(木) 23:07:10
parrot上で走らせたらもっと混乱の元に。
0366デフォルトの名無しさん2007/04/26(木) 23:15:11
ｺﾓﾝ ｸﾞﾗﾌｨｯｸｽ ｲﾝﾀｰﾌﾟﾘﾀｰ

池袋で乗車してきた女の子がハロプロエッグの子とかたかまりこ
0367デフォルトの名無しさん2007/04/27(金) 11:39:27
ついでだ。IT言語というのも作ってしまえ。
0368デフォルトの名無しさん2007/04/27(金) 11:57:03
そろそろここは質問箱だということを思いだそう。
0369デフォルトの名無しさん2007/04/27(金) 15:28:36
そういえば Perl の質問がないなあ・・・。
0370デフォルトの名無しさん2007/04/27(金) 15:34:31
Chanto Gugure Internet de
0371デフォルトの名無しさん2007/04/27(金) 17:29:18
perlってグーグル八分されてるんだってね
0372デフォルトの名無しさん2007/04/27(金) 18:13:20
WindowsでDOSコマンドの結果を取り込むには、
どうすればよろしいでしょうか？例えば、
dir c:\trash
の結果を取り込もうとしても、次のスクリプトではうまくいきません。

$files = `dir c:\\trash`;
print "The files are $files\n";
0373デフォルトの名無しさん2007/04/27(金) 18:43:53
GW前に出された宿題で質問が増えるから大丈夫ｗ
0374デフォルトの名無しさん2007/04/27(金) 18:53:55
>372
手元だとそれでうまくいってるけど。
03753722007/04/27(金) 20:04:12
>>374
すみません。書き忘れていました。>>10にある先頭の5行を入れていました。
use utf8;
use open IO => ":encoding(cp932)";
binmode STDIN => ":encoding(cp932)";
binmode STDOUT => ":encoding(cp932)";
binmode STDERR => ":encoding(cp932)";

「use open IO => ":encoding(cp932)"; 」の行を削除して
次のように修正すると動きました。
use Encode;
$orgfiles = `dir c:\\trash`;
$files = decode('cp932', $orgfiles);
print "The files are $files\n";
0376デフォルトの名無しさん2007/04/27(金) 21:23:44
>>372

例によって cmd.exe /c dir ... じゃない?
0377デフォルトの名無しさん2007/04/27(金) 21:24:53
失礼、関係なかったのね。
0378デフォルトの名無しさん2007/04/27(金) 21:35:08
>371
記号が多いから、とか？
0379デフォルトの名無しさん2007/04/27(金) 22:21:10
>>378
うんにゃ、LWPのUAがはじかれる件でしょ？
0380デフォルトの名無しさん2007/04/27(金) 22:23:19
>>378
Perlで書かれたボットの多くがLWPのデフォルトUser-Agentをそのまま名乗って
おり、403を食らうようになった。当然だがUAを変えれば通れる。
0381デフォルトの名無しさん2007/04/27(金) 22:24:27
Google八分ってのは、Googleの検索結果に出なくなる話だから、
今回のそれとは違うよな。
0382デフォルトの名無しさん2007/04/27(金) 22:30:29
新しく覚えた言葉を使ってみたかっただけだろ
そう責めるな
0383デフォルトの名無しさん2007/04/28(土) 00:19:39
perlのモジュールって一気にアップデートできないの？
それとも使う奴だけ手動でアップデートさせるしか方法ない？
0384デフォルトの名無しさん2007/04/28(土) 00:39:19
>383
cpanシェルでupgrade
03853782007/04/28(土) 01:18:47
Perlに限らないけど、プログラミング言語の仕様として存在する演算子や記号は検索しづらいよなあ。
0386デフォルトの名無しさん2007/04/28(土) 03:22:17
不満を抱えるものが改善する。それが基本である。
0387デフォルトの名無しさん2007/04/28(土) 05:09:49
でもそれを誰かが改善したらPythonっぽい何かになるからPythonでいいよねｗ
0388デフォルトの名無しさん2007/04/28(土) 17:56:47
比較演算子は記号じゃなくて文字列にすりぁいいんだよな
Pealのeqとかみたいにさ
0389デフォルトの名無しさん2007/04/28(土) 19:26:07
>>380
なったと言っても数年前からだよ。
今頃騒いでるやつらはアンテナが低すぎると思ったのだった。
0390デフォルトの名無しさん2007/04/29(日) 01:57:47
struct {
　char len1;
　char word1[len1];
　char len2;
　char word2[len1];
　char len3;
　char word3[len1];
}

みたいな構造の可変長のバイナリなデータがあるんですが、
これをperlで綺麗でかっこよく展開する方法ってないですか？

今は下のようなことをしてるのですが、なんか見辛いし汚いので…

$data = "\4ABCD\3EFG\7HIJKLMN";

($len1,$data) = unpack("Ca*",$data);
($word1,$data) = unpack("a${len1}a*",$data);
($len2,$data) = unpack("Ca*",$data);
($word2,$data) = unpack("a${len2}a*",$data);
($len3,$data) = unpack("Ca*",$data);
($word3,$data) = unpack("a${len3}a*",$data);

print "$word1\n$word2\n$word3\n";
0391デフォルトの名無しさん2007/04/29(日) 03:40:49
少なくともループ構造にするべきだと思う
0392デフォルトの名無しさん2007/04/29(日) 04:06:37
>>390
perldoc -f pack して目を皿のようにして熟読せい。

The "/" template character allows packing and unpacking
of strings where the packed structure contains a byte
count followed by the string itself. You write
*length-item*"/"*string-item*.

0393デフォルトの名無しさん2007/04/29(日) 05:12:56
>>392
あああああ、そんなテンプレートがあったんですね。
日本語の5.6ベースのman見てたので気づきませんでした…
ありがとうございます。
0394デフォルトの名無しさん2007/04/30(月) 02:59:39
>>393
あ、すまん。
5.6からの拡張だと思ってたが、違ったか(393には問題ないみたいでよかった)。
0395デフォルトの名無しさん2007/05/01(火) 17:38:05
ファイル内の文字列を置換するスクリプトを書いているところなのですが、
「置換する」「置換しない」(飛ばす)「残り全て置換」「キャンセル」という
処理を行うにあたって、見つけた文字列を置換せずに飛ばして次を置換する
方法が思いつきません。置換しないテキストは適当な文字列に置換しておいて
最後に戻すという方法も考えたのですが、あまりスマートではないと思いまし
た。何かよい方法があったら、お知恵をお貸しください。

while($text =~ /($regexp)/) {
if($all == 0) {
$before = $1;
$after = $1;
$after =~ s/$regexp/$replace/m;
print "置換前:\n$before\n置換後:\n$after\n";
do {
print "置換する? [y]es [n]o [a]残り全て [g]キャンセル ";
$key = <STDIN>;
chomp($key);
} while ($key ne "y" and $key ne "n" and $key ne "a" and $key ne "g");
if($key eq "y"){
$text =~ s/$regexp/$replace/m;
}elsif($key eq "n"){
# ここをどうする？
}elsif($key eq "a"){
$text =~ s/$regexp/$replace/gm;
$all = 1;
}else{ exit; }
}elsif($all == 1) {
$text =~ s/$regexp/$replace/gm;
}
}
03963952007/05/01(火) 17:39:43
補足です。$textはファイルの内容、$regexpは置換前の文字列、$replaceは
置換後の文字列です。
0397デフォルトの名無しさん2007/05/01(火) 17:51:02
>>395
ヒント: posと\G

perl -e '$x = "aaaaaa"; pos($x) = 2; $x =~ s/\Ga/x/; print $x,"\n";'
aaxaaa
03983952007/05/01(火) 21:09:08
ありがとうございます、無事できました。コードはこのようになりました。(たぶん問題ないはず…)
$p = 0;
while($text =~ /\G(?:.*\n)*?.*?($regexp)/gm) {
$p = pos($text) - length($1);
pos($text) = $p;
if($all == 0) {
$before = $1;
$after = $1;
$after =~ s/$regexp/$replace/m;
print "置換前:\n$before\n置換後:\n$after\n";
do {
print "置換する? [y]es [n]o [a]残り全て [g]キャンセル ";
$key = <STDIN>; chomp($key);
} while ($key ne "y" and $key ne "n" and $key ne "a" and $key ne "g");
if($key eq "y"){
$text =~ s/\G$regexp/$replace/m;
pos($text) = $p + length($after);
}elsif($key eq "n"){
pos($text) = $p + length($before);
}elsif($key eq "a"){
$text =~ s/\G$regexp/$replace/gm;
$all = 1;
}else{
exit;
}
}elsif($all == 1) {
$text =~ s/\G$regexp/$replace/gm;
}
}
0399デフォルトの名無しさん2007/05/01(火) 21:31:38
\Gの使い方がおかしいような
最後の全置換は絶対うまくいかんだろ
0400デフォルトの名無しさん2007/05/01(火) 22:01:18
せっかく書いたんだからたぶんとかいってないで動かしてみるべきだな。
04013952007/05/01(火) 22:02:38
すみません、やっぱ問題がありました。置換位置\Gが正規表現に含まれている
と、置換される文字列に改行が含まれている際に、オプション"g"をつけても
複数置換してくれなくなってしまうのですが、どうすればいいんでしょうか。

perl -e '$text = "a\na\na"; $text =~ s/\Ga/b/gm; print "$text\n";'
結果:
b
a
a

perl -e '$text = "aaa"; $text =~ s/\Ga/b/gm; print "$text\n";'
結果:
bbb

perl -e '$text = "a\na\na"; $text =~ s/a/b/gm; print "$text\n";'
結果:
b
b
b
0402デフォルトの名無しさん2007/05/01(火) 22:23:56
\Gは置換文では使わないほうがいいよ。代入されるとposがリセットされてしまうから
あとを置換しながらposを保持することはできないのでコピーを作ることを考えてみては
自分ならこう書く

my $replaced_text;
pos $text = 0;

while (pos $text < length $text) {
　if ($text =~ m/\G $regexp/gcsx) {
　　# ここで入力による分岐処理を行う



　}
　elsif ($text =~ m/\G(.+?) (?=$regexp)/gcsx) {
　　$replaced_text .= $1;
　}
　else {
　　$text =~ m/\G (.*)/gcsx;
　　$replaced_text .= $1;
　}
　



0403デフォルトの名無しさん2007/05/01(火) 22:28:17
s///gが一種のループなのでこんな手もある。
my $mode;
$text =~ s{($regexp)}{
my $r;
if (!defined $mode) {
my $key;
do {
print "置換する? [y]es [n]o [a]残り全て [g]キャンセル ";
$key = <STDIN>;
chomp($key);
} while ( $key ne "y"
and $key ne "n"
and $key ne "a"
and $key ne "g" );
if ($key eq 'y') {
$r = $replace;
} elsif ($key eq 'n') {
$r = $1;
} elsif ($key eq 'a') {
$mode = 'a';
} else {
$mode = 'g';
}
}
if ($mode eq 'a') {
$r = $replace;
} elsif ($mode eq 'g') {
$r = $1;
}
$r;
}gme;
04043952007/05/01(火) 23:34:11
>>402-403
おお、これはすごい、正規表現でループができるんですね。
>>403の方法できれいなスクリプトになりました。ありがとうございます。
0405デフォルトの名無しさん2007/05/02(水) 03:13:40
CPANシェルについてなんですが、
インストールするごとに[1]とか[2]とか増えるのはなんなんでしょうか？
0406デフォルトの名無しさん2007/05/02(水) 03:44:02
>>405
現在実行したコマンドを識別するIDみたいなもの。
何に使ってるかまでは見てないけど。
ちなみに↓とやるとIDを変えてしまうこともできる。特に意味はない。
cpan[1]> ! $CPAN::CurrentCommandId = 100;
0407デフォルトの名無しさん2007/05/02(水) 05:56:50
>>406
レスありがとうございます。
そうなんですか。

なんか Bundle::CPAN をインストールしてからそうなったような気がしたので、
間違えたかと思いました。
そのような情報ってどこで得ているのでしょうか？
0408デフォルトの名無しさん2007/05/02(水) 09:35:32
モジュール（lib/CPAN.pm）のコードを読む。
0409デフォルトの名無しさん2007/05/02(水) 14:03:43
>>406
知らないけど、ヒストリ用では?

よくUNIX用のシェルであるんだけど、 ! の直後にその番号入れて
実行するとその番号のコマンドが動くんだよ。全く同じなら再入力
する必要がないの。(更に後ろに :s/// のようなのを付けて文字列
置換できたりもする。 !30:s/aa/bb/ みたいな。全てのシェルが
同じこと出来るかどうかは知らないが)。
0410デフォルトの名無しさん2007/05/02(水) 21:18:49
cpanpのメリットがイマイチわからん
0411デフォルトの名無しさん2007/05/02(水) 21:20:37
最近CPAN.pmがだいぶ進化したからCPANPLUS.pmの意義が相対的に薄くなったしねー
0412デフォルトの名無しさん2007/05/03(木) 06:35:39
awkは多少かじったのですが、perlはまるっきりの初心者です。どなたかお知恵を貸して下さい。
2つのファイル a.txt と b.txt を比較して、条件にあった行を抽出、出力するスクリプトを作りたいのです。

具体的には、
[a.txt]
ID, field1, field2
1, 5.8, 7.3
2, 6.3, 8.2
3, 3.2, 4.1
4, 4.8, 4.0
5, 8.3, 10.2

[b.txt]
ID, field1, field2
1, 6.8, 7.7
3, 4.3, 5.5
4, 5.9, 4.9

というファイルがあったとき、b.txt のIDに数値が存在する行だけを a.txt から抽出して a2.txt として保存したいのです。

[a2.txt]
ID, field1, field2
1, 5.8, 7.3
3, 3.2, 4.1
4, 4.8, 4.0

と言った具合にです。よろしくお願いします。
0413デフォルトの名無しさん2007/05/03(木) 07:47:00
#!/usr/bin/perl
use strict;
use warnings;
open my $a, '<', 'a.txt' or die;
open my $b, '<', 'b.txt' or die;
my %ids = map { $_ => 1 } map { (split /,/)[0] } <$b>;
while (<$a>) {
    my $id = (split /,/)[0];
    print if $ids{$id};
}
04144122007/05/03(木) 08:00:05
>>413さま
　早速のレス、ありがとうございます。助かりました。
　こんなに簡単にできちゃうんですね。しかし、私にはスクリプトの内容は不明...。解読して勉強させていただきます。
0415デフォルトの名無しさん2007/05/03(木) 13:36:22
use IO::File;

sub func {
my $file = shift(@_);
my $input = IO::File->new($file,"r") or die;
ごにょごにょ
　　・
　　・
}

$filename = （ディレクトリからファイルネームをとるロジック）;
&func($filename);

みたいに書くと、一番最初にいきなりファイルオープンのエラーが出ます。
その後、ファイルネームをとるロジックが走ってる模様…。
何故か解らないのですが原因解りますでしょうか。
0416デフォルトの名無しさん2007/05/03(木) 13:48:01
>>415
原因はわかりますよ。
あんたが、そう動くようにプログラムを作ったから。
04174152007/05/03(木) 13:53:53
>>416
早い回答ありがとうございます。
やっぱり自分が悪いんですね。
調べてみます。
04184152007/05/03(木) 14:26:25
うーんやっぱり解らない…。
サブルーチンが先に実行される事なんてあるのか…？
0419デフォルトの名無しさん2007/05/03(木) 14:50:10
>>415
まあエラーメッセージでも貼ってみ
04204152007/05/03(木) 15:05:12
>>419
そのようなファイルやディレクトリはありません at (何行目)
としか出ないんですが…。
0421デフォルトの名無しさん2007/05/03(木) 15:08:03
>>420
訳したりせずにそのまま貼れ
04224152007/05/03(木) 15:16:54
そのようなファイルやディレクトリはありません at test.pl line 32.

だけです。
CentOS4.4、perl5.8.5です。
04234152007/05/03(木) 15:30:01
フルパス指定してなかった…。

>>422さん、親身になってくれてありがとうございます。
くだらないミスで申し訳ありません。
本当にすみませんでした。
0424デフォルトの名無しさん2007/05/03(木) 15:40:40
>>423
s/422/421/g;
0425デフォルトの名無しさん2007/05/03(木) 15:47:38
突っ込みどころはいろいろあるけど、エラーメッセージは自分のためにも他人のためにもわかりやすくすべし。

my $fp_in = IO::File->new($filename, "<") or die qq(cannot open '$filename': $!);
04264152007/05/03(木) 16:07:57
>>425
了解です。ただ or die $!;だけしてました。
連休中にコメントありがとうございました。
0427デフォルトの名無しさん2007/05/05(土) 14:17:50
chompって何の略ですか？
0428デフォルトの名無しさん2007/05/05(土) 14:26:54
>>427
略じゃないよ。
噛み切るとかそんな感じ。
0429デフォルトの名無しさん2007/05/05(土) 14:41:24
chomp 【自動】 ～をムシャムシャ食う◆【同】champ
0430デフォルトの名無しさん2007/05/05(土) 14:43:41
へー。ありがとうございました。
0431デフォルトの名無しさん2007/05/05(土) 15:30:31
オブジェクト指向で書いていないので、巨大モジュールの分割がうまいこといかんのです＞＜
具体的には、親パッケージが子パッケージをuseしているとき、
子パッケージから親パッケージのサブルーチンを呼べません。

Giko.pm
[-------
　package Giko;
　use Giko::Mona;
　（omaemonaサブルーチンをEXPORTしている）
　sub omaemona { .... }
-------]

Giko/Mona.pm
[-------
package Giko::Mona;
-------]

となっていた場合、
Giko::Monaの中でomaemonaを呼ぶ方法は、Giko::omaemonaしかないでしょうか？
Giko::Monaでuse Gikoはできないし、use base 'Giko';は違うみたいですし。
0432デフォルトの名無しさん2007/05/05(土) 17:12:46
Encodeモジュールのfrom_toを用いて
「①」「②」や「Ⅰ」「Ⅱ」などを
sjis <-> euc-jp 変換すると文字化けしてしまいます。

回避するにはどうすればいいでしょうか？
0433デフォルトの名無しさん2007/05/05(土) 19:33:33
>>432
つEncode::EUCJPMSのcp51932
0434デフォルトの名無しさん2007/05/05(土) 20:32:56
それは拡張文字なので、 sjis じゃなく cp932 を指定。
0435デフォルトの名無しさん2007/05/05(土) 20:40:22
単純に分割するなら、全部同じ名前空間に展開すればいいんじゃない

Giko/Mona.pm
[-------
package Giko::Mona;
package Giko;
-------]
04364312007/05/06(日) 01:14:39
遅レスで申し訳ないです。
>>435
なるほど。
まとめると巨大ファイルになりがちで不安だったのですが、
今のところはまだなんとか1ファイルにまとめられそうなので、
同じファイルスコープで仲良く共存してみます。
ありがとうございました。
0437デフォルトの名無しさん2007/05/06(日) 17:12:14
例
　　　　( split /\//, $x )[0 .. bar];

リストの末尾要素を除いたリストを返す方法、知りませんか？
barをどう記述すりゃいいのやら。

Perl ならできそうな気がするんですが。思い当たりません。
検索してみたものの、それらしいものも見つけられません。
0438デフォルトの名無しさん2007/05/06(日) 17:31:22
( @hoge, undef ) = split //, $foo ;
じゃダメなの？
0439デフォルトの名無しさん2007/05/06(日) 17:43:01
>>437
尻尾だけ消すのじゃだめなの?
0440デフォルトの名無しさん2007/05/06(日) 17:44:40
最後から2番目の要素をひとつ抜き出すだけなら (～)[-1]
でいいんだけど、範囲演算子で(～)[0..-1]とは書けないんだよな。

配列変数なら@x[0..$#x-1]という書き方もあるが、リストでは$#xに
相当するものが書けない。

とりあえずおもいついたのはこれ。

sub{@_[0..$#_-1]}->(～)
0441デフォルトの名無しさん2007/05/06(日) 18:03:14
>>437
@list = split(/\/(?=.+\/)|\/.+$/, $x)

とかやってないで、全部入れてから$#list--すればいいんじゃね?
0442デフォルトの名無しさん2007/05/06(日) 18:31:19
>>429
首チョンパの略と思ってた
0443デフォルトの名無しさん2007/05/06(日) 18:38:52
まずchopありき。
やがてより安全なchomp生まれり。
0444デフォルトの名無しさん2007/05/06(日) 18:52:28
え…普通にpop関数じゃだめなの
0445デフォルトの名無しさん2007/05/06(日) 19:51:31
popの第１引数は左辺値つーかARRAYじゃないと×じゃ?
0446デフォルトの名無しさん2007/05/06(日) 20:19:01
splice @{[split /\//, $x]}, 0, -1 というのはどうだ
0447デフォルトの名無しさん2007/05/06(日) 20:35:56
ちょんぱ
0448デフォルトの名無しさん2007/05/06(日) 21:07:48
# 悪い例
(split /\//, $x)[0..(split /\//, $x)-2]
0449デフォルトの名無しさん2007/05/06(日) 21:21:14
>>448
scalar contextのsplitは@_を上書きしちゃうからねぇ。
0450デフォルトの名無しさん2007/05/06(日) 22:19:22
(split m{/})[0..(s{/}{/}g)-1]
0451デフォルトの名無しさん2007/05/07(月) 00:17:23
みんなよく頑張ったな。先生感心したぞ。

my $str = 'foo/bar/baz/quux';
sub p { printf ">>%d:[%s]\n", shift, join ',', @_ }

p(438, (my @arr, undef) = split m{/}, $str);
p(439, do { @arr = split m{/}, $str; pop @arr; join ',', @arr }); # & >>444-445
p(440, sub { @_[ 0 .. $#_ - 1 ] }->(split m{/}, $str));
p(441, split m{/(?=.+/)|/.+$}, $str);
p(446, splice @{[ split m{/}, $str ]}, 0, -1);
p(448, (split m{/}, $str)[ 0 .. (split m{/}, $str) - 2 ]);
p(450, (split m{/}, $str)[ 0 .. $str =~ tr|/|/| - 1 ]);
p(451, $str =~ m{(.+?)/}g);
0452デフォルトの名無しさん2007/05/07(月) 00:52:33
>>451
my $str = 'foo/bar/baz/quux';
を
my $str = '/foo/bar/baz/quux/';

にすると、いろいろ違いが出てくるね。
0453デフォルトの名無しさん2007/05/07(月) 00:58:21
>>451
重箱の隅つつき。

p(451 の行の正規表現。(.+?) ではなく(.*?) でなければ
split を用いた他の例と挙動が違うぞ。
$str = q{/foo/bar/baz/quux} で確かめろ。
04544372007/05/07(月) 01:10:11
多くのお返事ありがとうございました。

>440
単純な範囲演算子で記述できそうに思った私が考え足らずだったようです。
sub { @_[0 .. $#_ - 1] }->(split /\//, $x) は見た目にわかり易いですね。
いろいろ応用できそうだし。しかし、私は露とも思い至りませんでした。

>441
まぁ、そうなんですよね。

$file = "/usr/local/bin/bar"; # ファイル名が与えられて。。。
$fold = join "/", ～split /\//, $file を使った記述～; # フォルダ名を得る。

ここで余分に変数を使わず、可読性も損なわない方法がありそな気がしたもので。

>446
splice の第一引数はARRAYしかダメだと諦めてしまったのです。
リファレンスについて熟知すると、こんなやり方に気付くんですね。

自分の頭の硬さとリファレンスに対する理解の浅さを恥じて
精進したいと思います。
まず、>440 さんと >446 さんの方法、どっちを使うか悩みます。
0455デフォルトの名無しさん2007/05/07(月) 01:17:53
>>454
いいからFile::Specを使え。
0456デフォルトの名無しさん2007/05/07(月) 01:19:48
>>454
いや、可読性が低下するから、いったん配列に入れてからスライスした方がいいと思うぞ
上のは遊びなんだから
0457デフォルトの名無しさん2007/05/07(月) 02:28:37
こういうよくありそうな処理が案外スラっとかけないもんなんだね。
Dだと [0 .. $ - 1] でいけるんだが。
0458デフォルトの名無しさん2007/05/07(月) 05:57:16
>>456
しかし落ち着いて俯瞰すればこういう雑用の可読性を気にする時点でそのソース全体が残飯ですね。
0459デフォルトの名無しさん2007/05/07(月) 08:33:53
超初心者でふが良いですか？

標準のキーボードから入力を受け取ってどうやれば入力を反映させれるかわからないです･･･

#!/usr/local/bin/perl -w
require 'jcode.pl';
print"あなたはどれを使いますか？<br/>\n１：ドラゴン<br/>\n２：ゴーレム<br/>\n３：こねこ<br/>\n";
while(<>){
if($_=m/3/){print"これはこねこ"};
};

↑これでは３を入力するたびに、これはこねこって出てくるんですが、

#!/usr/local/bin/perl -w
require 'jcode.pl';
print"あなたはどれを使いますか？<br/>\n１：ドラゴン<br/>\n２：ゴーレム<br/>\n３：こねこ<br/>\n";
while(<>){
if($_=m/3/){print"これはこねこ";$kyara=3}
elsif($_=m/2/){print"これはゴーレム";$kyara=2};
};

これのelsif文が実行されないぽいんですがなんででふか？

頭硬くてすみません･･･
0460デフォルトの名無しさん2007/05/07(月) 09:30:09
> $_=m/3/
でなにをやっているのか良く考えてみ。
0461デフォルトの名無しさん2007/05/07(月) 11:52:54
>>460さん＞
$_=m/3/　の部分を$_==3　にすると、うまく行きました！

最初$_==3でエラーが出て、良くわからなくて正規表現にすればうまくいくかなとか思って$_=m/3/に直して、(他の部分も少し直して、)それで３の時うまくいったのでてっきり正解かと思いこんでました。

$_=m/3/を$_==3と同じ意味で使ったつもりだったけど、動作は違うんですね。
もうちょっと調べてきます。
ありがとうございました。
0462デフォルトの名無しさん2007/05/07(月) 12:40:19
うまくいきました！
正規表現、はじめてで意味もよく知らずに=m/3/とかしてたけど、=~/3/とするのが正しかったんですね（汗
==3にすると数字以外の時の入力で(変数は数字ではありませんみたいな)無駄なエラーが出たけど=~/3/ならそういう変なエラーも出ないみたいなので=~/3/を使うことにしました！
↓

$kyara=4;
while($kyara==4){
$_=<STDIN>;
if($_=~/3/){print"これはこねこ";$kyara=3}
elsif($_=~/2/){print"これはゴーレム";$kyara=2}
elsif($_=~/1/){print"これはドラゴン";$kyara=1};
};

もうちょっとがんばってきます！
0463連カキスマソ2007/05/07(月) 13:11:33
もうちょっとがんばってきました（滝汗
if($_=~/3/){処理１}
elsif($_=~/2/){処理２}
とすると、3でも23でも32でも先に$_=~/3/にマッチしてしまう(32なんかは$_=~/2/にマッチさせたい)ので、ちょっと修正しました。
↓

#!/usr/local/bin/perl -w
require 'jcode.pl';
print"あなたはどれを使いますか？<br/>\n１：ドラゴン<br/>\n２：ゴーレム<br/>\n３：こねこ<br/>\n";
$kyara=4;
while($kyara==4){
$_=<STDIN>;
if($_=~/3$/){print"あなたはお昼ね好きのこねこを選びました☆";$kyara=3}
elsif($_=~/2$/){print"あなたはお人よしのゴーレムを選びました☆";$kyara=2}
elsif($_=~/1$/){print"あなたは気の強いドラゴンを選びました☆";$kyara=1};
};
print "（番号＝）$kyara";

↑
これなら33111とかって入力でも3ではなく1のドラゴンとして判断してくれます☆

正規表現って便利ですね☆

>>460さん、アドバイス㌧クスでした！
0464デフォルトの名無しさん2007/05/07(月) 13:18:31
一つ攻略おめ
そこで更に便利な連想配列をどうぞ
0465デフォルトの名無しさん2007/05/07(月) 13:19:13
あっ、この場合だったら配列だけでいいのか
04664602007/05/07(月) 16:10:24
462

なんか前向きなやつだなw
どっかの知恵袋のとは大違いだ。

ちょっと補足しておくと、Perlの場合処理対象の
変数を省略できることが多い。
たとえば　$_　=~ /1/ なら　/1/とか。
$_ = m/1/ と書いちゃうと、マッチの結果を
$_ に代入と解釈されて前の値を壊しちゃう。
ほかにもいろいろあるが長くなるので書かない。
まあがんばれ。

0467デフォルトの名無しさん2007/05/07(月) 16:18:01
>>459のチラ裏日記は、他人が見ても役に立ちそうだな。続けてくれ。
0468デフォルトの名無しさん2007/05/07(月) 17:04:17
てか
$inkey = <STDIN>;
これで読み取ったときって改行コード入ってない？
そこらへんも気をつけたほうがいいかな
0469デフォルトの名無しさん2007/05/07(月) 17:27:02
XML::Parser::PerlSAX のエラーハンドリングについて、どなたかご存知でしたら教えてください。
Parse対象のXMLにエラーがあった場合に、ユーザー関数をコールバックさせようと考えています。

デフォルトだと
mismatched tag at line **, column **, byte ***, at
/user/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi/XML/Parser.pm
line 187

のように出力されてdieします。

0470デフォルトの名無しさん2007/05/07(月) 17:27:31
http://search.cpan.org/~kmacleod/libxml-perl-0.08/lib/XML/Parser/PerlSAX.pm

をみると、ParserがnewされるところでErrorHandlerに自分で作ったもの（例えばMyErrorHandler等）を指定すればよさそうなのですが、具体的になんという名前の関数を用意し、どのタイミングで呼び出されるかなど、よくわかりませんした。

すみませんが、どなたかお分かりでしたらアドバイスをください。
0471デフォルトの名無しさん2007/05/07(月) 18:14:52
使ったことないので分からんけど
ErrorHandlerに無名サブルーチンを渡しておけばパースに失敗したときにコールバックしてくれるんじゃないの？
0472デフォルトの名無しさん2007/05/07(月) 18:37:28
>>470
俺も使ったことないけど、フツーに考えて
$parser->{ErrorHandler}で例外をキャッチできるってことなんじゃなないの？
0473デフォルトの名無しさん2007/05/07(月) 18:59:18
>>466さん＆>>468さん＞
㌧クスです！参考にして少し書き換えました！

#!/usr/local/bin/perl -w
require 'jcode.pl';
print"あなたはどれを使いますか？<br/>\n１：ドラゴン<br/>\n２：ゴーレム<br/>\n３：こねこ<br/>\n";
while (<>){
if (/[1-3]$/) {chop;$kyara=chop;last;}
};

if($kyara==1){print"あなたはお昼寝好きのこねこを選びました☆"}
elsif($kyara==2){print"あなたはお人好しのゴーレムを選びました☆"}
elsif($kyara==3){print"あなたは強気なドラゴンを選びました☆"};

while (<>){};

こんな感じに☆

>>464さん＞
必要になってからがんがります☆(ｺﾗ
0474デフォルトの名無しさん2007/05/07(月) 19:00:38
あ、よく見たら、ドラゴンとこねこが逆(汗
0475デフォルトの名無しさん2007/05/07(月) 19:10:56
キメラは？キメラはいないの？
0476デフォルトの名無しさん2007/05/07(月) 19:14:49
１しか押さないだろこれは・・・
0477デフォルトの名無しさん2007/05/07(月) 19:27:33
>>475が「イサキは？」に見えた。
配列や printf を覚えて欲しくなるけど、楽しみながらコツコツやってそうでいいな。
0478デフォルトの名無しさん2007/05/07(月) 19:38:06
>>475
ああ、大きなキメラが入るよ。 今年一番の大幅改良だ。
0479デフォルトの名無しさん2007/05/07(月) 21:43:44
たった今Perlにprintfやsprintfがあることを知った。
俺は車輪を10も20も発明していたらしい。すばらしい！
0480デフォルトの名無しさん2007/05/07(月) 23:31:32
むしろ、どういうルートで習得していけば
そいつらと鉢合わせずに済むか、を考えるのが難しいかも。
04814732007/05/07(月) 23:32:46
質問してもいいでしょうか。。

print system("cls");
と書くと、ＰＣではちゃんと画面クリアしてくれるんですが、サーバにアップしたら画面クリアしてくれませんでした。
ブラウザの画面をクリアする方法って無いんでしょうか･･？

あと、サーバにアップしたら、

while (<>){
if (/[1-3]$/) {chop;$kyara=chop;last;}
};

という部分も全て無視されました。
たぶん、while(<>)の部分がサーバでは無視されてしまってるんだと思うんですが、
どうすれば良いですか？
ＨＴＭＬでフォームを表示させてそこから入力させるしか無いのでしょうか？
0482デフォルトの名無しさん2007/05/08(火) 00:03:55
clsはWinのコマンドだし (一応リンクは張ってはあるらしいが・・・)、
そもそも 「コンソールとブラウザの挙動を勉強してください」 としかいえない


ブラウザに対して print ""; でえぇんとちゃうのんかと


STDIN になんもデータ無いからあたりまえです
0483デフォルトの名無しさん2007/05/08(火) 01:16:20
これはどう見ても新手の荒らし
0484デフォルトの名無しさん2007/05/08(火) 02:59:42
>>481
荒らし以前に板違い。>>1 嫁
0485デフォルトの名無しさん2007/05/08(火) 05:32:43
すみません。
CGI以外の純粋なperlのみって書いてありますね。
気をつけます。

>>482
なんとなく理解しました。
clsをclearとしても無理だったので普通にﾌｫｰﾑからの入力にします。

ご迷惑かけてすみませんでしたm(__)m
0486デフォルトの名無しさん2007/05/08(火) 09:09:04
>>478
「大幅改良っ！！キメラぁぁ！！おにいちゃんかっこいいいいぃぃぃい　ぃくううううう！」
0487デフォルトの名無しさん2007/05/09(水) 14:52:59
>>481
JavaScript 埋め込んでクリアすれば良いんじゃない?
0488デフォルトの名無しさん2007/05/10(木) 13:07:53
すみません、
・ローカル変数の一覧を取得する方法
・ハッシュの内容をローカル変数に一括して設定する機能（PHPのextract()関数に相当する機能）
があれば教えてください。
0489デフォルトの名無しさん2007/05/10(木) 13:32:01
>>488
use Dumpvalue とか。

hashの展開はこんなんでいけるだろ。
while (($key, $value) = each %hash) {
eval("\$$key = \$value");
}
ただし任意のキーが使われる場合はexploitになるんで別の方法で。
0490デフォルトの名無しさん2007/05/10(木) 13:56:22
デバッガでも作ろうというのでなければハッシュのまま使ったほうが
いいと思うよ。たぶんろくなことにならない。
0491デフォルトの名無しさん2007/05/10(木) 14:20:02
cpanなしでHTML::Entitiesをインストールする方法を教えていただけませんか。
「Perl "HTML::Entities" インストール」でぐぐってもヒットせず困ってます。
0492デフォルトの名無しさん2007/05/10(木) 14:58:35
>>491
OSは？
0493デフォルトの名無しさん2007/05/10(木) 15:06:48
ActivePerl(Win)だと初めから入ってるし、Unix系で「CPANなしで」ってのも
ピンと来ないし何だろう。「レン鯖で使いたい」なのかな。
04944912007/05/10(木) 15:50:52
>>492
Linuxです。Perl5.8。
>>493
その通り、海外のレンタルサーバーです。
ただ今はロ－カルのMacでやってるんで、CPANにトライしてみたんですが、最初にいろいろ英語できいてきて、適当に答えてたら設定がおかしくなったのか、
cpan install HTML::Entities
がfetchできないとかでインストールできませんでした。
CPANむずい・・・
0495デフォルトの名無しさん2007/05/10(木) 16:01:10
>>494
要するに、ロ－カルのMacにインストールできずに
> CPANむずい・・・
と言ってるわけだ。

こんなこと言っている人がCPANなしでレンタルサーバにインストール
しようってわけね。考えるだけ時間の無駄というものでしょう。
0496デフォルトの名無しさん2007/05/10(木) 16:04:37
>>491
READMEに書いてあるじゃん
0497デフォルトの名無しさん2007/05/10(木) 16:18:17
HTML-Parser-*.tar.gz ひろってきて展開して
perl Makefile.PL && make && make install
だけどcpanの英語がわからんとか言ってるレベルじゃもっと無理じゃね？
04984912007/05/10(木) 18:34:51
>>497
HTML::EntitiesはHTML::Parserの一部ということでしょうか。
試しにHTML::Parserをインストールしてみると・・・たしかにHTML::Entitiesも印ストールされました。
貴重なヒントをありがとうございました。
＃こんな情報どこにあるんですか。http://www.xav.com/perl/site/lib/HTML/Entities.html とか見ても書いてないし。

ちなみにHTML::ParserはMacPortsをつかって
sudo port install p5-html-parser
でいけました。CPANは難しくて分からなかった人でもMacPortsなら楽勝！MacPorts万歳！
0499デフォルトの名無しさん2007/05/10(木) 18:37:45
そ、それはよかった
0500デフォルトの名無しさん2007/05/10(木) 19:02:37
>>498
http://search.cpan.org/dist/HTML-Parser/lib/HTML/Entities.pm
0501デフォルトの名無しさん2007/05/10(木) 19:08:36
>>498
http://search.cpan.org/ をブックマークしておくといいね。
0502デフォルトの名無しさん2007/05/10(木) 19:08:43
>>498
cpanモジュールなんだからcpanで調べろよ。

search.cpan.orgでHTML::Entitiesをサーチすれば一番上に出てくる

ttp://search.cpan.org/~gaas/HTML-Parser-3.56/lib/HTML/Entities.pm

を見れば一発でわかるだろ。
0503デフォルトの名無しさん2007/05/10(木) 22:17:13
Tkを使用して、GUIアプリを作成しています。

大きく二つのフレームから構成しています。
１．左フレーム
２．右フレーム

この二つのフレームにそれぞれScrollbarを設けたいのですが、
Frameウィジェットには何故か-yscrollbarオプション等が無く
Scrollbarウィジェットを動作させることができません。
Scrolledで強引に取り付けると、レイアウトがおかしくなります。
どうおかしくなるかというと、

１．Frame内部のウィジェットの配置が決まらない
（HTMLでいう、alignやvalignが効かない）
２．そもそも、実行時にワーニングのような表示が出る（実行はできる）

１．に関しては、スクロールバーを外せば正常に（期待通りに）配置されます。


Tkを使用される方は、こういうフレーム分けしたレイアウトで、
かつ各フレームにスクロールバーを表示させたい場合、どのような
ウィジェットの使い方をされるのか、教えていただけないでしょうか。
0504デフォルトの名無しさん2007/05/10(木) 22:51:49
Paneというものを見つけました。
Tk::Pane provides a scrollable frame widget.
Once created it can be treated as a frame, except it is scrollable.

自己解決です。
スレ汚し申し訳ありません。
0505デフォルトの名無しさん2007/05/10(木) 23:08:52
Tkのことは分からんけど、そういうときはコンテナにしたフレームの中に
それぞれウィジェットを作って、その中で更にスクロールバーを設けるんでないかい
0506デフォルトの名無しさん2007/05/10(木) 23:09:22
ずこー
リロードしときゃよかった
0507デフォルトの名無しさん2007/05/11(金) 02:34:36
($1, $2, $3, $4 ...)
に相当するような配列の表現はありますか?
0508デフォルトの名無しさん2007/05/11(金) 02:56:54
もっと詳しく
できるならやろうと思ってることも
0509デフォルトの名無しさん2007/05/11(金) 03:40:44
($name, $age, $sex) = ($1, $2, $3);
みたいな部分を、
($name, $age, $sex) = @foo;
とかで済ませられないかと
0510デフォルトの名無しさん2007/05/11(金) 05:02:32
これじゃ駄目？

my $str = 'name=名前,age=年齢,sex=性別';
my ($name, $age, $sex) = $str =~ /name=(.*),age=(.*),sex=(.*)/;

正規表現がアホなのは見逃して。
0511デフォルトの名無しさん2007/05/11(金) 08:22:51
おお
パターンマッチってリストで評価するとそれが返ってくるんだ
よくできてるなあ

でも、
my ($name, $age, $sex) = $str =~ /name=(.*),age=(.*),sex=(.*)/ || next;
という使い方はさすがに無理だった
0512デフォルトの名無しさん2007/05/11(金) 09:18:49
>>511
ヒントは演算子の優先順位

(my ($name, $age, $sex) = $str =~ /name=(.*),age=(.*),sex=(.*)/) || next;

または

my ($name, $age, $sex) = $str =~ /name=(.*),age=(.*),sex=(.*)/ or next;
0513デフォルトの名無しさん2007/05/11(金) 09:34:40
括弧の方にします

普通にパターンマッチをスカラーで評価した時は、
マッチしたかどうかを返すのに対して、
パターンマッチのリストでの評価の代入の評価は、
リストの要素数だから、動作は同じでも意味は違いますよね
0514デフォルトの名無しさん2007/05/11(金) 09:47:23
从*・ 。.・）＜SEXよりかはGENDERまたはGENの方がいいかなと思うの
0515デフォルトの名無しさん2007/05/11(金) 11:34:00
ふつう、sex。
0516デフォルトの名無しさん2007/05/11(金) 11:37:09
>>514
入会申込書とかの該当欄に「週２回」って書いたたちか？
0517デフォルトの名無しさん2007/05/11(金) 11:54:30
なにそのゆとりんぐ回答
0518Aransk2007/05/11(金) 13:09:15
>509
何かこちらが勘違いしていたら、ゴメン。
でも、
my @foo=qw(joe 25 male);
my ($name, $age, $sex) = @foo;
print $name,"\n";
print $age,"\n";
print $sex,"\n";
って普通に出来るけど？
0519デフォルトの名無しさん2007/05/11(金) 13:12:30
じゃなくて、マッチングの結果のリストの表現方法のことです
0520デフォルトの名無しさん2007/05/11(金) 13:19:37
ここまで回答出て勘違いするってどういうことだよｗ
0521デフォルトの名無しさん2007/05/11(金) 17:13:50
>>511
木の実の問題だが、next / last を絡めると途端に可読性が低くなる
気がする。next を絡める予定なら普通に

next if $str !~ /name=(.*),age=(.*),sex=(.*)/ ;
my ($name, $age, $sex) = ( $1, $2, $3 );

でいいじゃんと遅レス。
0522デフォルトの名無しさん2007/05/11(金) 17:41:10
質問です。
Webで拾った以下の数値切り上げ関数を使用しています。
----------------------------------------
$one = ceil(19.1); # $one = 20

sub ceil {
my $var = shift;
my $a = 0;
$a = 1 if($var > 0 and $var != int($var));
return int($var + $a);
}
----------------------------------------

しかし、このceil関数に、(4.4 * 6000)という数値（26400）を引数として計算すると、26401が帰ってきます。
perl -e 'print sprintf("%.50f", (4.4 * 6000));';
を実行すると、
26400.00000000000363797880709171295166015625000000000000
という結果が返ってきました。

これを回避して、期待したとおりの切り上げ結果を返すにはどうすればいいでしょうか？
0523デフォルトの名無しさん2007/05/11(金) 17:54:28
なにを期待してるんだ？
そのceil関数は整数じゃなければ1足すってだけだろ
0524デフォルトの名無しさん2007/05/11(金) 17:56:06
>>522
丸め誤差でググっとけ。

perl -e 'print sprintf("%.50f", int((4.4 * 6000) * 1e6) / 1e6);'
0525デフォルトの名無しさん2007/05/11(金) 18:02:20
丸めには銀行方式が絡むか絡まないかがあるから気をつけろ
銀行の丸めは１桁が偶数のときに小数点以下があれば繰り上げだったっけ？
詳細忘れた
0526デフォルトの名無しさん2007/05/11(金) 18:05:36
銀行は四捨六入で0.5のときは一の位を見て切上げか切捨てを行う。
今回は全く関係ない。
0527デフォルトの名無しさん2007/05/11(金) 18:27:48
まず「期待したとおりの切り上げ結果」ってのがわからんのだが。
0528デフォルトの名無しさん2007/05/11(金) 18:34:21
>>522
> これを回避して、期待したとおりの切り上げ結果を返すにはどうすればいいでしょうか？

そんなどこの馬の骨ともわからないサブルーチンを使わずに、CPANで
Math-RoundとかMath-Round-Varとか拾ってきて見てみる。

実地の科学技術計算で使われている、充分な仕様のものがあるはず。
0529デフォルトの名無しさん2007/05/11(金) 19:10:59
付け焼刃的だが
$a = 1 if($var > 0 and $var != int($var));
ここの後半の比較式を
int($var) != int($var+0.9999･･･)
にするとか
0530デフォルトの名無しさん2007/05/11(金) 20:54:42
CPANに落ちてるのも作者が有名人なのを除くと
どこの馬の骨かわからないきがしなくもない

0531デフォルトの名無しさん2007/05/11(金) 21:10:46
>>530
有名な馬の骨もいるから気をつけな。
0532デフォルトの名無しさん2007/05/11(金) 21:20:42
麻雀の丸めは四捨六入
0533デフォルトの名無しさん2007/05/11(金) 21:24:12
>>521
現状はまさにそんな感じなんだけど、
($1, $2, $3) っていちいち書くのがなんか気持ち悪くて
どうせ内部で持ってそうなデータなのに
というのが質問の発端
0534デフォルトの名無しさん2007/05/11(金) 21:25:39
そういえばINT関数って、負の数について、
数直線の右に丸めるか左に丸めるかが
言語によって違うよね
0535デフォルトの名無しさん2007/05/11(金) 21:26:44
それで？
0536デフォルトの名無しさん2007/05/11(金) 22:07:13
あるフォルダ内のファイル（個数や名前は分からない）を一つずつ読んでいくにはどうしたいいでしょうか？
0537デフォルトの名無しさん2007/05/11(金) 22:10:48
ディレクトリを読んで、ファイル名を配列に入れて、
ループで回したら？
0538デフォルトの名無しさん2007/05/11(金) 22:13:24
>>536
use File::Slurp;

してread_dir
0539デフォルトの名無しさん2007/05/11(金) 22:13:51
opendir して、リストに対して readdir するか、readdir を while の中でぶん回して下さい
で、処理後は closedir で後始末を。

サブディレクトリも探したいなら再帰でググればヒントは見つかるかと思います
0540デフォルトの名無しさん2007/05/11(金) 22:16:59
実は glob で>>537の1行めまで片づく要件なのかもしれない。
0541デフォルトの名無しさん2007/05/11(金) 22:25:07
リストに入れないで済むならぶん回した方がいい
05425362007/05/11(金) 23:47:01
皆さんありがとうございました。
readdirをwhileでぶん回す方法でやってみます
0543デフォルトの名無しさん2007/05/12(土) 00:51:52
サブディレクトリまで検索するならFile::Findを使うのが簡単。
Unixのfindを使ったことがあるならfind2perlでPerlのコードを生成できるよ。

File::Find
http://search.cpan.org/~nwclark/perl-5.8.8/lib/File/Find.pm
0544デフォルトの名無しさん2007/05/12(土) 02:54:05
深さのある配列を左から順番に呼んでフラットな配列を作りたいんですが、
よい方法ご存知の方いませんか
@a = ([1,2,3], [4,5,6], [[7,8],[9,0]]);
@b = flatten(@a); # 1,2,3,4,5,6,7,8,9,0
0545デフォルトの名無しさん2007/05/12(土) 02:58:46
nkfと似たような動作するプログラムってPerlについてなかったっけ？
0546デフォルトの名無しさん2007/05/12(土) 03:16:52
>>544
sub flatten(@) { map { ref $_ eq "ARRAY" ? flatten(@$_) : $_ } @_ }

こんなんどうよ。
0547デフォルトの名無しさん2007/05/12(土) 03:25:10
回答しようとして>>546とほぼ同じ定義を書いていたが、
うごかなくて悩んでた。

eqじゃなくて==を使っていたぜorz
05485442007/05/12(土) 03:50:18
>>546-547
おお、ありがとうございます。
再帰を使うと意外とすっきり書けるもんですね。
頭が硬直化して思いつきませんでした。
ありがたく使わせていただきます。
0549デフォルトの名無しさん2007/05/12(土) 04:16:20
ActivePerlの時は、File::Findは使わずに自前で書いた方がいいよ。
パスのダメ文字が不完全だから、想定外の動作をする。
0550デフォルトの名無しさん2007/05/12(土) 04:17:18
×パスのダメ文字が不完全だから
○パスのダメ文字への対応が不完全だから
0551デフォルトの名無しさん2007/05/13(日) 02:20:04
例えば「__LINE__ ってどういう意味だったかな？」とかと思ったとき
それをperldocで調べようとすると、どういう風にコマンド叩けばいい？
そういう調べものにはperldocは向かない？
0552デフォルトの名無しさん2007/05/13(日) 03:04:18
podのディレクトリに移動してgrep
0553デフォルトの名無しさん2007/05/13(日) 12:02:01
$perldoc perl
して
Reference Manualのカテゴリーからあたりを見つけられるぐらいには慣れておいても損はないかも
0554デフォルトの名無しさん2007/05/13(日) 14:26:50
my $obj = new Foo::Bar::Baz($arg);
というコードで、クラス名を動的に指定するにはどうしたらいいですか。
$klass = 'Foo::Bar::Baz';
my $obj = eval "new $klass(¥$arg)";
$@ and die($@);
のようにevalを使うしかないのでしょうか。なんかもっとスマートな方法があるような気がします。
0555デフォルトの名無しさんNGNG?PLT(13092)
newする時にevalしなくてもおｋ
むしろパッケージが別ファイルならロード時にevalしる

my $class = "Foo::Bar";
eval "require $class;"
die $@ if $@;
$class->new;

イマドキはUNIVERSAL::requireなんでしょうけど
0556デフォルトの名無しさん2007/05/13(日) 16:45:48
普通に、こんなんでいいでしょ。
----
package Foo::Bar::Baz;
sub new{ bless [] }
sub qux{ print "qux!!" }

package main;
eval{
my $klass = "Foo::Bar::Baz";
my $obj = new $klass;
$obj->qux;
};
0557デフォルトの名無しさん2007/05/13(日) 16:49:53
eval EXPR はインジェクションの可能性があるからなるだけ使わんほうがよいね。
0558デフォルトの名無しさん2007/05/13(日) 19:08:29
>>557
この一連のコードで具体的にどうやって？ｗ
0559デフォルトの名無しさん2007/05/13(日) 19:20:02
そりゃサンプルコードなんだから汚染された文字列が紛れ込む分けなかろう
0560デフォルトの名無しさん2007/05/13(日) 19:59:57
やはり妄想で危険を煽っただけか。その妄想を極めればプールに入っただけで受精するとか言い出す外基地になれるよ。
0561デフォルトの名無しさん2007/05/13(日) 20:49:22
もうゴールデンウィークはおわったよ？
0562デフォルトの名無しさん2007/05/14(月) 06:21:05
影さん「evalがあればどんなプログラムでも書けるぜ！」
0563デフォルトの名無しさん2007/05/14(月) 13:44:05
文字列eval使わなくてもいいところで使うのはあんまり美しくないと思うけどな。
>>555のも eval { require $class }; のほうが綺麗だと俺は思う。
0564デフォルトの名無しさん2007/05/14(月) 15:48:00
NET::POP3とMIME::Parserを使ってメールの送信元で振り分けて処理をするプログラムを
作りたいんだけど、headのfromってメルアドが入ってなかったりしてどこをみたらいいかわかりません。
送信元メルアドを参照するにはどこをみたらいいんでしょうか？
0565デフォルトの名無しさん2007/05/14(月) 17:44:40
>>564
rfc2822を読め
0566デフォルトの名無しさん2007/05/15(火) 00:07:34
>>563
それを実行したことある？
0567デフォルトの名無しさん2007/05/15(火) 10:45:02
>>565
それじゃ何の答えにもなってないだろ馬鹿

>>564
ヘッダに送信元が正しく入っているかは保証されてないから入ってないときは取りようがないよ
0568デフォルトの名無しさん2007/05/15(火) 11:15:16
>>565
これからは全ての質問に「仕様書読め」「解説書読め」で解決していくんですか？
0569デフォルトの名無しさん2007/05/15(火) 11:26:10
Perlの質問じゃなくてメールの仕様に関する質問だからしゃあないのでは。
確かに不親切だけどね・・・
0570デフォルトの名無しさん2007/05/15(火) 13:35:28
>>568
なぜそうしたいの?
0571デフォルトの名無しさん2007/05/15(火) 14:19:50
570は小学校の国語をやり直した方がいいと思うの
0572デフォルトの名無しさん2007/05/15(火) 14:34:27
いま算数やってるの
0573デフォルトの名無しさん2007/05/15(火) 14:38:52
>>565 にレスしてる奴って全部 >>564 の自演だろ。
メールの仕様に関してはスレ違い。
0574デフォルトの名無しさん2007/05/15(火) 14:45:29
おお、帰ってきた。>>565が黄泉の国から帰ってきた。
0575デフォルトの名無しさん2007/05/15(火) 15:22:10
>>573
なんで>>564に>>567が自分で回答すんだよｗ
まあみんなやさしめに行こうよ。
0576デフォルトの名無しさん2007/05/15(火) 15:37:37
英語こわいからﾔﾀﾞﾔﾀﾞ
だからRFCなんか読むのもﾔﾀﾞﾔﾀﾞ
0577デフォルトの名無しさん2007/05/15(火) 15:51:24
もしかして「RFC」という文字列が荒しを板中から集めてる?
0578デフォルトの名無しさん2007/05/15(火) 15:55:46
全然荒れてねえだろｗｗｗ
0579デフォルトの名無しさん2007/05/15(火) 16:17:56
>>565は、ＲＦＣを読んだことがあるのを自慢したいだけ。
0580デフォルトの名無しさん2007/05/15(火) 16:19:50
自慢てｗｗｗゆとり乙ｗｗｗ
0581デフォルトの名無しさん2007/05/15(火) 16:52:34
>>575
他人を装って自分を擁護するのって結構あるからな。
別に珍しくもないから、一応そう書いただけ。
0582デフォルトの名無しさん2007/05/15(火) 17:18:06
標準規格の類を挙げると必ず変な流れになるな。
0583デフォルトの名無しさん2007/05/15(火) 17:28:10
めんどくせぇから書きたいように書けよ
0584デフォルトの名無しさん2007/05/15(火) 21:53:54
昼間子供が書き散らしたようだな
0585デフォルトの名無しさん2007/05/15(火) 22:52:22
>>584
やっと起きたか、ひきこもり君
0586デフォルトの名無しさん2007/05/15(火) 23:36:02
どこを読めばわかるよってのも教え方の一つだと思うんだ
0587デフォルトの名無しさん2007/05/16(水) 00:07:36
>>579
RFCを読んだことが自慢になると思っている時点で(ry

>>586
ざっとでも一通り目を通しておかないと他の部分の実装ですぐに詰まってまたスレ違いの質問してくるでしょ。
スタンドアローンアプリなら好きなように実装汁だけど
そもそもネットワークアプリは相互に協調するものなんだから
「とりあえず動いている」「自分だけよければいい」という存在は迷惑だろ。
0588デフォルトの名無しさん2007/05/16(水) 00:17:48
どうせただのメールフィルタなんだからどうだってかまわんだろう
0589デフォルトの名無しさん2007/05/16(水) 05:26:48
まぁ、仕様書は基本としても、それを守ってない場合も多々あるわけでｗ
0590デフォルトの名無しさん2007/05/16(水) 07:24:45
そうそう、RFC読まなくていい言い訳は
探せば結構見つかるよねｗ
0591デフォルトの名無しさん2007/05/16(水) 10:32:13
でもまぁ読むのだるいじゃん。
遠回りすぎるし。
必要だとは思うが。
0592デフォルトの名無しさん2007/05/16(水) 13:12:16
104で電話番号聞いたら電話帳読めって返すようなもんだもんな
0593デフォルトの名無しさん2007/05/16(水) 13:14:50
>>592
違うだろ。携帯販売店にどっかの会社の電話番号を聞くようなもん。
んなもん、104で聞け、つまりスレ違いだ。
0594デフォルトの名無しさん2007/05/16(水) 13:24:53
ここを104番に例えられると認識している人間がいるのも怖ろしいな。
0595デフォルトの名無しさん2007/05/16(水) 14:02:54
交番で道を尋ねたら「地図を見れ」ってのがしっくりくる
0596デフォルトの名無しさん2007/05/16(水) 14:18:25
104や交番は仕事だけど、ここはただの掲示板だ
0597デフォルトの名無しさん2007/05/16(水) 14:58:15
道に迷っている人に通りすがりの人が「地図板はあそこにある」と言ったら、
別の通りすがりの人が食ってかかっているわけか。
「地図の見方を知ってるのを自慢したいだけ!!」と叫びながら。
0598デフォルトの名無しさん2007/05/16(水) 15:44:27
質問させて下さい

[初めてのPerl 3版]という本を読みながら勉強しているのですが、
3章の練習問題をしていて疑問に思いました。
@list = qw/ a b c d /;
print @list . "\n"; #こうすると、リストの個数が表示される。
print @list; #こうすると、リストの内容が表示される。
print @list , "\n"; #こうすると、リストの内容が表示される。

上記のように、3つの記述ほうほうで内容が変わってきます。
私が疑問に思ったのは、どうして"."で連結すると、リストの個数が
表示されるのでしょうか? また、","が急に出てきたのですが、どう
いった意味があるのでしょうか?

すみませんが、宜しくお願いします。

0599デフォルトの名無しさん2007/05/16(水) 15:51:33
>>565が暴れてます
0600デフォルトの名無しさん2007/05/16(水) 15:59:25
義務ってわけじゃないだろうけど質問スレなんだから質問に答えたくない奴は
スルーすればいいだけなんじゃねーの？
それをわざわざ嫌味ったらしく書き込むから多いから荒れるんだよ。
黙ってろよ。
0601デフォルトの名無しさん2007/05/16(水) 16:15:12
>>598

print @list . "\n";
まず、配列(ここでいう@listね)をprintすると配列の中身をすべて出力するのね。
それで↑は、@listと\nをつなげてひとつの文字列としてる。
配列はスカラ参照するとその要素数を返すから、「配列の要素数+改行」というひとつの文字列として出力される。

print @list;
これは上で言ったとおりそのまま配列の中身をぶちまける。

print @list , "\n";
printは出力対象をカンマで区切って複数指定できるのね。
だから、↑の場合は一つ目の例と違って@listと\nは別物として並列に並んでるのね。
print @list;
print "\n";
と同じというわけ。
だから配列の中身+改行となる。
0602デフォルトの名無しさん2007/05/16(水) 16:18:22
>>600
逆だろ。「RFCを読め」という回答があっという間に返ってきたのに、
それを気に入らなかった奴が騒いでいる。わざわざ嫌味ったらしくね。
黙っていればいいのにね。
06035982007/05/16(水) 16:32:22
>>601
スカラーとして参照されたから、要素数を返したんですね。
詳しく説明していただけたおかげで、理解できたと思います。

ありがとうございました。
0604デフォルトの名無しさん2007/05/16(水) 16:36:58
>>601
部外者だが俺も勉強になった。ありがとう。
0605デフォルトの名無しさん2007/05/16(水) 17:27:58
>>567と>>568が発端になっているわけか。

まあみなさん、不足だと思ったら、攻撃しないで補うということで。
0606デフォルトの名無しさん2007/05/16(水) 19:05:20
ボク今夜寝る時、ママにRFC読んでもらうんだ。
0607デフォルトの名無しさん2007/05/16(水) 19:07:15
ﾌｰﾝ
0608デフォルトの名無しさん2007/05/16(水) 19:33:23
⊂二二二（ ＾ω＾）二⊃ ﾌｰﾝ
0609デフォルトの名無しさん2007/05/16(水) 19:43:17
まぁ優しい俺が貼ってやるよ
ttp://www5d.biglobe.ne.jp/~stssk/rfcjlist.html
え、みんなこれ全部読んだの？？
0610デフォルトの名無しさん2007/05/16(水) 19:48:27
荒らしてるのはいつも質問者
これ、豆知識な
0611デフォルトの名無しさん2007/05/16(水) 19:57:54
そうなの？
0612デフォルトの名無しさん2007/05/16(水) 20:17:47
そういえば質問者のフォロー全然ないな
0613デフォルトの名無しさん2007/05/16(水) 21:26:11
暴れ杉だろう・・・
業務で使うときでも読まないのかだぜ？
0614デフォルトの名無しさん2007/05/16(水) 21:34:58
さらに優しい俺が、>>565が指摘した該当文書を>>609から晒す

http://www.puni.net/~mimori/rfc/rfc2822.txt

次の人：
　上の文章からFromの仕様が書いてある文章を見つけ、行番号等の場所を報告

さらに次の人：
　的確に抜粋して、ここに書く

以上で当スレのミッションは終了となる。
0615デフォルトの名無しさん2007/05/16(水) 21:51:39
そーいや、番号がすぐ出てくるRFCって822(2822)と1149くらいだな、俺。
0616デフォルトの名無しさん2007/05/17(木) 00:28:17
>>565は、rfc2822読むのをやめへんでぇ～
0617デフォルトの名無しさん2007/05/17(木) 02:12:42
ＲＦＣ自重
0618デフォルトの名無しさん2007/05/17(木) 04:34:55
CRC556
0619デフォルトの名無しさん2007/05/17(木) 07:08:02
そろそろスレ違いで引っ張るの止めないか？…
RFC 読もうが読ままいが、perl についての質問に該当しなかった訳だし
RTFM ってのは最低限わきまえとく事だし
（ようするに俺も RFC 嫁よって思ってる訳だけど）
0620デフォルトの名無しさん2007/05/17(木) 10:16:00
　　　. ＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　|　ｉ┬┬┬┬┬┬┬┬┬┬┬┬┬ｉ　|
　　　|　|┼ ,r-l^i ‐┼y'⌒~}ｰ┼y'⌒~}ｰ┼|　|
　　　|　|┼と::_;;;:_｝┼じ;_;:;ナ┼ヽ;:;:: :;;:;:;)┼|　|
　　　|　|┼┼┼┼┼┼┼┼┼┼┼┼┼|　|
　　　|　|┼f_:::_:;;;り┼｛:;;;::_;;う┼( ;;:;:;:"")┼|　|
　　　|　|┼く:;;;_:;;Jｰ|ｰじ;_;:;ナ┼f_::_::;;;;り┼|　|
　　　|　|┼┼┼┼┼┼┼┼┼┼┼┼┼|　|
　　　|　￣￣￣￣￣￣￣￣￣￣￣￣￣ 　.|
　　　 ￣￣￣￣￣￣￣￣￣￣￣￣￣￣

とりあえず焼肉でも食って落ち着こうぜ
0621デフォルトの名無しさん2007/05/17(木) 10:40:54
>>609
小説を読むわけじゃないんだから、必要なときに必要な箇所を読むんだよ。
0622デフォルトの名無しさん2007/05/17(木) 19:06:20
つうか今回の事でRFCが頭に入ったｗｗ
0623デフォルトの名無しさん2007/05/17(木) 20:59:23
パッケージの名前は「foo」のような小文字にするのか、それとも「Foo」のように
大文字で始めるのか、どちらがいいのでしょうか。
perl5.8.8のライブラリを見るとどちらもあるのですが、Perlの流儀だとどのような命名規則がいいのでしょうか。
0624デフォルトの名無しさん2007/05/17(木) 21:24:06
>623
foo みたいに小文字で始まってるのは pragma 扱いだと思う。
0625デフォルトの名無しさん2007/05/17(木) 21:28:28
根拠見っけてきた。

perldoc perlmodlib より
>Package/Module names are an exception to this rule. Perl informally
>reserves lowercase module names for 'pragma' modules like integer
>and strict. Other modules normally begin with a capital letter and
>use mixed case with no underscores (need to be short and portable).
0626デフォルトの名無しさん2007/05/17(木) 23:08:09
pragmaが何かわかりませんが、とりあえず自作のパッケージは大文字で始めるのがいいということでしょうか。
どうもありがとうございます。
0627デフォルトの名無しさん2007/05/18(金) 01:56:34
use strictとかは使ったことあるかお？そーいうことだお
0628デフォルトの名無しさん2007/05/18(金) 02:52:38
pragmaっつーのは端的に言えばインタープリタの動作を変えるもんだ。
よく見かけるのは"strict", "warnings","lib", "overload", "vars", "constant", "blib"あたりかな。
あとは、マルチバイト圏の人が"utf8", "encoding", "open"を使ってたりすることあるな。

P.S
分からないことは恥ではない、分からないことを放置することが恥なのだ
0629デフォルトの名無しさん2007/05/18(金) 03:08:16
baseも仲間に入れてあげてください；；
0630デフォルトの名無しさん2007/05/18(金) 03:14:05
あ、めんごｗ
baseはOOで継承するときに使うやつな。
よく使うのに、度忘れしてたｗ
0631デフォルトの名無しさん2007/05/18(金) 20:35:21
有限の整数の集合の中から偶数だけを取りだしてその数を2倍するといった
(1 2 3 4 5 6) -> (4 8 12)
みたいな処理を簡潔にperlで表現したいなら、どのように書くんでしょうか?
0632デフォルトの名無しさん2007/05/18(金) 20:42:42
map { $_ * 2 } grep { $_ % 2 == 0 } (1,2,3,4,5,6)
0633デフォルトの名無しさん2007/05/18(金) 21:20:39
自作のperl script にドラッグ＆ドロップして使いたいんですが、
皆さん、どうされてます？
外部補助ツール等を使用しない方法で、perlのみで行いたいんです。
ググッてもうまくヒットしないので…恐縮ですが教えてください。
0634デフォルトの名無しさん2007/05/18(金) 21:22:10
>>633
すいません。WindowsXPでactiveperlの環境です。
0635デフォルトの名無しさん2007/05/18(金) 21:31:03
DropHandlerや{60254CA5-953B-11CF-8C96-00AA00B8708C}でググるといいと思うよ。
0636デフォルトの名無しさん2007/05/18(金) 21:39:21
>>635
OS側の設定だったんですね。助かりました。
0637デフォルトの名無しさん2007/05/19(土) 16:16:37
>>632
mapもgrepもおなじものだが、意味的に条件で抽出のときはgrepを使いたくなるな。

式が偽になったものは返値には残らないので
map { $_ % 2 == 0 && $_ * 2 } ( 1,2,3,4,5,6);
でもOK
0638デフォルトの名無しさん2007/05/19(土) 16:46:07
いや、それだと空文字がたくさん残るだろ。

map { $_ % 2 ? () : $_ * 2 } (1,2,3,4,5,6);
としないと。
0639デフォルトの名無しさん2007/05/19(土) 16:47:21
>638 =~ s/空文字/空文字列/;
0640デフォルトの名無しさん2007/05/20(日) 00:28:19
mapとgrepが同じとな？あなおそろしあ
0641デフォルトの名無しさん2007/05/20(日) 01:38:54
map !($_&1)&&$_<<1||()=> ( 1,2,3,4,5,6)
配列に 0 が入ってたらどうするんだろ
想定外でどうでもいいのかな？
これだと（当たり前だけど）要素の値が 0 の時には戻り値無し。
06426312007/05/20(日) 12:31:03
ありがとうございます。
Lispを勉強して、次はPerlにスイッチしたいと思っていて、なるべくLispスタイルで
プログラミングできるようにしたいと思っているんですが、二つ以上のリストを元にして
結果を返すような
(1 2 3 4 5) (6 7 8 9 10) -> ((1 6) (2 7) (3 8) (4 9) (5 10))
といった処理はどうするのでしょうか?mapの使いかたを見ると使えるのは$_だけみたいなのですが。
0643デフォルトの名無しさん2007/05/20(日) 12:40:10
普通にmapでできるだろ
map {
　$a = $_;
　$b = shift @b;
　処理
} @a
0644デフォルトの名無しさん2007/05/20(日) 12:43:41
どうすれば納得するのか知らんが、
とりあえずリファレンス使わないと、リストのリストとかはできんと思うが。
0645デフォルトの名無しさん2007/05/20(日) 14:06:29
$,=q/,/;$\=qq/\n/;
print @$_ for foo([1 .. 5], [6 .. 10]);
sub foo { map [map shift @$_, @_], (1 .. (sort map scalar @$_, @_)[-1]) }

こんな感じか。
0646デフォルトの名無しさん2007/05/20(日) 14:09:46
sub foo { map [map shift @$_, @_], (1 .. (sort {$b <=> $a} map scalar @$_, @_)[0]) }

間違えた。
0647デフォルトの名無しさん2007/05/20(日) 15:07:14
>>642
っ[List::MoreUtils]
0648デフォルトの名無しさん2007/05/20(日) 15:27:33
ある文字列を一文字単位で全部分解して、配列に格納させたいのですがうまくいきません。
（空白も含みます。）

$text = 'aあ　かｆ漢字';

例えば、上の$textを分解して、

@array = ('a', 'あ', ' ', 'か', 'f', '漢', '字');

のような配列を作りたいのです。

splitを使って
@array = split(/[\w\s]/, $text);
としたのですが、何も格納されずうまく出来ませんでした。
どのようにすれば出来るでしょうか？
0649デフォルトの名無しさん2007/05/20(日) 15:35:50
use encoding cp932; # ソースの文字コードにあわせる
$text = 'aあ　かｆ漢字';
@array = split(//, $text);
06506482007/05/20(日) 15:47:43
>>649
何も指定しないと一文字単位で分解されるんですね。splitは。
その後、
while($text){
　push(@array, substr($text,0,1,''));
}
といったコードを思いついたのですが、
649さんのコードの方がすっきりしてるのでそちらを使わせていただきます。
ありがとうございました。
0651デフォルトの名無しさん2007/05/20(日) 16:32:30
>>650
俺は初心者で、この前俺もそういうコード考えて使ってみてわかったんだが、
substrは１バイト単位で長さ見てるけど日本語は２バイトコード使ってたりしてて、
結局その>>650みたいなコードでひらがなやカタカナや漢字取り出すときにsubstr($text,0,1,'')ってところで２バイト中の１バイトしか取り出せなくて中途半端になるんだよな。
２バイト文字限定なら取り出す長さを２バイトにすれば問題無いし、アルファベットや数字は１バイトで問題無いけど。

>>649のコードなら、俺は大丈夫なのかどうかは知らないけど、なんとなく大丈夫っぽい感じする。
0652デフォルトの名無しさん2007/05/20(日) 16:39:13
>>651
substrのOFFSETやLENGTHの単位は文字数だから、>>650でも
use encodingで文字コードを適切に指定すれば何の問題もないよ。
0653デフォルトの名無しさん2007/05/20(日) 16:59:52
>>652トンクス

参考書見て、substrの説明に「文字数ではなくバイト数で取っていることがわかります。日本語の入った文字では使わないようにしましょう」
ってあったから、substrでは永遠に２バイト文字と１バイト数字アルファベットは同時に処理できないものと思ってました。
use encodingで指定すればsubstrでも２バイト文字部分は長さ１となるんですね。

use encodingでコード指定するのが大切ってことを理解しますた。
0654デフォルトの名無しさん2007/05/20(日) 17:20:46
その機能入ったのはつい最近（といっても5年前だが）だから、古い本だったら書いてないだろうし、
厚みで値段稼いでるような本なら、そのあたりいい加減でも不思議じゃないな。
0655デフォルトの名無しさん2007/05/20(日) 17:45:13
>>654
なるほど、確かに初版第1刷が2003年ってなってる。


初心者質問ですが
my@b=("$a[1]","$a[2]","$a[3]","$a[4]","$a[5]","$a[6]","$a[7]","$a[8]");
↑
こういう書き方をもっと短く書けませんか？
既に@aには$a[0]や$a[9]から先にも変数が入ってる状態で、$a[1]～$a[8]までを@bに入れたいです。

$a[1～8]みたいな表現が存在するなら表現方法を教えてほしいです。
0656デフォルトの名無しさん2007/05/20(日) 17:57:06
>655
@a[1..8] で OK。
キーワードはスライス。

ところで、なんで "" で囲ってるの？
0657デフォルトの名無しさん2007/05/20(日) 17:58:21
文字列化する必要があるんじゃね？

my @b = map "$_", @a[1..8];
0658デフォルトの名無しさん2007/05/20(日) 18:14:52
>>656>>657
激しくトンクス！
そういえばfor(0..7)とか使ってました。
@a[1..8]という書き方があったとは。
0659デフォルトの名無しさん2007/05/20(日) 18:23:29
$a　　　@a
^これや^これの名前ってなんだっけ？
0660デフォルトの名無しさん2007/05/20(日) 18:39:44
普通にドルとアットでいいんじゃない？
なんか＄でプレフィクスとか見つけたけど。

@は配列ArrayのAを表し
$は･･･なんだっけ？Sからはじまるなんかの単語じゃなかったっけ？
%は/の左の丸がキーで、/の右の丸が値を示すんだっけ？
なんかそんな感じ。
どうせ声出して読まないし気にするまでも無いような･･･
0661デフォルトの名無しさん2007/05/20(日) 18:45:22
ファニー文字？
0662デフォルトの名無しさん2007/05/20(日) 18:57:19
ああ、思い出した。＄はスカラーのＳ。
0663デフォルトの名無しさん2007/05/20(日) 18:59:10
>>659,660,661
sigil だと思う。
sigilsと複数形にすることも多いが
0664デフォルトの名無しさん2007/05/20(日) 19:10:35
ネットショップなんかで自動監視・購入できるスクリプトが組めるらしいのですが
どういったものなんでしょう。
役に立ちそうなサイトがあったら教えてください。
0665デフォルトの名無しさん2007/05/20(日) 19:44:38
>>663
あーそれそれ。さんくす
0666デフォルトの名無しさん2007/05/20(日) 20:34:14
なんかPerlスゲー人が書く魔法みたいなコードなんか紹介してください
友達が言ってたんですが他の言語だと20行くらいかかりそうな処理も1行で記述できるくらい魔法ちっくなことができるって聞いたんですが本当ですか？
0667デフォルトの名無しさん2007/05/20(日) 20:51:05
本当です
すべてが魔法なので紹介しきれません
0668デフォルトの名無しさん2007/05/20(日) 21:07:49
少なくともCOBOLで20行文の命令を1行にまとめることはできるよ。
0669デフォルトの名無しさん2007/05/20(日) 21:14:04
確かにPerlを使えばどんな複雑な処理でも一行でかけるなｗ
0670デフォルトの名無しさん2007/05/20(日) 21:31:15
何行で書けるとかPerlたん変態っぷりはそんなことじゃないだろ
0671デフォルトの名無しさん2007/05/20(日) 21:36:44
python見習え
0672デフォルトの名無しさん2007/05/20(日) 21:46:12
>>667-668
もっとやさしく！！

>>669
a + b; b + c; c + d; ... はい1行ｗｗｗｗｗとかは禁止なんです

>>670
もっとやらしく！！
0673デフォルトの名無しさん2007/05/20(日) 22:03:30
>>666
では、とっておきの電卓プログラムを紹介しようか。
C++で書くと、何十ステップも必要だろう。

while(<>){print eval($_)}
0674デフォルトの名無しさん2007/05/20(日) 22:23:07
>>673
カレントディレクトリ以下のファイルがすべて消えました！＞＜
0675デフォルトの名無しさん2007/05/20(日) 22:43:53
>>672
きもい
0676デフォルトの名無しさん2007/05/20(日) 22:50:56
それも計算によって実現してるからな
0677デフォルトの名無しさん2007/05/20(日) 22:55:32
>>674がマジなのか気になる。
>>673をしたらキーボードからどんな文も実行できてしまうよな？
>>674を書いて実行してキーボード触らずにマウスで閉じたら何も起きないよな？

恐怖体験アンビリーバブー
0678デフォルトの名無しさん2007/05/20(日) 22:56:20
ちょっと安価ミスしたが気にしないでくれorz
0679デフォルトの名無しさん2007/05/20(日) 23:18:11
1行で書けるかれしれんが、書く人の労力は20行だよ。
0680デフォルトの名無しさん2007/05/20(日) 23:30:26
でも短く書く技術は知っておきたいかも。
サブルーチンは、多少汚くても短くまとめたいし。
なんか良いサイト無い？
0681デフォルトの名無しさん2007/05/20(日) 23:31:39
結局、正規表現アクロバットきぼんってこと何でしょｗ
0682クロニクル ◆ob60wHXQlc 2007/05/20(日) 23:32:46
VISTAでACTIVE PERLをインストールしたいんですが、

Build　820　setup
の
CustomsetUP　のところでInnstlationErroが出るんです。
初心者なのでわからないことがたくさんあります。
以前XPで何度かインストールしたのですが、VISTAになったとたんできなくて
苦労しております。どうかご教授お願いいたします。

0683デフォルトの名無しさん2007/05/20(日) 23:34:48
>>680
一子相伝も特殊技術だから。
0684デフォルトの名無しさん2007/05/20(日) 23:45:25
正規表現使ってアクロバットするのと、正規表現使わずに少し長いの書くのって、
正規表現使ったほうが早いとかある？
0685デフォルトの名無しさん2007/05/20(日) 23:48:10
そんなの場合によるとしか言いようがないだろ。
0686デフォルトの名無しさん2007/05/20(日) 23:51:35
>>680
このスレの前の方だけでもいくつかあると思うよ。
過去ログ辿ればもっとあるし。
0687デフォルトの名無しさん2007/05/21(月) 00:12:00
結城浩の『Perlクイズ』の過去ログ漁ってみるとか
（結城さんではなく回答者が時々アクロバティック）
0688デフォルトの名無しさん2007/05/21(月) 15:57:04
>>667のコメントだけで、後はスルーすれば良かったのにな
0689８2007/05/21(月) 16:50:18
CGIを自由に使えるようになりたくて独学で勉強しようとしたのですがCGIはPERL
記述？だからと思いPERLの詳しくなればわかると思いこの板にきました。
PERLに強くなるにはなにを学べばいいですか？ラクダ本というのがいいとどっかで
見たのですが間違いないですか？
そもそもCGIを自由に使えるようになるのはPERLを詳しくなっても意味ないですか？
CGIを自由に扱えるようになりたいので勉強の仕方わかる方お願いします。
0690デフォルトの名無しさん2007/05/21(月) 16:54:26
日本語がお上手ですね！
0691デフォルトの名無しさん2007/05/21(月) 16:57:15
>>1嫁
> CGIについての質問は板違いです。WEBプログラミング板でどうぞ。
> CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。
> (WEBプログラミング板 http://pc8.2ch.net/php/ )
0692デフォルトの名無しさん2007/05/21(月) 18:50:54
>>691
向こうでも相手にされていない件についてw
0693デフォルトの名無しさん2007/05/21(月) 19:01:22
>689
かわいそうだからマヂレスしてあげるよ

勉強しなほうが身のため
069482007/05/21(月) 19:01:30
気長に待ちますよ＾＾
0695デフォルトの名無しさん2007/05/21(月) 19:01:48
相手にできる最低レベルってのはあるからな
069682007/05/21(月) 19:02:41
勉強しなほうが身のため
なぜ！？

0697デフォルトの名無しさん2007/05/21(月) 19:03:45
日本語でおｋ
069882007/05/21(月) 19:07:37
相手にできる最低レベルってのはあるからな
悲しいこと言うなぁ・・
0699デフォルトの名無しさん2007/05/21(月) 19:08:32
しゃぶれよ
0700デフォルトの名無しさん2007/05/21(月) 19:11:06
とりあえず句読点を勉強しる！
0701デフォルトの名無しさん2007/05/21(月) 19:37:26
こういう低レベルな質問はwebprogでやれよ
0702デフォルトの名無しさん2007/05/21(月) 19:39:59
お前が >>8 氏でないことだけは確かだ。名前欄の詐称を止めろ
CGI を覚えるより何より、ここの使い方をまず真鍋
0703デフォルトの名無しさん2007/05/21(月) 19:50:23
そして>699
0704デフォルトの名無しさん2007/05/21(月) 21:19:43
>>689
マジレスするのもどうかと思うが、
CGIを勉強したいならラクダ本よりネズミ本がオヌヌメ。
Perlをきちんと習得したいなら、ラクダ本よりリャマ本をまず嫁。
リャマ→ラクダ→ネズミの順で読むといい。
後はWebProg板逝け。
0705デフォルトの名無しさん2007/05/21(月) 21:23:45
逝く前にしゃぶれよ
070682007/05/21(月) 21:24:52
ここは恐いインターネッツですね
0707デフォルトの名無しさん2007/05/21(月) 21:38:57
リャマの次にラクダ読んだら死ぬって

タダで読めるPerl本
ttp://www.perl.org/books/library.html
ネズミ（初版）
ttp://www.oreilly.com/openbook/cgi/

ただリャマだけは小遣い溜めてでも買うべきだと思うんです
0708デフォルトの名無しさん2007/05/21(月) 23:06:21
個人的にはリャマの次にCookbookでもいいと思う。
ラクダも読み物として面白いけど、Cookbookのほうが実践的なテクニックを身に付けられるんでないかな。
0709デフォルトの名無しさん2007/05/21(月) 23:57:50
CookbookもいいけどPBPも読んだほうがいいと思う
なんつーか、その、K○NTクローンが増えても困るっつーか
0710デフォルトの名無しさん2007/05/22(火) 00:20:38
中途半端な伏字を使うやつは大抵頭が悪い
0711デフォルトの名無しさん2007/05/22(火) 00:38:13
やっぱ王道は
○ャ○から入って、○○○と○○○○○○○○を併用さ。
ラクダ？○○○○○○c で十分



…中途半端じゃない伏せ字も頭悪い。
0712デフォルトの名無しさん2007/05/22(火) 00:52:26
Perl Hacksでﾊｧﾊｧする
0713デフォルトの名無しさん2007/05/22(火) 00:56:24
>>711
> ○ャ○から入って、○○○と○○○○○○○○を併用さ。
ジャバ、コボル、N88BASIC？

> ラクダ？○○○○○○c で十分
わがんね。

本題のほうは「なんでバレバレの伏せ字を使う人がいるのか」が昔から不思議。
0714デフォルトの名無しさん2007/05/22(火) 01:04:42
perldoc
0715デフォルトの名無しさん2007/05/22(火) 01:08:17
>>713
あえて理由付けするなら、検索に引っかからないため。
まぁ、やってる方の心理としては○○だと思うがｗ
07167132007/05/22(火) 01:20:11
>>714
ボケが思いつかなくて「わがんね」でした。手間をかけさせてごめんなさい。

>>715
うーん、検索ですか。なるほど。
でも、△△△にする○○の大半は××なだけなんでしょうね。
0717デフォルトの名無しさん2007/05/22(火) 01:51:29
○○○○、○○○○○○○○。
0718デフォルトの名無しさん2007/05/22(火) 02:37:09
はじめまして。最近Perlを使い始めた初心者です。

useを使用し、下位ディレクトリにあるモジュールを読み込むには

use ディレクトリ名::モジュール名;

なのはどの初級者本にも書いてあるのですが、
上位ディレクトリにあるモジュールの読み込み方が分かりません。
パスはどう書けばよろしいのでしょうか？
0719デフォルトの名無しさん2007/05/22(火) 03:48:18
use lib
0720デフォルトの名無しさん2007/05/22(火) 07:22:32
>>710
十代後半の女オタクの馴れ合いみたいで気持ち悪いよね。
0721デフォルトの名無しさん2007/05/22(火) 08:20:44
○まん○
0722デフォルトの名無しさん2007/05/22(火) 13:39:11
○ま○こ
0723デフォルトの名無しさん2007/05/22(火) 15:24:14
○まんこ
0724デフォルトの名無しさん2007/05/22(火) 15:43:31
８まんこ
0725デフォルトの名無しさん2007/05/22(火) 15:58:39
レベルの低い会話はwebprogでやれ
0726デフォルトの名無しさん2007/05/22(火) 16:30:10
>>719
ありがとうございました。できました。
0727デフォルトの名無しさん2007/05/22(火) 18:07:33
>>725
爆笑
0728デフォルトの名無しさん2007/05/22(火) 18:08:03
cgiでPOSTされたデータを標準入力から一度取得した後
同じプログラム内で再度、標準入力から取得することは可能ですか？

既存のプログラムに、入力チェックを追加したいのですが、２回目はデータが空になります（当たり前？
一応、seekしてみたのですが、うまく戻りそうにありません
バカな質問している気がしていますが、「そんなことできるワケねぇだろ、バカ」でも良いのでアドバイス下さい
0729デフォルトの名無しさん2007/05/22(火) 18:11:19
ワークの変数にとっといたらいいんじゃないの？
0730デフォルトの名無しさん2007/05/22(火) 18:23:30
>>728
>>1嫁
0731デフォルトの名無しさん2007/05/22(火) 18:25:33
標準入力がSEEKで戻れたらすごいな
過去に戻れるなんて素敵だぜ
0732デフォルトの名無しさん2007/05/22(火) 18:26:16
なるほど、ＷＥＢプログラミング板で聞くのが良かった内容でしたか
すみませんでした
そちらで質問してみます
0733デフォルトの名無しさん2007/05/22(火) 18:41:44
>>731
このコメントだけで十分な説明になってるな
0734デフォルトの名無しさん2007/05/22(火) 19:03:04
CPAN探せばありそうだが普通に変数に入れといたほうが楽だろうな
0735デフォルトの名無しさん2007/05/22(火) 20:34:55
リャマ本なんであんなに高いの？
0736デフォルトの名無しさん2007/05/22(火) 20:36:07
古本買え
0737デフォルトの名無しさん2007/05/22(火) 20:45:58
２版の厚さがちょうどよかったよね（´・ω・）
0738デフォルトの名無しさん2007/05/22(火) 21:49:02
-P オプション で使えるCのプリプロセッサですが
起動が多少遅くなるので
別な方法がないか教えてもらえませんか

使用用途としては
下記のようなものです
単にifで分けると モジュール部もすべて読み込むようなので
両方ともないとエラーになりました
evalで囲めばそれっぽくうごきますが
しっくりきません。

#ifdef HOGEHOGE
use HOGEHOGE;
～～～
#else
use HOGEHOGE2;
～～～
#endif
0739デフォルトの名無しさん2007/05/22(火) 22:51:27
>>738
UNIVERSAL::require 使えば解決するようなコトじゃないかな？
0740デフォルトの名無しさん2007/05/22(火) 22:52:13
質問では、条件で分けたいのはuseだけじゃないっぽいけど:

use $ENV{'HOGEHOGE'};
とかして環境変数HOGEHOGEから渡せないかなと思ったがダメだった。
07417382007/05/22(火) 22:58:53
>>739-740
趣旨的には 740のとおり useだけじゃなくて
汎用的に使える方法がないかと（まぁ -Pで出来るんですがあんまり標準的じゃないような気がして）

目的としては、環境がある程度違っても
ソースを複数管理するのは面倒なので同一ソースで動かしたいです
下記のようなのも出来ると非常に助かります

#ifdef hogehoge
while(1) {
#endif
～～～～～
#ifdef hogehoge
}
#endif
0742デフォルトの名無しさん2007/05/22(火) 23:39:45
evelじゃちょっと違うよな
0743デフォルトの名無しさん2007/05/22(火) 23:41:58
BEGIN { eval }
かと思ったけどなんか違うよね
0744デフォルトの名無しさん2007/05/23(水) 00:20:43
よく判らんのだが、
-P 使うからには、pure perl じゃなく C 関係？
それとも pure perl でホスト毎に挙動を変更したいの？

前者だったら、 Inline::C と後述を噛み合わせて…
後者だったら、ベタだけど Sys::Hostname で hostname ゲットして
BEGIN{if ( $hostname ...){}else{} } あたり？
後者なら、もっとべたべたにソース全般で挙動を分けられるし、
実際やってるけど、前者だったらやろうと云う気にもならぬ。
って素人の口出しすまぬ。
0745デフォルトの名無しさん2007/05/23(水) 00:29:53
OOで書いて環境依存部分はサブクラスに分けるが良いよ
0746デフォルトの名無しさん2007/05/23(水) 00:52:02
俺は環境依存部分は、モジュール化して突っ込んであるなあ
ソコでSys::Hostnameは使っているけど、もっと良い手があれば知りたいものだ
0747デフォルトの名無しさん2007/05/23(水) 01:16:42
俺はwindowsローカル時はbatファイルで適当に環境変数設定して
その環境変数によってunix系の時と動作変えてる。
07487382007/05/23(水) 08:38:37
>>744
当面の目標としては
PurePerlでmod_perl2(ModPerl::RegistryPrefork)とFastCGIで
同一ソースを使えるようにしたいと思ってます
FastCGI対応にするためには
読み込みモジュールの差し替え(CGI->CGI::Fast)とループ処理が増えるので
738,741のようなことができないかなと思った次第です、
良い方法がないかなと
0749デフォルトの名無しさん2007/05/23(水) 09:35:25
そんな用途かよ
Catalystあたりを参考にしれ
0750デフォルトの名無しさん2007/05/23(水) 09:49:31
なるほどFastCGIか。
Rubyだとわりと簡単にFastCGI対応できるみたい。
Perlでも同じようにできないかな？

既存のCGIを変更無しでFastCGIに
ttp://sugi.nemui.org/wiki/%B4%FB%C2%B8%A4%CECGI%A4%F2%CA%D1%B9%B9%CC%B5%A4%B7%A4%C7FastCGI%A4%CB
0751デフォルトの名無しさん2007/05/23(水) 09:55:29
てか、CatalystとかCGI::Applicationとかのフレームワーク使えばいいじゃん。

Catalyst::Engine::FastCGI
http://search.cpan.org/~mramberg/Catalyst-Runtime-5.7007/lib/Catalyst/Engine/FastCGI.pm

CGI::Application::FastCGI
http://search.cpan.org/~naoya/CGI-Application-FastCGI-0.02/lib/CGI/Application/FastCGI.pm
0752デフォルトの名無しさん2007/05/23(水) 12:07:10
>>738がなんでわざわざWebProg板からこっちに着たのかわからない
0753デフォルトの名無しさん2007/05/23(水) 14:12:31
すみませんが 質問させてください

あるファイル（数万行の数字データ）の上から１行ずつ順番に読み込んで
最終行になるとまた１行目に戻って・・・という作業をしたいのです
途中でプログラムを閉じて再開したときも次の行から開始が可能であれば
もう言うことナシですが，残念ながら自分では何とも出来ず

丸２日間ネット上で調べに調べ

srand();
open(FILE, "data.txt");
rand($.) < 1 and $line = $_ while <FILE>;
close(FILE);
$line =~ s/\n//g;

とランダムで１行読み込む仕様で妥協するのが限界でした
もし上記作業がperlで可能でしたら申し訳ないですが
教えていただけないでしょうか

可能な方いらっしゃいましたら どうかお願いします。
0754デフォルトの名無しさん2007/05/23(水) 14:13:46
いつ終わるんだそれは
07557532007/05/23(水) 14:27:55
すみません
イカのような感じで半永久的に作業が続くわけでして・・・^^;

print <<"_HTML_";
Content-type: text/html

<html><head>
<meta http-equiv="refresh" content="5; url=aaa.cgi">
0756デフォルトの名無しさん2007/05/23(水) 14:34:48
何行目まで読んだかどこかに書いとけばいいじゃん。
0757デフォルトの名無しさん2007/05/23(水) 14:38:03
>>755の「イカ」がどっから出てくるのかがわからん。

とりあえずCGIは置いといて、まずファイルの入力の基本をググって調べればいいんじゃね
0758デフォルトの名無しさん2007/05/23(水) 14:38:30
以下、だろ。
0759デフォルトの名無しさん2007/05/23(水) 14:47:34
イカ＝以下、がわからんじゃなくて
イカ＝print <<・・、がどこから出て来たかわからん、ってことだよ
0760デフォルトの名無しさん2007/05/23(水) 14:52:37
続きでなんか書こうとしてるんじゃないの？
0761デフォルトの名無しさん2007/05/23(水) 14:54:09
>>759
以下のように、が、"<meta http-equiv="refresh" content="5; url=aaa.cgi">" を指してるんじゃないの？
大体、何を言わんとしてるかはわかる
07627532007/05/23(水) 14:56:30
わかんないヤツが説明すると伝わりにくいですね
すみません・・・

えーっと
５秒おきにaaa.cgiにアクセスしてIEの画面に数字を順番に
表示させたいだけなんです

753で書いた方法で $line の数値を表示させるだけと言えば
伝わりますかね・・・

0763デフォルトの名無しさん2007/05/23(水) 15:02:20
webprogの所轄だが、行数をどこかに保存すればいいだけだろう？
CookieやURIのクエリ部分だとか、サーバ上のファイルとかメモリとか。
0764デフォルトの名無しさん2007/05/23(水) 15:02:57
とりあえずWebProg板いってこいな
07657532007/05/23(水) 15:05:13
板違いでしたか すみません
どっちか悩んだあげくこっちに書いてしまいました

お邪魔しました
07667642007/05/23(水) 15:06:45
大体、数万行のテキストデータだとしてもかなりの容量になるだろ
対象マシンのメモリ可哀想だな。 しかも、IEがそのデータを表示仕切る前に
IE落ちるだろうし、表示仕切る前に5秒経って更新かかるだろうな。
しかも、更新しようにもかなりの負荷がかかってるからモッサリ。

ブラウザクラッシャーでも作ろうとしてるのか?
07677532007/05/23(水) 15:10:09
いえ 表示自体はその数万行のうち上から１行ずつでいいんです
１行目表示して５秒後には２行目・・・みたいな感じで。
順番に表示されるのを見て 手元のデータと比較していくだけの
単調な作業なんです
0768デフォルトの名無しさん2007/05/23(水) 15:26:28
表示した行数を覚えておく方法は>>763でほぼ答えが出てるけど、ファイルの指定行を読むところはTie::Fileとか使えば楽だと思うよ。
0769デフォルトの名無しさん2007/05/23(水) 15:56:50
ちょっ待って！　さっきまで>>753が居た場所がイカ臭い
0770デフォルトの名無しさん2007/05/23(水) 16:12:49
753のやりたいことを考えると、サーバ上で処理させず、
数万行のデータを手元に持ってきてjavascriptで順次表示させた方が増しな気がする。
何行目を表示させているかも、少し離して表示させておけば、中断したときには手書きでメモれば十分だろう。
表示開始行数は引数で与えれば再開できるし。
0771デフォルトの名無しさん2007/05/23(水) 17:25:55
perlでいいじゃん
0772デフォルトの名無しさん2007/05/23(水) 17:34:38
"Black Perl"

BEFOREHAND: close door, each window & exit; wait until time.
open spellbook, study, read (scan, select, tell us);
write it, print the hex while each watches,
reverse its length, write again;
kill spiders, pop them, chop, split, kill them.
unlink arms, shift, wait & listen (listening, wait),
sort the flock (then, warn the "goats" & kill the "sheep");
kill them, dump qualms, shift moralities,
values aside, each one;
die sheep! die to reverse the system
you accept (reject, respect);
next step,
kill the next sacrifice, each sacrifice,
wait, redo ritual until "all the spirits are pleased";
do it ("as they say").
do it(*everyone***must***participate***in***forbidden**s*e*x*).
return last victim; package body;
exit crypt (time, times & "half a time") & close it,
select (quickly) & warn your next victim;
AFTERWORDS: tell nobody.
wait, wait until time;
wait until next year, next decade;
sleep, sleep, die yourself,
die at last
# Larry Wall

これどういう意味？暇だったら訳してくれ
0773デフォルトの名無しさん2007/05/23(水) 17:35:38
Webサーバー（Webブラウザ）使うのが必要条件なのかにもよるな。
Excelでも十分かもしれん。
0774デフォルトの名無しさん2007/05/23(水) 17:42:02
local環境でいいんなら、1行読んで、25行ぐらい改行してからprintするだけじゃないの？
で、sleep(5)とか
0775デフォルトの名無しさん2007/05/23(水) 18:14:28
>>773
excel だけど win は一万行平気で開く？

cat -n hoge.log | more で十分だったりw
0776デフォルトの名無しさん2007/05/23(水) 18:26:06
>>772
ラクダ本3版Volume2に訳が出てるお
0777デフォルトの名無しさん2007/05/23(水) 18:39:22
>>774
本当はそんな感じ（と、行番号カウンタか）でいいんだと思うよ。
Web鯖に吐かせるべき理由があるんだかどーなんだか。
0778デフォルトの名無しさん2007/05/23(水) 18:45:09
webprog板でgrepとmapだとgrepの方が早いという意見があり確認してみました。
for >= grep > mapって感じみたいなのですがなんでmapだけこんなに遅いのでしょう？

■テストコード
use Benchmark qw/cmpthese/;
use strict;
use warnings;
my $LOOP = 100;
my @SEED = ('a'..'z','A'..'Z',0..9);
my @DATA = map {$SEED[int rand @SEED]} 1..10000;
my %TABLE = map {$_=>$SEED[int rand @SEED]} @SEED;
cmpthese($LOOP, {
#非破壊
'map1' => sub {my @hoge = map { $TABLE{$_} } @DATA; 1;},
'grep1' => sub {my @hoge;grep push(@hoge,$TABLE{$_}),@DATA;1;},
'for1' => sub {my @hoge;push(@hoge,$TABLE{$_}) for(@DATA);1;},
#破壊
'map2' => sub {map {$_=$TABLE{$_}} @DATA ;1;},
'grep2' => sub {grep $_=$TABLE{$_},@DATA;1;},
'for2' => sub {$_ = $TABLE{$_} for(@DATA);1;},
});
0779デフォルトの名無しさん2007/05/23(水) 18:47:30
■結果 １回目
Rate map1 map2 for1 grep1 grep2 for2
map1 25.8/s -- -14% -32% -33% -66% -69%
map2 30.1/s 17% -- -21% -22% -60% -64%
for1 38.0/s 48% 26% -- -2% -50% -54%
grep1 38.6/s 50% 28% 2% -- -49% -53%
grep2 75.8/s 194% 152% 99% 96% -- -8%
for2 82.6/s 221% 174% 117% 114% 9% --
■結果 ２回目
Rate map1 map2 grep1 for1 grep2 for2
map1 24.6/s -- -16% -33% -33% -71% -71%
map2 29.2/s 19% -- -20% -21% -65% -66%
grep1 36.6/s 49% 26% -- -1% -56% -57%
for1 36.9/s 50% 27% 1% -- -56% -57%
grep2 83.3/s 239% 186% 127% 126% -- -3%
for2 85.5/s 248% 193% 133% 132% 3% --
■結果 ３回目
Rate map1 map2 grep1 for1 grep2 for2
map1 23.3/s -- -17% -33% -37% -72% -73%
map2 27.9/s 20% -- -20% -25% -66% -67%
grep1 35.0/s 50% 25% -- -6% -57% -59%
for1 37.0/s 59% 33% 6% -- -55% -56%
grep2 82.0/s 252% 193% 134% 121% -- -3%
for2 84.7/s 264% 203% 142% 129% 3% --
0780デフォルトの名無しさん2007/05/23(水) 19:28:11
map1が遅いのはでかいリスト返してるから。
一つだけ全く別のことやってりゃそりゃ遅い罠。
map2が遅いのはfor2grep2と違ってブロック評価してるからだと思う。

とりあえず
'map1' => sub { my @hoge; map { push @hoge, $TABLE{$_} } @DATA; 1; },
'map2' => sub { map $_ = $TABLE{$_} , @DATA; 1; },
に書き換えたらグループごとの速度は大差なくなるはず。

関係ないけど最近のPerlのmapは
同じことやるforeachより速くなったりするのでびっくり。
古いバージョンなら戻り値使わない時は絶対forって言えたんだけどな。
0781デフォルトの名無しさん2007/05/23(水) 19:30:42
一応貼っておく
Rate grep1 for1 map1 grep2 map2 for2
grep1 19.8/s -- -1% -3% -64% -64% -65%
for1 20.0/s 1% -- -2% -64% -64% -65%
map1 20.4/s 3% 2% -- -63% -63% -64%
grep2 55.2/s 179% 176% 171% -- -1% -3%
map2 55.5/s 180% 177% 172% 1% -- -3%
for2 57.0/s 188% 185% 180% 3% 3% --
0782デフォルトの名無しさん2007/05/23(水) 20:02:21
その後の調べで
map2はsub {map {$_=$TABLE{$_};1;} @DATA ;1;}
とすると順位があがりました。余計なメモリコピーが発生してたみたいです。

さらに>>780さんの指摘を受けて
'map1' => sub {my @hoge;map push(@hoge,$TABLE{$_}),@DATA; 1;},
'map2' => sub {map $_=$TABLE{$_},@DATA ;1;},
に変更したところ若干forが優勢っぽいですがほとんど同じ結果になるようになりました。

組み込みの関数なのでperlのバージョンによって変わってくる部分もありそうですね。
テスト環境はperl v5.8.5でした。(書き忘れ)

大変わかりやすい説明ありがとうございました。
0783デフォルトの名無しさん2007/05/23(水) 20:05:52
良くわからんがデータベース使え。
07847382007/05/23(水) 21:51:32
>>751
Catalystみてみます、サンクス
0785デフォルトの名無しさん2007/05/25(金) 01:12:04
あーの、恐縮ですが質問なんですけど、
Perlでは初めてオブジェクト指向のコードを書いているのですが、
下記のようなコードでアロー演算子と行入力演算子が併用できなくて困っています。
一度他のローカル変数にファイルハンドルを代入してやればうまくいくのですが、
もっとスマートに、オブジェクトが持つファイルハンドルから行入力する方法はあるのでしょうか。

use strict;

sub parse
{
my $this = shift;
my @data = <$this->{fh_lex}>; # 文法エラー
# 下のコードなら成功
# my $fh = $this->{fh_lex};
# my @data = <$fh>;

for (@data) {
;# 省略
}

}
0786デフォルトの名無しさん2007/05/25(金) 01:59:16
<>をファイル読み込みとして認識させるには、
括弧の中を $fh のような形をしたスカラ変数にしないとダメだから、
一時的に変数を作るしかないね。

my @data = sub{$_=shift;<$_>}->($this->{fh_lex});　とかｗ
0787デフォルトの名無しさん2007/05/25(金) 02:08:24
ヒント：<()>
0788デフォルトの名無しさん2007/05/25(金) 02:09:52
<()> はファイルグロブ。
0789デフォルトの名無しさん2007/05/25(金) 02:22:28
<${this->{fh_lex}}>
とかダメ？　試してないけど。
0790デフォルトの名無しさん2007/05/25(金) 02:31:13
>>789
ダメだよ。やってみたw

<>を放棄した技だけどw
my @data = readline $$this{fh_lex} ;
0791デフォルトの名無しさん2007/05/25(金) 02:37:14
普通に<>の内部関数のreadline使って、
my @data = readline $this->{fh_lex};
でよかろ。
0792デフォルトの名無しさん2007/05/25(金) 04:08:38
>>785
別に無理に1行に書かなくても地味に$fhに代入した方がよっぽど明示的で
よいコードに見える。
どうしてもっていうんなら、$thisがオブジェクトならオーバーロードを使ってみては？
0793デフォルトの名無しさん2007/05/25(金) 18:39:22
遅レスだが

>>780
http://search.cpan.org/~nwclark/perl-5.8.8/pod/perl581delta.pod#Miscellaneous_Enhancements
> map in void context is no longer expensive. map is now context aware,
> and will not construct a list if called in void context.

perlstyle でやるなって言われてるのに、悪い癖を直そうとしない子が
あまりに多いから実装側でフォローした、と俺は解釈してる。
0794デフォルトの名無しさん2007/05/25(金) 18:48:26
見た目すっきりするからついやっちゃうんだよね・・・
0795デフォルトの名無しさん2007/05/25(金) 19:11:11
俺すごいだろって思ってついやっちゃうんだよな・・・
07967852007/05/25(金) 22:27:59
>>786-792
みなさんどうもありがとうございます。
やはりPerlとはいえ表記上の制約はあるんですね。
にも関わらず他の方法がいくつもあると言うのはさすがですが。
どれを使おうか迷ったのですが、とりあえず今回は、readlineを使うのが一番綺麗に見えたので、それを使わせてもらおうと思います。
本当に勉強になりました。
0797デフォルトの名無しさん2007/05/26(土) 02:42:48
　長文にて失礼します。
　以下の[data.csv]ようなカンマ区切りのデータがあるとします。
　横軸がX座標、縦がY座、各格子の数値がZ座標（標高）を示しています。
　このデータを、[out.csv]のように変換したいのですが、2次元配列でつまずいてしまい、途方に暮れてしまいました。
　どなたかお知恵を授けて下さい。よろしくお願いします。
　あと、入力データのうち行頭が"#"で始まる行は無視する、というのはどうすればできるのでしょうか。合わせてご教授いただけると助かります。よろしくお願いします。

[data.csv]
, 1, 2, 3, 4
5, 12.63 , 33.82 , 31.71 , 29.73
4, 34.75 , 32.14 , 29.31 , 26.70
3, 33.55 , 30.27 , 27.17 , 23.43
2, 31.02 , 29.42 , 26.65 , 23.61
1, 28.00 , 27.04 , 25.39 , 22.60

[out.csv]
X,Y,Z
1,1,28.00
1,2,27.04
1,3,25.39
1,4,22.60
2,1,31.02
2,1,27.04
(中略）
5,3,31.71
5,4,29.73

0798デフォルトの名無しさん2007/05/26(土) 03:41:35
>>797
宿題乙＾＾
0799デフォルトの名無しさん2007/05/26(土) 04:09:08
>>797
さてコレをどれくらい短くできるだろうか

use strict;
open FILE, "data.csv";
my @data;
my @index;
my @ys;

for my $line (<FILE>) {
chomp $line;
unless (@index) {
@index = split(/\s*,\s*/, $line);
shift @index;
next;
}
my($y, @d) = split(/\s*,\s*/, $line);
push(@ys, $y);
for (my $i=0; $i < @d; $i++) {
$data[ $index[$i] ][ $y ] = $d[$i];
}
}
close FILE;

open FILE, ">out.csv";
for my $x (@index) {
for my $y (@ys) {
print FILE "$x, $y, $data[$x][$y]\n";
}
}
0800デフォルトの名無しさん2007/05/26(土) 08:04:48
>>799
use strict;
open FILE, "data.csv";
my(@data, @index, @ys);
while(<FILE>) {
chomp;
my($y, @d) = split /\s*,\s*/;
@index = @d, next unless @index;
push @ys, $y;
$data[ $index[$_] ][$y] = $d[$_] for 0..@d-1;
}
open FILE, ">", "out.csv";
for my $x (sort {$a <=> $b} @index) {
for my $y (sort {$a <=> $b} @ys) {
print FILE "$x, $y, $data[$x][$y]\n";
}
}
close FILE;
0801デフォルトの名無しさん2007/05/26(土) 08:26:14
一応質問者の為に一行サービスしといたけど。本嫁本。
こんなの例題に出てくるだろが。

open IN, "data.csv" ;
open OUT, ">", "out.csv" ;
print OUT "X,Y,Z＼n" ;
(undef,my @index ) = split /,/, do{ $_ = <IN> ; s/＼s+//g ; $_ } ;
for ( reverse (<IN>) ){
　s/＼s+//g ;
　next if /^#/ ;
　my ( $index, @dat ) = split /,/ ;
　for my $i ( 0 .. $#dat ){
　　print OUT join "," ,$index,$index[$i],$dat[$i] . "＼n" ;
　}
}
close IN ;
close OUT ;
0802デフォルトの名無しさん2007/05/26(土) 10:48:45
>>799-801
おまいらやさしいな
08037972007/05/26(土) 13:30:30
>>799-801
　皆さん、どうもありがとうございます。
　教えていただいたコードを読んで勉強します。
　ところで、私のような初心者向けの本にはどんなものがありますか？
現在手元には、「Perlの絵本」といわゆる「らくだ本」の2冊がありますが、前者はまったくの初心者向けで今回の質問の答えは見いだせません。
一方、後者は私には取っつきにくくて、ヒントが書いてあるのかも知れませんが、見つけられませんでした。
　なお、Visual BASICとTurbo PASCALはある程度勉強しました。
　近くに大きな本屋がないので、現物を手にとって見比べることができません。アドバイスをいただければ幸いです。よろしくお願いします。
0804デフォルトの名無しさん2007/05/26(土) 14:26:34
リャマ本かクックブックあたり嫁
0805デフォルトの名無しさん2007/05/26(土) 15:31:12
/(\b\w+)\1/
という正規表現が
hogehogeにマッチして
/(\b\w+\b)\1/
という正規表現が
hoge hogeにマッチしないのは何故なんでしょうか?
0806デフォルトの名無しさん2007/05/26(土) 15:36:26
* キャプチャされるのは、正規表現ではなくマッチした文字列
* \b は文字を消費しない。
0807デフォルトの名無しさん2007/05/26(土) 16:15:33
>>803
時間をかけて、「らくだ本」じっくりと２回読めばいい。
１回目は、解らない部分には「？」印を付けて、深追いしない。
２回目は、「？」印を付けた部分を重点的に読む。
その過程がなければ、らくだ本を辞書のように使うことはできない。
0808デフォルトの名無しさん2007/05/26(土) 17:09:49
リャマ本の第四版まだかなー
本家だと２００５年に出てるんだよね
ラクダさんも早く新しいの出して欲しいな
0809デフォルトの名無しさん2007/05/26(土) 18:15:30
そういえば新しいの出るね。
"Mastering Perl" By brian d foy
ttp://www.oreilly.com/catalog/9780596527242/
0810デフォルトの名無しさん2007/05/26(土) 19:24:22
大変にスマソ
ひょっとして　use encoding でコード指定すると \w が日本語（文字）にもマッチする仕様？
08118032007/05/26(土) 20:02:47
>>807
　アドバイス、ありがとうございます。
　昔やった受験勉強と同じことですね。腰を据えて勉強します。
0812デフォルトの名無しさん2007/05/26(土) 20:17:05
>>810
perl + 日本語には興味無いんで調べたが、perlunicode にまんま書いてあるぞ。
o Character classes in regular expressions match characters instead
of bytes and match against the character properties specified in
the Unicode properties database. "＼w" can be used to match a
Japanese ideograph, for instance.
0813デフォルトの名無しさん2007/05/26(土) 20:27:38
>>810
基本的には空白や記号類ではないような文字にマッチする。
通常は全ての言語の文字にマッチするけど、
use locale;すればロカールである程度は制御できるね。
0814デフォルトの名無しさん2007/05/26(土) 20:39:14
>>812-813
おお、すまそ。そしてありが㌧
今更だけど jcode.pl からの乗り換えに躓いてました
精進してきます
0815デフォルトの名無しさん2007/05/26(土) 21:20:04
懐かしいな jcode.pl ってまだあったんだ

cgiのもなんかライブラリあったな
0816デフォルトの名無しさん2007/05/26(土) 21:22:41
cgi-lib.plﾅﾂｶｼｽ
0817デフォルトの名無しさん2007/05/26(土) 23:38:11
>>816

ああ、それそれ！
名前忘れる位懐かしいｗ
0818気まぐれアナスイ2007/05/27(日) 01:28:48
…。perl…。
perl.といえば、perldl-command.が…
!(-＿Φ+){yes, So sexy.}
0819デフォルトの名無しさん2007/05/27(日) 04:04:33
ログファイルを合成する処理で、困っています。

@log=("1.txt","2.txt","3.txt","4.txt");
foreach $filename(@log)
{
open(LOG,$filename) || &er_("Can't open $filename");
@lines = <LOG>;
close(LOG);
}

@linesの中に、全てのテキスト内容を合成させた物が
入ってほしいのですが、最後に代入した4.txtの内容しか
入ってくれません。なぜでしょうか。

また、foreachで廻すのを条件として、
改造案を指南いただけると嬉しいです。
0820デフォルトの名無しさん2007/05/27(日) 04:22:02
@lines = <LOG>;

の部分を

my @tmplines = <LOG>;
push(@lines, @tmplines);

の２行に置き換えてください。
千奈美に最後のやつしか残らないのは、

@lines = <LOG>;

が上書きしてるからです。
だから最後の結果しか残らない。
0821デフォルトの名無しさん2007/05/27(日) 06:28:04
>>820
ありがとうございます！できました。
0822デフォルトの名無しさん2007/05/27(日) 18:20:34
cpanで
>Are you ready for manual configuration? [yes]
毎回、noを答えるんですけど、これ抑制できないんですか？
0823デフォルトの名無しさん2007/05/28(月) 00:37:04
>>822
> Are you ready for manual configuration?
俺は個人macもsolarisもyes選択してカスタマイズしたから、
最初にnoを選んだ時の挙動は分らんが、抑制もくそもこれって
最初の一回きりだろ？俺の環境だと出てこないんだけど。

何か変な事やってないか？
0824デフォルトの名無しさん2007/05/31(木) 15:48:16
>>546　の
sub flatten(@) { map { ref $_ eq "ARRAY" ? flatten(@$_) : $_ } @_ }」
の
flatten(@)は配列以外を引数に取れないということでしょうか？

あと
@deff = grep{ !{map{$_,1}@FileA }->{$_}}@FileB;
のmap{$_,1}@FileAなのですが{$_,1}はどういう式なのでしょうか
0825デフォルトの名無しさん2007/05/31(木) 16:55:50
>>824
1) プロトタイプの@は残りの引数をすべてリストとして取り込むという意味。
　　(@) にはあまり意味がないんだけど、perlsubでも読んどき。

2) map の引数のBLOCKはリストコンテキストで評価されるから、
　　$_, 1 は $_ と 1 からなるリスト。
0826デフォルトの名無しさん2007/06/01(金) 10:44:52
はじめまして、 Perl 5.005_03 の世界から来ました。こんにちは。

最近の Perl でコマンドラインオプションの処理をする場合の標準を教えてください。
0827デフォルトの名無しさん2007/06/01(金) 11:02:55
>>826
Getopt::StdかGetopt::Longを使うのがいいよ。どっちも標準モジュール。
Getopt::LongはGetopt::Stdの機能も含むからGetopt::Longのほうがおすすめ。
0828デフォルトの名無しさん2007/06/01(金) 11:04:23
@_ で済まなかったっけか
0829デフォルトの名無しさん2007/06/01(金) 12:00:06
>>828
自分でちまちまとオプション解析するならそれでいいけどな。
08308292007/06/01(金) 12:01:08
いや、そんなことない。だまされるところだった。
0831デフォルトの名無しさん2007/06/01(金) 13:21:53
>>827
早速 Getopt::Long 使ってみました。使いやすそうですね。
御回答ありがとうございます。

>>828
すみません、ちょっと私には意味わからなかったのでスルーさせてくださいー。
0832デフォルトの名無しさん2007/06/01(金) 16:08:31
>>825
ありがとうございます
0833デフォルトの名無しさん2007/06/01(金) 16:39:29
my　$text = join '', <>;
$text =~ s/\s*//g;

を1行でする方法ないですか.
1行でなくとも見た目がよければいいです。


あとファイルの最初にmy宣言すると、その後のサブルーチン内でも
使えてしまうのですが、これは何か対策はありますでしょうか
0834デフォルトの名無しさん2007/06/01(金) 16:51:36
(my $text = join '', <>) =~ s/\s*//g;
とか出来んわけではないが分けて書いたほうが見た目はよいだろ。

> あとファイルの最初にmy宣言すると、その後のサブルーチン内でも
> 使えてしまうのですが、これは何か対策はありますでしょうか
ファイルスコープのmyはグローバル変数だから、そういうもの。
嫌なら中括弧で囲っとけばいい。
0835デフォルトの名無しさん2007/06/01(金) 16:58:41
なるほど、ありがとうございました
0836デフォルトの名無しさん2007/06/01(金) 17:06:21
my $text = join '', map {s/\s*//g; $_} (<>);
このぐらいなら、まあいい？
0837デフォルトの名無しさん2007/06/01(金) 17:10:06
$/使った方が速いと思うけど、2文にならざるを得ないな。
0838デフォルトの名無しさん2007/06/01(金) 17:17:50
my $text = do{ local $/ ; $_ = <> ; s/\s*//g ; $_ } ;
実質4行w
0839デフォルトの名無しさん2007/06/01(金) 19:21:13
s/\s*//g, $text.=$_ for <>;
0840デフォルトの名無しさん2007/06/01(金) 19:23:33
ああ、my付けなきゃいけないのか
my $text = join "", map { s/\s*//;$_} <>;
0841デフォルトの名無しさん2007/06/01(金) 19:43:02
(my $text = do {local $/; <>}) =~ s/\s+//g;
0842デフォルトの名無しさん2007/06/01(金) 20:35:25
>>837
pu
0843デフォルトの名無しさん2007/06/01(金) 23:04:43
ぶっちゃけ遊びとしても「１行で書く」っていうのは意味ないと思うｗ
0844デフォルトの名無しさん2007/06/01(金) 23:14:33
>>826-831

@ARGV を使うだけなのにご苦労様
0845デフォルトの名無しさん2007/06/01(金) 23:45:56
>>844
>826 名前：デフォルトの名無しさん：2007/06/01(金) 10:44:52
>はじめまして、 Perl 5.005_03 の世界から来ました。こんにちは。
>
>最近の Perl でコマンドラインオプションの処理をする場合の標準を教えてください。


>コマンドラインオプションの処理をする
>コマンドラインオプションの処理をする
>コマンドラインオプションの処理をする
0846デフォルトの名無しさん2007/06/02(土) 00:07:52
おまんこライン
0847デフォルトの名無しさん2007/06/02(土) 01:45:09
>>845

え！？もっと詳しく！！
0848デフォルトの名無しさん2007/06/02(土) 02:56:27
単純にコマンドライン引数を見たいなら@ARGVを順番に見ていけばいいけど、
>>826は -Rrt -l --color=auto とかのコマンドラインオプションをパースしたいってことだろ。
学習目的ならいざ知らずそんなもんいちいち自前で処理する奴はマゾ。
0849デフォルトの名無しさん2007/06/02(土) 12:28:03
そうそう、Perl 5.005_03が先端だった頃の、
use Getopt::Stdするだけでプラス0.4秒
という時代とは違うんだから。
0850デフォルトの名無しさん2007/06/03(日) 18:25:59
文字列の全角英数→半角変換って
$j =~ tr/０-９ａ-ｚＡ-Ｚ/0-9a-zA-Z/;
じゃダメなん？
5.8.4で文字列はutf-8なんだけど。
0851デフォルトの名無しさん2007/06/03(日) 18:42:50
>>850
use utf8 した上でなら、それでいいんじゃね? 確かめてないけど。
08528502007/06/03(日) 19:02:08
>>851
英数以外が化けるんだよなぁ…
0853デフォルトの名無しさん2007/06/03(日) 19:13:39
化けてるってのはどうやって確認してるの？
0854デフォルトの名無しさん2007/06/03(日) 19:15:52
日本語のマルチバイトはsjis、euc-jp、utf-8（他にもいろいろ）あるわけで、
スクリプトのソースや$jに入っているcharsetが何かがわかんないと答えようがないわな。
08558502007/06/03(日) 19:28:12
853>>
入力と出力をprintして見比べてるけどマズかった？
0856デフォルトの名無しさん2007/06/03(日) 19:31:18
それは大いにマズい。
$jの文字コード/UTFフラグの有無で挙動が変わってくる。
08578502007/06/03(日) 19:37:59
>>854
入力、ソースはutf-8(のつもり)。
もしかしたら違うかもしれないから、入力のエンコード方式の調べ方があるなら教えてくれ。

>>856
マズいのか。
0858デフォルトの名無しさん2007/06/03(日) 19:49:23
use Devel::Peek;
Dump $j;
08598502007/06/03(日) 20:02:10
>>858
dumpの出力の読み方は？
ググってみたけど、どう読んでいいのかサッパリ。
0860デフォルトの名無しさん2007/06/03(日) 20:06:37
なんか要領がつかめないんだけど、
入力ソースはなんなわけ？
08618502007/06/03(日) 20:13:48
>>860
適当なサイトから拾ってきたフィード。
0862デフォルトの名無しさん2007/06/03(日) 20:18:46
binmodeでストリームに適当なレイヤをかぶせるか、
Encode::decodeに通して適切にutf-8フラグが立つようにせにゃならん。
08638502007/06/03(日) 22:06:39
>>862
$j = decode('utf-8', $j);
の1行通したらうまくいった。ありがと。
0864デフォルトの名無しさん2007/06/04(月) 13:51:27

ねえ。これから態度の悪い質問者には答えない様にしろよ。
付け上がって調子乗ってくるのがオチなんだからさ。
0865デフォルトの名無しさん2007/06/04(月) 14:05:21
俺が正規表現でボコボコにしてやんよ
　∧＿∧
　(　･ω･)＝つ≡つ
　(っ　≡つ＝つ
　/　　　) s/.*/ﾊﾞﾊﾞﾊﾞﾊﾞ/g
　( /￣∪
0866デフォルトの名無しさん2007/06/04(月) 14:35:29
>>864
付け上がっているのはどっちですか?
ここは質問箱でしょ?
質問してください、というスレなんでしょ?
質問者あってのスレなんですよ。
そんな逆切れ見たいなことを言っていないで、
質問してもらったら「質問してくださってありがとう」くらい言ったらどうですか!
0867デフォルトの名無しさん2007/06/04(月) 15:48:30
これは酷い釣り糸
0868デフォルトの名無しさん2007/06/04(月) 16:27:29
>>866
とっとと質問せんかボケ
0869デフォルトの名無しさん2007/06/04(月) 17:02:53
>>868
質問があったら質問しますよ。
自分の至らなさを指摘されたからって、急に喧嘩腰にならないでください。
頭の悪い人はいちいち無駄な書き込みをしなくていいです。
0870デフォルトの名無しさん2007/06/04(月) 17:07:09
>>866
何が質問者あってだよ。回答者があってだろ。
回答者が居ないと何も出来ない癖に。
後 >>1 にも書いてあるけどここは "Perlの奥深さについて皆で語り合い、追求する"スレ。
低レベルな質問と会話はwebprog板でお願いします。
0871デフォルトの名無しさん2007/06/04(月) 17:14:03
>>869
無いんなら今すぐ作れや
俺は無職で一日中暇なんじゃアホ
0872デフォルトの名無しさん2007/06/04(月) 17:15:39
「>>1 にも書いてあるけど」などという書き出しで
あたかも「みんなの意見」であるように強調しておきながら、
結局はラスト1行で単なる頭の悪い煽り屋さんであることをばらしてしまっていますね。

何だかんだいいつつ、自分の「低レベルな会話」は全面的に許してしまっている時点で、
説得力はゼロですね。修行を積んで出直しましょう。
0873デフォルトの名無しさん2007/06/04(月) 17:19:05
>>871
暇なら自分で質問を作って自分で回答していればいいじゃないですか。
内容によっては決して無意味ではありませんよ。
高度な質問と高度な回答をセットで提供するぶんには、結構喜ばれると思います。

とはいえ、無職の能無しがそういう問答を自演するのは難しいでしょうが…。
0874デフォルトの名無しさん2007/06/04(月) 17:21:42

皆の意見として言ったつもりは無いな。建前のような物。
ついでに俺は許してないよ? WebProgに案内してるだけ。
お前も個人叩きをするタダの頭の悪い煽り屋にしか
見えないんだが、本文に対する反論は結局ナシなのかな?
0875デフォルトの名無しさん2007/06/04(月) 17:28:38
>>874
なるほど、自分で自分を許していないのですね。
ではあなたが黙れば解決です。あなたにできる最大の「低レベルな会話の排除」ですね！

あと、「本文」というのは面白い言い方だと思います。
相手に突っ込まれて、いかに馬鹿なことを言っていたかが自覚できた途端に
そこを蜥蜴の尻尾みたいに切り捨てて、「ノーダメージだよーん」ということにするのですね。
0876デフォルトの名無しさん2007/06/04(月) 17:34:27
どうでもいい議論はよそでやれよ。
0877デフォルトの名無しさん2007/06/04(月) 17:40:23
定期的に沸いてる奴だろｗ
ほっとけ
0878デフォルトの名無しさん2007/06/04(月) 17:53:57
>>875
んーそうじゃないな。あくまでwebprog板でやれと希望してるだけだ。
本文って言い方そんなに面白いかな? お前に言われた事は自覚した、
とする。その次の段階の話だ。その次の話が出来なければただの
煽り合いで終わってしまうだろう? 後俺は120%黙る気は無いので宜しく。
0879デフォルトの名無しさん2007/06/04(月) 17:55:19
>>864-878
お前らまとめて詞ね
0880デフォルトの名無しさん2007/06/04(月) 18:01:04
>>878
低レベルな質問と会話はwebprog板でお願いします。
0881デフォルトの名無しさん2007/06/04(月) 18:07:51
まぁ、こんなもんでしょう。
「ここは "Perlの奥深さについて皆で語り合い、追求する"スレ」であるという理由で
「低レベルな質問と会話はwebprog板でお願い」していた人間も、
つまらないプライドをちょっと傷つけられたら、Perlの奥深さとまるで関係のない低レベルな会話だと自覚しつつも
「120%黙る気は無い」とまで言い切ってしまうのですよ。

俺はやっていいけどお前はダメ、の精神で物事を動かせると思ってるボクちゃんってこんな感じなんです。
0882デフォルトの名無しさん2007/06/04(月) 18:14:12
スーパーキチガイタイム
0883デフォルトの名無しさん2007/06/04(月) 18:14:54

なんか、ここぞとばかりに言い負かそうとしてるが、それも違う。
俺は毎回このスレで変な奴が出る度に相手してやってるし、
俺自身もwebprogに行く気なんかハナから無い訳で。本音と建前ってやつだな。
ついでに言うとさっさと僕の"本文"に反論してくれませんか。
0884デフォルトの名無しさん2007/06/04(月) 18:17:40
webprog板じゃなくてもいいから議論なら他スレでやれよ
0885デフォルトの名無しさん2007/06/04(月) 18:18:35
>>883
相手すんないっとるんじゃボケ。
0886デフォルトの名無しさん2007/06/04(月) 18:34:14
> 俺は毎回このスレで変な奴が出る度に相手してやってるし、

やめてください。
0887デフォルトの名無しさん2007/06/04(月) 18:43:06
>>883
> 俺は毎回このスレで変な奴が出る度に相手してやってるし、

かんべんして（＞＜；）
0888デフォルトの名無しさん2007/06/04(月) 19:08:39
これだな。
ttp://www.so-net.ne.jp/vivre/kokoro/psyqa1087.html
0889デフォルトの名無しさん2007/06/04(月) 19:33:07
自分が一番変な奴だという自覚が無いんだなｗ

こんだけ嫌われまくってもきづかないほうに賭ける
0890デフォルトの名無しさん2007/06/04(月) 20:04:26
殆ど一人でやってるように見えるんだけど。
0891デフォルトの名無しさん2007/06/04(月) 20:18:16
>>890
ということにしたいわけですね。
0892デフォルトの名無しさん2007/06/04(月) 20:22:43
バレたか・・・
0893デフォルトの名無しさん2007/06/04(月) 21:33:09
ﾊﾞﾛｽｗ
0894デフォルトの名無しさん2007/06/04(月) 21:50:35
自演荒らしのImageMagick君ってこれと同一人物っぽいなｗ
http://www.gac.jp/article/index.php?stats=question&category=12&id=20208&command=msg
2chなんかに来ずにここで教えてクン続けてればよかったのに
0895デフォルトの名無しさん2007/06/04(月) 21:59:04
さすがにそこまでストーキングっぽいことしなくてもいいのに・・・
0896デフォルトの名無しさん2007/06/04(月) 22:45:50
>>894
どっちもImage-Magi'c'になっててﾜﾗﾀ
借りてる鯖はlolipopかな？
0897デフォルトの名無しさん2007/06/04(月) 23:15:20
質問します!

open FH,"/hoge/hoge.txt" #hoge.txtを開く
while (<FH>) { #FHファイルを行単位で読み込んでいく
　　 $Str = $_; #変数Strにデフォルトで入力やパターンマッチになる特殊変数を代入
if( $Str =~ /__\w+__/g ){ #①???
if( $Str =~ /__KEYWORD__/ ){ #②???
$Str =~ s/__KEYWORD__/KEY/; #__KEYWORD__をKEYに置換する
}
}
print $str;
}
close FH;

コメントの部分の①と②の説明がうまくできません。
①は=~の部分がわからず、②は/と/で挟まなくて__KEYWORD__だけでも
同じ結果が返ってくるのではないかと思って悩んでいます。
よろしかった教えて頂けないでしょうか？
0898デフォルトの名無しさん2007/06/04(月) 23:24:58
%hoge;

$age = {%hoge};

というコードがあった場合、最後の代入で行われているのは
無名ハッシュコンストラクタの中でハッシュを評価することで、ハッシュのキーと値
からなるリストが生成され、それらを要素とする無名ハッシュが生成されて、そのリファレンスが
$ageに代入される。つまり%hogeのコピーのリファレンスを代入しているという考えでいいんでしょうか?
0899デフォルトの名無しさん2007/06/04(月) 23:46:46
>>897
Perl 正規表現でググればウンザリするほど答えが見つかると思います

>>898
そうです
0900デフォルトの名無しさん2007/06/04(月) 23:47:18
なるほど、自分で自分を許していないのですね。
ではあなたが黙れば解決です。あなたにできる最大の「低レベルな会話の排除」ですね！

あと、「本文」というのは面白い言い方だと思います。
相手に突っ込まれて、いかに馬鹿なことを言っていたかが自覚できた途端に
そこを蜥蜴の尻尾みたいに切り捨てて、「ノーダメージだよーん」ということにするのですね。
0901デフォルトの名無しさん2007/06/05(火) 00:05:57
>>897
なんかすごい無駄だらけなソースだなあ・・・
0902デフォルトの名無しさん2007/06/05(火) 00:31:50
ノーダメージだよーん
0903デフォルトの名無しさん2007/06/05(火) 00:33:23
>>900
なんかすごい無駄だらけな文だなあ・・・
0904デフォルトの名無しさん2007/06/05(火) 00:42:53
なんかすごい無駄だらけなスレだなあ・・・
0905デフォルトの名無しさん2007/06/05(火) 00:48:01
粘着荒らし酷いな
0906デフォルトの名無しさん2007/06/05(火) 00:52:00
粘着した方が勝ち！
0907デフォルトの名無しさん2007/06/05(火) 01:14:38
ノーダメージだよーん
0908デフォルトの名無しさん2007/06/05(火) 01:34:33
荒らしはやめてー＞＜
0909デフォルトの名無しさん2007/06/05(火) 04:03:09
変な奴が現れたら一人も漏らさず全部相手するように
それがこのスレのお約束
0910デフォルトの名無しさん2007/06/05(火) 09:34:09
>>909
お前、もう帰っていいぞ。
0911デフォルトの名無しさん2007/06/05(火) 10:21:08
次スレのテンプレのことについて、次の提案があるのだが、どうだろうか？

１．過去スレを入れるのはやめる。（前スレだけがあればよいと思う）
２．「エラーなどの問題への対処の相談には、問題が再現する完全かつ最短のソースを
　　作成して下さい。作成する過程で問題が解決する場合も多いです。」
との注意書きを >>1 に入れる。
（質問者が必要な情報を小出しにするのを防ぐため）
３．>>10をテンプレを入れる（但し、内容は、以下のように少し変更する）。
---------------------------------------------------------
#　　【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 "SJISには、「十表貼申予暴」のようなダメ文字がある。\n";
sleep(1);
#　以上の内容は、日本語処理が解らない人でも、とりあえず日本語処理ができてしまう
#　おまじないです。条件が異なる場合の対処方法は、ご自分で勉強して下さい。
0912デフォルトの名無しさん2007/06/05(火) 11:44:29
あれ？過去スレ保管所みたいなのなかったっけ？
0913デフォルトの名無しさん2007/06/06(水) 12:20:20
ttp://namahage.dip.jp/blog/archive/2007/06/06/98399.aspx
0914デフォルトの名無しさん2007/06/06(水) 19:43:33
podやpod2htmlとかで検索していたら、クロスリファレンスという言葉が出てきたのですが
クロスリファレンスで検索してもよくわかりませんでした。
このことに関することが書かれているウェブサイトや文献があったら教えてほしいです。
よろしくお願いします。
0915デフォルトの名無しさん2007/06/06(水) 20:07:20
>>914
naoya さんとこの循環参照の解説嫁ば？

ttp://d.hatena.ne.jp/naoya/20051012/1129115986
cross reference って日本語にすれば相互参照で、現実のプログラム中では
ぐるぐる回っちまうから、、、てことで
相互参照、循環参照あたりでググるのもありって事で。
0916デフォルトの名無しさん2007/06/06(水) 20:24:49
podでクロスリファレンス言うたら L<> のことちゃうのん？
0917デフォルトの名無しさん2007/06/06(水) 20:38:18
orz...
0918デフォルトの名無しさん2007/06/06(水) 21:11:42
質問～

print my@aaa=(5,5,5,5,5);
print my@bbb=(3,3,3,8,8,8);
↑
これと、
↓
print my@aaa=(5,5,5,5,5);
print @aaa=(3,3,3,8,8,8);

↑

下のほうは使い終わった(もう処理しない予定の)@aaaを再利用しています。
上のやつと下のやつはどっちのほうが処理早いですか？
0919デフォルトの名無しさん2007/06/06(水) 21:23:16
どっちもどっち
好きに使え
0920デフォルトの名無しさん2007/06/06(水) 21:26:15
>>918
use Benchmark;

timethese 1000000, {
test1 => sub {
my@aaa=(5,5,5,5,5);
my@bbb=(3,3,3,8,8,8);
},
test2 => sub {
my@aaa=(5,5,5,5,5);
@aaa=(3,3,3,8,8,8);
}
};
0921デフォルトの名無しさん2007/06/06(水) 21:26:27
print による時間ロスは等価だとして

use Benchmark qw(timethese) ;
sub op1 { my @one = 0 .. 10_000 ; my @two = 0 .. 10_000 ; }
sub op2 { my @one = 0 .. 10_000 ; @one = 0 .. 10_000 ; }
timethese( 1000, { op1 => 'op1', op2 => 'op2' } ) ;

Benchmark: timing 1000 iterations of op1, op2...
op1: 15 wallclock secs (13.92 usr + 0.26 sys = 14.18 CPU) @ 70.52/s (n=1000)
op2: 22 wallclock secs (19.87 usr + 0.38 sys = 20.25 CPU) @ 49.38/s (n=1000)
0922デフォルトの名無しさん2007/06/06(水) 21:32:11
>>920
後者のほうがちょっとだけ速いな
0923デフォルトの名無しさん2007/06/06(水) 21:35:42
>>919-922
㌧クス
ベンチマークの方法示してくれて更にトンクス
09249142007/06/06(水) 22:51:21
>>915-917
L<> のところをしっかり読んでみたらクロスリファレンスってのがありました。
ハイパーリンクのようなものと見て問題ないでしょうか？

pod2htmlの解説でクロスリファレンスという言葉が出てきたときは、なにかこう
クロスリファレンスというものを記述すれば関連するpodがまとめて変換されたり
という、うれしい事が起こるのかななんて妄想してしまいました。（汗
(もともとそういうことができないかなと思って検索していたので・・・)

単純に文書間のリンクであるならば、簡単に理解できそうです。

どうもありがとうございました。
0925デフォルトの名無しさん2007/06/06(水) 23:53:10
>>921
これは面白いね。
sub op3 { my @one; @one = 0 .. 10_000; my @two; @two = 0 .. 10_000; }
を試したら更に遅くなった。

my @array = 0 .. 10_000;
sub op4 { my @one = @array; my @two = @array; }
sub op5 { my @one; @one = @array; my @two; @two = @array; }

は同じ程度の速度だから、 .. が遅くなるのかな。
0926デフォルトの名無しさん2007/06/07(木) 00:20:49
リファレンスというか、値を格納する番地を確保する時間の差じゃないかな？
sub op1 { my @one = 0 .. 10_000 ; my @two = 0 .. 10_000 ; }
sub op2 { my @one = 0 .. 10_000 ; @one = 0 .. 10_000 ; }
op2のほうの@oneの書き換え時には、既に値を格納する10000個の番地が出来てるから早くなる。
op1のほうは@oneの番地10000個の他に@twoの番地10000個を作ってるから遅くなるのかなと。

それならば、
my @array = 0 .. 10_000;
sub op4 { my @one = @array; my @two = @array; }
sub op5 { my @one; @one = @array; my @two; @two = @array; }
のop4とop5がほぼ同じスピードってのも納得できそう。(4も5も番地の数は同じ。)

新しく配列作るより、使わなくなった配列を再利用したほうがスピード上がるってことかな～と。
再利用したほうがメモリ効率も良さ気。
0927デフォルトの名無しさん2007/06/07(木) 06:17:52
>>926
921 は「 op2 の方が遅い」って話しだぞ
0928デフォルトの名無しさん2007/06/07(木) 07:28:18
922のせいに違いない
0929デフォルトの名無しさん2007/06/07(木) 07:41:27
921 デフォルトの名無しさん sage 2007/06/06(水) 21:26:27
print による時間ロスは等価だとして

use Benchmark qw(timethese) ;
sub op1 { my @one = 0 .. 10_000 ; my @two = 0 .. 10_000 ; }
sub op2 { my @one = 0 .. 10_000 ; @one = 0 .. 10_000 ; }
timethese( 1000, { op1 => 'op1', op2 => 'op2' } ) ;

Benchmark: timing 1000 iterations of op1, op2...
op1: 15 wallclock secs (13.92 usr + 0.26 sys = 14.18 CPU) @ 70.52/s (n=1000)
op2: 22 wallclock secs (19.87 usr + 0.38 sys = 20.25 CPU) @ 49.38/s (n=1000)


922 デフォルトの名無しさん sage 2007/06/06(水) 21:32:11
>>920
後者のほうがちょっとだけ速いな
09309212007/06/07(木) 08:03:09
本要件で誤解を招くまねをした俺を晒すのは分るんだが、
920 の結果を 922 は正しくレスしてる。晒す意味が分らん。

% perl --
use Benchmark;
timethese 1000000, {
　test1 => sub { my@aaa=(5,5,5,5,5); my@bbb=(3,3,3,8,8,8); },
　test2 => sub { my@aaa=(5,5,5,5,5); @aaa=(3,3,3,8,8,8); }
};
^D
Benchmark: timing 1000000 iterations of test1, test2...
test1: 2 wallclock secs ( 1.47 usr + 0.00 sys = 1.47 CPU) @ 680272.11/s (n=1000000)
test2: 0 wallclock secs ( 1.37 usr + -0.01 sys = 1.36 CPU) @ 735294.12/s (n=1000000)
0931デフォルトの名無しさん2007/06/07(木) 09:13:36
>>930
ベンチマーク結果の見方が正しくわからんけど、
>>927-929が間違ってて、他のレスは正しい、でok?
0932デフォルトの名無しさん2007/06/07(木) 09:24:16
use Benchmark qw(timethese) ;
sub op1 { my @one = 0 .. 10_000 ; my @two = 0 .. 10_000 ; }
sub op2 { my @one = 0 .. 10_000 ; @one = 0 .. 10_000 ; }
timethese( 1000, { op1 => 'op1', op2 => 'op2' } ) ;

Benchmark: timing 1000 iterations of op1, op2...
op1: 4 wallclock secs ( 3.20 usr + 0.00 sys = 3.20 CPU) @ 312.21/s (n=1000000)
op2: 6 wallclock secs ( 4.89 usr + 0.00 sys = 4.89 CPU) @ 204.46/s (n=1000000)

>>930と逆の結果っぽいんだけどなんで??
つか最後の
@ 312.21/s (n=1000000)と
@ 204.46/s (n=1000000)って
どっちが早いの？？
0933デフォルトの名無しさん2007/06/07(木) 09:39:36
実行環境によるって事じゃないのか
0934デフォルトの名無しさん2007/06/07(木) 10:05:22
>>932が回したのは>>921のコードで
>>930は>>921が回した>>920のコードだから。

>>932
op1: 1000 iterations / 3.20 CPU (sec.) = 312.21/s
op2: 1000 iterations / 4.89 CPU (sec.) = 204.46/s
な感じ。なんで n=1000000 なのか知らないけど。
0935デフォルトの名無しさん2007/06/07(木) 10:07:37
>>932
> op1: 4 wallclock secs ( 3.20 usr + 0.00 sys = 3.20 CPU) @ 312.21/s (n=1000000)
> op2: 6 wallclock secs ( 4.89 usr + 0.00 sys = 4.89 CPU) @ 204.46/s (n=1000000)

実時間で4秒かかった。ユーザ時間3.2秒、システム時間0秒=合計3.2秒。1秒で(1000回のループを)312.21回実行できた
実時間で6秒かかった。ユーザ時間4.89秒、システム時間0秒=合計4.89秒。1秒で(1000回のループを)204.46回実行できた

どっちが速いかわかるよな？
0936デフォルトの名無しさん2007/06/07(木) 10:41:11
>>935
理解しますた。
use Benchmark qw(timethese) ;
timethese( 10000, { op1 => 'op1', op2 => 'op2' } ) ;
sub op1 {for(0..100){my@aa=(5 x 50)}}
sub op2 {map{my@aa=(5 x 50)}(0..100)}

↑
forとmap、ほとんど差が無くて実行するたびに結果が逆転してますた。

ベンチマーク便利だぬ
0937デフォルトの名無しさん2007/06/07(木) 10:56:10
perl -de0 にて
x map { $_ => $_*$_ } 1..3 # OK: 1 1 2 4 3 9
x map { "a$_" => $_*$_ } 1..3 # NG: syntax error
x map { "a$_" , $_*$_ } 1..3 # NG: syntax error
x map { ("a$_" , $_*$_) } 1..3 # OK: a1 1 a2 4 a3 9
x map { +"a$_" => $_*$_ } 1..3 # OK: a1 1 a2 4 a3 9
x map ("a$_" => $_*$_), 1..3 # NG: a0 1 2 3
x map +("a$_" => $_*$_), 1..3 # OK: a1 1 a2 4 a3 9
x map +{ $_ => $_*$_ }, 1..3 # ??: {1=>1} {2=>4} {3=>9}

やっぱりPerlキモい
0938デフォルトの名無しさん2007/06/07(木) 11:24:34
普通じゃん
0939デフォルトの名無しさん2007/06/07(木) 11:59:55
my @one;
$one[10001] = undef;
my @s = 0..10000;
sub op1 { my @two = @s ; }
sub op2 { @one = @s ; }
sub op3 { @one = 0..10000; }
sub op4 { my @two; $two[10001] = undef; }

Benchmark: timing 1000 iterations of op1, op2, op3, op4...
op1: 2 wallclock secs ( 1.87 usr + 0.00 sys = 1.87 CPU) @ 534.19/s (n=1000)
op2: 2 wallclock secs ( 1.86 usr + 0.00 sys = 1.86 CPU) @ 536.77/s (n=1000)
op3: 3 wallclock secs ( 3.55 usr + 0.00 sys = 3.55 CPU) @ 282.09/s (n=1000)
op4: 1 wallclock secs ( 0.15 usr + 0.00 sys = 0.15 CPU) @ 6666.67/s (n=1000)
(warning: too few iterations for a reliable count)

時間がかかるのは .. (範囲演算子)。
メモリの領域確保は誤差範囲。
メモリコピーは、まあそれなりのコスト。
0940デフォルトの名無しさん2007/06/07(木) 12:02:42
というか、メモリコピーが一番の時間コスト要因だな。
0941デフォルトの名無しさん2007/06/07(木) 12:19:48
流れの中すみませんが、printf で質問です。
何番目の引数を使う、という様な引数の交換はできるでしょうか？

PHP でゆうところの次のものです。
> printf( "答えは%2$d" , 10, 11, 12 );
> 結果： 答えは11
0942デフォルトの名無しさん2007/06/07(木) 12:23:16
つperldoc -f sprintf

試せばいいのに
$ perl -e 'printf( q{答えは%2$d} , 10, 11, 12 );'
答えは11
09439412007/06/07(木) 12:29:51
>>942
早速ありがとうございます。
うっ、できた…。　そうか "" の中では$が変数判定されるんだった ：Drz。
09449252007/06/07(木) 17:22:41
誤解を招きやすいレスを付けて悪かった。
>>921を面白いと感じたのは、op1の方がop2よりも4割も速かったから。

以下のコードで確認したところ、範囲演算子の速度が違っているみたい。

use Benchmark;
timethese undef, {
test0 => sub { my @aaa=0..10_000; },
test1 => sub { my @aaa; my @bbb=0..10_000; },
test2 => sub { my @aaa; @aaa=0..10_000; },
test3 => sub { my @aaa=0..10_000; my @bbb=@aaa; }
};

Benchmark: running test0, test1, test2 for at least 3 CPU seconds...
test0: 3 wallclock secs ( 3.02 usr + 0.00 sys = 3.02 CPU) @ 194.37/s (n=587)
test1: 3 wallclock secs ( 3.46 usr + 0.00 sys = 3.46 CPU) @ 187.57/s (n=649)
test2: 3 wallclock secs ( 3.35 usr + 0.00 sys = 3.35 CPU) @ 88.06/s (n=295)
test3: 4 wallclock secs ( 3.41 usr + 0.00 sys = 3.41 CPU) @ 86.51/s (n=295)

左辺にmyが付かないと内部で配列のコピーが余分に1回発生してるような速度になってる。
0945デフォルトの名無しさん2007/06/07(木) 18:14:18
範囲リストをよそに作ってからコピーしてるんだろうな
0946デフォルトの名無しさん2007/06/07(木) 18:27:25
>>944
test0とtest1がなぜこんなに差が出るのか謎だな。
0947デフォルトの名無しさん2007/06/07(木) 19:05:01
参考

# pen4 2.4 colinux　This is perl, v5.8.8 built for i386-linux-thread-multi
Benchmark: running test0, test1, test2, test3 for at least 3 CPU seconds...
test0: 3 wallclock secs ( 2.09 usr + 0.98 sys = 3.07 CPU) @ 447.56/s (n=1374)
test1: 3 wallclock secs ( 2.94 usr + 0.28 sys = 3.22 CPU) @ 445.03/s (n=1433)
test2: 3 wallclock secs ( 3.12 usr + 0.11 sys = 3.23 CPU) @ 234.37/s (n=757)
test3: 3 wallclock secs ( 3.03 usr + 0.13 sys = 3.16 CPU) @ 220.89/s (n=698)

pen4 3.0 This is perl, v5.8.4 built for i386-freebsd-64int
Benchmark: running test0, test1, test2, test3 for at least 3 CPU seconds...
test0: 5 wallclock secs ( 3.22 usr + 0.00 sys = 3.22 CPU) @ 538.41/s (n=1733)
test1: 3 wallclock secs ( 3.18 usr + 0.00 sys = 3.18 CPU) @ 531.81/s (n=1691)
test2: 5 wallclock secs ( 3.23 usr + 0.01 sys = 3.23 CPU) @ 255.69/s (n=827)
test3: 4 wallclock secs ( 3.16 usr + 0.00 sys = 3.16 CPU) @ 260.74/s (n=825)

# セロリンD 2.8　This is perl, v5.8.8 built for i386-linux-thread-multi
Benchmark: running test0, test1, test2, test3 for at least 3 CPU seconds...
test0: 4 wallclock secs ( 3.23 usr + 0.00 sys = 3.23 CPU) @ 645.82/s (n=2086)
test1: 3 wallclock secs ( 3.19 usr + 0.00 sys = 3.19 CPU) @ 640.13/s (n=2042)
test2: 3 wallclock secs ( 3.15 usr + 0.00 sys = 3.15 CPU) @ 331.11/s (n=1043)
test3: 3 wallclock secs ( 3.15 usr + 0.00 sys = 3.15 CPU) @ 320.95/s (n=1011)
0948デフォルトの名無しさん2007/06/07(木) 19:43:32
今北産業
0949デフォルトの名無しさん2007/06/07(木) 19:46:26
my@a = 1..100; なら@aを確保して直に1..100で初期化するように最適化されるけど、
my@a;@a=1..100; だと、@aを確保してから(1..100)を生成して、@aにコピーしてるんだろうな。
0950デフォルトの名無しさん2007/06/07(木) 19:56:19
ベンチマーク厨乙
0951デフォルトの名無しさん2007/06/07(木) 20:49:53
XEON 3G This is perl, v5.8.8 built for i686-linux
test0: 3 wallclock secs ( 3.19 usr + 0.00 sys = 3.19 CPU) @ 801.88/s (n=2558)
test1: 3 wallclock secs ( 3.20 usr + 0.00 sys = 3.20 CPU) @ 796.88/s (n=2550)
test2: 3 wallclock secs ( 3.18 usr + 0.00 sys = 3.18 CPU) @ 414.78/s (n=1319)
test3: 3 wallclock secs ( 3.17 usr + 0.00 sys = 3.17 CPU) @ 400.63/s (n=1270)
0952デフォルトの名無しさん2007/06/07(木) 21:43:01
速いCPUの自慢しやがって！
0953デフォルトの名無しさん2007/06/07(木) 21:56:39
C2Dとmacの結果も見たいです＞＜
0954デフォルトの名無しさん2007/06/08(金) 12:17:03
質問です
gtk2-perl使ってるのですが、なんかいい開発環境ありますか？
今はgeditとlv使いながらやってますが関数追いかけるのが大変で…。
eclipseがいいのであれば使ってみようと思います。他におすすめなのがあればぜひ。
guiはglade使ってて不満はないです。
0955デフォルトの名無しさん2007/06/08(金) 12:24:05
男は黙ってvim
0956デフォルトの名無しさん2007/06/08(金) 14:32:33
WineでEmEditor
0957デフォルトの名無しさん2007/06/08(金) 15:50:19
エディタをここで聞くなよ
Linux板のエディタスレでやれ
0958デフォルトの名無しさん2007/06/08(金) 16:30:46
粘着君sage覚えたんだ
0959デフォルトの名無しさん2007/06/09(土) 19:36:05
もちろんそうよ
0960デフォルトの名無しさん2007/06/09(土) 23:53:32
Intel(R) Core(TM)2 CPU T7200 @ 2.00GHz This is perl, v5.8.8 built for
i386-freebsd-64int

Benchmark: running test0, test1, test2, test3 for at least 3 CPU seconds...
test0: 3 wallclock secs ( 3.22 usr + 0.00 sys = 3.22 CPU) @ 873.63/s (n=2812)
test1: 4 wallclock secs ( 3.17 usr + 0.00 sys = 3.17 CPU) @ 886.54/s (n=2812)
test2: 3 wallclock secs ( 3.20 usr + 0.00 sys = 3.20 CPU) @ 482.34/s (n=1545)
test3: 3 wallclock secs ( 3.16 usr + 0.00 sys = 3.16 CPU) @ 444.37/s (n=1406)
0961デフォルトの名無しさん2007/06/09(土) 23:59:32
Pentium(R) M processor 2.00GHz This is perl, v5.8.8 built for i386-freebsd-64int
Benchmark: running test0, test1, test2, test3 for at least 3 CPU seconds...
test0: 3 wallclock secs ( 3.20 usr + 0.00 sys = 3.20 CPU) @ 792.04/s (n=2537)
test1: 3 wallclock secs ( 3.20 usr + 0.00 sys = 3.20 CPU) @ 792.04/s (n=2537)
test2: 3 wallclock secs ( 3.20 usr + 0.00 sys = 3.20 CPU) @ 415.30/s (n=1327)
test3: 3 wallclock secs ( 3.20 usr + 0.00 sys = 3.20 CPU) @ 395.86/s (n=1268)

AMD Athlon(tm) 64 Processor 3200+ This is perl, v5.8.8 built for i386-netbsd-thread-multi
Benchmark: running test0, test1, test2, test3 for at least 3 CPU seconds...
test0: 4 wallclock secs ( 3.36 usr + -0.02 sys = 3.34 CPU) @ 744.91/s (n=2488)
test1: 3 wallclock secs ( 3.01 usr + -0.01 sys = 3.00 CPU) @ 744.67/s (n=2234)
test2: 3 wallclock secs ( 3.21 usr + 0.00 sys = 3.21 CPU) @ 395.64/s (n=1270)
test3: 3 wallclock secs ( 3.21 usr + 0.00 sys = 3.21 CPU) @ 361.68/s (n=1161)

AMD Athlon(tm) 64 Processor 3200+ This is perl, v5.8.8 built for i386-freebsd-64int
Benchmark: running test0, test1, test2, test3 for at least 3 CPU seconds...
test0: 3 wallclock secs ( 3.19 usr + 0.00 sys = 3.19 CPU) @ 517.96/s (n=1651)
test1: 3 wallclock secs ( 3.20 usr + 0.00 sys = 3.20 CPU) @ 515.43/s (n=1651)
test2: 4 wallclock secs ( 3.16 usr + 0.00 sys = 3.16 CPU) @ 267.72/s (n=845)
test3: 4 wallclock secs ( 3.19 usr + 0.00 sys = 3.19 CPU) @ 252.86/s (n=806)
何故か同じマザー使ってるのに、FreeBSD だと遅い…
0962デフォルトの名無しさん2007/06/10(日) 08:47:30
もうみんあ飽きてるというのに・・・
0963デフォルトの名無しさん2007/06/10(日) 14:30:47
ベンチマーク厨うざ
0964デフォルトの名無しさん2007/06/10(日) 18:19:35
qwとqqの違いってなんなんでしょうか？
0965デフォルトの名無しさん2007/06/10(日) 18:27:54
qq/foo bar baz/ #=> "foo bar baz"
qw/foo bar baz/ #=> ("foo","bar","baz")
0966デフォルトの名無しさん2007/06/10(日) 18:30:04
訂正
qq/foo bar baz/ #=> "foo bar baz"
qw/foo bar baz/ #=> ('foo','bar','baz')
0967デフォルトの名無しさん2007/06/10(日) 18:32:12
>>965
わかりました、ありがとうございます。
q//やqq/がラクダ本に載ってないということは、これらは最近追加された演算子という
ことなんでしょうか？
0968デフォルトの名無しさん2007/06/10(日) 18:35:09
>>967
p74
0969デフォルトの名無しさん2007/06/10(日) 18:55:49
>>963
貧乏人うぜぇ
0970デフォルトの名無しさん2007/06/10(日) 19:35:02
なんと的外れな煽り
0971デフォルトの名無しさん2007/06/10(日) 19:37:01
金持ちは黙ってろ
0972デフォルトの名無しさん2007/06/10(日) 19:50:34
人を指して貧乏人とか行ってる時点でレベルの低いやつだとまるわかり。
恥ずかしくないの？
0973デフォルトの名無しさん2007/06/10(日) 20:07:09
牛丼にたまごとお新香付けるオレはかなり貴族
0974デフォルトの名無しさん2007/06/10(日) 20:36:34
Perlの話をしろ糞ども
0975デフォルトの名無しさん2007/06/10(日) 20:43:13
>>972
本当にレベルが高いやつはスルーするので、
あなたもレベルが低いようですね。
0976デフォルトの名無しさん2007/06/10(日) 20:53:21
そういうあなたもｗ
0977デフォルトの名無しさん2007/06/10(日) 21:03:24
そういうあなたもｗ
0978デフォルトの名無しさん2007/06/10(日) 21:22:41
アイスのフタの裏を舐めないオレはかなり貴族
0979デフォルトの名無しさん2007/06/10(日) 21:32:51
フタ付きのアイスくうのは庶民
0980デフォルトの名無しさん2007/06/10(日) 22:11:17
フタの裏のアイスだけ食べるのが真の貴族。
0981デフォルトの名無しさん2007/06/10(日) 22:49:42
変なのがいつくようになっちまった
0982デフォルトの名無しさん2007/06/11(月) 00:14:43
open FH1, "hoge.txt"

はふつーにＯＫなのですが

my $FH2
open $FH2, "hoge.txt"

とかやると、エラーと言われます。ところが

open my $FH3, "hoge.txt"

これだとエラーとは言われません。なんででしょう？
5.6の環境でやっててヘンだなーと思ってたんだが
5.8だとFH2のパターンでも何にも言われない
うーん、、、
0983デフォルトの名無しさん2007/06/11(月) 00:33:49
openの第一引数に変数を与えた場合の挙動はたびたび変更されてるから、
perlfuncの古いの引っ張ってきて読んどくといいよ。
0984デフォルトの名無しさん2007/06/11(月) 01:15:50
>>983
なるほど、そういうことですか
まあ普通にFH1のように使えばいいんでしょうが

関係ないけど $# って廃止されるんですね
scalar(@array) とかで代替できるから問題ないんでしょうが
廃止しようとする意図がよくわからない
0985デフォルトの名無しさん2007/06/11(月) 01:41:39
>>972
「本当に○○な奴はそれを言わない」というたぐいの思い込みを前提に物を言うほうが、
よっぽど恥ずかしいと思います :-)

そういう前提を持つと、「言った時点でそいつは○○ではないことになる」から、
「言われたくないことを言われたくない人に言われる」ことが絶対無くなって、凄く気が楽になる、
それはわかりますが、かっこ悪い逃げ方にもほどがあります :-)
0986デフォルトの名無しさん2007/06/11(月) 03:34:48
次スレということにしたいのです。

Perlについての質問箱 31箱目
http://pc11.2ch.net/test/read.cgi/tech/1181500187/
0987デフォルトの名無しさん2007/06/11(月) 04:52:06
>>982
solaris の 5.6.0 にてやってみたが、エラー出ないぞ。
5.6.0 叩いているつもりで、5.005 呼んでるとかないか？
0988デフォルトの名無しさん2007/06/11(月) 10:30:07
>>984
Perlも6でいよいよ終わりっぽいな。
要素数と最大の添え字番号じゃPerlとRubyくらい違うだろうに。
0989デフォルトの名無しさん2007/06/11(月) 14:18:55
>>987
エラー隠蔽者のチンポしゃぶり乙!
0990デフォルトの名無しさん2007/06/11(月) 18:33:25
ﾏﾀｰﾘ
0991デフォルトの名無しさん2007/06/11(月) 22:49:16
>>985
それはまじれすなのか
0992デフォルトの名無しさん2007/06/12(火) 21:26:51
ちんこ
0993デフォルトの名無しさん2007/06/15(金) 02:00:51
まずはここを使い切ろう
0994デフォルトの名無しさん2007/06/15(金) 04:01:48
＼
0995デフォルトの名無しさん2007/06/15(金) 04:03:05
＼
0996デフォルトの名無しさん2007/06/15(金) 04:30:47
__END__
0997デフォルトの名無しさん2007/06/15(金) 05:25:17
=head1 NAME

pc11::tech - bbs for programers
0998デフォルトの名無しさん2007/06/15(金) 08:47:11
syntax error at line >>1-1000
0999デフォルトの名無しさん2007/06/15(金) 09:58:52
print '9' x 3;
1000デフォルトの名無しさん2007/06/15(金) 10:06:31
die "all is forgotten";
1001１００１Over 1000Thread
このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。
レス数が1000を超えています。これ以上書き込みはできません。