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

"The duct tape of the Internet" こと、Perlについての質問箱です。
"There's more than one way to do it" ということで、Perlの奥深さについて皆で語り合い、追求してまいりましょう。

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

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

http://www.perl.org/get.html
● 2007/10/12現在の最新版: 5.8.8
● 2007/10/12現在の開発版: 5.9.5

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

リンク集は>>2-3
過去スレは>>4 あたり

[プログラミング自体の経験が無い奴はまずココを読め]
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/

2

[モジュール]
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

[過去スレ]
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/
30 ttp://pc11.2ch.net/test/read.cgi/tech/1173880452/

31 ttp://pc11.2ch.net/test/read.cgi/tech/1181500187/
32 ttp://pc11.2ch.net/test/read.cgi/tech/1181500187/

>>6
過去スレ 32 間違えた

32 ttp://pc11.2ch.net/test/read.cgi/tech/1186995713/

俺のチンコは左寄り。

前スレの「前」の話の人は
上司が2ch見てたらｵﾜﾀな

スレの前って言ったら、ここだろ。

で？結局、「前」 はどっちなのさ。はっきり決着をつけてもらおうか。

「前」はおやつに入るんですか？

男前 の前はどっちなん？

つか前スレの981がアホなのが諸悪の根元。
「前ってどっちですか？」なんて聞かれた日にゃ、
俺が上司ならブチ切れ。　使い物になんねから左遷だな。

と言いつつ、実はどっちが 「前」 か答えられない >>14 であった。

もしや、これのオチは

sub 前 {
print "hoge";
}

っていうサブルーチンの事だったと言うんじゃ・・・

アインシュタインの相対性理論を説明するときに必ず出てくるのが「電車」のたとえ。
これにならって、電車について考えてみる。
止まっている電車はどっちが前だかわからない。
だが走ってる電車ならわかる。進行方向が前だ。
これはペチャパイ女にも言える。

プログラムの「前」とは、プログラムの進行方向なのでは無いか？

・・・で、プログラムってどっちに向かって走ってるの？
（とりあえず、ループとか条件分岐とかは考えにいれないでいい）

しかし981は、人間の前は「顔のある方」って言い切ってるよ博士

人を顔で判断するのは、あまり関心しないな。

>>18
顔が両側についている人はどうするんだよ

>>20
ハリーポッターのヴォルデモートかいな(笑)

画面の方向です。

>20
そりゃ今お前が会話しているほうの顔が前だろ

いいからそろそろどうでもいい話やめれ。
急に新スレまで行っててビックリだ

んじゃ。

5.10っていつ出る予定なん？
5.10に期待することは？

とか聞いてみる。

//　とか err って5.10から使えるようになるんだっけ？

そんな事はどうでもいいだろ。
このスレにはマジメに質問するヤツはいないのか？

ウェブサイトでcgi（bbs）を扱う上で、
perlとPHPのどちらを用いるのが良いと思いますか？
調べてもPHPが楽で軽くて良い、逆にperlは重いからダメだということばかり書いていまして…

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

進行方向が前なら、
次スレ=前スレってことですか？

PHP厨のネガティブキャンペーン必死ですねｗｗｗｗ

なんだこれ、俺達に“動け”ってことか
そろそろ言語のひとつでも潰して力見せる時か
しかし、なんでもム板にもちこむなよな
ま、実際何とかしちゃう俺らも俺らだけどｗ

> ま、実際何とかしちゃう俺らも俺らだけどｗ

どんな抗うつ剤を飲むとそういう狂言を吐けるようになるの？

この中にニュー速民居たら手上げろ〜(^o^)ﾉ

何か？

前は住民でした

Expectモジュールについて質問
Tclの.expファイルをExpectモジュール使ったPerlのファイルに書き換えてるんだけど
TclのputsにあたるものはExpectモジュールでは用意されてないの？

つまらんこと聞くな！

「つまらんこと」　＝　>>37に理解できないこと

最近、いちいち質問者につっかかる厨房が徘徊しているようだ。

mod_perl な環境で、Perl5.8 の rand() を繰り返すと
同じ数列が発生しちゃうんだけど、やっぱり srand() 必要？

まっとうな乱数が欲しいならrand()とか使っちゃダメ

そして真っ当な乱数って云うのがほぼ実現不可能と気が付くのであった。まる♪

>>39
http://www.marguerite.jp/Nihongo/Labo/Temp/ModPerl.html#random
http://www.donzoko.net/doc/memo/perlithreads.html

マジレスすると、無理数がまともな乱数。

最初だけは疑似乱数で任意の数nを生成
→円周率の小数点以下n桁目の数値を乱数として取得
→以下nを一つずつ増やす

とか？

結構少ない個数の観察で以降の出力を予測できるようになるから、
もう一ひねりいりそうだな。

その円周率はどこから持ってくるんだ。

スーパーπで１０４万桁を毎回計算させますが

↑自分ワールドで何舞い上がってるんだろ

マジレス乙

>>46
http://www.lacim.uqam.ca/~plouffe/Simon/articlepi.html

@ARGV、標準入出力、テキストファイルの中身は全て
プラットフォームのデフォルトのエンコードだと仮定して、
どのプラットフォームでも同じように動作するようにスクリプト書きたい。

コード中にcp932とかハードコードしたくないので
.NETやpythonみたいにstdioのエンコードを取得したりできればいいと思うけど、
どうしたらいい？

>>51
> @ARGV、標準入出力、テキストファイルの中身は全て
> プラットフォームのデフォルトのエンコードだと仮定して、

プラットフォームのデフォルトのエンコードが存在しない場合は?

>>52
そういう環境は視野に入ってないっす。
ascii扱いでいいんじゃないの。
変なバイト列だったらエラーになればいいと思う。
どちらかというと、クロスプラットフォームよりも、
とにかく日本語版Windows上のアプリとしてちゃんと動き、
なおかつ、cp932をハードコードせずに済ませることの方を重視したいかな。

それとも、
OSのAPIレベルでデフォルトのエンコードなるものを取得する手段が無い場合ってこと？
Unixとかよく分からないので、そのへん分からない。
ターミナルのエンコードとか標準化された手段で取れないんだろうか？

>>53
Guess

Term::Encoding

>>Term::Encoding
どうもありがとう。

何をやるにも標準モジュールだけで足りない言語だなあ。
Perlでそれを言っちゃ駄目ですか？
自分達のリリースしたアプリや、日々の作業で使うスクリプトが
依存してるモジュールの管理ってどうしてるの？
cpanで自分のマシンにインストールするだけなら簡単だけど、
必要なファイルをよりわけて、
アプリのソースと一緒にリポジトリに保存しとかないとやばいよね？
それって簡単にできるんだろうか。
Perlのディストリビューション以外に、
どれだけのファイルを保存する必要があるのか、
ワケわかんなくなると思うんだけど。

皆が求める物は既に標準モジュールになっている
どんな言語でも不足分を補うのがライブラリなのに
それを否定されては最初から全部入りの言語を
使ってくださいとしか言い様が無い
単に自分がマイノリティな事に気付いてない
我侭言ってる子供にしか見えないけど

　　　　　　　　　　　　_,,..r'''""~~`''ｰ-.､
　　　　　　　　　　　 ,,.r,:-‐'''"""~~`ヽ､:;:;:＼
　　　　　　　　　　 r"r　　　　　　　　　 ゝ､:;:ヽ
　　 r‐-､　　 ,...,,　|;;;;|　　　　　　　,,.-‐-:､ ヾ;:;ゝ
　　 :i!　 i!　　|: : i! ヾ| r'"~~` :;:　::;",,-‐‐-　 `r'^!
　　　 !　 i!. 　|　 ;|　l| 　''"~~　　　､　　　　　　i' |
　　 　 i!　ヽ　|　　|　|　　　 ,.:'"　　　､ヽ､　　　!,ﾉ　イェ〜イ
　　　　ゝ　 `-! 　:|　i!　　.:;:　'~~ｰ~~'"　ﾞヾ　: : ::|　　　宮川達彦 見てる〜？
　　 r'"~`ヾ、　　　i!　i!　　 ,,-ｪェI二エﾌﾌ　: : :::ﾉ~|`T
　　,.ゝ､　　r'""`ヽ､i!　`:､　　 ー　-　'"　:: : :／ ,/
　　!､　 `ヽ､ー､　　 ヽ‐''"`ヾ､.....,,,,＿,,,,.-‐'",..-'"
　　 | ＼ i:" ）　　　　 |　　　~`'''ー----''"~
　　　ヽ　`'"　　　　 ノ

>>57
Class::Accessorとか入って無いじゃん。
･･･いや、そういうことが言いたいんじゃなくて、
どうやって管理するの？ってのがレスの要点なんだけど。

>>59
全部のマシンに入れる

スクリプトで全部自動でインスコすればいいやん

モジュールを管理統制する
モジュールがCPANにある。

>>61
そのインスコされる全ファイルの把握と抽出の仕方がわからない。
ネットからじゃなくて、ローカルに保存したバージョンをインストールする方法も分からない。

>>62
なんてモジュールか教えて。ググっても分かんない。
そういうの、分厚いPerl本読んでも全然書いてないし。

　　　　　　　　　　　　　 　　|￣｀`''- ､
　　　　　　　　　　　　　 　　|　　　　　 ｀ﾞ''ｰ- ､　　＿＿＿＿＿＿__
　　　　　　　　　　　　　 　　|　　　 ,. -‐ ''´￣￣｀ヽ､＿　　　　　 　 /
　　　　　　　　　　　　　　　 |, - '´￣　 　 　 　 　 　 　 ｀ヽ、 　 　 /
　　　　　　　　　　　　　　／　　　　　　　　　　　　　　　｀ヽ､ヽ 　 /
　　　　　　　　　　　　 _/　　　　　　　　　　　　　　　　　　　 ヽヽ/
　　　　　　　　　　 ／ / / 　 /　　/　 /　　　　　　　　　　　　ヽﾊ
　　　　　　　　　 く　 / /! 　 | 　 〃 _/__　l|　　 | | 　 |　　|　 | | ||ヽ
　　　　　　　　　　 ＼l//　/ |　 /|'´ ∧　 ||　　 | |ｰ､||　　|　 | l　| ヽ
　　　　　　　　　　　　/ハ/　|　 | ヽ/　ヽ | ヽ　 | ||　/|ヽ/!　 |/　|　ヽ
　　　　　　　　　　　 /　|　　||ヽ { ,r===､　　 ＼| _!V　|//　//　 .! 　 |
　　　　　　　　　　　 |　|| 　 |l　|ヽ!'´￣｀ﾞ 　 ,　　==ミ､ /イ川　　|─┘
　　　　　　　　　　　 | ﾊ||　 ||　|　"""　┌---┐　　｀　 /　//　 |
　　　　　　　　　　　 V　!ヽ ト! ヽ､　　　 | 　 　 !　　　　/　//|　/
　　　　　　　　　　　　　　 ヽ! ＼ハ`　､ ヽ､__ノ　 　 ,.イ/ // | /
　 　 ┌/）/）/）/）/）/）/）/）/）/）lｰ/　` ー‐┬ '´ レ//l/　|/
　　　 |（/（/（/（/（/（/（/（/（/（/│||　　　 　 |＼　 〃
　　r'´￣ヽ.　　　　　 　 　 　 　 | | ト　　　 /　 　 ＼
　 /　￣｀ｱ　　　　　　　　 　 　 | | |　　⌒/　　　　 入
　 〉　￣二)　知ってるが　　　 | | |　　／　　 　 ／/ ヽ
　〈! 　 ,. -'　 　 　 　 　 　 　 　 | | ヽ∠-----',　'´　 　 ',
　 | ＼| | 　 .お前の態度が 　 | |<二Z二￣　 ／　　 　 ',
　 | 　 | |　　 　 　 　　 　　　　 _r'---|　　[ ｀`ヽ､　　　　　 ',
　 | 　 | |　　　気に入らない　>-､__　　　 [　　　 ヽ　　 　 　!
　　＼.| l.　　　　　　　　　 　 　 ヽ､　 　 　 [　　　　 ヽ　　　　|
　　　 ヽ|　　　　　　　　　　　　　　＼　 　 r'　　　　　ヽ､　 　 |

SJISまじりの文字列を１バイトずつ先頭から整数として
取り出したいのですが、どうすればいいのでしょうか？

ActivePerl（漢字にちゃんと対応してない環境）です。

よろしくお願い致します。

>>65
http://mikeneko.creator.club.ne.jp/~lab/perl/numerical_transform/#h4
http://perldoc.jp/docs/perl/5.8.4/perlfunc.pod#item_unpack_TEMPLATE_EXPR
@chr = unpack 'C*', 'SJISまじりの文字列';

>>66
ありがとうございます

親子プロセス間のシグナルの送り方についての質問です
cygwin で動いたけどActivePerl 5.8.8だとだめでした
'a'をキーインするとプログラムそのものが終了します
これってActivePerlの仕様でしょうか？

$SIG{ALRM} = \&handler;
$ppid = $$;
##alarm(5);
if( $childpid = fork() ){
　#親プロセス
　#-- 受信
　print "親 $$ \n";
　while(1){
　　sleep;
　　print "AHAHA\n";
　}
} else {
　#子プロセス
　print "子 \n";
　print $$,"\n";
　while(<STDIN>){
　　if( /a/ ){
　　　$x =kill('ALRM',$ppid);
#　　exit;
　　}
　}
}

sub handler{
　print @_[0], "\n";
}

>>68
実装はそうなっているけど、仕様なのかな？
親から子へシグナルを送る場合には(killが)使えるけど、かなり不便。

子プロセス(forkエミュレーションで生成した別スレッド)には PostThreadMessage を使って
殆どのシグナルを送れるけど、それ以外の相手には INT,BREAK 程度しか送れない。
おまけに、それ以外は全てKILL扱い( TerminateProcess を使う)になっている。
(そして、5.6との互換性の為だと注釈が付いている)
Cが読めるなら、詳細は(Perlソースに含まれる)win32.c中の win32_kill 読んだ方が早いかと。

foreach をつかって配列@xを(0..255)まで作り、
その要素として$x[0]にa1,$x[1]にa2,・・・$x[255]にa256を代入する文がわかりません。

どなたか教えてください。

map { $x[$_] = "a" . ($_ + 1) } 0..255;

>>71さん
foreach をつかって>>70のことを全部やる方法はわかりますか?

戻り値を受け取らないケースではforを使えっていつも婆ちゃんが言ってるだろ

$x[$_] = "a" . ($_ + 1) for 0..255;

なんか大学の課題には

>foreach 文を実行する前に，@x = (); を実行して長さ０の配列 @x を作ってください．
>そしてforeach 文を実行することで，$x[0] から $x[255] までの要素（それぞれ "a1" から "a256" までの値をもつ）を配列 @x に追加していってください．

とか、書いてあるんですけどどうすればよいのでしょうか?

お前ら、鬼のようなサンプルコードで返事するとは・・・

push(@x, "a$_") foreach 1..256;

>>75
友達に聞けよ。
ここで聞くのは、小学生がお習字の宿題を親にやらせるようなもん。
教員が暇なら呼び出しを食らうぞ。

>>73
ばあちゃんの知識は古すぎるよ。
いまはvoidコンテキストのmapはリストを作らないようになってるから大丈夫だよ。

いいなぁ
オレの実のばあちゃん以外にもう一人、そんなばあちゃんが欲しい

for( px = x, pa = a+1; px != x+256;i++, *px++ = *pa++ );

まちごーた
for( px = x, pa = a+1; px != x+256; *px++ = *pa++ );

Can't modify constant item in scalar assignment at -e line 1, near "x,"
syntax error at -e line 1, near ");"

>>79
それは foreach を使う方がしっくりくる場面でさえ map で粋がっちゃう
微笑ましい子らの尻拭いを perl がやってくれるようになっただけだと
認識してるんだが、どうか。

じゃあ、俺はgrepつかってやんよ！

@x = map { "a$_" } 1..256;

@x = ("a001".."a256");

@temp = map { "a$_" } 1..256;
push(@x, $temp[$_]) foreach 0..255;

foreachごときで粋がる微笑ましい子が何か言ってるぞ

map大好きっ子の的外れな反撃きたな

>>89
涙拭けよ！

PBP!PBP!

foreach厨自尊心を傷付けられて必死ｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

いやいや、>>89も>>93も根本的にハズしてるよ。
この件におけるmapとforeachの対称性は、「それを使って粋がるか否か」「その使用法に変な自尊心を持つか否か」
なのだから、mapを多用する子が反撃したかったら、自分の言われたことを返すのではなく、
逆のことを言わなくちゃいけないんだよ。「粋がる気が無いforeach厨」とかね。

現状では、黒人が肌の色を差別されて、白人に向かって「お前の肌真っ黒ｗ」って返してるようなものだよ。
そこは属性が逆なのだから、逆のことを言わなくちゃ反撃にならないでしょ？ｗ

なにこのスレ……

お前も相当根本的に的を外してる
そして例え話を慢心で語る奴も大抵的を外してる

>>96
オウム返ししたかったら、なぜそうなのか、根拠を添えないとまるで説得力が無いよ。
どこがどういう風に的を外しているのか、ではどう書くべきだったのか。
そういうことを何も思いつかないまま、感情的にオウム返ししただけに見えちゃうよ。

あと、2行目のような怪しげな「統計」でやり返すことほど、自分を貶めるものもない。
「そういう傾向がこの世にあって欲しい」だけでは？

もっとはっきり言ってやったら？

map で粋がる奴はいても foreach で粋がる奴はいない
そんなこともわからずオウム返しに終始する、やっぱりmap厨は馬鹿丸出し

ってｗ

>>94
何故言い返すのに逆の事を言わなくてはならないの?
逆のことを言えば優位になるとでも思ってるのか?
そして例え話が逸れ過ぎてて話にならない。
ただの厨房同士の喧嘩にマジレスしようとして
訳の分からない妄言を吐いてる人間にしか見えん。

そりゃ foreach は初心者が使う物だから、
そんなモノを使って粋がる奴は恥ずかしいさ。

そもそも、「無理にmapを使う奴」を皮肉っただけで（map関数を皮肉っているわけではない）
反撃に乗り出すってのが、なんか薄ら寒いよね。普段どんなコード書いてるのか。

>>99
ある性質xを持っていることを皮肉られた、ということは、
言っている相手は、その性質xを持っていないんだよ。

その性質xというのが、ここでは「粋がって（イケてる書き方だと思って）多用する」という行為。
でも、foreachっていうのは、そういう心理で選ぶものじゃないんだよね。
だから、「粋がる」という表現をオウム返ししても、まったく成立しないんだよ。

どう見ても例え話が間違ってる。君の黒人と白人の例で行くと
『お前の肌真っ白(笑)』と黒人が言ってるとしっくり来る。
どちらにせよ肌の色程度で言い争いしてるのはレベルが
知れてるって事だから、foreach厨とmap厨はレベルが低いって事になる。

>>103
急にレベルの話に移行する意味がわからない。
言っていることが、状況に即しているかどうかという話しかしていないのに。

map厨の読解力の無いオウム返しをうやむやにするための、両成敗ネタにしか見えない。

>>103
なんでレベル？

>>102
その粋がるってのが仮定だから話が違うよ。

>>89の尻拭いも大変だな。

本人でもないのに尻拭いする意味がわからないけど。

foreach厨の文章力の無さは異常

>>106
すまん、日本語としてまるで意味がわからない。

もしかして、
「mapを使うのはクールなやり方とされていて、慣れない奴は意味もなく多用してしまう罠」
というPerl界隈の「定着した認識」に対して、今さら
「そうだという証拠はあるのかデータはいつ取ったんだ統計を提示しろさあ早く」
って詰め寄る所存？

>>109
俺もお前の日本語の意味が分からない。

しかしこのスレ伸びが早いな

>>104 >>105
だってこれって『馬鹿って言った奴がバーカ』
と同レベルの喧嘩だろ。真面目に考察するだけ無駄。
このレベルでなら君の言う"反撃"も別に変ではないと思うが。

話が途切れるような物言いをあえて選んできてるなmap厨

>>112
ああ、>>89がそういうレベルで噛み付いてただけで、
それ以上のことを何も考えていなかったのなら、このまま説明や修正無しでもすべての筋は通るね。

じゃあ、そういうことで納得するか。

つうか、普通for使うから、foreach使うのってテキストで勉強した初心者だけでじゃね？

>>114
>>84 も含めて余計な煽りレスだろ。
根拠のない決め付けを始めたのはこいつで、
後に続くレスなんて容易に想像出来たはずだ。

for厨うぜえｗｗｗｗｗｗ

foreach厨うえぇ(嘔吐

原点に戻って、$x[0]〜$x[255]まで"a1"〜"a256"を入れるという
命題について、foreach厨はどんな書き方すんの?
明らかに @x = map { "a$_" } 1..256; の方が単純明快だろ。

(´-`).｡ｏＯ(WebProg板かとオモタ。。。)

>>120
それマジでWebProgに対する宣戦布告?
本気ならすぐ謝れ。謝罪しないのなら
WebProg総力を挙げてお前を潰すが。

やっぱ統合した方がいいな。WebProgの方に。

forでもmapでもどっちでも良いじゃん。
お前らPerlの合言葉を忘れたのか。

どっちでもいいとかどっちかにしろとか、どっちでもいいじゃん。

大学の教授、もう帰っちゃったぞ

>>119
>>75 の文章をそのまま Perl に翻訳すると
my @x = ();
foreach (1..256) { push @x, "a$_" }

foreach"文"ではなく修飾子を使っていいなら
my @x = ();
push @x, "a$_" for 1..256;

課題の要求仕様から外れていいなら
my @x = map "a$_", 1..256;
が最も素直なコード。

>>123
http://web.archive.org/web/20061011230734/www.jin.gr.jp/~nahi/d/990223-comp.html
文字コードは JIS (ISO-2022-JP)。

for(0..255){
$i = $_+1;
print "a$iと入力して下さいm(_ _)m\n";
$x[$_]=<IN>;
}

<IN> ?

>>84が余計なことを言ったせいだろ。
たぶん、>>84もmapに一度は嵌っている。
perlerの思春期みたいなもんだ。

>>129
ということにしておいてやるから、トイレでウンコ拭いてこい。

perlstyleさえも守れないクソの溜まり場はここですか？

まだやってんのかよｗ

foreach厨涙目で冷静な振りをするもバレバレで脱糞ｗｗｗｗｗｗｗｗｗｗｗｗｗ

婆ちゃんが草葉の陰で泣いてるよ

で、foreach厨 ってなんやねん

じゃあ名前を変えて foreach病 で
中二病みたいな感じでいいじゃん

mapのほうが使うの難しいと思うけど
煽ってるのはmap厨だな
vipでやれ

foreach厨こそVIPで死ね

もうおまえら foreach も map も使うな。

while厨必死ｗｗｗｗｗ

goto厨死亡ｗｗｗｗ

レベル低過ぎワロタｗｗｗｗｗ

で、「前」ってどっち？

ティムティムがいつも向いてる方向

オレのはいつも左に向いているが。

open(FILE, "> ".$file) || die;
foreach my $key ( keys %{$data} ){
　　　　print FILE join("\t", $key, $data->{$key}, "\n");
}
close FILE;

を

foreach my $key ( keys %{$data} ){
　　　　$temp .= join("\t", $key, $data->{$key}, "\n");
}
open(FILE, "> ".$file) || die;
print FILE $temp;
close FILE;

にするとHDDにかかる負荷が減ったりしますか？
それとも余分にメモリ食うだけでしょうか

後者

>>147
ありがとうございます

$|=1 とかやってなければな。

>>146
前者

>>149
なるほど把握しました。
仕組みまで教えて頂いて感謝です。
そうなると、読み出しの場合はどうなるんでしょうか？

open(FILE, '< '.$file) || die;
while(<FILE>){
　　　　(my $key,$_)=split(/\t/);
　　　　$data->{$key} = $_;
}
close

と

open(FILE, '< '.$file) || die;
@temp = <FILE>;
close
while(@temp){
　　　　(my $key,$_)=split(/\t/);
　　　　$data->{$key} = $_;
}

では、まとめて読み込んでおいた方がHDDにかかる負荷が減ったりしますか？
それともメモリ食うだけでしょうか

>150
どちらが正しいのか判断が・・・

>>151
おれは、入力ファイルが1GB越えないなら、
Slurpすることにしてる。

while(<STDIN>){
  print qq{1:$_};
  while(<STDIN>){
    print qq{2:$_};
    last if $_ eq qq{\n};
  }
  print qq{3:$_\n};
}
をPerl 5.8.8で実行して内側のループを改行のみの入力で抜けた後の3:の値が
1:の時となぜか異なるのですが、$_のスコープみたいなものはどうなっちゃってるんでしょうか？

>>153
異なって当然ですが

>>152
ありがとうございます。
非常に参考になりました。

自己解決しました。

改行（$val =~ \x0D\x0A\、x0D、\x0A）が二回以上連続した場合、
その改行を</p>\n<p>に置換したいのですが、
どのようなコードを書くのがもっとも軽い処理になるでしょうか？

すみません。
>>157の</p>\n<p>というのは、
</p>
<p>
というつもりで書きました。

>>157-158
> 改行（$val =~ \x0D\x0A、\x0D、\x0A）
その表現だと \x0D\x0A を1つの改行と考えるのか
2つの改行 (\x0D と \x0A) と考えるのかで答が変わる。
http://www.din.or.jp/~ohzaki/perl.htm#CRLF_2BR

\x0D\x0Aを一つの改行と考えています。

>>159
そのサイトが非常に参考になりました。

$val =~ s/(\x0D\x0A){2,}/<\/p><p>/g;
$val =~ s/(\x0D){2,}/<\/p><p>/g;
$val =~ s/(\x0A){2,}/<\/p><p>/g;

とすることで、連続している改行を
</p><p>
へと置換することまでは完了しました。
しかし、
</p>
<p>
のように改行を含んだ文字列への置換方法がよく分かっていない状況です。
そのあたりについて教えてください。
よろしくお願いします。
（なお、連続した改行でなく、単一の改行の場合は、<br />へと置換する処理を上のコードの下に書いているので、
\nとして改行すると置換されてしまってうまくいきませんでした）

16行目の++$n;で
Use of uninitialized value in stringというエラーがでるのですが、
$n = 0;やundef $n;を入れて初期化してもエラーが出ます。
なぜですか？
（CSVで同じ行を見るためのスクリプトです）


#!/usr/bin/perl -w

undef $n;

open (MEDIACSV,"media_perl.csv");
@mediacsv = <MEDIACSV>;

@sortedmediacsv = sort(@mediacsv);

while ($sortedmediacsv[$n] ne undef) {
if ($sortedmediacsv[$n] eq $sortedmediacsv[$n+1]) {
print "$sortedmediacsv[$n]";
print "$sortedmediacsv[$n+1]";
};
++$n;
};

close (MEDIACSV);

難しく考えすぎ。

$val =~ s/(\x0D\x0A){2,}/うんこ<\/p>うんこ<p>うんこ/g;
$val =~ s/(\x0D){2,}/うんこ<\/p>うんこ<p>うんこ/g;
$val =~ s/(\x0A){2,}/うんこ<\/p>うんこ<p>うんこ/g;
$val =~ s/\n/<br \/>うんこ/g;
$val =~ s/うんこ/\n/g;

でいいんじゃないの？

>>162
undef $n; してりゃエラー出るだろ。これは初期化とは言わない。

while ($sortedmediacsv[$n] ne undef) {
これも。undef と比較してどうする。
そもそもキミが何をしたいのか意図が伝わらない。

細かいことを言えば、if {} のうしろの ; もいらない。
基本を理解していない証拠だな。

で、↓これならどうかな。
#!/usr/bin/perl -w

open (MEDIACSV,"media_perl.csv");
@mediacsv = <MEDIACSV>;

@sortedmediacsv = sort(@mediacsv);

for ($n = 0; $n < $#sortedmediacsv; $n++) {
　if ($sortedmediacsv[$n] eq $sortedmediacsv[$n+1]) {
　　print $sortedmediacsv[$n];
　　print $sortedmediacsv[$n+1];
　}
}

>>163
いや、それはあまりにもひどいだろ。
いや、うんこがひどいんじゃなく、無駄にうんこを付け足そうって言う考え方がさ。
いや、うんこもひどいが。

あー、ついでだ。考え方も示しておくか。愚直にやるなら、こうだろ。
・まず、CRLFを\nに統一する
・段落を抽出する
・段落をpタグで挟む
・改行をbrタグに置換する
・段落末尾に\nをくっつけて結合する

ついでに、上を馬鹿正直に書いてみた。動かなかったらスマソ
$val =~ s/\x0d\x0a|\x0d|\x0a/\n/g;
@lines = split /\n\n+/, $val;
@lines = map { '<p>' . $_ . '</p>' } @lines;
@lines = map { s/\n/<br \/>/g } @lines;
$result = join '', map { $_ . "\n" } @lines;

多分、これ一文で書けるよ

>>164
助かりました。ありがとうございます。

$x = $y if ! $x;

これってどう解釈すればいいんでしょうか・・・

$yが真だったら$yが代入される
$yが非だったら$xが代入される(値は変わらない)

ってことで大丈夫ですか？

fedora7にperl5.005_03を入れたいのですがうまくいきません。
どなたか参考になるサイトもしくは手順等をお教えいただけないでしょうか。

宜しくお願いします。

>>169
http://www.site-cooler.com/kwl/perl/6.htm#6-7
http://www.site-cooler.com/kwl/perl/5.htm#5-5
>>2-4

>>169
$xが偽だったら$xに$yが代入される
$xが真だったらなにも行われない。

>>170
http://search.cpan.org/~lbrocard/perl5.005_04/

PerlってなんでPHPと比べて劣ってるの?

またお前か

またお前か
知ってるか、PHPって最初はperlで動いてたんだぜ

でっていう

>>163, >>166-167
そういう発想がありませんでした。
ありがとうございます。
無事に目的を果たすことができました。

嫌韓厨死ね

変数に固定のデータを読み込む方法として、
プログラム内で
$data = '1234567890...';
とやるのと、普通にファイルから読み込むのとではどちらが効率が良いでしょうか？

前者の場合はデータの分だけコードが長くなるからメモリの効率悪くなったりするんでしょうか？

>>180
埋め込み

>>181
プログラム内にデータを埋め込む方が効率が良いということですか。
ありがとうございます。

ちょｗ

失われた年金データ５０００万件も、
プログラムの中に埋め込んでおけば
効率的に照合処理できるに決まってる。

そのスクリプトでしか利用しない値ならどうでもいいが、
別のスクリプトでも利用する値なら置くべき場所に置いとく

データ埋め込んだコードをモジュール化しておけばおｋ

__DATA__

つーかさ。データがいーかげんなデータベースを整理するのって、
どーんとプログラム作りました→動かしました
じゃなくて、perlでプログラム作りながら、データ見て、
またプログラムの手直し、データの改修を逐次的に処理していかないと。
戻り作業の繰り返しで話が前に進まないんだがな。
舛添の会見見ててこいつなんもわかっちゃねーなと思うのって俺だけか？

>>188
つーかさ、まずは己を知ることだと思うんだよ。
データを代名詞的に多用してるその文章見ただけでも、おまえ人並み以下だよ。

検収

>>188
どこにでもいるお馬鹿な客の一人。今さら言うまでもない。

おヴァカな客であっても、客をその気にさせるのがプロとしての生業♪

>>192
＞客をその気にさせる

頭が悪いやつだな。
社会保険庁のトラブルは、客にいやなこと（「業務フロー上、将来禍根を残しますよ」）を
はっきり言わなかったのが原因だろ。現にトラブルがプログラマのせいにされている。
「その気にさせる」じゃまずい場合の典型事例だろうが。

社保庁システムのプログラマ（どうせコボラ）には、あまり親近感はないがね。

年金とか社会保険庁の話題はもういい
Perlと全くかんけーねーし

社保庁もCPAN使えばいいのにな

ほんとは年金照合なんて正規表現つかえばイッパツで出来るんだが
それだと毎年８００億円もの受注が受けられない。
だからわざわざ回りくどい方法でシステムつくって
人月稼ぎしているんだよ。

ほ
そ
だ
人

【CGI名】　Joyful2ch-Me (060604)
【配布元URL.】　http://www.supra.cx/joyful2chMe/index.html
【設置サーバ】　ロリポップ

変数を追加したくて※Aを追加したのですが、文字化けしてしまいます。
どういった原因がかんがえられるのでしょうか？

# ライブラリ取込
require './jcodeg.pl';
require './cgi-lib.pl';
require './bbs-lib.pl';
require './config.cgi';
　　　　　　　　　　　　←ここにrequire .'./.'./○○.cgi';を追加したいのですが。（※A.）

※Aを追加せずに、改行を１つだけ加えてアップしても、文字化けします。
ちなみに、ＰＣ用の方は問題ないのですが、ケータイ用だけが文字化けします。
配布者の掲示板も機能してないみたいなので、
原因分かる方居られましたら、ヨロシクお願いします。

何故かずれてるorz

※Aは「require '../../○○.cgi';」の間違いです

>>1

すみません、他で聞いてきますorz

プログラミングPerl第３版のp264にあるmygrepのコードについてなんですが
push(@result, $_) if &$coderef;
の&$coderefはどういう意味なんでしょうか?
配列の各要素に対して、真か偽を返す関数だと思うんですが、
引数が渡されずに関数が呼び出されているように見えるんですが・・・

>>973
おつ〜

埋めていくか

あああｗみすｗ

>>202
本物の grep でも $_ にリストの各要素が入ってくるじゃないか。
例えば my @result = mygrep { /foo/ } 'foo', 'bar', 'foobar'; なら

sub mygrep (&@) {
　　my $coderef = shift; # sub { /foo/ }
　　my @result;
　　foreach $_ (@_) { # ('foo', 'bar', 'foobar')
　　　　push(@result, $_) if &$coderef; # if $_ =~ /foo/
　　}
　　@result; # ('foo', 'foobar')
}

うーん。
if &$coderef;
が、どうして
# if $_ =~ /foo/
と解釈されるのかがよくわからないですorz
括弧をつけずに関数を呼び出すと@_が引数としてわたされるとしても
その内容にアクセスするには$_[0]と書かないといけないですよね。
でも実際には$_とfooがチェックされてるわけで、この$_の値が
どっからきたのかがわからないんです。

わからんなら無理して分かる必要は無いよ。
自分が分かるように書けばよろし。
誰か別人が書いたコードを無理やりメンテさせられるのなら仕方ないが。
そんときは、自分でわかるように書き換えるな。俺なら。

>>206
> foreach $_ (@_) {

この $_ は foreach ブロック内に局所化 (local) されてはいるけど
グローバル変数なんだからそのまま &$coderef 内でも参照できる。

$_ = 'quux';
my $coderef = sub { print ucfirst };
$coderef->() for qw(foo bar baz); # FooBarBaz
$coderef->(); # Quux

alarmの多重化ってできませんか？
use threadsを使って複数のスレッドを起動させているのですが、
そのスレッド毎にタイムアウト処理を作りたいのですが、うまくいきません。

>>209
作りなおして全部POEにぶちこんだ方が良い悪寒

CGIを自宅出張でサポートしてくれる方募集します。
CGIに詳しく都内に来れる方であれば可能
詳しい人からすればそこまで難しくないと思われます。
一日日払い即金である程度払います。。
詳細はメール下さい。

>>211
>>1
> CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。
> (WEBプログラミング板 http://pc11.2ch.net/php/ )

WebProgにも書き込みしてある件

>>210
情報ありがとうございます
POEを使う方向で考えてみます

> 作りなおして全部POEにぶちこんだ方が良い悪寒

POE を作り直してくれないか。

&foo;

sub foo{
my @l, %h;
print '"'.$h{'ex'}.'"=>';
$h{'ex'} = &bar(1,2,\%h);
print '"'.$h{'ex'}.'"=>';
$h{'ex'} .= &bar(1,2,\%article_replacements);
print '"'.$h{'ex'}.'"';
}

sub bar{
my $a = $_[0], $b = $_[1], %h = %{$_[2]};
return 'A';
}

というプログラムについてなのですが、fooの1行目が
my %h, @l;だと""=>"A"=>"AA"と表示され、
my @l, %h;だと""=>"A"=>""と表示されます。

変数の順番を入れ替えただけで結果が変わってしまうのは
なぜなのでしょうか？
Perlのバージョンはv5.8.8 built for MSWin32-x86-multi-threadです。

動作に影響は及びませんが、fooの3行目と5行目は
$h{'ex'} = &bar(1,2,\%h2);です。すいません。

sage忘れた上に$h{'ex'} .= &bar(1,2,\%h2);です。
本当にすみません…。

>>216
> 変数の順番を入れ替えただけで結果が変わってしまうのは
> なぜなのでしょうか？

変数の順番を入れ替えただけだと決めつけてる時点で、君はすでに敗北しているのだ。

>>216
my $foo, $bar; は my($foo), $bar; であって my($foo, $bar); ではない。

()を取りすぎたな

use strict;
use warnings;
をつけろ
話はそれからだ

>>216
>my $a = $_[0], $b = $_[1], %h = %{$_[2]};
my ( $a = $_[0], $b = $_[1], %h = %{$_[2]} ) ;
と判断しても、
( my $a = $_[0], my $b = $_[1], my %h = %{$_[2]};
と判断しても、、、

この前もどっかのスレで見たが、こんなトンチンカンな書き方を何処で
覚えてくるんだろう？後者は strict, warnings が通ってしまうから
なおさら、、、

この後インタプリタに文句を付けるに一票

なるほど、そういう解釈を受けてたのですね。
C言語でいうint a, b;と同じ扱いだと思っていました。
お恥ずかしい限りです。ありがとうございました。

>>223
他の言語から来た奴だと結構ありがちかと。

ttp://www.traders.co.jp/investment/tool/futures/futures_top.asp

このページの先物取引情報っていう表の部分だけ取り出して、
エクセルに保存するスクリプトを書いているんですが、
「ページを解析して表だけHTMLごと取り出す処理」がなかなか上手くいきません。
TreeBuilder使ったのですが、
�@このページのHTMLタグ内にはclassもidもないので、
特定のtableタグをとってくる事ができない。
�A加えて、TreeBuilderを使うとHTMLタグが取り払われてしまう（？）
っていう問題で苦戦してます。
どなたかこの部分のやり方を教えていただけると助かります。

>>227
無理に型に嵌めた作り方しなくても、
「TOPIX NET 」という文字が出てきたらフラグ立てて、
次の<tr>から</table>までを抜き出せばいいだけじゃないの？

とりあえず強引に取り出せばいいんじゃないの？
あれこれ考えるより、とりあえず手を動かしてうまくいったら結果オーライってことで。
どうせスクレイピングなんてページの仕様が変わったらそれまでなんだし。

my $page = ここに目的のページコンテントを入れる
my $tree = HTML::TreeBuilder->new_from_content($page);
# とりあえず会社名に一番近いタグを目印に
my @companies = $tree->look_down(_tag=> "td", bgcolor => '#CCCCCC');
my $i = 1;
my @table;
for my $co (@companies) {
　　#奇数番目に関係ない要素がはいりこんだのでオミット
　　$i++ % 2 and next;
　　my $co = $co->look_up(_tag=>"tr");
　　my $co_text = $co->look_down(_tag=>"font")->as_text;
　　my @data = map { $_->as_text } $co->look_down(_tag => "div");
　　push @table, [ $co_text, @data ];
}
$tree->delete;

miyagawa プロダクツでもつかってろ。

KENTって人のサイトがとても役に立つのがわかった

>>231 が変なコードを量産しませんように

KENTのコードは間違ってはいないのだが、
Perlっぽくない気がする。
C臭さがプンプンしていて、どうも違和感が。

だったら自分で「Ｐｅｒｌっぽいコード」を書いて公開すればイイジャン！
文句言うだけなら子供でも言える。

>>233-234
KENTの自作自演か？
言ってることがでたらめすぎるぞ。

で？キミはいったい、どんな「Ｐｅｒｌらしいコード」を書けると言いたいんだい？
おや、見せられないのかい？恥ずかしくて他人には見せられないの？
へぇ。そう。
だったら他人のコードを批判する資格はまったく無いね。

Perl4時代ならいざ知らず現在kentが垂れ流してるコードがうんこなのは周知の事実
Perlらしいとかそんな次元の話じゃないだろ

で？
早く「Ｐｅｒｌらしいコード」とやらを見せてくれよ。

　　　　　　　/ﾆＹﾆヽ
　 　(ヽ　 　/（ ﾟ )( ﾟ ）ヽ　　　/)
　　(((i ) ／::::⌒｀´⌒::::＼ 　( i)))　　でっていうｗｗｗｗｗｗｗｗｗ
　／∠_|　,-）＿＿＿（-, |＿ゝ ＼
( ＿＿＿､　　|-┬-|　　　　,＿＿ ）
　　　　|　　　　`ー'´　　 /´
　　　　|　　　　　　　　　/

自分じゃ鋭い追求してるつもりなんだろうが、
哀れなほど孤軍奮闘だなｗ

久しぶりにKENTのコード見てみたら
&jcode'convert(*line, 'sjis') でなく &jcode::convert(\$line, 'sjis') な記述になってるし
flock(FH, 2) してるし、もうびっくりですよ。

perlらしいコードってあれだろ？
カートゥーンのキャラクターがぼやいてるようなやつ

マウスの付いたパソコンしか触ったことの無いヤツが必死でほざいてるよ〜

KENTってハゲオヤジだよ

>>244
へ〜〜〜知らなかった〜〜〜！
そうなの、初めて知ったよ。
よく知ってるね、キミって情報ツウ？。すごいよ物知り博士だよ。
ネ申！ホトケ！天神まさ！ダイバダッタ！尊氏さまだよ！

なんか浮いてる奴がいるな

>>244の名字は足利ｗ

KENT＝ハゲオヤジのソースは日経ソフトウェア
誰かと対談してて顔写真が載ってた

>>248
へ〜〜〜すご〜い！
何でも知ってるんだね、物知りだね。
日系ソフトウエア読んでるだけでも自慢できるよ。
こんなクソスレにネ申が現れようとは！

何事かと思ったらまたお前か

天神まさ

社労士だから、本業ついでに営業できていいよね。
あたまいいねー。

>>228

なるほど、とてもシンプルで分かりやすい方法ですね。
ぜひ試してみようと思います、ありがとうございます。

>>229

ソースまで書いていただいてありがとうございます。
とても参考になりました。
一つ質問なのですが

$co->look_down(_tag => "div");

この部分はtrタグの中の一つ目のdiv（225 BUY）しか抽出できないんですよね？

for my $attr ( $co->look_down("div") ){
@data = $attr->as_text."\n";
}

という感じで全てのデータ(225 BUY,225 SELL〜)を抽出しようと思ったのですが、
エラーになってしまいました。
良い方法があれば教えていただけると幸いです。

C言語で言う #ifdef WINDOWS のようなものはあるでしょうか？

WindowsとLinuxで共通に動くプログラムを作ろうと思っています。
fork()周りがOS依存になってしまうので、Windows/Linuxで処理を分けたいです。

$^Oみたいな？

2007-10-16 21:55:38　という日付のフォーマットを
Sat, 03 Nov 2007 18:40:13 +0900　というフォーマットに変換したいと
思っているのですが見つかりません。
便利なパッケージとかないのでしょうか

標準パッケージ

use DateTime::Format::HTTP;
my $dt = DateTime::Format::HTTP->parse_datetime("2007-10-16 21:55:38");
print DateTime::Format::HTTP->format_datetime($dt);

>>255
まさにこれです！
Linuxで実行：linux
WinXPで実行：MSWin32
となりました。ありがとうございました！

＼(^O^)／

>>253
リストコンテキストなら同一ノード内の全div要素、スカラーコンテキストなら最初の要素のみ。
要素が見つからないなら、as_textメソッドを呼び出したときにエラーが出るだろうな。

>>256
俺は日付の変換には Time::Piece を愛用している。
http://perldoc.jp/docs/modules/Time-Piece-1.08/Piece.pod

フォーマットを変えたいなら
Time::Piece->strptime(STRING, FORMAT)
でTime::Pieceのインスタンスを作って、

$t->strftime(FORMAT)
でフォーマットを指定して出力すればいい。

でもこのモジュール、2038年問題だったっけ？
未来の日付を拒絶するんで、使う場面には注意が必要。

for文を回して連続した数字を表示するときに、
桁の数をそろえる方法ってありませんか？

具体的に言うと
0 1 2 … 10 … 100
ではなく、
000 001 002 … 010 … 100
のようにしたいのですが。

>>263
sprintf

HTTP::Dateでいいじゃん

>>263
'001' .. '100'
とかできたような気がする。

>>263
foreach (0 .. 100) {
printf qq(%0.3d\n), $_; # 数字を他の文字列等とコンカチしたいときはsprintfで
}

すでに回答が出て解決してるのに、なんでダラダラ引っ張るんだ？
やっぱ Perl 使いはアホばっかだな。

またお前・・・じゃないみたいだな

sort {
$a->[3] cmp $b->[3]
or
$a->[5] <=> $b->[5]
or
$a->[8] cmp $b->[8]
} @array
こんな文があったとします。
これをユーザの入力によって
$a->[8] cmp $b->[8]を一番先に持ってきたり（
sort {
$a->[8] cmp $b->[8]
or
$a->[3] cmp $b->[3]
or
$a->[5] <=> $b->[5]
} @array
）、$a->[5] <=> $b->[5]を一番先に持ってきたりしたいのですが
どのようにすればいいでしょうか？

すみません。PerlのVerは5.00503で、
モジュールは使えません。

>>270
sort block はその名の通りblockなんだから、条件式埋め込めばいいだけじゃん？

手抜きの例を書くと
my $i = 1 ; # $i を他の数字にしてみる。
my @arr = sort {
if ( $i == 1 ){ $a->[0] <=> $b->[0] or $a->[1] <=> $b->[1] }
else { $a->[1] <=> $b->[1] or $a->[0] <=> $b->[0] }
} ( [1,2],[2,3],[2,1] ) ;

>>270
各々の順序関数を @funcs に格納して、
評価する順序を変えたいときは @funcs を並び替えればいいんじゃね？

@funcs = (
　　sub { $a = shift ; $b = shift ; $a->[3] cmp $b->[3] },
　　sub { $a = shift ; $b = shift ; $a->[5] <=> $b->[5] },
　　sub { $a = shift ; $b = shift ; $a->[8] cmp $b->[8] }
) ;

@array =
sort {

&{ $funcs[0] }($a, $b)
or
&{ $funcs[1] }($a, $b)
or
&{ $funcs[2] }($a, $b)

} @array ;

おいらの頭では、比較演算子がorで繋がっている趣旨がわかんない(´･ω･`)
入力によってsortを選択（択一）にするのなら判るけれども。。。

>>274
a or b は aが偽のときにbを返す。
即ち、一個目のcmpが0を返したときに、次の評価が行われるようになる。

#!/usr/bin/perl -w
use strict;
my @order = @ARGV;
my @data; chomp, push @data, [ split /\|/ ] while <DATA>;
my %cmp = (
　　by_title => '$a->[0] cmp $b->[0]',
　　by_author => '$a->[1] cmp $b->[1]',
　　by_year_asc => '$a->[2] <=> $b->[2]',
　　by_year_desc => '$b->[2] <=> $a->[2]',
　　by_price_asc => '$a->[3] <=> $b->[3]',
　　by_price_desc => '$b->[3] <=> $a->[3]',
);
my $code = join ' or ', @cmp{@order};
local $" = '|';
print map "@$_\n", eval "sort { $code } \@data";
__DATA__
Regular Expression Pocket Reference, Second Edition|Tony Stubblebine|2007|14.99
Mastering Perl|brian d foy|2007|39.99
SQL Injection Defenses|Martin Nystrom|2007|9.99
Mastering Regular Expressions, Third Edition|Jeffrey E. F. Friedl|2006|44.99
Building Tag Clouds in Perl and PHP|Jim Bumgardner|2006|9.99
Perl Hacks|chromatic, Damian Conway, Curtis Poe|2006|29.99
Intermediate Perl|Randal L. Schwartz, brian d foy, Tom Phoenix|2006|39.99
Wicked Cool Perl Scripts|Steve Oualline|2006|29.95
Perl Testing: A Developer's Notebook|Ian Langworth, chromatic|2005|29.95
Learning Perl, Fourth Edition|Randal L. Schwartz, brian d foy, Tom Phoenix|2005|39.95

>>263です
>>264-268 ありがとうございます
sprintf を使うことにします

なぜか>>263に礼言われてる>>265宛て。

お題は>>256のとおり JST(+0900) で吐きたい、みたいなのよね。
HTTP::Date::time2str() は GMT でしか吐いてくれなかった気がする。

最近は Date::Format 使ってる。
過去に書いたコードを発掘したら use POSIX qw(strftime); と書いてるのもあると思う。

DBIについての質問です。
perl + MySQLを使用しています。
MySQLにinsertする際にこれまではMyISAMを使用していましたが、
都合によりInnoDBを使用することになりました。

そうした場合、MyISAMでinsertできていたソースがInnoDBに変更したら使用できなくなってしまいました。
何か違いがあるのでしょうか。
以下ソース。

my $sth = $dbh->prepare("INSERT user SET USER_NAME='ドコモ', MAIL='docomo', PASS='1234567';");

$sth->execute();

>>279
Perlの問題というよりも、MySQLの設定がマズイような気がしますが。
Perl-DBI以外のクライアントでMySQLに接続して、INSERTできてます？

それとexecuteの後に、エラーが発生するんだと思いますが、
エラーメッセージには何と書かれているのでしょうか？

プレースホルダくらい使って欲しいなぁ。

申し訳ありません。
自己解決しました。

コネクションを取得時にオートｺﾐｯﾄをオフにしていて、
ｺﾐｯﾄをしていなかった為でした。
皆様ありがとうございました。

>>281
キチガイ？

上げて書き込む奴は大抵馬鹿だからすぐ分かるな

perlでバイナリーファイル→画像ってできますか？
指定したURLからjpgをbinmodeでファイルに書き込むまでは出来たんですが
それを.jpgになおせません・・・何を言ってるか自分でもわかりませんが
いい方法は無いでしょうか？

941は関係ないです・・ごめんなさい

>>285
私にも意味が分かりません。

意味が分からんけどどうやってjpgのデータを取ってきてどうやって書き込んだのさ
ただ単にネット経由で画像とってきて保存したいだけなら
my $ua = LWP::UserAgent->new;
$ua->mirror($url, $filename)
だけでもできるよ

ほんとに意味わからなくてごめんなさい
とりあえず自分で作ったソースの一部なんですがこんな感じで画像は
やはり取れないんでしょうか・・
print $client_socket "GET http://7art-screensavers.com/screenshots/animals/lion-and-the-lamb.jpg HTTP/1.0\r\n";
print $client_socket "Host: www.clinko.com\r\n";
print $client_socket "\r\n";

while (<$client_socket>){
print $_;
m/^\r\n$/ and last;
}


$file="sample.jpg";
while (<$client_socket>){
binmode(STDOUT);
$all=join("",<$client_socket>);
open(FILE, "> $file");
binmode(FILE);
syswrite(FILE,$all,length($all));
close(FILE);
}

最終的にはイメージ検索のAPIでもってきたXMLからXML::Simpleモジュール
とかつかってjpg画像を指定した落としていきたいんです・・説明へたくそ
でごめんなさい

>>289
バイナリデータをreadlineで読むなよ

readlineってなんですか？無知でごめんなさい

LWP::UserAgent使えよ

デバッグくらいしろよ

ActivePerlいれたら起動しなくなりました。
どうしたらいいんでしょうか

何が？何が起動しないんだよ。人にものを話すときは、
主語述語きちんと言いなさい。学校で習わなかったかな？５Ｗ１Ｈって。

ActivePerlをインストールしたら
OSが起動しなくなりました。
Windwosロゴまでは表示されますが
その後真っ暗です。
セーフモードでの起動は出来ます。
復元でActivePerlインストール前にもどれば起動は出来ましたが
ActivePerlを使いたいのです、

use Encode;
use Encode::Guess qw/ gbk euc-jp shiftjis/;
opendir (DIR, '.');
@files = readdir DIR;
foreach $dir(@files)
{
print $dir;

open (IN, "<$dir");
open (OUT, ">$dir-2");
while (<IN>)
{
Encode::from_to($_, 'guess', 'Shiftjis');
print OUT;
}
close IN;
close OUT;
}
opendir (DIR, '.');
@files = readdir DIR;
foreach $_(@files)
{
$old = $_;
s/-2//;
rename ($old,$_);
}
初心者なもので無駄が多すぎてお恥ずかしいのですが。。。
フォルダ内にあるテキストファイルの文字コード(EUC・Shiftjis・BGなどバラバラ)を自動判別して全てshiftjisに変換したいのですが
shiftjis or euc-jp or cp936 at C:/Perl/lib/Encode.pm line 186 とエラーがでます。
'guess'の部分を''gbk'とかに指定すればちゃんと変換されるのですが、それだと他コードのファイルが文字化けします。
どうすればいいでしょうか・・・？

>>292
http://perldoc.jp/docs/perl/5.8.4/perlfunc.pod#item_readline_EXPR

>>298
http://www.kt.rim.or.jp/~kbk/perl-5.8/guess.html

>>297
インストールオプションで、Perl 本体と PPM ”だけ” インストールしてみてはどうだろう。
ISAPI とか PerlEX とか PerlScript とか、（必要が無ければ） チェックをははずしてみる。
うまくいくかどうかわわからんが、成功を祈る。

>>297
OSって Windows の何？XP？Vista？
サービスパックのバージョンは？

>>300
だめでした。
なんとか復元3回やってまた戻しました。

OSはXPのSp2です。
一応復元する前にPerlのファイルを別途保存してみたので
それを使って目的のことが出来ないかやって見ます。

Solaris10のsyslog（ログローテートしている）で
そのsyslogの作成日が本日だった場合にはsyslogに任意の文字列を記述し、
本日でなかった場合には何もしない、という処理をさせたいのですが
どうしたらよいでしょうか？

>>302
基本的にさ、perl のファイルさえあればＯＫなんよ。
あとは環境変数 PATH に perl のディレクトリを加えたり、
拡張子 .pl を perl.exe に関連付けしてるだけだから、
もし Active Perl のインストーラでうまくいかないんだったら
これらを手動でやっちゃえばＯＫ・・・なハズ。
PATH とか 拡張子の関連付けとか、具体的なやりかたが分からなかったら
また質問してね。

>>303
ファイルの日付は stat 関数、
ファイル名変更は rename 関数を使う。
それぞれの使い方は google で調べてね。

456,657,787,455,…

のように数字が横に並んだファイルがあるのですが
456−657,657-787,787-455,…というような前後の差分を
とったファイルを出力するにはどうしたらいいでしょうか？

ファイルを読み込んで、そのデータをfor文で差分をとっていけばいいと思うのですが
例えば456や657をどのように指定するかがわかりません。
指定する方法がわかればそれをひとつずつずらしていけばいいと思うのですが・・・
お手数ですが、どなたかヒントをお願いいたします。

@nums = (456,657,787,455);

for $i (0..$#nums-1) {
print $nums[$i] - $nums[++$i];
}

>>307さんわかりやすいプログラムをありがとうございます。

まずリスト変数にその数字をいれて指定できるようにして
そしてそのリスト値を最後のから一つ前まで代入して差分できるようにするということですね。
回答していただき感謝しております。

それと今回はその要素(456、657など)が一万個くらいあるのですが
その場合は直接リスト変数の要素として入れるわけには行きませんよね？

よろしければその場合もお教え願えませんか？
その一万個の数字のファイルを読み込んだあとにどのようにして
一万個の数字を指定して差分を求めればいいかがわからないのです・・・

>>307も「そこから」だとは思ってなかったと思う。

my $data = '456,657,787,455';
my @nums = split(/,/, $data);

ファイルからリストに読み込む方法が分からないってこと？
なんかメモリ上に1万個の要素を入れるのがマズいとも読み取れるけど・・・。

open my $in, "UNKO";
my @nums = split(/,/, do { local $/ ; <$in> });
close $in;

とでもすれば。

do {local $/=","; <$in>}
これでいいか。

>>309
丁寧にありがとうございます。

>>310
その通りです。一万個の数値を直接プログラムに入力するのはまずいかなと思いまして。
日本語に至らないところがあり申し訳ありませんでした。

ありがとうございます！
,に対応してそれぞれの値が区切られてリスト変数の要素としてとして
認識されていくというわけですね。
丁寧な指導ありがとうございます。おかげでリストに読み込む方法がわかりました。

>>299
リンク先読んで試行錯誤しましたが、できませんでした・・・
どなたか直接手直ししていただけませんか

>>313
条件とか謝礼とか書かないと。

もしかしたら文字コードの自動認識って
「失敗」することがあるもんだって、
知らないで使っているのでは。

質問ばかりで申し訳ないんですが

11,22,33,44,55,66 というリストを

11,33,55
22,44,66

というように二つのリストに分けるという作業はどうしたらいいのでしょうか・・・
substrとfor文で一つ置きに抽出しようとも思ったんですが++ではなく一個置きに
するというプログラムがわからなくて・・・
そもそもここでsubstrを使おうとすること自体間違っている可能性が高そうですが。

substrじゃなくてsplitすれば？
1個置きはループカウンタが奇数か偶数で分岐すればおｋ

http://www.aoky.net/articles/steve_yegge/tour_de_babel.htm
Perlもまた、間もなくなくなる。

（・∀・）ﾆﾔﾆﾔ

なるほど、また一つわかりました。ありがとうございます。
つまり

@data = (11,22,33,44,55,66);
for($i=0;$i<=$#data;$i++ ){
if ($i % 2 == 0){
push @kisuu,"$i";
}
elsif ($i % 2 == 1){
push @guusuu,"$i";
}
}
print @kisuu;
print @guusuu;
のようにすれば奇数グループと偶数グループを分けることができるというわけですね。

すいません、>>317さんへです。

>>316
リストの先頭から1個ずつ取り出して出力先のリストにかわりばんこに
プッシュすれば良い。

>>322
ありがとうございます。おかげさまでデータを分けることができました！
あと
2,3,2,3,2,3,2,3,…と並んでいるdata.txtがありその差分を
出したいために以下のプログラムを作ったんですが
本来なら結果が
-1,1,-1,1,-1,1,-1,…という風に１番目から２番目を引いた結果、２番目から３番目を引いた結果を
出力するつもりだったのが
1,1,1,1,1,1,1,…という風に１番目から２番目を引いた結果、３番目から４番目を引いた結果と出力されてしまいます。
どこがおかしいのでしょうか？
open IN, "data.txt";
open OUT, ">sabun.txt";
while (<IN>) {
@all = split(/\,/,$_);

for($i=0;$i<=$#all-1;$i++ ){
$kekka = $all[$i] - $all[++$i];

print OUT $kekka,"\n";
}
}
close IN;

close OUT;

すいません、自己解決しました！
for($i=0;$i<=$#all-1;$i++ )　を
for $i (0..$#all-1)　にしたらうまくできました。

しかしこの二つの文は僕には同じようにしか見えないんですがどこが違うんでしょうか。。。

同じです

>>325
でもなぜか
for($i=0;$i<=$#all-1;$i++ )　だと
(2-3),(2-3),(2-3),(2-3),…となって一個飛ばしの差分にしまったんです。

for $i (0..$#all-1)　だとちゃんと
(2-3),(3-2),(2-3),(3-2),(2-3),…となりできるんですが。

>>326
だって、まず
$kekka = $all[$i] - $all[++$i];
のケツの部分で一回インクリメントされて、そのあと
for($i=0;$i<=$#all-1;$i++){
のケツの部分でもう一回インクリメントされてるわけだから。

>>324
数をｶｳﾝﾄｱｯﾌﾟしてるのと、数列を順に入れてる　という違いだが
基本的に同じ。　ってかｶｳﾝﾀｰ変数触んなよ。バグの元凶だ。

>>327　二重にカウントされてるようなものってことですね。ありがとうございます。
>>328　for文の後ろの方いじるとまずいんですね、知りませんでした。
if文などでなんとかしたほうがいいということですか？

皆さんあと一つだけ知恵をお貸しください…　suuji.txt というファイルがありまして中身が
1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20, 　←ここで改行してある
21,22,23,24,25,26,27,28,29,30

というものなんですが、これを偶数と奇数に分けたくて、まず偶数を出力するために以下のプログラムを
作ったんですが、出力結果が
0,2,4,6,8,10,12,14,16,18,20,0,2,4,6,8,10,12,14,16,18,20,21,23,25,27,29,
となってしまい
「１行目が２重に含まれている」
「２行目からずれてしまっている」という二つのわからない点が出てしまいました。
何度もしつこいですが、どうか考え方をお教えください・・・
open IN, "suuji.txt";
open OUT, ">guusuu.txt";
while (<IN>) {
@all = split(/\,/,$_);
for $i (0..$#all){
if ($i % 2 == 0){
push @guusuu,"@all[$i]",",";
}
elsif ($i % 2 == 1){
push @kisuu,"@all[$i]",",";
}
}
print OUT @guusuu;
}
close IN;
close OUT;

>>329
> 二重にカウントされてるようなものってことですね。
ようなもの、じゃなくて、二重にカウントされてるんだよ。
言葉尻を捉えた突っ込みに思うかもしれないけど、ここで曖昧さを排除することは凄く重要だよ。
君の目と意識が、ハッキリ「二重にカウントしてる」のを捉えるまで、わかった気になっちゃダメ。

> for文の後ろの方いじるとまずいんですね
よくわからないうちに相手の意見を「自分流に言い換える」のも危険だよ。
カウンター変数ってのはこの場合$iのことで、この$iの中身を「ループ内部で」書き換えるのは混乱の元だ、という話。
ループの内部でこの値を変更するというのは、「ループ内部から見ると、$iは毎回1ずつ増えて降ってくる
絶対的なものに感じられる」というある種の信頼を崩すということで、これは本当に混乱する。
事実、君はその信頼に囚われて、たった2行なのに原因を見つけられなかったでしょ？
だから、君の解釈であるところの「for文の後ろの方いじるとまずい」は正反対だ。for文の後ろでしかいじっちゃいけない。
これも、「よくわかんないけど、とにかくカウンター変数はfor分の最後でいじれということですね」とか
曖昧な解釈で終わっちゃダメだからね。何故そうすべきなのか、納得するまで考え込むように。

> 出力結果が
> 0,2,4,6,8,10,12,14,16,18,20,0,2,4,6,8,10,12,14,16,18,20,21,23,25,27,29,
> となってしまい
いや、なってないから（*1）。

突っ込むところは複数あるんで、書くのが面倒だな・・・。とりあえず、
(1) suuji.txtの1行目の終わりに","が付いていて、且つ、末尾の改行を除去していないので、
　　@allに最初に入るのは、1から20までと「空白+改行」の、全21要素である。
(2) だから2行目に入ると、奇数偶数が入れ替わる。
　　*1 というか、$add[n]の中身がn + 1なので（ややこしい）、君の言うようには出力されない。
(3) push関数は「@allの後ろにどんどん要素を追加していく」だけでクリアなんかしないわけだから、
　　1行目の処理の時に詰め込んだものが2行目の処理の時に残っているのは当然。
　　前のカウンター変数の時もそうだけど、君自身は毎回のループ処理を独立させて捉えているのに、
　　君の書くコードは「次のループに影響する何か」をいちいち残していってる。それが混乱を生んでる。
(4) @all[$i]という書き方は「配列スライス」といって、この場合たまたまスカラーを取り出してるような
　　結果になってるだけ。$all[$i]と書くべき。「スライス」をキーワードにして調べるように。
あたりは絶対に直さないとダメ。他にも「よりよい方法に変えるべき」点はあるけど、書ききれない。

教えてください
ある文字列内に含まれている [−] (半角スペース,半角[,全角マイナス,半角],半角スペース)
を削除したいため、置換演算子でコードを書いてみましたが、
]が残ったり、なぜか'|'に変換されます。

その１　$aaa =~ s/\s\[−\]\s//ig;
その２　$aaa =~ s/\s\[\−\]\s//g;
その３　$aaa =~ s/ \[\−\] //g;
その４　$aaa =~ s' \[−\] '';
など
(修飾子と区切り文字列の組み合わせは他に試していますが、
すべての組み合わせを実行していません)
よろしくお願いします。

>>332
ソースファイルを保存するとき、文字コードは何にしてます？

>>329
無駄が多い気もするけどこんな感じか？
use strict;use warnings;use IO::File;
my $IN_FILE = 'data.txt';
sub open_or_die {IO::File->new( $_[0] ) || die("$_[0]:$!")}
sub slurp {local $/;my $fh = open_or_die($_[0]);<$fh>}
my @all = (my $data = slurp($IN_FILE)) =~ /([-\d]+)/g;
my @R = ([],[]);
push(@{$R[$_%2]},$_) for @all;
printf "偶数:%s\n",join(',',@{$R[0]});
printf "奇数:%s\n",join(',',@{$R[1]});

>333
SHIFT-JISです。

>>335
だとしたら

ソースファイルの冒頭あたりに、
use encoding 'shiftjis' ;
あるいは
use encoding 'cp932' ;
って書いてみてください。

ほかにも引っ掛かりそうなことがあるんで
ttp://www.fl.reitaku-u.ac.jp/~schiba/perl/perlEncoding.html

↑まずこのへんを読んでみて。

>>330
ご指摘ありがとうございます、そういうことだったんですか。ループ中の
[]の中に++を使うと確かに意味がわかっていませんでした。

>>331
アドバイスありがとうございます。
まず、以下のプログラムによって、改行＋，を　改行にして「途中からずれる」という問題は解決できました。
open IN, "suuji.txt";
open OUT, ">suujikai.txt";
while (<IN>) {

s/,\n/\n/g ;

print OUT $_;
}
close IN;
close OUT;

＞push関数は「@allの後ろにどんどん要素を追加していく」だけでクリアなんかしないわけだから
1行目の処理の時に詰め込んだものが2行目の処理の時に残っているのは当然。
＞「次のループに影響する何か」をいちいち残している
この次のループに影響する何かというものを教えていただけませんか？
自分ではsuuji.txtの１行目の偶数を@guusuuに出力、その後２行目の偶数を@guusuuに出力しているつもりなのですが
どうしても１行目の偶数を出力、その後１行目と２行目の偶数を出力という風に２重に出力してしまいます・・・

>>334
わざわざプログラムを作成していただきありがとうございます。
しかし申し訳ないのですがプログラム初心者の私には、少々高レベルで理解できません・・・

レベルの低い質問で申し訳ないのですが、よろしければ二重に出力される原因を教えていただけたら幸いです。

334とは別の人間だが。

>>338
print OUT @guusuu;
がwhileの中にあるのがマズイんじゃね？

closeの後に@guusuuを出力するようにしてみ。

改行なんかより、配列のインデックスの奇数偶数を評価してるところとか、
ループ中で作った配列をクリアしないで回してるところとか、
そういう本質的な間違いに気がつくべきだと思うな。
だいたい初心者なら、まずデータをコードに埋め込んでプログラムするもんだろ。

あと、chompつかえよ。

>>337
> 自分ではsuuji.txtの１行目の偶数を@guusuuに出力、その後２行目の偶数を@guusuuに出力しているつもりなのですが

つもりとか言ってないで、調べろよ。想像していないで、どうなっているのかいちいち調べろ。

>>337
君、この程度でつまづいてて大丈夫？

課題を熟考するのはいいことだが、出てきた疑問点に
他の人から答えをもらおう　って所が見込み無い。
課題をこなしてる意味もあんまない。

最近はフローチャートとか学ばないんかね。

俺はフローチャートを習った覚えはないな。

しかも人の話を全然聞いてないし。
（なんでこの一連の流れでまだ「二重に出力される理由」がわからんのよ）

>>334 ([-\d]+)は(-?\d+)のほうがいいね。

>>338
>しかし申し訳ないのですがプログラム初心者の私には、少々高レベルで理解できません・・・
人のソース読むのも勉強だし
自分で作ったコードと比較して何が悪かったのか調べるのも勉強だと思うぞ

>>337
おまえもう工場のライン工やっとけ。
出来た製品二重に流すんじゃねーぞ。

なんだかみんな手厳しいな。
「偶数奇数が‥‥」って言っている時点で
厨房か工房あたりだろうにｗ

3日ぐらいひとりで考え込んだほうがいい
質問スレは便利だけど、もらえるのはヒントだけ
結局考えるのは自分自身なのだ

ワロタ

答えてやりてえけど、どこから答えたらいいのかさっぱりわからん。

>>349
もし本人がいい大人だったら、一番手厳しい意見だｗ

後の二重出力分野における創始者である

皆さんお騒がせしてすいません。
昨日からperlというかプログラムを初めて勉強しはじめたので
ずいぶん低レベルなレスをしてしまったと思われます。。。
工場のラインを避けるべく、今日も徹夜でperlを勉強しようかとおもいます。

>>339さん、ありがとうございます。その通りでした。

>>341　修正するごとに実行してるんですがそれでもわからなかったので・・・

>>348
先生、ホワイトカラーの仕事がしたいです・・・

>>350
このスレの皆さんからとても貴重なアドバイスがいただけました。

>>352
ありがとうございます。次回の書き込みからはもっと明確な言葉を使うようにします。

明確な言葉というよりも、むしろ自分自身で何を考えてるか分かってないんじゃないの。

フローチャートを知らない世代がこれからの日本のIT界をしょって立つのか。
なんだか恐ろしいな。
こんなことだからシャホチョーの５０００万件漏れが起きるんじゃないのか？

フローチャート厨（笑）

>>357
しらんがな。
しかもシャホチョのはフローチャート世代だろうに

冷静な突っ込みに吹いた

でも仕様書用にフローチャートは書けたほうがいい
細かいプログラムにいちいち書いてらんねーけど。

このくらい小学生でも書ける奴は書けるんだがなぁ…

「貴様・・・自分が何をやっているか、わかっているのか！」
なんて台詞がよく漫画にあるけど、フローチャートはまさにそこんところの証明兼、説明手段。
ただ、書かないと自分のやっていることがわからない、ってわけではないし、
ある程度の経験者なら、自分が今「書こうと思えば書ける」状態なのか否かは、自己診断できる。
だから、書けることは大事だけど、古い人が口にするような重みは無いな。

ラリー「フローチャートなど使うプログラマは池沼」

実際に紙にフローチャートを書くか書かないかという問題ではなく
フローチャートさえ書けないのか？って事。
紙に書きたくないなら頭の中に書いてもいい。
でも、頭の中にでさえフローチャートが書けないようじゃヤバイだろ。
基本中の基本だろ？

＞フローチャートなど使うプログラマは池沼

これは、フローチャートを卒業して、次のステップに進んだ者が言うセリフだよ。
>>328 のようなおかしなコードを書く初心者には
自分の考えを確認する意味でも、図に書いてみるのは大切な事。

フローチャートの図形の意味を試験に出されたときには閉口しました

今時フローチャートなんか中学校の情報の授業でさえ習うのに

すいません、質問させてください。
x成分の速度データが入った「a.txt(中身は1,1,1,1,とする)」、
y成分の速度データが入った「b.txt(中身は2,2,2,2,とする)」があって
二つの成分を合わせた速度データを作成することは可能でしょうか？
仮にそれをc.txtとすると中身は{(1^2+2^2)^0.5},{(1^2+2^2)^0.5},{(1^2+2^2)^0.5},{(1^2+2^2)^0.5},
すなわち√5,√5,√5,√5,となるようにしたいのですが。
以下のようなプログラムを作ってみたのですが、失敗しました。
open IN, "a.txt";
while (<IN>) {

@nums = split(/\,/,$_);

}
close IN;
open IN, "b.txt";

while (<IN>) {

@suuji = split(/\,/,$_);
}
close IN;

for($i=0;$i<=3;$i++ ){
$goukei[$i] = $nums[$i] ** 2 + $suuji[$i] ** 2;
$sokudo = $goukei ** 0.5,",";
@sokudo = split(/\,/,$sokudo)
}
print @sokudo;

で、さっきの疑問は解決できたのかい？

二つの成分を合わせた速度データとは
(x方向の速度の成分の二乗＋y方向の速度成分の二乗)の平方根のことです。。。

>>368
おかげさまで解決することができました。
print OUT @guusuuを
print OUT $guusuuにしました。

>>367
可能です

未だに行末のカンマと改行を取り除こうとしないんだな。

>>367
センスないよ。プログラムやめたほうがいい。
プログラミングなんてしなくてもいい仕事たくさんあるから。

キーパンチャーとかいいんじゃね

>>371
可能ですか！？まだ希望が持てます。

open IN, "a.txt";
while (<IN>) {
@nums = split(/\,/,$_);

}
close IN;

open IN, "aa.txt";

while (<IN>) {

@suuji = split(/\,/,$_);
}
close IN;

for($i=0;$i<=3;$i++ ){
$goukei[$i] = $nums[$i] ** 2 + $suuji[$i] ** 2;

$sokudo[$i] = $goukei[$i] ** 0.5;
push @sokudo,"$sokudo[$i]";
}
print @goukei;

このプログラムで何とか5,5,5,5 まで表示することができました。

×aa.txt
○b.txt

質問てか宿題に限りなく近いだろこれ

Perlを使うことが目的なのか、計算結果を得ることが目的なのか。
後者なら、Excelでやった方が楽な気がする。

無事できました！
open IN, "a.txt";
while (<IN>) {
@nums = split(/\,/,$_);
}
close IN;
open IN, "b.txt";
while (<IN>) {
@suuji = split(/\,/,$_);
}
close IN;
for($i=0;$i<=3;$i++ ){
$goukei[$i] = $nums[$i] ** 2 + $suuji[$i] ** 2;
$sokudo[$i] = $goukei[$i] ** 0.5,"\n";
push @sokudo,"$sokudo[$i]";
}
foreach $a (@sokudo) {
print $a,"\n";
}
実行結果
2.23606797749979
2.23606797749979
2.23606797749979
2.23606797749979
2.23606797749979

ところで実行結果が一つ余分に出てくるのは何故でしょうか？

>>378
perlを使うことが目的なんです。

>>379
お前、自分の書いてることの意味分かってないだろ

物事の中間過程をまったくイメージしていないのがよくわかるな。

致命的な指摘ほど無視してるし。

>>381
あまりよくわかってないですね。最後の値が２重に表示される意味がわからないですし。

>>382
無視してるんじゃなくて、意味がわかっていないのです。

フローチャートって言うのは、知能も才能もない人間でも
プログラムを書けるようにするための補助輪のようなもの。

せっかく指摘してくれてんのに、無視すんなら、このスレに書く意味無いジャン。
自分の言いたいことだけ書き込んで、問題を解決する前に問題を拡大させて。

ときどき厚顔無恥な自称初心者があらわれるが、
初心者ってのはみんなこうなのか、同一人物による荒らしなのか？

いずれにせよ、初心者名乗るヤツはNGな

フローチャートを書くことに意味を見出せませんｗｗ

>>306
こんなとこで質問せずに、図書室でも図書館でも行って入門書でも読んでろ。
Perl本なんて今じゃ人気なくて不良資産化してるはずだから、
いくらでも見つかるはずだ。

ま、図解ってとこだな

厚かましいのは無駄に文句ばっか言ってくる建設的でない人たち(少数)でしょう。
正直「そんなのもできないの？」
とか書きこんでる馬鹿とかなんなの？
意味ないでしょう、そんな書き込み。まあそれこそ同一人物による荒らしだと思いますがね。



アドバイスやご指摘を下さった方々には感謝しております。
どうもありがとうございました。

>>388
ありがとうございます。僕がいると荒れるのでこのスレから出て図書館にこもることにします。
それでは。

この反応は…
厨房工房説は正しかったようだな。

すみません、うちの近所で図書館ってどの辺にあるでしょうか？

いや・・・
偽物が多すぎなんですがｗｗｗ

僕はそんな暴言吐かないですよｗ

皆さんどうもありがとうございました。

今更トリ付けて何になる

net-snmpで
# snmpwalk -v 2 -c public localhost .1.3.6.1.2.1.1
SNMPv2-MIB::sysDescr.0 = STRING: Linux localhost.localdomain 2.4.19-0vl11
SNMPv2-MIB::sysObjectID.0 = OID: NET-SNMP-MIB::netSnmpAgentOIDs.10
SNMPv2-MIB::sysUpTime.0 = Timeticks: (4714464) 13:05:44.64
SNMPv2-MIB::sysContact.0 = STRING: ***@***.ne.jp

みたいにバージョン、コミュニティ名、ホスト、OIDを指定してエージェントからデータを取得するってのを
Net::SNMP使ってやりたいんだけど

($session, $error) = Net::SNMP->session(
　　-hostname　=> 'localhost',
　　-version　=> 'v1',
　　-community　=>　'public'
);

@result = $session->get_next_request(-varbindlist　=>　.1.3.6.1.2.1.1);

とやっても@resultにHASH(0x*****)
みたいな値しか取れない

指定したOID以下の情報をずらっと取得するようにしたいんだけど
どうすればいいの？

Data::Dumper

>>396
http://search.cpan.org/~dtown/Net-SNMP-5.2.0/lib/Net/SNMP.pm#get_next_request()_-_send_a_SNMP_get-next-request_to_the_remote_agent
OIDの指定方法がおかしいが、ドキュメントに書いてある通り
ハッシュリファレンスが返ってきてるのだから、
好きにデリファレンスすればいい。
http://www.kt.rim.or.jp/~kbk/perl5.005/perlref.html#Using_References

>>397
>>398

できた！ありがとう！

工場ラインの現場でも、設備の吐き出すデータをメーカ製の糞高くて融通の効かないうんこアプリで効率悪く管理するよりも、
cronで定時計測、perlでちょこまか好きなように集計解析管理している方が精神衛生上にも良かったりします♪
・・・おかげで夜中に携帯が鳴ったりするけれども(´･ω･`)@数値異常検出とか警報とか

♯シーケンサをどうにかして撲滅したい。。。@殊にξ菱

ここはあなたの日記帳ではありません

>>395
なんだかんだであと半年くらい
こういう居座り方をするつもりなのかも。

>>297
> ActivePerlをインストールしたら
> OSが起動しなくなりました。
> Windwosロゴまでは表示されますが
> その後真っ暗です。
> セーフモードでの起動は出来ます。
> 復元でActivePerlインストール前にもどれば起動は出来ましたが
> ActivePerlを使いたいのです、

ずいぶん遅レスになってしまったが、おそらくレジストリが壊れている。
今後、ActivePerl に関係ないところでも障害が出てくる可能性が高い。
OSの修復インストール、再インストールなどをするしかあるまい。

メインのスクリプト内である値をスカラで持ってるんだけど、
この値をモジュールから参照するにはどうすればいい?
our $hoge とかして、モジュールでは $::hoge とすれば
参照できるわけなんだけど、とっても美しくない気がしているの。
(ちなみに参照したいだけで書き換えはしない)

$main::hoge

だが、そういう参照が必要になるってのは、
構造上の問題を孕んでいる可能性が高いと思う。

その変数の値が色々と変わりしかも現時点での値を必要とする→むしろその変数ごとモジュールに切り出すべきじゃね？
ある時点の値が分かれば OK→new とかに渡す

>>405-406
うん、多分今の構造が美しくないんだと思う。
誰かが作ったシステムに追加でモジュール書かなきゃいけなくなってねぇ。
最大の問題は俺がオブジェクト指向を知らないことなんだけどさｗ
プログラム書くのが本職ではないので知らなくても困らなかった。
ourのままやっちゃうかなぁ、う〜ん。

他人の言うことを鵜呑みにするこたぁ無い。
趣味でプログラミングしてるんなら別だが
すでに出来上がって稼動しているシステムを
「ツーチャンネルで相談したら、こう言われたので」
というくだらない理由で
１から書き直すという愚考は会社にとって迷惑。

>>408
「rewrite せよ」なんて誰も言ってないと思うが、、、
404氏がちょっとobjct指向覚えれば、最低限の修正で
済むんじゃないの？

>>408
1から書き直しはさすがにしないぞ。
でも比較的楽に綺麗になるならある程度の修正は
やってみたいなぁとは思っている。

>>409
まぁなんというか簡単に「ちょっと」覚えられればいんだけどねｗ

>>403
どうも、修復のためのSP2CD作ってました。

しかしなぜか再起動を繰り返していると起動するようになったので
Perlを別途保存しておいたやつを環境変数設定して再起動したら
問題なく起動した。そのごJcode.pm(Jcode.pl)をぶっこむと
起動しなくなった。どうやらこれが影響してるみたい。
フォトショの日本語フォントの表示が文字化けしてるのも関係あｒ・・・ないか

どちらにせよJcode使う必要があるので、修復が必要ぽいな

>>411
Jcode モジュールは古いバージョンで必要なものだよ。
今のバージョン（5.8以降）では、標準で付いているEncode
モジュールを使うべき。

文字コードの自動判別したい時ってEncodeだと役立たずだよね。

でもJcodeの自動認識はかなり当てにならんかったような。

やっぱり &jcode'getcode ですよね。と書いておけばいいのかな。

>>411は記述に謎が多いけど（Jcode.pm と jcode.pl の区別とか）
Jcode.pm使用の既存スクリプトをローカルでごにょごにょするんだろうとか
5.6でも動くものを書こうとしてるんだろうとか（たぶん違うけど）
思い込んで、ニヤニヤ眺めていればいいと思うんだ。

レンタルサーバはPerl5.0が多いから・・・

誰か俺とMSNメッセしようぜ 暇なんだよ
[email protected]

fack you

>>418
oh,,, miss spell
"Fuck you"

>419
Fuck you

pod2htmlについて一つ質問があるのですがここでよいでしょうか。

=item 日本語

とかかれたPODをHTMLに変換すると、<a name="___?_?_?__?_" class="item">のように文字化けしてしまいます。
PODファイルの文字コードはS-JISやUTF-8など、いろいろ試してみたのですがどれもだめでした。解決法はないでしょうか。

> "=encoding encodingname"
> This command is used for declaring the encoding of a document. Most users won’t need this; but if your
> encoding isn’t US-ASCII or Latin-1, then put a "=encoding encodingname" command early in the document so
> that pod formatters will know how to decode the document. For encodingname, use a name recognized by the
> Encode::Supported module. Examples:
>
> =encoding utf8
>
> =encoding koi8-r
>
> =encoding ShiftJIS
>
> =encoding big5

perldoc perlpod より

=encodingを指定したら正しく表示されるようになりました。
ありがとうございました。

>>420
good!!

雑誌に掲載されていた 192.168.0.0/24 のようなアドレス記述を
192.168.0.0
192.168.0.1
192.168.0.2
:
と変換するプログラムですが、
#!/usr/local/bin/perl
if( $#ARGV eq -1 ){
die();
}
($ADDR,$BITL) = split( /\//, $ARGV[0] );
($S1,$S2,$S3,$S4) = split( /\./, $ADDR );
$MASK=0;
if( $BITL >= 24 ){
$mbit=0x80;
for($CNT=0;$CNT<($BITL-24);$CNT++){
$MASK |= $mbit;
$mbit = $mbit>>1;
}
}
else{
die();
}
$LEN = ( $MASK^255 ) ;
for($CNT=$S4;$CNT<=($S4+$LEN);$CNT++){
print "$S1\.$S2\.$S3\.$CNT\n";
}
このままだと192.168.0.0/15のようなサブネットのアドレス変換は行うことが
できません。上のプログラムを192.168.0.0/15のようなアドレス変換にも対応
できるようにするにはどうすればいいでしょうか？
また、同じようなプログラムはないでしょうか？

24を15にすりゃいいんじゃね？

>>425 また宿題か？

ポートスキャンの香り

文字列内部の、正規表現にマッチした部分を「取得」(置換ではなく…)したいのですが
どのようにすれば良いでしょうか。

たとえば "apple++orange@@-pie" から /([a-z]+)[^a-z]/ にマッチするものを順次取得、
つまり "apple", "orange", "pie" を取得したい、という目的です。

>>429
m///

>>430はミス

>>429
m//gをループに入れて回す

>>429
"apple+", "orange@" しかマッチしないだろ

perl -le 'print q{apple++orange@@-pie} =~ /(\w+)/g ;'

後は自分で勉強しろ、配列に入れるトコとか正規表現とか、、、

perlって匿名関数使えるんですか？

はい

まず、ド素人がperlイジってすみません。土下座します。生まれてきてすみません。

while (-e "$a$b")
{
print 〜
}

の"-e"の意味がわかりません。
$aと$bが同じでない間はprint〜を実行、って意味になるんですか？
ageですみませんが教えて下さい。

変数$aと$bを連結した名前の
ファイルもしくはディレクトリがあれば真

ありがとうございました！

readline(*STDIN) でコンソールから文字列を入力させていたんですが
エコーが邪魔なので消したいです。どうしたらいいでしょうか。

Term::Getch

# 手抜き
system("stty -echo");

>>441
なるほどｗ　perlでどうこうする前に先ず試すべきでした。

>>440
こういうのがあるんですね。使ってみます。

ありがとうございました。

perlインストールしたらHDの容量が4GBぐらい増えたんだが
これはなんでだ？
インストールするとき、えらい長かったんだが。

>>443
それはperlとは関係なくね？
空き容量が4G増えたとしたらなんか消したってことだろ。常考。

インストール作業中にファイル整理してなかったか？

>>430-433
ありがとうございます。これをヒントに勉強し直します。

しかしKENTは本当に害悪だな

俺は先人に敬意を払うが

>>447
無差別に敬意を払うのは、だれにも敬意を払わないのと同じ。

無差別に敬意を払うとは書いていない

>>449
差別するわけか

名前出すなよ。鬱陶しい。

もはやKENTの売名としか思えなくなってきた。

>>450

同和、解同乙

>>449
>>448の論理に乗る必要なくね？

>>454
449の鋭い論理の前にボロクソに言い負けて涙目な448乙。

理由はどうあれ KENT に複雑な思いがあることは分かったよ

うおｗ　俺>>448になっちまったのか？！
ってか>>449が鋭い論理って･･･。
ズレてるから補正してやろうと思ったが、とりあえずそのままズレてろｗ

while ($perlDevelper s/KENT/who is next/) {}

>>457
> うおｗ　俺>>448になっちまったのか？！
うん、昨日の18:42:03から、このスレでは君は448。
苦しい現実だから、綺麗サッパリ忘れたいんだろうけどね。

お前のような気がする

こういうときは上から目線の奴のほうがしねばいい

まあ実際KENT WEBの影響力は馬鹿には出来ないよ。
WebPGの中でも特にKENTは匂いが違うしな。
何というか…“本質”みたいな物が見えているよね、KENTは…

お世話になります。
ご存知の方いらっしゃいましたら、
教えていただけませんでしょうか。
以下の様にデータセットの参照を動的に行いたいのですが、
$tmpColumnNameのところで参照ができない状況です。
この様な動的参照をする際には、
どの様に対応すればよいか教えていただけませんでしょうか。

$tmp = ref(($RecordSet->{Fields}->{$tmpColumnName}->{Value}));

エスパー待ちの質問に質問。
そのrefはなんのためにあるん？

>>464
失礼しました。
ref()は無くしてください。
$tmp = ($RecordSet->{Fields}->{$tmpColumnName}->{Value});
print("$tmp");
の様になります。

値を入れてる部分は？

$tmpColumnNameにカラム名を順次入れて参照するループ内の一部になります。

　 /'　　　　　　　　　 　!　　　━━┓┃┃
-‐'―ニ二二二二ニ＞ヽ､　　　　┃　　　━━━━━━━━
ァ　　 /,,ｨ=-;;,,, , ,,＿　ト-､ ）　 　 ┃　　　　　　　　　　　　　　　┃┃┃
'　　 Y　　ｰ==j 〈,,二,ﾞ !　　)　　　　｡　　　　　　　　　　　　　　　　　　┛
ゝ.　 {､　　-　,.　ヾ "^ }　　}　ﾟ　｡
　　　）　　,. ‘-,,'　　　≦　三
ゞ,　∧ヾ　 ゝ'ﾟ　　　　　　　≦　三　ﾟ｡　ﾟ
'=-/　ヽﾟ ｡≧　　　　　　　　　三　＝=-
/　|ヽ　 ＼-ｧ,　　　　　　　　　　≧=-　。
　　!　＼　　ｲﾚ,､　　　　　　　　　＞三　　｡ﾟ　･　ﾟ
　　|　　 ＞≦｀Vヾ　　　　　　　　ヾ　≧
　　〉　,く　｡ﾟ　/｡･ｲﾊ ､､　　　　　｀ミ　｡ ﾟ　｡ ･

my $RecordSet = {
Field1 => 'Value1',
Field2 => 'Value2',
Field3 => 'Value3',
};

my $tmpColumnName = 'Field2';
my $tmp = $RecordSet->{$tmpColumnName};
print $tmp;

こうなんじゃないかと予想

またエラー隠蔽者か

未熟な質問者によくある過ちの一つに、
プログラムの動作結果を「自分の望み通り」と「それ以外」の2種類だけで捉える、
っていうのがあるな。

「思った通りになりません」というのは、やってしまい得る無数のことのうちの
特定の一つではなかった、と言ってるだけで、まともな情報になってない。
「あなたのお名前は？」と訊かれて「太郎ではありません」と答えるようなもんだ。全然足りねえよ。
「どうなったのか」を書け。エラー報告も含めて。

失礼しました。
エラーですが、何も表示されないんです。。。

第2段階エスパーの出現が求められています。

コードを全て曝け出せ

もう少し、書き加えさせていただきます。

$strSQL = "SELECT * TABLE_NAME";
$intArrayNumber = 0;
$RecordSet->Open($strSQL, $objDB);
while(!$RecordSet->EOF and $RecordSet->{RecordCount} != 0){
print($RecordSet->{Fields}->{$arrColumnName[$intArrayNumber]}->{Value});
$intArrayNumber = $intArrayNumber + 1;
}

ここで、$arrColumnName[$intArrayNumber]とありますが、
ループ内で該当変数を表示させようとするとすべて表示されます。

while($intArrayNumber != $intArrayMax){
print($arrColumnName[$intArrayNumber]."\n");　←ここは表示できます。
$tmp = ($RecordSet->{Fields}->{$arrColumnName[$intArrayNumber]}->{Value});　←ここでカラムのデータを取りたいが、取り出しができない。（エラー表示はなし）
print($tmp);
$intArrayNumber = $intArrayNumber + 1;
}

そのハッシュリファレンスの固まりみたいなコード、
ひとつひとつ分解して、中身を丁寧に調べるしかないんじゃねーの？

SQLが間違っていて、最初から結果が空だったっていう
オチのような気もするが。

>>472
Perlのエラーはブラウザではなく、Webサーバーのログを見なければならない
apache/logs/error.logを参照のことと一応いっておく

>>476
配列参照だから　print(@$tmp[0]);　　で出ないかい？

Data::Dumper 使って$RecordSet が実際にどういうデータか確認するといいと思うよ

皆様ありがとうございます！
ご指摘・アドバイス頂いた点を確認してみます。

１から１０００までの乱数の集合(@ransuu)があるとき
１から２５０までの数字をＡ、２５１から５００までをＢ、５０１から７５０までをＣ
７５１から１０００までをＤとわけたいんですが、どのようにしたらよいかアドバイスを
いただけないでしょうか？

if ($ransuu){
s/$ransuu/A/;
}

elsif ($ransuu){
s/$ransuu/B/;
}

elsif ($ransuu){
s/$ransuu/C/;
}

elsif ($ransuu){
s/$ransuu/D/;
}

「ある数字が１から２５０だった場合」のように範囲の決め方がわかりません。

if($ransu >= 1 && $ransu <= 250)

ありがとうございます！
助かりました！

それにしてもKENTは本当に害悪すぎる

まあまあそんなにKENTに嫉妬すんなって（笑）
自分より上の立場の人間が憎いのは分かるよ（笑）

　　　　　　　　　 　　　＿＿＿_
　　　　　　　　　　　／　　 　 　＼
　　　　　　　　 　／　─　 　 ─　＼
　　　　　　　　／ 　 （●） 　（●）　 ＼
　　　　　　　　|　 　 　 （__人__）　 　　 |　　　　それはない
　 　　　　　　 ＼　 　　 ｀ ⌒´ 　　 ,／
　r､　　　 　r､／　　　　　　　　　　ヘ
　ヽヾ　三　|:l1　　　　　　　　 　　　　ヽ
　　＼>ヽ/ |｀ ｝　　　　　　　　　 　　|　|
　　　ﾍ　lノ `'ｿ 　　　　　　　 　　　　|　|
　　　　/´　 /　　　　　　　　　　　　 |.　|
　　　　＼. ｨ 　　　　　　 　 　 　 　　|　 |
　　　 　 　 |　　　　　　　 　 　 　 　 | 　|

嫉妬とかどうしたらそういう発想が出てんだ

どこかのサイトに載っていたインタビューかなんかで、KENT本人も
それ言ってたね。

―いろいろ非難もされてるようですが
「ああ、あれはぼくに嫉妬してるんです」

とか

粘着も擁護もどっちもウザい

>>488
>>486の論理に乗る必要なくね？

スレ違い
こっちでやれ
http://pc11.2ch.net/test/read.cgi/php/1078991985/

>>489
キャラ全然違うってｗ

http://oshiete.new-akiba.com/archives/2007/01/webarchivedlwarrick.html
ここを見ながらコマンドプロンプトを操作しているのですが
ダウンロードされる段階まで行っても
Can't locate strict.pm in @INC (@INC contents: .) at C:\Program Files \warrick\warrick.pl line8.
BEGIN failed--compilairion aborted at C:\Program Files \warrick\warrick.pl line8.
と出ます。

意味もそもそも分からないのですが、解決方法教えてください
最新版入れてます。

モジュールについての質問なんだけど

Net::SNMPとData::Dumper使ってMIBを取ると
$VAR1 = {
　　'.1.3.6.1.2.1.1.1.0' => 'Linux localhost.localdomain 2.6.22.9-91.fc7
　　'.1.3.6.1.2.1.1.2.0' => '.1.3.6.1.4.1.8072.3.2.10',
　　'.1.3.6.1.2.1.1.4.0' => 'Root <root@localhost> (configure /etc/snmp/snmp.local.conf)'
};

って返ってくるけどこれをnet-snmp使ったときみたいに
SNMPv2-MIB::sysDescr.0 = STRING: Linux localhost.localdomain 2.6.22.9-91.fc7
SNMPv2-MIB::sysContact.0 = STRING: Root <root@localhost> (configure /etc/snmp/snmp.local.conf)
SNMPv2-MIB::sysName.0 = STRING: localhost.localdomain

みたいにOIDじゃなくて名前で返すようにって出来ない？

Webの最終更新時刻を取得したいんですけど，どのようにすればよいのかわかりません．

例：
http://www.hogehoge.com/index.htmlの最終更新時刻を知る．


LWPモジュールを使って出来そうなんですが．．．

ご存知の方，ご教授ください．

Last-Modified: Tue, 10 Apr 2007 01:57:19 GMT
だそうです♪＠404だけれどもね

use HTTP::Lite;
use HTTP::Date;

my $url = 'http://www.unko.com/';
my $http = new HTTP::Lite;
$http->{'method'} = 'HEAD';

my $status = $http->request($url) or die 'web ページ取得に失敗しました: '.$!;
print $url,' ',$status,"\n";
if ($status eq '200') {
  my $Last_Modified = $http->{'resp-headers'}->{'Last-Modified'}[0];
  print $Last_Modified,"\n";
  my $mtime = str2time($Last_Modified);
  if ($mtime) {
    my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($mtime); # = gmtime($mtime);
    print sprintf("%04d/%02d/%02d %02d:%02d:%02d\n",
          $year + 1900, $mon +1, $mday, $hour, $min, $sec);
  }
}

>>498
おおっ！
ありがとうございます．

LWPでもヘッダから更新時刻を取得できるようなので，こちらも同じことをしてみました．
が，ヘッダにLast Modifiedが付加されない場合もあるので，ムリっぽいです．

必ず，更新時刻を取得できるみたいな方法ないですかねぇ．

>>499
無いよ

perlってopenでプログラム実行できるっけ？つーかやり方教えてください
catコマンド引数つけて実行したりできる？

>>501

$programResult = `ls -a /usr`;
print "$programResult¥n";

パールだけじゃなくプログラミング初心者なんだけど
自動的にブラウザを起動し任意のところに書き込むみたいなこともできますか？
ブログを複数やってるんですが、同じ作業をどうにかしたいと思いあちこちみてまわってます。

メールの本文から指定のURL抽出するみたいなこともできればとおもってますが。

実行時に年と月を与えるとそのカレンダーを表示するperlプログラム
作ってもらえませんか？
UNIXのcal?とかを使うらしいんですが

>>503
直接POSTでも投げたら？
多分微妙に板違いだからWebProg板に逝くといいよ

>>504
今日一番ワロタｗ

>>504
それくらい自分でできるだろｗｗｗ

cal使っていいのかよｗ

open使えばいいだけじゃね？

もったいぶらないでソースください＿ﾄ￣｜○

>>509

心配するな
もったいぶってるんじゃなくて、俺達には出来ないんだ

な、みんな？そうだろ？

学生時代の宿題にCGIとして作ったやつなら

やべぇｗｗ教えてあげようと思ったら俺の環境calがうまく動かない・・・
引数2個指定すれば普通は年、月で指定できるのに年までしか指定できねぇ

とりあえずヒントやるから自分でがんばれ
#!/usr/bin/perl
open(EXE, "cal 2008|");
while($buf=<EXE>){
print $buf;
}

もう誰も教えてくれないからこれでいいや

#!/usr/bin/perl

use Disp::Cal;

$cal = new Disp::Cal;
$cal->setYear(2007);
$cal->setMonth(12);
$cal->output(\*STDIN);

後は任せた

system 'cal 2008';

#!/usr/bin/perl

{
package Disp::Cal;

my $VERSION = "0.01";

sub new {
my $self = shift;
my @t = localtime;
bless {"YEAR" => ($t[5] + 1900),
"MONTH" => ++$t[4]}, $self;
}
sub setYear {
my $self = shift;
my $year = abs(int(shift));
if($year < 1970 or $year > 2037){ die "bad year" }
$self{"YEAR"} = $year;
}
sub setMonth {
my $self = shift;
my $month = abs(int(shift));
if($month < 1 or $month > 12){ die "bad month" }
$self{"MONTH"} = $month;
}
sub output {
my $self = shift;
my $handle = shift;
syswrite($handle, `cal $self{MONTH} $self{YEAR}`);
}
}

$cal = new Disp::Cal;
$cal->setYear(2007);
$cal->setMonth(12);
$cal->output(\*STDIN);

__END__

$cal = new Disp::Cal;
$cal->setYear(2007);
$cal->setMonth(12);
$cal->output(\*STDIN);
$cal->output(\*STDIN);

なぜか二重出力される様に改良しました

>>516
$VERSIONはourのほうがよくね？

>>516-518
無視すりゃいいのに。
ここの住人ってお人好しなのか、ただのマゾなのか。

>>520
罵倒していないで、なぜ無視するべきなのかを説明して説得に勤めること。

system 'cal 2008'; たった１行でできるのに、わざわざ”車輪のナントカ”する必要は無いだろ。

chrootされた環境にcalがあるとは限らない。

calを使っていいっていう条件なんだから、
ファイルシステムから全体からcalを探索すればいいんじゃなかろうか。

>>522
車輪の交換?

四角くない車輪ならまぁいんじゃね？

Audio::Beep　のサンプルを鳴らしたいのですが
（<>）　ここにファイル名入れても鳴らないのですが。。。

#!/usr/bin/perl -w

# use this program to play the examples in this directory
# use: ./beep_player.pl music_file

use strict;
use Audio::Beep;

undef $/;

my $beeper = Audio::Beep->new();
$beeper->play(<today>);

>>527
デバッグしろ

だれか>>494について教えてくれ
ずっと昔の過去スレに似たような質問があって、答えに

見つからんって言われてるんだから、入れればいいじゃん。
http://search.cpan.org/author/SBECK/DateManip-5.42a/

って書かれてたんだけど、リンク切れで分からん。

>>529
> って書かれてたんだけど、リンク切れで分からん。
↓
バージョンが変わったのかと推測する
↓
検索してみる

>>529
DateManip って warrick と無関係じゃん、、、
ttp://warrick.cs.odu.edu/warrick.html
斜め読みしても出て来ないし、、、

そもそも494はstrict.pmがねえってエラーで、それって@INCが上手く
設定されてないだけじゃねえの？

>>498 POSIX::mktime

vista使いですけど、OS規定のプログラムでファイルを実行させるにはどうしたらいいですか？

system($file);

mkdir -pを行える標準モジュールってありますか？

system 'mkdir -p';

自分のHDDの内容を2chで人に尋ねるのって哀しいよね

>>535
File::Pathのmkpath

perlでバックグラウンドで処理を動かすにはどうしたらいいでしょうか？
shellで言うと、
hoge1.sh &
hoge2.sh &
hoge3.sh &
みたいな感じです。

そして、それぞれのバックグラウンド処理の終了を監視できるといいのですが。

>>539
fork()

>>540
ありがとうございます。
検索したところ以下のページを発見しました。
ttp://www.stackasterisk.jp/tech/program/perl04_02.jsp
この例だとバックグラウンドで動かしているのはひとつですが、
複数の処理を同時にバックグランドで動かしたい場合はどうしたらいいでしょうか。

増やしたいだけ親プロセスからfork()を繰り返す。

このエラーの解決方法を教えてください
-----
C:\work>pp -o a.exe a.pl
Can't load 'C:/Perl/lib/auto/IO/IO.dll' for module IO: load_file:指定されたプロ
シージャが見つかりません。 at C:/Perl/lib/XSLoader.pm line 64.
at C:/Perl/lib/IO.pm line 11
Compilation failed in require at C:/Perl/lib/IO/Handle.pm line 263.
BEGIN failed--compilation aborted at C:/Perl/lib/IO/Handle.pm line 263.
Compilation failed in require at C:/Perl/lib/IO/Seekable.pm line 101.
BEGIN failed--compilation aborted at C:/Perl/lib/IO/Seekable.pm line 101.
Compilation failed in require at C:/Perl/lib/IO/File.pm line 133.
BEGIN failed--compilation aborted at C:/Perl/lib/IO/File.pm line 133.
Compilation failed in require at -e line 405.
C:\Perl\site\bin/pp: Failed to extract a parl from 'PAR::StrippedPARL::Static' t
o file 'parl3qS37ar.exe' at C:/Perl/site/lib/PAR/Packer.pm line 1149, <DATA> lin
e 1.

>>542
すいません、今perlの環境がないので試せませんが、こんな感じでしょうか。
それとバックグラウンド処理の結果を受け取るにはどうしたらいいでしょうか。
テンポラリファイルに書き出し→読み込みは思いつきましたが、なるべくファイルを作りたくないので。

if( $pid = fork ) {
　# なにもしない
} elsif (defined $pid) {
　# バックグラウンド処理1
　exit;
}
if( $pid = fork ) {
　# なにもしない
} elsif (defined $pid) {
　# バックグラウンド処理2
　exit;
}
if( $pid = fork ) {
　# なにもしない
} elsif (defined $pid) {
　# バックグラウンド処理3
　exit;
}

>>544
> それとバックグラウンド処理の結果を受け取るにはどうしたらいいでしょうか。

perlipcを読んで、プロセス間通信のモデルと枠組みを理解しろ。

う〜ん、IPC::Open3してselectしてSIGCHDをキャッチしてwaitpidするのが
今でもベストなのか?

Parallel-ForkManagerとかProc-Forkとかいうのがあるようだな。

>>545-547
ありがとうございます。
調べてみます。

>>539のシェルの場合、結果はどのように受け取るつもりなんだ？

まあそれはともかく>>539にはファイルでやりとりすることをお勧めする。

>>549
シェルは説明の為に例えで書いたことですが、やるとしたらファイルしか思いつきません。
perlだったら他の方法でやり取りできるのかと思って質問させてもらいました。
perlipcをちらっと見ましたが理解するのに時間がかかりそうなので、とりあえずファイルで対応します。

>>538
ありがとうございます！
自力で作ろうとFile::Basenameまでは触れてました…。

添付ドキュメントのperlmodlibに一覧があるんだがな。

Web::Scraperを入れようとしたらテストに通らず困っています。

# prel -MCPAN -e shell
cpan> install Web::Scraper
...
t/12_html.................ok  
t/13_textnode.............1/4
#   Failed test 'RAW HTML'
#   at t/13_textnode.t line 20.
#          got: ' bar &#38; baz'
#     expected: ' bar & baz'
# Looks like you failed 1 test of 4.
t/13_textnode............. Dubious, test returned 1 (wstat 256, 0x100)
 Failed 1/4 subtests
t/14_absolute_nested......ok  
t/15_absolute_hash........ok  
...

make testまでは特にエラーもなく進むのですが、13_textnodeの
RAW HTMLのテストのみ失敗してしまいます。

Result: FAIL
Failed 1/18 test programs. 1/39 subtests failed.
make: *** [test_dynamic] エラー 255

事前に入れておくべきモジュールなどはありますでしょうか。Bundle::CPANは入れました。
考えられる要因などありましたら、お教えください。原因解決に提示すべき情報があれば
提示します(他にどのようなものを提示すればよいのか分かっていません…)

ttp://www.nntp.perl.org/group/perl.cpan.testers/2007/11/msg791449.html
この辺りかしら？

>>553
ttp://rt.cpan.org/Public/Bug/Display.html?id=29733
にて作者本人が同様（554）のケースの人に
「HTML::TreeBuilderをアップグレードしてみ？」
つってるぞ。上記の人はそれで解決。
今回のが解決するかどうかは知らんが、
cpan の当該モジュールの項=> View/Report Bugs
のリンク辺りを踏んで内容を斜め読む事をお勧めする。

失礼します。
変数を動的に呼び出したいのですがどうしたらできますか？

例えば、変数$hoge1,$hoge2,$hoge3という変数が３つあるとして
$callという変数に上記３つうち扱いたい変数の変数名を代入します。
$call = 'hoge2';
この後で、$callを使って$hoge2に代入したり読込んだりしたいです。

教えてください、お願いします。

>>556
変数の「参照」になります。

$hoge1=10; $hoge2=20; $hoge3=30;
print "$hoge1,$hoge2,$hoge3\n";

$call = *hoge2;
${$call}++;

print "$hoge1,$hoge2,$hoge3\n";

>10,20,30
>10,21,30

>>556
普通リファレンスを使うと思うのだが、どうしてもどうしてもどうしても
どうしてもどうしてもどうしてもどうしても変数名じゃないとダメなのか?

>>556
お勧めできない(俺が思うに)最悪の方法であるが、シンボリックリファレンスを
用いることにより可能である。

最悪な点
・読みにくい
・判りにくい
・遅い
・時代遅れ

やりかた
$call = 'hoge2'
print ${"$call"};

ハードリファレンスを用いるか、あるいは
%hash = ('hoge1' => 10,'hoge2' => 20,'hoge3' => 30);
$call = 'hoge2;
print $hash{$hoge2};

皆さんレスありがとうございました。
>>557
ありがとうございました。やりたい事ができました。
>>558
すいません。リファレンスの存在自体知らなかった者ですので・・・

あの・・・僕は今までずっとuse strictとmyの変数宣言を使っていたのですが
>>557さんの例だと結果が
>10,20,30
>10,20,30
と変わってきました。
あと、スカラー変数ではなくハッシュの場合で
変数名を動的に呼び出せれるかテストしてみたんですが
use strictを使わない場合はうまくいきましたが
use strictを使うとエラーが出てしまいました。
ちなみにこんなエラー（renhogeはハッシュの名前）
Can't use string ("renhoge") as a symbol ref while "strict refs" in use at testRef line 30.

普通use strict とかは使わないほうがいいんですかね？

>>560
use strict;は、使ったほうがよい。この「use strict;」は、「strictプラグマ」などと呼ばれる。

>>559のようなシンボリックリファンレンスという方法（${"$hoge"}というような方法）は、
今は使わないほうが良いとされているので、strictプラグマが使われているとエラーになる。

多分・・・
$hoge = "renhoge";
${"$hoge"}{"key"}
とかやったんじゃないのか？シンボリックリファレンスは使わないほうがいいと思う。

ポインタを使いたいのですが良い方法あるでしょうか？

use Pointer

遅くなってすみません。

>>554
ありがとうございます。
現象としては、ほぼ同じだと思います

>>555
ありがとうございます。
HTML::TreeBuilderのアップグレードを試してみましたが、インストール
済みの3.23が最新のもののようでした。お教えいただいたView/Report Bugsを
読んでみましたが、まだ解決策は分かりません。


細かいことなのですが、インストールが成功する環境では
テスト進行中の表示で、スキップした際に
t/07-live...............skipped
        all skipped: LIVE_TEST not enabled
t/08-leak...............skipped
        all skipped: LEAK_TEST is not defined
と表示され、失敗する環境では
t/07-live.................skipped: LIVE_TEST not enabled
t/08-leak.................skipped: LEAK_TEST is not defined
というように、微妙にメッセージが異なります。
調べてみたら、Test::Harnessのバージョンが、成功する環境では2.64、
失敗する環境では3.03でした。これが関係あるかは分かりませんが、古い
バージョンに戻すのは他に影響が出そうだし、現在インストール可能な環境を
インストール不可になる危険を冒して検証するのも怖いので、どうしよう
かと思っています…。

>>564
そっか、力になれなくてスマン。

source からインストールも試してみれば？（他の必要モジュールはCPAN経由で入れてさ）
- Web::Scraper の必要モジュールは .pm に書いてある。
- README を読めば source からのインストール方法も書いてある。
package Web::Scraper;
use strict;
use warnings;
use Carp;
use Scalar::Util qw(blessed);
use List::Util qw(first);
use HTML::Entities;
use HTML::Tagset;
use HTML::TreeBuilder::XPath;
use HTML::Selector::XPath;
use UNIVERSAL::require;

今回のと関係ないけど、CPANインストールにコケる時に
terminalの言語環境が英語じゃないとダメってのもあったなあ。

不特定のファイルの種類を調べようとしています。
fileコマンドだと、画像ファイル(PCX)の場合に解像度まで表示されてしまう場合があります。画像フォーマットの種類だけわかれば十分なのです。
fileのmanによると、通常text,executable,dataのいずれかがつくとのことだったので、以下のような正規表現で種類だけ抜き出せないかなと思っています。

if($file =~ /^(.+?(?:text|executable|data))(?: .+|, .+|)$/){
$format = $1;
}
else{
$format = $file;
}

でも、ざっと /usr/share/file/magic を見ると、MP3形式の時に以下のような結果となり、ビットレートなどを除いた情報がとれません。

MPEG ADTS, layer III, v1, 128 kBits, 44.1 kHz, JntStereo

それようのモジュールがあるような気はするのですが、見つかりませんでした。
何か良い方法はありませんか。

>>566
それがどうして問題になるのかわからん。分ければ良いだけのこと。

とまれ、File::MMagicでも読めばなにかわかるんじゃないか?

>>566
file -i

ちょっとここでいいかわからないけど、とりあえず質問です。

DynaLoderとかXSLoderについてなんですが、
例えば、use DBD::mysqlとかした時に、@INCにある、auto/DBD/mysql.so(.dll)をLoadしに行って、
さらにそこから、mysqlの例だと、例えば/usr/lib/mysql/libmysqlclient.so(Winだと、C:/MySQL/bin/libmysql.dll)
とかを探しに行ってLoadしてるんだと思いますが、

例えばMySQLを標準以外のprefixでインストールした時(/usr/local/mysql/)に、DBD::mysqlをmakeするときは
perl Makefile.PL --libs="-L/usr/local/mysql/lib -llibmysqlclient ・・・"とかを指定してコンパイルしますが、
これをインストールしてから、perl -e ’use DBD::mysql’とかしてみると、
Can't load '・・・DBD/mysql.so' for module mysql: libmysqlclient.so.15: 共有オブジェクトファイルを開けません:
そのようなファイルやディレクトリはありません at ・・DynaLoder.pm line 230
みたいな出力になります。

ここで、そのlibmysqlclient.so.15を/usr/lib/mysql/にコピー(またはsymlink)すると、エラーなしで上のコードが実行できます。
もちろん、mysqlの場合だと、コンパイル時に--staticとかつけてstatic linkでmysql.soを作成するとか、
Winの場合だと、C:/otherdir/mysql/bin/を環境変数PATHに突っ込んでやったりすると問題なくLoadできます。

で、なにがしたいのかとゆうと、
staticにしたくない(またはできない)場合のmoduleの、DLLの検索Dirの制御を動的にできないか？
とゆうことです。

PerldocやCPANのDynaLoaderやXSLoaderのDocumentや、Linuxの環境変数についてとか調べた結果、
システム環境変数(？)の$LD_LIBRARY_PATHや、perl -V した時の libpath、DynaLoader.pmの@dl_library_pathなんかに
DLL(.so)を探しに行くときのDefaultのPATHが格納されているようなんですが、これって外側から制御することは可能ですか？

例えばとあるModuleをコンパイルする時に、perl Makefile.PL OPTIMIZE="-O3・・・"とかしたら、デフォルトの設定から
OPTIMIZE変数を上書きしてコンパイルしてくれます。
でも、上のmysqlの例だと、LIBPATH=/usr/local/mysql/lib とか、LD_LIBRARY_PATH=/usr/local/mysql/lib　とかつけて、
perl Makefile.PLしても、make test ブロックなんかでやっぱり上記のエラーが出て止まってしまいます。
この時も、/usr/lib/以下に/usr/local/mysql/lib/の内容をコピーしてやったりしたらmake testが通るようになるんですが、
そうじゃなくて、LIBPATH=/usr/local/mysql/lib make test みたいなコマンドで、適宜LoadDirectoryを追加とかできないですか？

mysqlの場合だと、異なるいくつかのVersionを同じシステム上で動かして(当然default-unix-socketやportが違う)
動作テストをしたいときや、
mod_perlがらみのscriptとかの動作テストをする時も、/usr/local/apache2/libなんかをLibrary検索pathに含めたいんです。
(これも、perl -e 'use APR'とかすると、Can't load ・・・libaprutil-1.so がありません　とか言われてしまう。)

>564
Web::Scraper 0.23がでてて、ChangelogによるとテストがこけるのはHTML::TreeBuider::XPathのバグみたい。

>570
"LD_LIBRARY_PATH=/usr/local/mysql/lib:$LD_LIBRARY_PATH" make test
で通らないの？

>>572
それが、今やってる環境がCent4 & Cent5 なんですけど、mysql
sshターミナルでLoginして、printenvしたり、setしても、LD_LIBRARY_PATHが定義されてないんです。

で、例えば、LD_LIBRARY_PATH=/usr/local/mysql/lib perl -e 'use DBD::mysql'だとなにも言わない(エラー無し)なんですが、
LD_LIBRARY_PATH=/usr/local/mysql/lib make test だと、やっぱり　’Can't load ・・・’なエラーを吐きます。

>>567
ファイル一覧の付加情報としようと思うので、あまり長いと都合が悪いのです。
File::MMagicを試してみましたが、fileで扱うデータを食わせると同じ結果にしかなりません。当たり前でしょうけど。
あと、Debianでは、File::MMagicで読み込めるmagicファイルのフォーマットが古く、search型の部分でエラーになりました。

>>568
mimeにしちゃうと、情報が減りすぎて。

あるファイルがCGIとして呼び出されたか、
requireで実行されたかそのうファイル内で判断したいのですが、
どのようにしたら良いでしょうか？
# CGIとして呼び出されたときはページを表示し、
# requireで実行されたときはページを表示しないということをやりたいのですが。

>>575
環境変数で判断できない？
REMOTE_ADDRが設定されていれば、CGIとか。

別のCGIからrequireされたかどうかの判断なら、自分のコマンド名で判断できるかな。
$0をチェック。

こっちのスレやる話題じゃないけどGATEWAY_INTERFACEがCGI/1.1かどうかってモロなのがあるぞ？

>>576-577
ありがとうございます。
requireで呼び出しを行ったプログラムがCGIだったせいで、
環境変数系は全滅でしたが、$0で判別することが出来ました _ _

>>570
長くてちゃんと読んでないので見当はずれだったらごめん

rootで
/etc/ld.so.confにディレクトリ書くか
/etc/ld.so.conf.d/にディレクトリ書いたファイル作って
ldconfig実行する

>>580
やっぱりそれしかないでしょうか？
ごめんなさい、またちょっと長くなりますが、
うちで一晩やってみて、ますますわけが分からなくなった。いったんmysqlからは離れますが、

/*--- dl.pl ---*/
#!/usr/bin/perl
use DynaLoader;
print "Content-type: text/plain\n\n";
print map("$_<br>\n",@DynaLoader::@dl_library_path);

/*--- apr_t.pl ---*/
#!/usr/bin/perl
use ARR;
use ARR::Pool;
use APR::Request; #これはlibapreq2用なのでなくてもいいです。
print "Content-type: text/plain\n\n"
print "APR OK!"

と簡単なファイルを二つ作って、コンソールからと、Apache(CGI,mod_perl両方)からテストしてみたんですが、

# perl dl.pl -->出力 /usr/lib /lib /usr/local/lib (実際は改行されます)
# perl apr_t.pl --> Can't load ・・・ libaprutil-1.so が開けません。そんなファイルありません。
http://localhost/cgi-bin/dl.pl -->コンソールと出力同じ
http://localhost/cgi-bin/apr_t.pl -->500 Internal Server Error （エラー内容はコンソールと同じ)
http://localhost/mod_perl/dl.pl -->コンソールと出力同じ
http://localhost/mod_perl/apr_t.pl --> APR OK!

ここまでは予想通りなんです。でも・・・

export LD_LIBRARY_PATH=/usr/local/apache2/lib ; perl dl.pl --> /usr/lib /lib /usr/local/lib "/usr/local/apache2/lib" <-増えた！
export LD_LIBRARY_PATH=/usr/local/apache2/lib ; perl apr_t.pl --> APR OK! (よし、ちゃんと読んでるようだ)
では、cp /usr/local/apache2/lib/* /usr/local/lib/ してから、
http://localhost/cgi-bin/dl.pl --> /usr/lib /lib /usr/local/lib ( <-ちゃんと、/usr/local/lib あるよな？)
http://localhost/cgi-bin/apr_t.pl --> 500 Internal Server Error! (なんで〜？)

そこで、# unset LD_LIBRARY_PATH して、/usr/local/lib/〜には、libapr-*.soがある状態で、
# perl dl.pl --> /usr/lib /lib /usr/local/lib （最初といっしょ)
# perl apr_t.pl --> Can't load ・・・ libaprutil-1.so ・・・　/usr/local/libを読んでくれない...orz ってな状況です。

う〜ん、@DynaLoader::dl_library_path って、DynaLoaderが、.soファイルを探し出すための検索Dirじゃないの？

うちでの環境は、/usr/local/apache2/にApache2.2を手動でインストール、mod_perlもこのApacheめがけてmakeしてあり、
/usr/lib/以下には、これらのLibrary(.so)が一つも入ってない状態です。(rpm系からインストールすると、/usr/libにsoが入ります)
似たような環境の人で、お手すきの方いましたら試してもらえませんか。(そんな人いない？

ごめんなさい。
>>580の、>>580は>>579の間違いです。
それから、apr_t.plの下二行、’；’の付け忘れです。

読まずに当てずっぽうを言うが、-Lじゃなくて-Rの話と違うのか?

>>583
？？？　すいません。わかりません。
多分 -Lとは、gccとかのコンパイル時のオプションで、linkまたはlink(lib)pathのことだと思いますが、
-Rってのがわかりません。
gccのオプション一覧で探しましたが見つからず、perlにも、そのようなオプションはないようですが・・・。

>>581
> cp /usr/local/apache2/lib/* /usr/local/lib/ してから
この辺りちょっと気になる。

linuxはかじった程度だからあってるかどうかあやしいけど、
LD_LIBRARY_PATHをセットしたとしても、.soファイルに静的にリンクしている場合、
コピーしただけじゃリンク先が変わらないから、その辺りが原因じゃないかなぁと思う。

LD_RUN_PATHの話じゃないのか

長くて読んでないが、runtime library search pathの話なら、
LD_RUN_PATHかLD_LIBRARY_PATHかDT_RUNPATHかDT_RPATHの話か?

>>585
そうなんですか。でも多分APR.soとかAPR::Pool.soは動的リンクだと思います。
現に上の状態から、cp /usr/local/apache2/lib/* /usr/lib/ で、
# perl apr_t.pl も http://localhost/cgi-bin/apr_t.pl も　APR OK! となります。
(コピーしただけ、/sbin/ldso とか　LD_LIBRARY_PATHは何も操作してない。)

つまり、DynaLoader.pmは、/usr/lib にあるライブラリはちゃんと探し出して、読み出しに行ってくれてるみたいです。

>>586,587
LD_RUN_PATH DT_RUN_PATH DT_RPATH
これらの環境変数は知りませんでした。今ちらっとmanpage読んだんところ、
コンパイル時に、指定のライブラリパスをバイナリに埋め込むようなんですが、
目的のことと、ちょっと違うような気がしますが、とりあえずもう少し詳しく調べてみます。

httpd.confにSetEnv LD_LIBRARY_PATHが無い
>>580のtestコードは構文エラー
素直にrpm使えば？

自宅のプロバからは、書き込み規制中で、昨日は書き込めませんでした。

>>589
すいません。>>580の、dl.plの4行目は正しくは print map("$_<br>\n",@DynaLoader::dl_library_path); です。
後ろの”@”は不要でした。apr_t.plの方は、>>582の通りです。

> httpd.confにSetEnv LD_LIBRARY_PATHが無い
> 素直にrpm使えば？

Apacheの環境変数LD_LIBRARY_PATHをCGIに渡せることは確認しました。
でも、せっかく提示してもらって恐縮ですが、そうゆうことではなく、また、別にRPMが使いたくないとかでもなく、
>>570みたいなことが目的です。>>580,>>581は、今の自分の環境で、すぐに試せそうなテストを書いてみたわけです。
ワンライナー風にするなら、export LD_LIBRARY_PATH=/path/to/lib; perl script.pl のような感じで出来るのは
確認しましたが、Makefileの中とかで、shやperlを多重に(？)呼び出す(子プロセスから子プロセスみたいな感じの)時は
上のようなコマンドでは無理なようです。(子プロセスや、suidには、LD_LIBRAY_PATHを渡せないような記述を見かけました。)
そこで、DynaLoader.pmの@dl_library_pathに注目してみたわけです。

連投すいません。
>>レス頂いたみなさま
あれから昨夜、LD_〜環境変数や、/lib/ld.so、/sbin/ldsoconfig等をもう少し詳しく調べてみたんですが、
自分は、DynaLoaderや@dl_library_pathについて、重大な思い違いをしていたみたいです。

http://search.cpan.org/~nwclark/perl-5.8.8/ext/DynaLoader/DynaLoader_pm.PL
こことかを参照して、@DynaLoader::dl_library_pathは、DynaLoader(perl)が.soファイルを検索するためのPATHだと
思っていたんですが、その(perlが)検索する.soファイルは、あくまで{perl-module-name}.soであり、
そこから先のDLLについては、一切感知してないようです。

例えば、上のapr_t.plの例で言うと、
1: use APR; --> perlが@INCから、APR.pmを探し出してLoadする。
2: APR.pm内のuse DynaLoader; --> DynaLoaderが、@dl_ibrary_pathから、APR.soを探してLoad
3: APR.soはlibaprutil-1.soに動的リンクしているので、こいつを探し出してからLoad(AP2.0.Xならlibaprutil-0.so)
4: perlがscriptをコンパイル and 実行

自分は今まで、この’3’の段階まで、DynaLoaderの仕事とばっかり思ってたんですが、実際は’2’までで、
’3’については、システムのld.so(ld-linux.so)の仕事のようです。
上のURLの内容や、export LD_LIBRARY_PATH=/path/to/lib; perl dl.pl の出力結果などにより、勘違いをしてました。

perlからLoadされる.soだから、当然perlプロセスの管理下だろうし、そのライブラリを検出したりするために、
@dl_library_pathがDynaLoaderには組み込まれてるんだろうと思ってました。実際はほとんどのperl-modlueが、
@INC内で完結するか、ld.soのデフォルトpathである、/lib,/usr/lib内で見つかってしまうのと、さらに、
export LD〜=〜/lib で、@dl_library_pathに 〜/lib が追加されてしまうため、
@dl_library_pathとゆうのは、perl内部でのみ有効なLD_LIBRARY_PATHだと混同しておりました。

実際には、@dl_library_pathにある /usr/local/libは、ld.soの検索対象PATHには含まれていない為、
>>581のような結果になるのは当然でした。

今まで色々とアドバイス等、ありがとうございました。

Perlのモジュールか何かでsnmptranslateと同じようなことって出来ない？
.1.3.6.1.2.1.1.1.0　<--> SNMPv2-MIB::sysDescr.0
みたいにOIDの表示形式を変換したいんだけど

調べてないんだけど、Net::SNMPあたりにないん？

質問です。

自分でfirstというディレクトリを作成し
その中にsecondというディレクトリを作成するにはどうしたらいいですか？

chdirで作業ディレクトリをfirstにうつせば出来るんですが
その後、またもとのディレクトリに戻る方法が分からないため挫折。

( ﾟдﾟ)

>>594
>>535-538

>>596
Thx　解決しました。

>>594
ディレクトリ作るだけなら>>596でもいいが
これからもプログラミング続けるなら
相対パスでググって出てきたページを100回ほど音読しとけ

でもchdir 'hoge'したあとchdir '..'で戻れるとは限らなかったりする。(hogeがsymbolic linkの場合)
自分で今作ったディレクトリなら大丈夫だとは思うがね。

fchdirがあるシステムなら、カレントディレクトリを開いてファイルハンドルを保存、戻りたくなったら
とっといたファイルハンドル指定でchdirするのが楽ですな。(5.8.8以降)

質問なのですが、特定のキーが押されているかどうかって、
どうやってチェックするのでしょうか？

<STDIN>とかTerm::Readkeyだと、入力待ちになってしまいますよね。
動作を止めずに、特定キーが押されている時だけ分岐したいのですが。

>>593
調べてみてNet::SNMPにtranslateってものがあったけどOIDの変換はなさそうだった

Net::SNMPのリクエストで使うOIDを.1.3.6.*みたいな数字形式じゃなくて
SNMPv2-MIB::sysDescr.0みたいな形で指定したかったんだけど何か無いんだろうか

多分アホらし過ぎる質問だろうけど誰か助けて
orz
ActivePerl5.8インストールしようとしたら
Indalid Drive:G
とか出てくる

ちなみに外付けを必要によって接続したりしなかったりで使ってるのが原因ぽいです
対処法をだれか・・・

>>602
subst g: c:\

とでもやってみたら？
それで回避できるのか分からんが。

>>601
CPANのSNMPかSNMP::MIB::Compilerあたりが使えそうだが

Excelで書き出したCSVを読み込もうとしています
Excelで一つのセル内に改行が入っていた場合、CSVに書き出すと

abcd,efgh,"ij
kl"
ABCD,"EF
GH",IJKL

このようにダブルクォーテーションで囲まれた中に改行がそのまま入ります。
全体を配列等に格納するまえに、こういった改行を別な文字（例えば<br>）に置き換えておこうと思い
正規表現でどうにかしようと考えました。
セル中の改行が一つなら
s/"(.*?)￥n(.*?)"/$1<br>$2/g
これでどうにかなるのですが、改行が複数の場合どうすれば良いのでしょうか。

そんなこと自前でやらずにText::CSVでも使えばいいと思うよ。

エクセルで改行置換しろ
検索する文字列にCtrl+Jな

>>605
たしか Windows の改行コードは \r\n の２バイトで
セル内の折り返しは \r の１バイトだったと思います。
この違いを利用して \r を <br> に置換するだけ

chomp;
s/\r/<br>/g;

というチョ〜手抜きでも実用上はＯＫじゃないかな。
神経質な人にはオススメできませんけど。

>>605
そんなこと考えるよりText::CSV_XSインストールしてgetline使え。

回答ありがとうございます。

>>606>>609
まさにうってつけのモジュールがあるんですね。
調べてみます。

>>608
そんな構造になっていたとは。試してみたいと思います。

>>607
なるべくエクセル側では手間のかからないようにしたかったのです。

関数の引数として、第一引数に配列、第2引数に文字列を渡したいのですが、
下のようにしても受け取るのができませんでした。
配列と文字列の関係を維持したまま引き渡すことは可能でしょうか？

&array_test(@arr,$str);
sub array_test {
@arr=@_[1];
$str=$_[2];
}

ActivePerlつかっているんですが、
ppmでYAML::Syckをインストールして使おうと思ったら
Syck parser (line 3, column 0): syntax error at C:/Perl/site/lib/YAML/Syck.pm line 53, <FH> line 1.
とエラーが出てしまいます。

YAML-Syckのバージョンは0.91
同じ症状のひといますか？

&array_test(\@arr,$str);
sub array_test {
@arr=@$_[0];
$str=$_[1];
}

>>600
Windows環境？

すみません、動詞を三人称単数現在にするモジュールってありますか？

$a の行頭に、$n 個の全角スペースを挿入したいんですが、
どうすればいいでしょうか？

>616
for文で回しながら1個ずつくっつける。

>>617
なるほど

でも、できればいっぺんに挿入したいんですけど、
そういうやり方はないでしょうか？

>>616

$a = 'AAA'
$n = 10;
$a = ’　’ x $n . $a;

>>619
ありがとうございます
うまくいきました

>619
そんなのあったのか。勉強になった、ありがとう。

substr($a, 0, 0, "　" x $n);
substr($a, 0, 0) = "　" x $n;

>>615
> すみません、動詞を三人称単数現在にするモジュールってありますか？

lingua stemあたりでCPANを検索しる

自己解決しました。
yamlファイルのデータのコロン（：）の後に半角スペースがなかっただけでした。

>>616
$a ~= s/^/　/gm;

リロードしてなかった上に読み間違えだったわすまそ

「->」演算子について質問です

「->」演算子は、配列/ハッシュリファレンスにデリファレンスを
行う際に使用する演算子と理解しています。

しかし、パッケージ名に対して使用すると、
対象パッケージに含まれる関数を呼び出すこともできます…。

これは、
　「->」演算子は、
　　・配列/ハッシュリファレンスに対して使用するとデリファレンスを行う
　　・パッケージ名に対して使用すると関数の呼び出しを行う
と、理解すればいいのでしょうか？
※「->」演算子は、"配列/ハッシュリファレンス"に使用する場合と
　　"パッケージ名"に対して使用する場合では、全く別ものということでしょうか？

以上、何かレス頂けたらありがたいです。

>>627
デリファレンスは「配列／ハッシュ」に限らない
関数呼び出しは「パッケージ名」に限らない

>>627
左側の形で決まる。詳しくはマニュアル読め。

デリファレンス
...->[...]
...->{...}
...->(...)

メソッド呼び出し
...->method_name
...->$scalar_variable

>>628
早々のレスありがとうございます。

>>デリファレンスは「配列／ハッシュ」に限らない
そのようですね。
関数へのリファレンスをデリファレンスすることもできるようですね。

>>関数呼び出しは「パッケージ名」に限らない
これは、
　Perlにおけるクラスインスタンス(リファレンス)に対しても使用することができ、
　関数の呼び出すことができる
ということをおっしゃっているのでしょうか？

そもそもなのですが、「->」演算子って、なんなのでしょうか？
…続く

>>629
レスありがとうございます。
続きを書こうとしたところで、解答をいただけたので
やめておきます。

左辺のきまるのですね＾＾
と、いうことは、「->」演算子は、
　「->」の左辺によってまったく異なる動きをする
と解釈してよろしいのですよね・・・

マニュアル・・・
Perlの言語仕様が日本語で書かれているサイト・・・
探してみたのですが・・・
もう少しさがしてみます。

ありがとうございました。m(_ _)m

すまん、左側じゃなくて右側

関数じゃなくてメソッドでしょ。
左辺がパッケージ名ならクラスメソッド。インスタンス変数ならインスタンスメソッド。

すみません。どなたかご教授願えたらと思います。Perl初心者です。

あるバイナリファイル(test1)をLinuxのコマンド上で
# od -a test1 > test2
そして
# od -f test1 > test3
としてtest2,test3のファイルが生成されるのを同じようにPerlでプログラム
するにはどのようにしたらよろしいのでしょうか。

unpackなどを使ったらよろしいのでしょうか。
ご存知の方がいらしたらよろしくお願いしたいと思います。

system "od -a test1 > test2";
system "od -f test1 > test3";

すみませんが、どなたかご教授をお願いいたします。

目的：
Perl から形態素解析エンジン Mecab を呼び出したいとおもいます。

操作：
WindowsXP Professional SP2環境に
Mecab （　http://mecab.sourceforge.net/　）自己解凍インストーラ (mecab-X.X.exe) を実行して
インストールしたのち、
Perl のスクリプト言語バインディングをダウンロードして動作させようとしましたが、

>perl makefile.PL

のときに mecab-config が無いとか言われ、Perl から Mecab を呼び出す環境が構築できません。

備考：
Yahoo! の形態素解析呼び出しは簡単なのですが、

　　「　Yahoo!に文書ログを取られ放題の可能性あり。　」

という状態はまずいので、Mecab を使いたいと思っています。

ここに限らないけど、ご教授というよりご教示が適切な場合が多いね。

>>636
pythonだけど参考になるかも。
http://www.atransia.co.jp/home/fukamachi/Diary/2006/01/15/

>>636
Mecabのバージョンは？

WindowsでMecab使ったことあるけれど、
インストールで躓いた記憶なし。

>>638 さま
Mecab のバージョンは　0.96 （最新）です。

->[ EXPR ] で一つの後置演算子
->{ EXPR } で一つの後置演算子
->IDENTIFIER で一つの後置演算子

とでも捉えればいいんじゃない？

>「->」演算子は、配列/ハッシュリファレンスにデリファレンスを
>行う
$a = ['unko'];
print(($a->)[0]);

こう出来るのであればともかく、その捉え方は違う気がする。

ちょｗｗｗｗ更新してなかったｗｗｗおのれJaneめ。朕を辱めおって。ゆるさん！

あるモジュール（Aとする）があって、ロード先の名前空間に
別の特定モジュール(これをBとする)がロードされていなければ、
そこにBをロードする、というコードを書きたいのですが、

ロード先にBがロードされているかどうか、Aで調べるには
どういうふうに書けばいいですか？

Bのメソッドをcanで調べるぐらいしか思いつかないんですが・・・

すいません、自己解決しました。
「ppm を公開されている神々」がおられましたので、インストールしたら問題なく動作しました。
http://namazu.asablo.jp/blog/2007/06/28/1611341

C:\> ppm uninstall MeCab
C:\> ppm install http://www.akaneiro.jp/PPMPackages/800/MeCab.ppd

備考：
mecab-config　は、ソースファイルの中にあったけど、shell script でした。
cygwin を入れて、\cygwin\bin\sh.exe mecab-config で呼び出して、
makefile でＣコンパイラ読んだらエラーの山で・・・と、いい加減嫌になっていました。
「Windows版のＰＰＭを公開されている神」に感謝です。

>>642
${A::}{B::}
でいけると思うけど、今perlの環境がないので未確認。

use Encode;
print encode('utf8', 'う');

としても う と表示されエンコードしてくれません。
Encodeのバージョンは2.23です。
何か原因が考えられますか？

すいません。変換されてしまいました。
>>645は↓が正しいです。

use Encode;
print encode('utf8', '＆#x3046;');

としても ＆#x3046; と表示されエンコードしてくれません。
Encodeのバージョンは2.23です。
何か原因が考えられますか？

はぁ？Encodeって何するモジュールかわかってんの？

>646
use Encode;
print encode('utf8', "\x{3046}");

>何か原因が考えられますか？
>645 の脳が足りない、……とまでは言わないが色々と理解が足りないと思う。

>>645
何がやりたいかを書いた方が、適切な返事がもらえると思われ。

エンコードしたいって書いてあるだろ

sub url_encode($) {
  my $str = shift;
  $str =~ s/([^\w ])/'%'.unpack('H2', $1)/eg;
  $str =~ tr/ /+/;
  return $str;
}

use CGI::Lite;
print url_encode('うんこ');

ここでいいのかわかりませんが、質問失礼します。

PerlでImageMagickを使って、画像の拡大や縮小を試しているのですが、
Resize()やScale()など、拡大縮小にも様々な方法があり、どれを使うべきか迷っています。
なるべくきれいに、画像のサイズ変更のみをしたい場合はどれを使うべきなのでしょうか？

全部試してみて仕上がりが好みのやつが
いいんじゃないかな

「 PerlMagic CGI 」でググれ。

縦横比を変化させずに、横幅を 120 にするには、

my $ImageMagick = Image::Magick->new;
$ImageMagick->Read("unko.jpg");
$ImageMagick = $ImageMagick->Transform(geometry=>120);
$ImageMagick->Write("gif:unko.gif");

おっと訂正。ｋ が抜けてました。

「 PerlMagick CGI 」でググれ。

「きれいに」 って言うのは、縦横比が歪まないようにって事でＯＫ？
画質はどうやっても変わらんと思うよ。

単なる画像のリサイズにもいくつかアルゴリズムがあって
最も単純なのはジャギーが出て、画質が悪いように見える。

>>654-657
レスありがとうございます。
縦横比はそのままでジャギーなどがあまり出ない方法が良いのですが、
色々試してみたところ、Resize()でも比率そのままできれいに出来ましたので、
とりあえずResize()を使っていこうと思います。

>>657
ImageMagick(PerlMagick)でリサイズするときに、アルゴリズムって選べたっけ。

>659
SampleとScaleとResizeだと画質が違ったはず

>>665
別人だが、そんな方法があったのね。
自前でサイズ測って拡縮してた。

>>660
そいや、Sampleだと細かい指定ができずに画質も汚かった気がする。
昔作ったリサイズスクリプトでは、Resize()を使ってた。

あ、いや、自己レスで申し訳ないが、>661は勘違いだった。
縦横ともに上限があって、その中に収まるように縮小だから自前で計算してたんだった。

結局どれが一番きれいだったんだろう…

どれもきれいで、一番いいよ

お前が一番きれいだよ

ありがとう(*´д｀*)

CPANにあるPoCo::YahooMessengerって
今のyahoo chatで使えるんでしょうか？
使った経験のある方います？
CPANに上げたのが02 Dec 2002になってるんですけども…。

>>668
使ってみればいいじゃん。

もの凄く下らない質問なんですが

open (FH,$file);
binmode FH;
read (FD,$hoge,-s $file);

と

open (FH,$file);
binmode FH;
undef $/;
$hoge = <FH>;

って何か差はあります？

$/ の説明で以下の部分があるので、違うんじゃないかな。

>Perl5.005-では、未定義にすると空のファイルからの最初の読み込み時には空文字列が得られ、次回からは未定義値が得られる

>>670
-s は stat してるので、stat でサイズを返さないファイルだと動かない。
undef $/ は read() で eof になるまで読むからdeviceとかも動きそう。

$word に 連続したシフトjisのひらがな・カタカナ・漢字が3文字入っているか
チェックするにはどうすればいいでしょうか？

3文字連続した日本語が入っていなければ、スパムとみなしたいのです。

if ( $word !~ [シフトjisのコード][シフトjisのコード][シフトjisのコード]) {
print "これはスパム";
}

みたいな感じでしょうか？

おおむね合ってるけど、細かく言えば

if ($word !~ m/[シフトjisのコード]{3}/) {
 print "スパム";
}

{3} を使えば３回連続という意味になるよ。

>>672
ありがとう。参考になりました
内部的にはread()なんだね

>>673
こうするとSJIS以外も対応できそう
@mb_strings = split /[ -~]+/, $word;
unless(grep { length $_ > 6 } @mb_strings){
print "これはスパム";
}

逆にSJISの下位バイトで切っちゃってまずいな。
もう一ひねり入れると気持ち悪くなるし…。

連想配列は呼び出すたびに呼び出す順番が
変わると聞いたのですが、実際やってみても
毎回同じ順番になってしまいます。
同じ順番になる条件や環境ってあるのでしょうか？

>>678
perldoc -f each
> Entries are returned in an apparently random order. The actual
> random order is subject to change in future versions of perl,
> but it is guaranteed to be in the same order as either the
> "keys" or "values" function would produce on the same
> (unmodified) hash. Since Perl 5.8.1 the ordering is different
> even between different runs of Perl for security reasons (see
> "Algorithmic Complexity Attacks" in perlsec).

>>679
ランダムになるはずですよね…

%LIST=(
"2"=>"0,0,0,,,","3"=>"0,0,0,,,","4"=>"0,0,0,,,",
"5"=>"0,0,0,,,","6"=>"0,0,0,,,","7"=>"0,0,0,,,",
"8"=>"0,0,0,,,","9"=>"0,0,0,,,","10"=>"0,0,0,,,",
);

while (($Key,$Value) = each %LIST){
print "$Key,$Value\n";
}

をコマンドプロンプトから実行しても
同じ結果しか表示されないですorz

>>680
> ランダムになるはずですよね…

毎回異なるわけではない

>>681
なるほど。

しかし、10回やっても、20回やっても
すべて同じになってしまいます。

>>682
>>679を10回も20回も読め

「ランダム」っつうか「適当」じゃないか？
均一なランダムになるものとは思えん。

ていうか>>678は、ランダムという言葉に何か別のイメージを持っているんだろう。

680の%LISTを呼び出すと
適当な順番で呼び出されるけど
%LISTの内容が同じだったら、
呼び出される順番は常に同じ？

>>686
>>679

文盲ばかりのスレはここですか。

ハッシュを「魔法の小箱」みたいに思ってるレスが痛い。
実装することを考えれば、何がrandom orderで、何が固定されるかくらいわかるだろうに。

>>685
ララアは賢いな

?? 妙な空間になってるな

燃え上がーれーランダムー

簡単に説明してやると、順番が保証されないだけだろ。
だから仕様上、同じになっても違っていてもおかしくはない。
ほんとにどうなっているのか知りたければ、ソースでも嫁。

”ハッシュ” という言葉の意味を理解してないだろ。

一般論を語る前にドキュメント読めよ……

perl のサブルーチンって、C の関数って解釈でいいんでしょうか？

それと、サブルーチンの宣言と内容は使用するプログラム内で、
サブルーチン使用箇所より上の行なら構わないんですか？

>>695
http://www.kt.rim.or.jp/~kbk/perl5.005/perlsub.html

>>696
ありがとうございました

知りたい範囲のことはわかりました

どうやって調べていいかわからないんで教えてください

コマンドラインで
test.pl
なら標準出力、「-o ファイル名」を付けたらファイルに出力というプログラムを作ろうと思ってます

で、この場合の書き方ってどうするのがいいものですかね？
オプションにありなしをGetopt::Longで拾って
if (オプションあり) {
　　open my $wfh, '>', ファイル名;
　　print {$wfh} '出力';
　　close $wfh;
}
else {
　　print '出力';
}
ってやろうとしたのだけど、一般的にもっといい方法あるのかな？と。

あと、こういうことを調べたい時に何で調べると良いか誰か知ってたらヒントください。

>>698
> あと、こういうことを調べたい時に何で調べると良いか誰か知ってたらヒントください。

同じようなことをやっているプログラムを読む

>>698
$wfh = *STDOUT;
print $wfh '出力';

>>698
my $file = '-';
if (オプションあり) {
$file = 'ファイル名';
}
open my $wfh, ">$file";
print '出力';
close $wfh;

ありがとう、ありがとう

>>699
おぉ。CPANを漁ったりして中身を見る？
>>700
分岐はどこですれば良いですか？
openしちゃうとファイル名のファイルが出来ちゃうかファイルハンドラの前でやる？
>>701
いけた！3つの引数のopenでもいけました。
print {$wfh} "出力"
ですよね？

質問の回答とは違うけど、そういうときのために ＞ があるんだが、それは選択肢に入れないの？
つまり
test.pl　-o ファイル名
とするかわりに
test.pl　> ファイル名
とすればいいだけ。中身はただの print 文だけでいいんだけど。

>>703
cronで自動的にアクセスログを処理しようとしたのでファイル名も自動で作りたかったんですよね
で、スクリプトを1つで完結させたいなと思い、perlの中に書いてしまおうかなと。
ただ、標準出力で試す時もあるだろうから、そのための道も用意しておきたかったんです。

>>702
print {$wfh} "出力"
このブレースは何のためにつけてるの？
というか、どこで覚えたの？

>>705
http://search.cpan.org/~nwclark/perl-5.8.8/pod/perlfunc.pod#print_FILEHANDLE_LIST_
まぁ普段から付けてるのは冗長だな。

>>706
それはしってるにょ。
>>702が盲目的に{}をつけてることを指摘したかっただけ。

すみません。Perl初心者です。
どなたかご教示願えたらと思います。

1行目 no no no no no no no no A B C D no no no
2行目 no no no no no no no no A B C D E F G
3行目 H I J K no no no no A B C D E F no
4行目 no no no no no no no no A B C D E F G
5行目 H I J K L M N O P Q R no no no no
6行目 no no no no no no no no A B C no no no no

上記の様にそれぞれの行がスペースで区切られた16のフィールドを持つ
ファイルから
ABCD,ABCDEFGHIJK,ABCDEF,ABCDEFGHIJKLMNOPQR,ABCという配列を抜き出
すにはどのようにしたらよろしいのでしょうか？
1. 名前の始まるフィールド(Aの位置)は決まっています。
2. 4~6行目の様に名前が長く次の行のAのフィールドまで達すると、次の
名前は更に次の行から始まってしまいます。

1行ずつ読み込む方法ではループがクロスしてしまい、nextやlastを使って
も私の能力不足で上手いようにはいきません。
申し訳ございませんが、どなたかお教え頂けたらと存じます。

ずらしちまえ
0行目 no no no no no no no no
1行目 A B C D no no no no no no no no no no no
2行目 A B C D E F G H I J K no no no no
3行目 A B C D E F no no no no no no no no no
4行目 A B C D E F G H I J K L M N O P Q R
5行目 no no no no no no no no no no no no
6行目 A B C no no no no

腐った入力データフォーマットの方を何とかした方がいいとは思うが:

my @a;
while (<>) {
chomp;
for my $x (split) {
if ($x eq 'no') {
# do nothing
} elsif ( $x eq 'A') {
push @a, $x;
} else {
$a[-1] .= $x;
}
}
}

Aじゃないものではじまる名前があったときはどうなっても知らん。

undef $/ で読んで
/(?<=no )(?!no )(.+?)(?=no )/g
とマッチ

こうかな

open(IN,"hoge.txt");
undef $/;
$_ = <IN>;
s/\n/ /g;
@list = /(?<=no )(?!no )(.+?)(?=no )/g;

noは必ずnoか？
A〜Rは？

HEXダンプの臭いがする

すみません708です。
みなさま、いろいろご教示ありがとうございます。
説明不足で大変申し訳ございません。

すべてを配列として読み込んでjoinした後、(no)+で区切って配列化すると、
実際の名前の部分(上記の大文字の部分)にn oという文字が入っていた場合、
名前のその部分が削られてしまって、正しく名前が抽出出来なくなる問題が
あります。（必ずしもA B C D . . .ではないです。すみません）
noは必ず1フィールドにnoですが名前は1フィールドに1文字で任意です。

説明不足またはご指摘とは違っていたら申し訳ございません。

：Dn

つまり>>712で上手く行くんだろ？

>>708
何かのログだと思うけど、
普通に行くならこんな方法。
1行ずつ読んでって先頭がnoじゃなければ前のレコードにくっつける
くっつけた状態で1行の処理を始める

もしそれがCSVならもっとまともな方法がある

Aから、次のAかファイル終端までの文字列取り出して
英字以外を外せば完成じゃん

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
open(my $fh , '<' , '708.txt') || die($!);
(my $data = do {local $/;<$fh>}) =~ s/\r?\n//g;
my @data = split /\s+/,$data;
my @R = ();
my $i = 0;
for(@data){
if($_ eq 'no'){
$i++ if defined $R[$i];
next;
}
push(@{$R[$i]},$_);
}
my @R2 = map join('',@{$_}),@R;
print Dumper(@R2);

エレガントじゃないな

>>708が理解できてなさそうだったから
分かりやすいようにifとかnextとか使って書いてみたんだが

>>705
> print {$wfh} "出力"
> このブレースは何のためにつけてるの？

亀ﾚｽでごめん。Perlベストプラクティスで見たような気がする。
普通の変数を出力しようとしてるのか判断がすぐつくようにとか。
今手元にないからもしかしたら勘違いしてるかもだけど。

>1. 名前の始まるフィールド(Aの位置)は決まっています。
open my $fh , "dump.txt";
my @data;
while(<$fh>){
push(@data,split(/\s/));
}
print join("-",@data),"\n";
print join("",grep(!/no/,@data[8..22]));

区切り文字にはスペースはカンマはあんまり使わんなあ俺。
ものぐさなもんでタブばっかだ…orz

すみません、
任意の時間ID（年月日時分秒の14桁で、例えば20071213123401）を、
UTC(unixtime)に変換する方法を教えてくださいませ。

Time::Localは使えません。
どうぞ、よろしくお願いしますm(__)m

use POSIX; して mktime 使えばいいよ。

ありがとうございます！
use POSIX;　でチャレンジしてみます

ちょっと質問です。
ActivePerl 5.8.x を知る上でのお勧め書籍を教えてください。

C/C++ 上がりなんで、差分について詳細に記載があるものが希望です。

ActivePerlは、Perlを動かすためのソフトであって、
Perlの文法とか、そーゆーのとは違うぜ。

C/C++とPerlの差分について扱っている書籍はしらんなぁ・・・

俺もC++からだったけど、continue はどうやるんだみたいなのも、
とほほとか見てなんとかなったっよ。

あー、でもC経験者は数が多いからか、
last next if elsif とかに、「C経験者は間違えないように！」って書いてる本はあるな。

>>729
これでも読んどけ。
ttp://www.uopmu.ees.osakafu-u.ac.jp/~yabu/soft/perl.html

ActivePerl関係あるの？

いちいちActivePerlにツッキミ入れるなよ。しつこいなぁ。

>>734さん
ありがとうございました。
Perl は、いまいち把握していないところが多いので、Ｃ風にクドクドと

　　printf("%s%s",$foo,$bar);

なーんてことをしてしまったりしますが、このサイトがあればなんとかなりそうです。

ところで、最近はピリオドで繋ぐ技を身に付けました。

　　print $foo.$bar;

さいきんは関数呼び出しに悩む日々です。
ポインター無しに関数への配列渡しをどうすればよいか、とか
構造体はどうやって実現すべきか、などと悩みます。
たぶん Perl 風のエレガントな表記法があるのでしょう。

>>737
配列渡しは、以下のようにやる。適当に書いたから、エラーになるかもしれんけど。

my @hoge1 = (1,2,3);
my %hoge2 = (a=>1,b=>2);
&fuga(\@hoge1, \%hoge2);
sub fuga($$)
{
my($hoge1,$hoge2) = @_;
print $hoge1->[0];
print $hoge2->{'a'};
}

構造体の変わりは、連想配列かな。
バイナリーレベルで必要なら、packでできるけど、結構めんどくさい。

000135 って格納されている数字を
135 とプリント文で出力したいんですけど、
どうすればいいか教えてもらえませんか？

$num = "000135";
print $num-0;

>>740
ありがとうございます
上手く表示できました

Math::Random::MTを使ってマルセンヌ・ツイスタな
良い感じの擬似乱数を出したいのですけども、
srandに渡す種はtimeで良いのでしょうか？

>>742
http://perldoc.jp/docs/perl/5.8.4/perlfunc.pod#item_srand_EXPR

>>743
ありがとうございます。

頻繁に呼び出す予定ので
srand(time ^ $$)
はやめておいて、かと言って
srand (time ^ $$ ^ unpack "%L*", `ps axww | gzip`)
では時間がかかり過ぎるので、
結局、
srand(time ^ ($$ + ($$ << 15)))
にするとこで落ち着きました。

>>744
乱数の種にPIDを入れてるから毎回違う値がほしいんだろうけど、わざわざ種を指定するメリットは必ず同じパターンのランダムになるってだけだと思う。>>743のリンク先を読んだなら、普通はsrand()はいらないって理解できると思うんだけど。
それとも、Perlのバージョンが古いから自分で種を与えないといけないってこと？

>>745
Math::Random::MTを使ってメルセンヌ・ツイスタで擬似乱数を作る場合は、
乱数種の設定が必須だからこういう風にしてみました。
線形合同法を使っているcore perlのrand関数は使いたくなかったのです。
下位ビットを捨てたりなんだり工夫すればcore perlのrand関数でもある程度きちんとした乱数も作れるんでしょうけども、
今回はメルセンヌ・ツイスタで作ってみたかったのです。

種無しでMath::Random::MTのsrand呼ぶだけでいいんじゃないの？
あとはよきにはからってくれたとおもうんだけど。

http://www.perfectsky.net/weblog/archives/2007/10/post_21.html

すみません。大変初歩的なことですが、どなたか教えて頂けたらと思います。
@a=();
for($i=0;$i<2;$i++){
if($i == $a[0]){
print "BAD\n";
}elsif($i != $a[0]){
print "OK\n";
}
}
とすると、
BAD
OK
と出力されるのですが、空の配列の要素0は数値0と同等と考えて宜しいのでしょうか。
又、あくまで数値$l=0, 1と空であることを比較演算して、
OK
OK
と出力されるにはどのような記述があるのでしょうか？

恐縮ですが、どなたかご指導願えたらと思います。

perlop

defined

== != は数値に変換してから比較する。（"0" ==　"" ⇒真）
eq ne は文字列で比較する。（"0" eq "" ⇒偽）

@a=();
for($i=0;$i<2;$i++){
 if($i eq $a[0]){
  print "BAD\n";
 }elsif($i ne $a[0]){
  print "OK\n";
 }
}

Perl 5.10.0 がリリースされましたが一言どうぞ

でっていう

俺の使用言語からPerlはほぼ消えたからどうでもいい。

じゃあこのスレからも消えてください

Perl::Tkで、書き込み終えたテキストファイルを自動で開きたいのですが、コマンドラインに
パスを渡してしまうと、その時点でperlが終了してしまいます。

$target_text = shift @ARGV; #結果ファイルの指定先パスを格納（*.txt）
.....#処理、書き込み、FHクローズ
eval exec ($target_result." &");　#ファイルは開くが、スクリプトも終了してしまう

eval で囲ってあげても終了してしまいます。Windows環境で上のコマンドを実行するのはムリでしょうか。

よろしくお願いいたします。

>>757
perldoc -f exec
嫁

それが exec の正しい動作だからです。
普通は spawn してから exec します。

もっと簡単なので system を使うという手もあります。

>> 759
ありがとうございました。初めは system でやってたのですが、対象ファイルを開いていると
エディタの「現在開いています...」アラートメッセージ　（とか秀丸のアレとか）　と、ファイルハンドルの取り合いになって
TKがフリーズしてしまうのです。spawn 試してみます。

>>758 「perldoc -f exec」はもう一度読ませていただきました。ありがとうございました。

>>753
> Perl 5.10.0 がリリースされましたが一言どうぞ

もう安楽死させてあげたらと思った。

>>757
Win32で&とか付けても意味なくね？
"start " . $target_result
のほうがいいかもよ。

>>753
sayとかswitchとか//演算子とか、、、
こんなの5.6あたりで実装しとくか、perl6まで実装しないかの二択だろ？

@+,@-,(?{})を捨てちゃうのも個人的には×だな。
過去スクリプトの見直しをせにゃならんかもしれん、、、

>>763
後半はあんたの読み間違いじゃないんかい？

readdirやglobを使ってるWinユーザは大騒ぎになりそうな仕様に読めるが、
大丈夫なんだろうか？

ますますわけの分からんブキミなカタマリになったんだな。

な、なに？！　switch付いたのか！　Perlも進化したなｗ

Statistics::Clutoをインストールしたいのですが、make testでエラーがでてしまいます。
どなたか正しいインストールの手順を教えていただけないでしょうか？

以下に私が行った手順を書いておきます。以下の記事を参考にしました。
ttp://blog.livedoor.jp/techblog/archives/64598859.html

Clutoのパスは
/home/hogehoge/cluto-2.1.2/Linux-i686/libcluto.a
Statistics::Clutoをダウンロードし解凍した場所のパスは
/home/hogehoge/Statistics-Cluto-0.01
です。
Statistics-Cluto-0.01ディレクトリに移り
$ perl Makefile.PL LIBS='-L/home/hogehoge/cluto-2.1.2/Linux-i686/libcluto.a -lcluto'
PREFIX=/home/hogehoge/local/perl LIB=/home/hogehoge/local/perl/lib
INSTALLMAN1DIR=/home/hogehoge/local/perl/man/man1 INSTALLMAN3DIR=/home/hogehoge/local/perl/man/man3
$ make && make test

としたのですが、エラーがでてしまいます。

エラー内容を貼り付けるのを忘れていました。
t/Statistics-Cluto......1/51
# Failed test 'use Statistics::Cluto;'
# at t/Statistics-Cluto.t line 9.
# Tried to use 'Statistics::Cluto'.
# Error: Can't load '/home/hogehoge/Statistics-Cluto-0.01/blib/arch/auto/Statistics/Cluto/Cluto.so'
for module Statistics::Cluto: /home/hogehoge/Statistics-Cluto-0.01/blib/arch/auto/Statistics/Cluto/Cluto.so:
undefined symbol: CLUTO_S_BuildTree at /usr/lib/perl5/5.8.8/i386-linux-thread-multi/DynaLoader.pm line 230.
# at (eval 3) line 2
# Compilation failed in require at (eval 3) line 2.
# BEGIN failed--compilation aborted at t/Statistics-Cluto.t line 9.
&Statistics::Cluto::constant not defined at t/Statistics-Cluto.t line 62
# Looks like you planned 51 tests but only ran 2.
# Looks like you failed 1 test of 2 run.
# Looks like your test died just after 2.
t/Statistics-Cluto...... Dubious, test returned 255 (wstat 65280, 0xff00)
Failed 50/51 subtests

>>767
＞ undefined symbol: CLUTO_S_BuildTree at /usr/lib/perl5/5.8.8/i386-linux-thread-multi/DynaLoader.pm line 230.

おじいちゃんスイッチなどいらん

またPerlが危篤状態なのか。
今度こそ絶命してくれよ。

しかし、過去の法則からして、そろそろ誰かが爆発的に流行する何かを作るだろうねw
無理矢理蘇生させてしまって、人類の負の遺産がいつまで経っても廃棄処分できないw

お前は本当にPerlが大好きなんだな

Perlのプログラムのコンパイル時間が長いので、perlcc -Bでバイトコードを
生成したのですが、実行すると
"Don't know how to handle magic of type \156 at ./a.out line 2."
とエラーが出ます。
ぐぐってもperldiagのページくらいしかひっかからないのですが、どのように
調べて直していけばいいでしょうか？エロいひと教えて！

ｶｯとなってやった特に使い道はない
http://estructura.la.coocan.jp/calculator.cgi

そういう一見無駄なことをして成長していく

Perl扱い始めて5年以上経つんだけどね…OTL
電卓は簡単なものだとばかり思っていたが、半日もかかって鬱だった。

つことで、ちょっと現実逃避しかけてたﾏｼﾞモンの制作に取り掛かる。

PHPでサーバがオンラインかどうかを判定するには、どうすればよい？

アクセスして応答があるかみればいいんじゃね

sayや//はまさに待望の機能だと思うけどな。switchは…、どうでもいいかな。

正規表現の仕様追加はありがたいものが多い。

正規表現のおまけに言語がついているような言語なのに、
MS .netに仕様面で負けてるとこがあっちゃかっこ悪いもんね。

>>777
fsockopen

そりゃ後出しじゃんけんされたら負けてもしょうがないだろ

> 正規表現のおまけに言語がついているような言語

それはないわｗｗ

CPANのおまけに言語がついてきてるんだよな

元はテキストエディタの ed

>>785
それ、viじゃないん？

>>786
ed -> ex <-> vi

>>787
ed→vi
↓
ex→vedit
じゃなかったっけ？それってSunOSだけ？

viとexは同じもの。

X68000でもedだったよなぁ。。。＠ed.x

edを元にラインエディタexを作ってた奴が
作ったスクリーンエディタがvi、じゃねーの？
exはviの一部にはなっちまったが元々ex自体はあったはず

>>791
> edを元にラインエディタexを作ってた奴が

× edを元
○ emを元

本当5.10に興味ないんだなｗ

5になったときには、たしかに目をランランと輝かせながら
かぶりつきました。

>>794
あの時のおまえは少女の様な目をしていたよ。

あの時は確かに少女だったんだよ

幼女の方がいい。

>>797
？

変質者だろ。ほっとけ。

ネタならまだしもそっちはほっといちゃいかんだろ

排他制御について質問です。
バージョンはPerl 5.005。また、DBは使えないとします。

以下の2つのプログラムが並行して走っています。
プログラムが走る頻度は、Prog1 >>> Prog2 とします。

　Prog1：hoge.txtを読み込み、何らかの処理を行った上で新たなデータを書き込む。（上書きまたは追記）
　Prog2：hoge.txtを読み込み、処理を行った上でhoge.txtそのものを削除する。（中身を空にするのではない）

個人向けウェブサイトによくあるCGIアクセスカウンタのようなものだと思ってください。
具体的には、Prog1がカウンタで、Prog2でカウンタの「現在の値」を利用した処理を行うというものです。
Prog2でファイルを削除したあとにProg1が実行された時は、hoge.txtが新規作成されるものとします。

Prog1だけ動いている分には、いくらでも排他制御のしようがあるのですが、
Prog2でファイルを削除する部分をどのように実装すればよいか分かりません。
ファイルの中身を空にするだけならflockによる排他制御でいいのですが。

　open(FH,"+>>$filename");
　flock(FH,LOCK_EX);
　#何らかの処理
　close(FH);　　　　　 #ここでロック解除
　unlink($filename);　#ロック解除後にファイル削除するのでマズそう

言い忘れました。
>801の最後にあるソースは、Prog2のイメージです。

>>801
ロック用のファイルを別に用意すればいい。

>803
具体的にはどういうことでしょうか？
昔懐かしロックファイル方式とか、そういう話？

そういうこと。
消してしまうからにはロックのしようがない

ありがとうございました、検討してみます。

>>801
prog2のcloseとunlinkの順を逆にすればうまくいきそうだけどな。
まぁ、ロックファイル作るのが確実だが。

「昔懐かし」になんかムッとした

何故だっ！？

>>807
UNIX系ならそれでいいけどWindowsだとだめだったきがす
元の質問者がどの環境を対象にしてるのかわからんけんど

5.10いいよ5.10。

特定の場合にしか使えない奇天烈なやり方を考えるのはパズルのようで
おもしろいのは否定しないが、実用にするなら手堅くロックファイルに
しとけ。

flockを使った排他制御でflock対象のファイルを削除するとだいたい
以下のようなパターンにはまって終わる。

Prog2 open
Prog1 open
Prog2 flock
Prog2 処理
Prog2 unlink
Prog2 close
Prog1 flock ← 既に開いたファイルはunlinkされてもアクセスできる
Prog1 処理 ← 他の誰もアクセスできないファイルにむなしく書き込むのみ

これでめでたくデータ消失w

つっこみどころがありまくりと思ったら同一テキストを扱う場合だったのか…なるほど

同一じゃなかったら、そもそもロックの話にすらならないような（笑）

5.10と、5.8の違いについて日本語で解説しているところは無いでしょうか？
Unicodeに対応したのと、新しい正規表現が追加された
（(?-n)、(?+n)、(?(-n)、(?(+n)、\k{name}、\g{name}、\K、(?|、\h、\H、\v、\V）
という事は判りましたが、この表現がどういう効果があるのかよく解りません。

>>814
google

perlのfinance quoteを使っている人はいますか？
どんなことができるのでしょうか？

perl初心者です。
必要に迫られて（仕事ではありませんが…）学習しています。
sjisのデータファイルを読んで、全角カタカナを全角ひらかなに変換しなければなりません。
ｙ、ｔｒを試しても駄目でsplitして１文字づつ変換しようとしましたがこれも駄目でした。
やり方をご教示ください。

use utf8;
open my $fi, "<:encoding(Shift_JIS)", "in.txt";
open my $fo, ">:encoding(Shift_JIS)", "out.txt";
while(<$fi>) {
tr/ァ-ン/ぁ-ん/;
print $fo $_;
}
close $fo;
close $fi;


ソースはUTF8で保存。

>>818
有難うございます。
今からやってみます。

>>819
できました。有難うございます。
これで用は足りるのですが、後学のために教えていただけると助かります。
つまり、ソースはUTF8で書くのをdefaultにするのがよいのかということと
もう一つ、この例の場合標準出力に出す場合はどのようにすればよいのかと言うことです。
後者は、わからなくても良いのですがなんとなく欲求不満な状態に陥りそうなもので…。

Shift_JISとかの問題点はよくご存知だと思います。

>817の問題もそうですけど、文字列を扱う時はShift_JISよりUTF8の方が都合が良いことが多いです。
仕様上、Shift_JISで入力してShift_JISで返さないとならない場合もありますが、
そういう場合は、内部でUTF8に変換して、最後にまた戻す、なんてことをよくやります。

で。
扱う文字列がUTF8ならソースもUTF8の方が便利よね、と。

初心者用テンプレがいつのまにかいなくなってるじゃないか。

>>820
ソースをUnicodeで書いて入出力もレイヤをかましてUnicodeで行うのが最近の流行りやね
別にUTF8でなくてもいいんだけど、<U+7F範囲の文字を多用するから都合がいいだけ。

で、既に開かれているストリームにレイヤを適用するならbinmode関数を使えばいい。
binmode STDIN, ":encoding(Shift_JIS)";
binmode STDOUT, ":encoding(Shift_JIS)";

これから開くストリームに対してデフォルトのレイヤを指定したいなら、openプラグマ。
詳しい仕様とかは適当にぐぐっといて。

>>823
820です。
有難うございます。

820です。
既存のソースファイルを utf8 にコンバートすべく次のようにやってみましたが、
出力されるのは Shift_JIS のようです。
何が悪いのでしょうか？　ご教示くだされば幸です。

use utf8;
binmode STDIN, ":encoding(Shift_JIS)";
open OUT, ">utf_$ARGV[0]";
print OUT <>;

それは open 文の古い書き方だよね。
>>818 のようにパラメータ３つの open 文を使うといい。
open OUT, ">", "utf_$ARGV[0]";

あと、余計なおせっかいかもしれないが Windows 環境で動かすなら
":encoding(Shift_JIS)" じゃなく
":encoding(CP932)" が適切だよ。

binmode でうまくいかないなら

use utf8;
open IN, "<:encoding(CP932)", $ARGV[0];
open OUT, ">:utf8", "utf_$ARGV[0]";
print OUT <IN> while not eof IN;

<> と <STDIN> は等価じゃない。
この場合は
print OUT <STDIN>;

あと、shiftjis と cp932 も、変換出来無い文字があったりするから、
Windows環境ならいつも cp932 でおｋ、って訳でもない。

>>826
>>827
>>828
いろいろなノウハウ有難うございます。
このあたり勉強します。

>>828
> あと、shiftjis と cp932 も、変換出来無い文字があったりするから、
> Windows環境ならいつも cp932 でおｋ、って訳でもない。
何気なく見過ごしていましたが、このような場合、どの時点でどのように対処するのが
効率的か、お教えいただければありがたいです。

シフトJIS は Windows だけのものでは無いってこと。
ケータイもシフトJIS。
マッキントッシュもシフトJIS。
古いPC-9801のMS-DOSもシフトJIS。
どのマシンがどのシフトJISを使っているか調べて
それに応じて使い分けよう。

で、Windows は cp932 というシフトJISなわけ。
>>828 はそこらへんを混乱している。

ActivePerl v5.8.6 built for MSWin32-x86-multi-thread
Archive::Zipで空の（or不正な）ファイルを読み込ませると、エラー文がだらだらと表示されてしまいます。
これを表示させない方法（or read前に正常なzipか判定する方法）があれば教えてください。

---------- ソースの一部 ここから ----------
$zip = Archive::Zip->new();
die "error\n" unless $zip->read($zipfile) == AZ_OK;
---------- ソースの一部 ここまで ----------

---------- 出力（パス書き換え済） ここから ----------
format error: file is too short
at 〜/site/lib/Archive/Zip.pm line 1015
Archive::Zip::Archive::_findEndOfCentralDirectory('Archive::Zip::Archive=HASH(0x275188)', 'IO::File=GLOB(0x182f7ec)') called at 〜/site/lib/Archive/Zip.pm line 923
Archive::Zip::Archive::readFromFileHandle('Archive::Zip::Archive=HASH(0x275188)', 'IO::File=GLOB(0x182f7ec)', 'test.zip') called at 〜/site/lib/Archive/Zip.pm line 904
Archive::Zip::Archive::read('Archive::Zip::Archive=HASH(0x275188)', 'test.zip') called at 〜/test.pl line 28
error
---------- 出力 ここまで ----------

>>832
ドキュメントのsetErrorHandler()を参照。

$oldErrorHandler = Archive::Zip::setErrorHandler(\&myErrorHandler);
という感じでエラーハンドラを設定できる。デフォルトのエラーハンドラは\&Carp::carp。

my $old = Achive::Zip::setErrorHandler(sub{ });
$zip->read($zipfile);
Archive::Zip::setErrorHandler($old);

とするなりsetErrorHandler(\&Carp::croak)とでもしてアボートさせるなりすればいい。

>>833
レスありがとうございました。
エラーハンドラというのは知らなかったので、いろいろと調べてみます。

>>831
> で、Windows は cp932 というシフトJISなわけ。
とすると、 cp932 は shiftjis を完全に内包している筈だけど、そうではない場合がある。
例えば、 "\x{301c}" は、 shiftjis だと正常に変換できるけど、 cp932 だとエラーになる。

cp932 を shiftjis に機種依存文字などを追加したもの、と理解していると、ハマる事がある。

>>835
まだ理解してないね。
＞Windows は cp932 というシフトJIS
これのどこが「cp932 は shiftjis を完全に内包している」と読めるわけ？
shiftjis など一言も書いてないんだが。
いろ考える前にさ、ネットで検索でもしてコード表とか眺めてご覧よ。
そのほうが早いって。

ころしあえー

shiftjisはシフトJISと同義だろ。

掲示板の荒らし対策で、
プロキシ経由の書き込みは、はじこうとして以下のような記述をしたんだけど、
うんちゃらかんちゃら処理を行う前に、白いエラー画面になってしまう。
うんちゃらかんちゃら処理を行わせるにはどうしたらいい。
ネット調べたが、分からん。
ちなみに俺COBOLER。コボプロをせっせと書いて生活費稼いでる。

if ( HTTP_VIA =~ "") {うんちゃらかんちゃら処理}

＾＾；

>>840
いや、そう笑うなって。
馬鹿な質問してるのは、なんとなく分かるんだけど。

if($ENV{'HTTP_VIA'}){}

>>842
その記述でも、やっぱ駄目だな。

エラー
リクエストされた URL は取得できませんでした

--------------------------------------------------------------------------------

以下の URL を取得した際に: http://123cgi.plala.or.jp/oreatamawarui/dousiyoumonaibbs/mousinitai.cgi

次のエラーが発生しました:

アクセスできません．
現在設定されているアクセス制御の設定のため，あなたからのリクエストは受けつけられません．この設定が正しくないと思われる場合には，このサービスの管理者へ連絡してください．




--------------------------------------------------------------------------------

Generated Tue, 01 Jan 2008 13:14:44 GMT by Casper (squid)

ってメーッセージが出た。
プロバイダの設定なのかな。ちなみにぷらら。