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

Perl について議論するスレです。
Perl は言語の一つです。 CGI ではありません。
UNIX 系 OS が吐き出す膨大なログに頭を抱えている人、
C/C++ に挫折して Perl で再教育を受けている人、
Perl で HTTP サーバを立てた神などの降臨をお待ちしています。

繰り返しになりますが Perl は CGI ではありません。(GNU is Not UNIX)
Perl は WebProg へという方は C も Ruby も向こうで議論してください。
また、CGI に関する質問も向こうでお願いします。

2get
スレ立て乙

1=2
うわ・・・

Perl は WebProg の方が人が多いよ
C は こっちの方が人が多い
　

おつ

>>1 お疲れさまです。ところで、

> 繰り返しになりますが Perl は CGI ではありません。(GNU is Not UNIX)

この意味がワカラン。なぜに GNU が出てくる（ｗ

>>3
>>2=>>3という罠では?

コテが出てきた時点で終わったな、、、
アーメン

いやー、立ててくれましたか。
>>1さん、乙彼さま。

2づつカウントされる
カウンターってありますか？

>>10
ここは Perl の話をするスレです。
CGIはWebProgでどうぞ。

>>10
あるよ。$cnt+=2;

#!/bin/perl
#ム板ならこう書くのが正しいと思うのです

/binかよ

cygwin で
$which perl
/usr/bin/perl

Debian GNU/Linux で
$which perl
/usr/bin/perl

棄教者、、、いいかげんにしろよ

すきな（使用）バージョンはなんだ
Perl5.8
Perl5.8pre
Perl5.7
Perl5.6
Perl5.6.1
、、あたりで

cygwinで
$ perl -v

This is perl, v5.6.1 built for cygwin-multi

Copyright 1987-2001, Larry Wall

Debian GNU/Linux で
$ perl -v

This is perl, v5.6.1 built for i386-linux

Copyright 1987-2001, Larry Wall

>>16
ActivePerl使いなんで5.6.1。5.8が出たらその刹那アップデートします。

# XSの再コンパイルが面倒くさそうだけど…

前スレでActive PerlのFile::Find使ったとき日本語のファイル名が変に扱われて
どうのこうのと言ってた人がいたが5.8になったらどうなるかねえ

>>15
Solarisで/opt/bin/perl
FreeBSDで/usr/local/bin/perl
って、数年前の話、今はcygwinとLinuxのユーザ。

らくだ本３版てもう出てるの？
日本語版ね

>>21
出てる。ここで盛んに話題になってたよ。
49 C 【Perl,CGI】参考書籍 第三版 [WebProg]

>>22
アレ、そうか。でも見ないな。田舎だからか

つまんない質問なんですけどFILEアップロードするプログラムなんですけど
<input type=FILE>でUPするとたしかにプログラムは動くのですが
ファイル名を表示することができません。
cgi.libをつかっています
＄IN｛’’｝でとってきてprintとすると文字がばけます
エンコードするのですか？
よくわかりません。初心者です。

早速出たね。

ここはCGIの質問するスレじゃないぞ。>>1をよく読みタマへ

>>1
を読みましたGNU is Not UNIXってなぜあそこに書かれているのか、、、、
書いた人の頭がすこし心配です
webProg板に逝ってきます
さ(・O･)よ(･。・）　おなら（≧〜≦）＝３ ブーッ！

>>26
> を読みましたGNU is Not UNIXってなぜあそこに書かれているのか、、、、
> 書いた人の頭がすこし心配です

お前の知識/理解力がだいぶ心配だよ。

CGI 初心者は CGI-ML にでも行ってくれ。
http://forest.ne.jp/cgi-ml/

$hensu1、$hensu2、$hensu3、がありまして、

if ($hensu1 = 1){$kotae1=1}
if ($hensu1 = 13){$kotae1=2}
if ($hensu1 = 111){$kotae1=13}
.
.
if ($hensu2 = 1){$kotae2=1}
if ($hensu2 = 13){$kotae2=2}
if ($hensu2 = 111){$kotae2=13}
.
.

などの条件分岐を作っているのですが(実際はもっと何十行もあって、数値は適当です)、
これをもっと短くできないでしょうか？お暇な方ご教授願います。

>>29
$hensu1〜3 と $kotae1〜3 は配列にスレ。
たくさん並んでいる if 文は連想配列がいいかと思う。

こんな感じ... (perl うろ覚えだし、実行環境が手元にないからあくまでも感じだけね。)

my @hensu, @kotae;
my %Map;
$Map{1} = 1;
$Map{13} = 2;
$Map{111} = 13;
for(my $i = 1..3){
　$kotae[$i] = $Map{$hensu[$i]};
}

>>30
取りあえずお礼だけ…
ありがとうございます。今からやってみます。

myの引数が複数あるときはカッコでくくらないとダメだよ。
my($foo, $bar)　このようにね。

あと%Mapは
my %Map = (
1 => 1,
13 => 2,
111 => 13,
);
という風に初期化するほうが読みやすぃし書きやすいので吉だと思うな。

forはfor(list)のforeach形式と一般的なfor(init; test; continue)だけ。
そのケースの場合は
for my $i(1 .. 3)じゃないと思った通りには動かないよ。

おまえらオナニーしたいだけじゃないかと、、
”厨房”は連想配列とかわからないと思われ、。

>>33
> ”厨房”は連想配列とかわからないと思われ、。

お前は、サンプルソースも読めないのか ?

>>33
いやPerl弄るなら連想配列は必須。
使えないのはさんまのしっぽばかり食ってるようなもん。

いつの間にか前スレが無くなって
新しくスレが立ってた。

>>33
厨房様には、WebProg板に
CGIとかPerlとか超初心者なんだけど、
【Perl】初心者コーナー Part6
をご用意してお待ちしておりますので、どうぞご利用ください。

Perl は CGI ではありません。(GNU is Not UNIX)

>>32
それはmyしない方が良いんじゃないの？

>>38 アホ。PerlはCGI以外の用途にも用いられていることと
"GNU is Not UNIX"に何の関係がある。恥ずかしいから止めろ。

>>40
類同的関係ってやつだ。頭の悪いお前に説明してやろうか？
GNUはUNIXだと、逆にUNIXはGNUだとよく誤解されるが、実際は
UNIXでないGNUもGNUでないUNIXもある。PerlはCGIで使われる
言語だとかCGIといえばPerlだと思っている厨が多いが、Perl
とCGIはそれぞれCGIとPerlよりも広い範囲をカヴァーしている。
分かった？

類似的関係・・・ぷ
低脳が思いつきそうな戯言だな。さすがPerlユーザ。

>>42
ただけなすことしかできない低脳。もしかしてｒｕｂｙキティか。

なんだ。やっぱり耐えきれずに新スレ立てたのか（大爆笑）

ただ貶されるだけの糞言語、それがPerl
そしてそれにいつまでもしがみつくのがPerlユーザ

類似的関係だって。
すごいや。馬鹿の極みだね。

糞言語には糞スレがお似合い

WebProgにでも引きこもって一生出てこないでくれ。
くさいんだよ。お前らは

とりあえず、まともに話が出来ないようにすればスレも自然消滅するだろうがな。

>>44-47
RubyでCGI書きたいんですが。
板違いでしょうか。

>>50
板違いです。首吊って氏んで下さい。

GNU is Not UNIXは確かに物凄く恥ずかしい
漏れはrubyユーザではありません

>>52
何か後ろめたい気持ちでもあるんか。

Ruby user is using OS called NotUNIX.

恥ずかしいと思わない奴はずっと嗤われていればいいよ。

>>52==1

>>53よ。まあ、つまり、そういうことさ。憶測だがな。

>>55
トリップがSMGか。素敵だな。

糞固定までちょろちょろ出てきやがって
死ね

>>55









（ ´,_ゝ｀）ﾌｰﾝ

52!=1
誰がみても恥ずかしいと思うが如何?

Perlユーザ=無知、無恥

>>1
GNU は UNIXでは無い、とも読めるし、
GNU は NotUnixだ、 とも読める。

isn't と書いてくれないと、激しく紛らわしい。

>>61
誰がみても恥ずかしいと思うが如何?

普通は、Non-UnixとかNo-Unixだよ。Notは動詞に付ける。
したがって、nobodyさんの言ってる通り。

恥ずかしすぎ。Perlゆーざのレベルが知れるなw

>>39
> それはmyしない方が良いんじゃないの？

なんで ?

理由も説明できないで恥ずかしい恥ずかしいってばかみたい。

>>65はrubyアフォです。

みごとに>>49の意図通りになったな

>>64
> 普通は、Non-UnixとかNo-Unixだよ。Notは動詞に付ける。
> したがって、nobodyさんの言ってる通り。

ねぇ、あんたたちは、"GNU is not Unix" 自体がおかしいと言って騒いでいるの ?

→◆hG4XfSMGTg
こいつは、前からPerlスレ荒らしやってたので、発言停止依頼しました。

>>71 んで、効果はあったのか？

rubyキティが紛れ込んでるので俺は発言を控える。

君たちUNIXに２つの意味があるの知ってる？
普通使ってるのは、SolarisやらFreeBDSやらLinuxを含めた
広義の意味での「ユニックス」だよ。まさかそこにけちを
つけてんじゃないだろな。したがって、nobodyさんが言って
ることが正しい。

余計なこと書かずにperlやろうぜ!
でよかったんじゃないの?
漏れは心配して逝ってるつもりなんだけど

>>74
> FreeBDS

はぁ ? 言ってる内容も意味不明だし...。

うぜぇよ禿

>>77
> うぜぇよ禿

ププッ、指摘されてあせってやんの。素直に、typo だよって言えばいいのにね。

「言ってる内容も意味不明だし」の方に触れちゃったかな ?

逆鱗に触れました。
ズゴゴゴゴゴゴゴ

FreeBSD(自由な牛海綿状脳症)

断発宣言（発言を控える）してから私じゃないnobodyさんが２人
出現。これからは、デフォルトの名無しさんでいくからそう思え。
もう断発はやめた。

Perlでオブジェクト指向のオセロ書いて、
CやC++やJavaを使う輩を叩きのめしませんか？

やってもいいけど、時間かかるやろ。それと、あそこのスレにもruby
キティが出入りしてたからな。

発言を控える
→発言を断つ？

>>82
何かいてもRuby厨は文句言うに決まってるｗ

Ruby ユーザのふりして Perl を攻撃し、Rubyユーザが反感をかうように仕向けている
粘着基地外がいます。騙されたり煽られたりしないようにお願いします。

日曜日の朝に出現することが多いです。

>>86
お前のことか ?

>>82
ここで質問にちゃんと答えてるやつは、
CかC++メインのやつだろ。
そういうふざけたことを言うもんじゃない。

http://enya-mp3.tripod.com
やっほ〜、↑はRuby界の有名厨房。るびきち　こと　西本孝志君の写真だよ〜☆
彼女いない暦２５年の無職童貞だからってなめてんじゃねーぞ！

>>86
誰がそれを信じると？
Rubyユーザの閉鎖性＆攻撃性＆粘着性はみんな知ってますよ。

>>90
あんたは荒らしている本人か、それか嘘を嘘と見抜けないアフォですか？

>>90
それじゃ基地外の思う壺

だいたいが Perl スレで Rubyユーザを名乗って荒らしている本人が、
Rubyユーザは最低とか自作自演で言ってるんだろ？みてりゃわかるじゃん。
結局悪いのはそのキチガイで、PerlユーザもRubyユーザも被害者なんだよ。
そんで被害者同士でいがみあっていたら、それこそが荒らしの望む展開だって
ことぐらい理解しろよ。

つーか、質問箱なんだから質問と回答以外は書かないようにしようよ。(まあ、これも違うと言われればそうなんだけどね。)
スレが 93 まで行ってるのに質問が一つだけって言うのはちょっとまずいよ。
質問ないのかなぁ...。

>>30,32
今更ですがうまく行きました。
ありがとうございますた。

ﾌﾟﾌﾟﾌﾟ
お前らひひひ必死だな

あの…90はﾈﾀのつもりだったんですが…（汗

>>97
正直、ネタで>>90のような投稿は自重して欲しい。

>>82&83
オセロなんてJava or C言語の新人研修でみんなちゃらっと
作るよ
時間なんてかかんないと思うけど

>>99
むちゃいうな

いや、UI なしなら割とすぐかと。

>>100
マジレスよ
だからperlでもできるはず

>>99
テトリスなら作ったが、オセロなんて知らんぞ。
あの手の、思考エンジンで優劣が決まるようなプログラムは
普通のアプリを作る際にはあまり参考にならんだろ。

>>98
んだ。

>>103
普通のアプリを作るときに優秀なアルゴリズムを組んだ経験があれば
srcの品質が高まるよ
やって無駄はないかと思うけどね

>>105
あんた、実際にあの手のゲーム作ったことないだろ。
思考エンジンを強化しようとするとたいがいつぎはぎだらけになり
ロジックも糞もなくなってくる。
目的が勝負に勝つことになるからね。

>>101
> いや、UI なしなら割とすぐかと。

おいおい、次は思考ルーチン無しならとか言い出すんじゃないだろうな？

>>107
本格的なオセロを作るなら別だが、
OOは戦場では必要なしスレ向けなら
・おけるところからランダム
・取れる枚数が多いところ
程度の馬鹿ルーチンでいいでしょ。

hoge

>>108
それじゃぁ、誰でも作れるから面白くない。

それを5行で作るっていうのはどうよ。
Perlらしいじゃん。

Windowsで漢字混じりのテキストファイル読むのにseek使ったらまずいんでしょうか。

し〜くしくしくしくしく。

>>112
べつにまずくないでしょう。

>>114
\r\nの中間とかに飛んでもだいじょうぶかなぁ。

らくだ本第三版二冊で壱万円

ActivePerl-5.6.1.633でpl実行する際に表示されるログの文字
味気ないんで色つけたいんですけどなにか方法ありますか？

>>116
ttp://sd.znet.com/~penguin/perl/learn/page7.html

>>117
ありがとう！
かなりわかりやすいです。
やってみます

>>115
はあ? まずい場所に飛んだら、脇によける必要は当然あるでしょう。
文字の境界にも気をつけなければいけませんね。

>>112
とりあえず ActivePerlには binmode が seek にも影響を与えるって書いてあるけど
どういうことは知らん。テキストモードで使えないとは書いてないけど\r\n境界の話は
かいてなかったなぁ。

>>116
5.6以上だとTerm::ANSIColorってモジュールが標準でついてくるね。

( ´_ゝ`)ﾉ質問です。

Perlでアンケートの送信フォームを作りました。
送信ボタンを押したら、メールが送信されるやつです。
メッセージを入れる部分で改行したら、届いたメールには改行されずに<br>
が表示されています。

どうすればよいのでしょうか。

>>122
CGIか？
CGIならWebProg板に逝け。

はい。

>>122
改行コードを<br>にするのを辞めるか、或いは<br>を改行コードにするかどちらか。
改行コードは\r\n。

>>1よ
前スレ
http://pc3.2ch.net/test/read.cgi/tech/1017736187/

くらい貼っといてくれ。

SDBM で tie した場合、ロックされてないみたいなんですが、ロックするにはどうしたらいいんですか？
flock使おうにもファイルハンドルがわかんないし。

>>127
flockってファイル名（とモード）を引数に取るでしょ。

>>127
デバッガで
x tieの返り値
してみそ

>>128
何言っているの？(^_^;)
PerlでもCでもファイル名は取らないよ(^_^;)
機能上、オープンしていないファイルには使えないでしょ(^_^;)

いまどき珍しいラフカディオハーンの発見した日本人の奇妙な薄ら笑い。

>>127
1)SDBM_Fileを改造する。
2)DB_Fileを使うことにする。

質問です。
MIME:Parser.pm
を使ってmbxファイルからfrom,subject,bodyだけを抜き出したいのですが
outlookから送られた添付ファイル付きのメッセージだけが上手く抜き出せません。

こんな感じで使ってます。
my $oParse = new MIME::KbParser;
$oEnt = $oParse->parse_data($mail) || die "couldn't parse MIME stream";

どうやらmulti-partを上手く分けれてないようです。
$oEnt->partsを見ても何も入ってません。
その時はfrom,subjectは上手く抜き出せているようです。

boundaryの位置が悪いんだろうとは思うのですがどうやれば良いのか分かりません。
何かオプションがあれば教えて頂きたいのですが…

お願いします。

>>132
DB_File なら DB_FH にファイルハンドルが自動的にはいるわけですね。
SDBMが使えないのでこいつを使わせてもらうことにします。

>>134
自動的になるわけじゃないよ。マニュアルをもちっと読め。

正規表現が長くなった場合に複数行にわたって書くにはするにはどうしたらいいですか?
\RETだとインデントの関係で読みにくいし、変数に入れるとパフォーマンスが落ちるので
いい方法を探しています。

>>136
/x使って、インデントするなりコメントつけるなり好き勝手しやがれ!

関数の呼び出し元の変数にアクセスする方法ってありますか。

引数に参照として渡すのが普通だと思うけど・・・

超絶糞言語

超絶テク

>>136
> 変数に入れるとパフォーマンスが落ちるので
信じがたいな。oつけたら変わらんと思う

>>142
何度も使う場合、２〜３倍違うがなにか？

>>143　ﾊﾞｶ？

>>142
せめてラクダ本ぐらい読もうよ。

>>145
せめてラクダ本ぐらい読もうよ。

>>142
この場合、oは関係ないぞ。

>>143
正規表現の複雑さとか、ループ回数によって倍率はいくらでも変えられるんで
その比較は無意味。

まあ、ループの内側じゃなければ問題なし。

>>143=147
恥ずかしいやつ（ｗ

DBD：：ODBCってFileDSN使えないんですか？
ASPとかJavaScriptだと使えるのにPerlはDB関連は弱いみたいですね。

>>133ですが
「○○を読め！」とか間接的なアドバイスでも良いのでお願いします…
全然分かりません（涙）

MIME::Parserは使ったことないけど
http://groups.google.co.jp/groups?hl=ja&lr=&ie=UTF-8&oe=UTF-8&c2coff=1&q=%22MIME%3A%3AParser%22+Outlook
ここらへんを丹念に読むとか。
モジュールも全部Perlなんだろうしこういうときはデバッグしてコミュニティにフィードバックせよというのが流儀では?

避難所はこっちかな

帰れ。面汚し

age

あれは絶対に規制されるな。

初心者ですが、何のことが問題になってるのか分からないんですが。

>>155
どうするんだろ。あれにしかない機能が2つくらいあるけどね。

あれってなんだ？

コレですよコレ

PerlスクリプトをPerlがインストールされていないWindowsで使いたいのですが、
変なdllなどはいらないexeにコンパイルするコンパイラなどはないでしょうか。
C++に変換するものでもかまわないです。

>>160
perl2exeっていうのでexeに変換できる。
Shareware
30日間らしい
未レジスト状態で作ったexeは、実行時に「perl2exe未レジスト版で作成しました」のようなメッセージがでる。

perl2exeでコンパイルするマシンにはPerlが必要だとおもうけど

>>161
perl2exeで検索したら類似品でPerlAppってやつで出来るみたいなので
そっちでやってみます。ネイディブコンパイラじゃなくてソース埋め込み型みたいですが。

>>155
ム板住人としては、あれの動作原理が知りたいところなんですが
どうやっているのでしょうか？

WebProg板のPerl初心者で質問したんですが、場違いだったみたいでこちらへ来ました。
↓これを使いたいのですが
http://www.perlpress.com/perl/gres

例の通りに実行しても全然動かないのですけど、どうやれば動くのでしょうか？
以下は何もおきずに終わります。
perl gres.pl -e 's!and!or!g' *.txt

以下は"Processed 0 files." と表示されて終わります。
perl gres.pl -v -e 's!and!or!g' *.txt

ファイルを見つけられないのかとファイル名を直接指定すると、
perl gres.pl -e 's!and!or!g' readme.txt
GLOB(XXXX) ←こんなのが画面いっぱいに表示されて、readme.txt は 0 バイトになってしまいます。

どうかよろしくおねがいします。

C、C++は、ちょっと知っていますが、Perlについては、ほとんど、全く知らないものです。
Perlについて、お薦めの本があれば、教えてください。主な用途としては、データのテキスト処理、CGIなどです。
ちょっと、本屋で見たのですが、基本的な文法しか書いてないとか、逆に難しすぎたりでなかなかいい本がありません。基本的な知識から、CPANの使い方まで、サクッと書いた本はないものでしょうか？
（どうか、らくだ本という殺生なことは言わないでください。）
よろしくお願いします。

>>164
誰も答えたくないのは質問の仕方が悪いからとは思わなかったの？
多分、自分の環境やそのプログラムについて一言も触れていないので、ネタだと思われたんだよ。

とりあえずマジレスすると、古いPerlでは動いたのかもしれないけど今は普通に動かないよ。
既にメンテナンスされていない効率の悪いプログラムをあえて使う必要は無いと思うけどね。
どうしても使いたいなら下のように変更してね

# diff -u orig.pl new.pl
@@ -77,7 +77,7 @@

while( <$fin> ) {
eval $expr ;
- print $fout ;
+ print $fout $_;
}

close $fout ;

>>165
ラクダ本は厚いだけで難しくないです。楽に学習できるから楽だ本なのです。
漏れが最初に買ったのは
CGI & Perl ポケットリファレンス
と言う本です。文法は簡単な解説だけで後はすべて関数の説明。
意外なことにこれがかなり役に立った。

>167
おい、英語の原著でも楽だから楽だ本なのか？

>>165
CとC++できるのなら、Perlなんておちゃのこさいさいだよ。
添付のドキュメント、Webで見つかるその日本語訳、既存のスクリプト読み
だけでマスターできるじゃん。
3日あれば大丈夫だよ。

>>165

初めてのPerlはどうよ。
立ち読みして味噌
易し過ぎるかもしれないが素人向けの本ではないと思った。

http://www.oreilly.co.jp/BOOK/lperl2/

まあラクダ本だろうね。
元々C屋を対象に書いてるし。

>CGI & Perl ポケットリファレンス
これないと仕事に差し支えるくらいお世話になった。

>>172
手垢が付いて汚れているし、どこにでも持っていくからボロボロになっているＹＯ！

らくだは漏れにとってむずいが良書。

>>165です。
やはり、ラクダ本ですか。CGI＆Perlポケットリファレンスですか。今度、探してみます。
どうもありがとうございました。

perl5.6 の unicode って「実験段階」ってことになってるけど、
じっさいどれくらい使えんの? 使ってる人いる?

いまだに日本語処理には jperl5.005_03 使ってんだけど、
そろそろ乗り換えたいんだな。

糞糞糞糞糞糞糞糞糞糞糞糞糞糞糞糞糞糞糞糞糞糞糞糞糞糞

>>165
>>169
俺もC、perlの順で学んだけど、本は使わなかった。Webのみ。
凄く有名なページだと思うけど、とほほ　と　use object　にお世話になりました。
日本語版のマニュアル(perlmanj)もわかりやすいと思う。

でも短期間で効率よく覚える、っていうならやっぱり本なんだろうなあ。

今日もるびキティが吠えているようですが、実用的なPerlについての質問です。
実行時にモジュールを動的に選択して利用するようにするにはどうすれば良いのでしょうか。

俺ラクダ本だけでperl勉強したから、普通に使えるようになるまでに３年くらいかかったな…
larning perlが欲しかったんだが、田舎なので売ってなかった

#PerlInterpreter MultiLineVersion
perl -e 'while(<>){if($_ eq "\n"){eval $s;print $@;$s="";}else{$s.=$_;}}'

>>179
perldoc -f require

if(expr){
require Module::A;
}else{
require Module::B;
}

useと同じ効果を期待するならBEGIN内におく。

BEGIN{
expr ? (require Module::A, import Module::A()) : (require Module::B, import Module::A());
}

>>182
動的にってことだから、こうじゃないのか?
$modname = "hoge.pl";
require $modname;

>>180
俺のときはラクダ本しかなかった。しかも赤。

糞糞糞糞糞糞糞糞糞糞糞糞糞糞糞糞糞糞
どっちでもいいだろ。さすが糞スレ。
糞糞糞糞糞糞糞糞糞糞糞糞糞糞糞糞糞糞

>>178
>でも短期間で効率よく覚える、っていうならやっぱり本なんだろうなあ。

ですね。大学の時の指導教官が、「ぱーるってのを学ぶにはどの本見ればいいの?」
と学生部屋からラクダ本を持って行って、だいたい4時間くらいでマスターして
いました。短時間でやろうというのなら本でしょう。機械可読なテキスト
だけで学ぼうとすると、「世界の仕組み」を掌握するだけでそれくらいの時間
はかかりますし。

>>182-183
ありがとうございました。>>183のようにやればよかったのですね。
これでプラグイン機能が実現できますです。

>>185
どうでもいいけど、「世界の仕組み」ってのは何ですか

糞ｐげんごどもｓうぃうんべよぷい

日本語の不自由な方ですね

>>187
そのシステムの使い方やらデバッグ法やら情報の集め方などの
全大系を総称して「世界の仕組み」とかいうだろ?
この場合、「Perl世界の仕組み」ってことだろ。

>>190
寡聞にしてそのお言葉は存じ上げませんでした。ども。

マルチでゴメソ。
質問です。
正規表現にマッチした部分だけを変数に格納するには
どう書けばイイですか？

そりゃな君、

$hoge =~ /...(hoge...hoge).../;

のように括弧でくくってやると、マッチした部分が $0 に入るのじゃよ。

>>193
博士、ウソ教えないでくだちい。
$0はメインスクリプト名。
部分文字列は$1から。
マッチ全体は$&でつ。

>>193-194氏

ということは$1〜にセットされるんですね？

そのくらい試してみればすぐ分かるだろ。

perlユーザは馬鹿ばっかり(w

>>197
層が厚いってことなんだよ。
トップレベルは、（略）

>>198
トップレベルは、どの言語でもさほど変わらないと思うが、ボトムのレベルは言語間の差が激しいと思う。

Perlのようにユーザが多いと必然的にボトムのレベルは低くなる。

システムデフォルトのDNSではなく、別のところから正引きを行いたいんですが
どうすればよいのでしょうか。

>>200
>>201 みたいな｢スレタイトルが読めないヴォケ｣がいるのも、ユーザー数のせいか ?

>>202
perlでって事だろ。
なんかそんなことするモジュールがあった気がする。

>>201
Net::DNS使えば？

ぷう

おなら君、さーよおなーらー♪

使ったことないのですが、ActivePerlってふつうの
Perlとどうちがうんですか？

>>207
PerlのWin32版で最も普及しているものがActivePerl。
標準ライブラリに加えて更にLWPなどのライブラリがバンドルされているほか、
Win32特有の機能が追加されていたりするね。

>>208
厨房な質問なのにお答えありがとうございます。
UNIX上のActivePerlについてはいかがでしょう？

>>209
そんなの使ってるやついるのかな？
もしいたら、そのメリットを知りたいが。

>>210
うちの会社で標準になるらしい。。。

ああ、そういやLinux版とかもあったっけ。すっかり忘れてた。

普通のPerlとの差は…どうなんだろう。
見たところやっぱりいろいろとバンドルされてるようだけど、perl本体の差はわからないな。

>>211 >>212
Active Perl つーよりPDKのことなんだろか？？

#!/usr/local/bin/perl

$test = '0';

open (FH,">>unko.dat");

while ($test > 0) {
print FH "あ";
}

close(FH);

こんなプログラムを実行した場合の対処法を伝授してください。
A：気合
B：ファイル削除
C：サーバー管理人に謝る。「すんまそん」
D：その他

さてどれ？

>>214
頭の弱い方でつか？
プログラムの止め方も分からないのに実行するなよ

active perlで Net::DNS使おうとしたら Subroutine version redefined ...がいっぱい出てきて
使えないです。defined(@array) is deprecated も出ました。

Net::DNSは http://www.activestate.com/PPMPackages/5.6/で落してきたんですが、なんで使えないんでしょう？

201=216 環境とコードくらい書け。

すいません。
Windows2000でActivePerl Binary build 633 (perl v5.6.1)
コードはたとえば以下のコードでもエラーが出ます
--
use Net::DNS;
1;
--

>>214
D: 「回線切って、氏ぬ。」

>218 変だな。同じ環境のはずだが、何ともない。
ところで、Net::DNSはどういう手順でインストールした？
その>>216のactivestate.comから落とした後、ppm経由でインストールしたか？

>>214
そもそも動かないんじゃないだろうか・・・。
$testが0だからwhileのところで0>0となり偽になってファイルには何もかかれず終了。
違ってたらスマソ

今221がいいこと言った!!

質問です。長文失礼。

文字列を変換処理するとあるCのライブラリを、perl5.8.0 から使いたい。
xs を使って書いてみたのはいいけど、どうもうまくいかないので
お知恵拝借したいところ。

1.Cのライブラリ側関数は strcpy( char* dst, char* src ); みたいな感じで、
src から dst に変換処理をかけながらコピーする。
dst が src よりも長くなる可能性はある。
2.char* dst は予めメモリ確保する必要がある。
3.perl からもこの関数と同じように使えるようにするため、
xs では hoge( dst, src ); とした。
4.実際使ってみるとうまく動いてそうなんだけど、
src に長い文字列(大体500bytesくらい)を与えると
Carp/Heavy.pm did not return a true value at /usr/local/lib/perl58/Carp.pm line 178, <IN> chunk 2.
とかってエラーが出る。

結局仕方なく my dst = 0 x ( length( src ) * 2 ); とかやって
しのいでいるんだけど、あまりにひどい処理なのでなんとかしたい。

また xs の時点で dst のメモリ確保をするのも考えたけど、
そのメモリをいつ開放すればいいのかわからないので実際に試してはいない。

うーん説明わかりづらいかも・・・。

>>223
概要は分かったけど、XSでどのようなコードを書いているかが分からないのでコメントしづらい。
それと、Perl側から $dest = hoge($src); のように呼ぶのが普通じゃないかな。
例を挙げると、<stdlib.h>のrealpath()で、$realpath = MyTest::realpath($path);と呼ぶ場合

----- MyTest.xs -----
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "ppport.h"

#include <stdlib.h>
#include <sys/param.h>

MODULE = MyTestPACKAGE = MyTest

SV *
realpath(path)
    char *path
    PREINIT:
        char buffer[MAXPATHLEN]; /* <sys/param.h> */
    CODE:
        if (realpath(path, buffer) == NULL) {
            XSRETURN_UNDEF; /* RETVAL = &PL_sv_undef; でもよい */
        } else {
            /* bufferの内容をコピーした、新しいスカラー値を作る。
             長さに0を指定し、Perlに計算させる。*/
            RETVAL = newSVpv(buffer, 0);
        }
    OUTPUT:
        RETVAL

SV *
realpath2(path)
    char *path
    PREINIT:
        char *buffer = NULL; /* わざわざmalloc()するバージョン*/
    CODE:
        if ((buffer = malloc(MAXPATHLEN)) == NULL) {
            XSRETURN_UNDEF;
        }
        if (realpath(path, buffer) == NULL) {
            ST(0) = &PL_sv_undef; /* リターンスタックの先頭にundefをセット */
        } else {
            /* 上の例と同じようにRETVAL = newSVpv...としても可
            sv_2mortal()で、不要になり次第GCすることを許可する*/
            ST(0) = sv_2mortal(newSVpv(buffer, 0));
        }
        free(buffer); /* いらないので解放（コピー済み) */

>>223さんがしたいように、realpath($dest, $path); と呼ぶ場合

void
realpath3(dest, path)
    SV *dest
    char *path
    PREINIT:
        char buffer[MAXPATHLEN];
    CODE:
        /* destが妥当なSV値であるかどうかテスト */
        if (SvREADONLY(dest)) {
            XSRETURN_EMPTY;
        }
        if (realpath(path, buffer) != NULL) {
            /* sv_setpv()でbufferの内容をコピーする */
            sv_setpv(dest, buffer);
        }

/* おわり。間違ってもsv_grow() でバッファを引き延ばして、SvPVで得たchar *に直接書き込んではいけない*/

>>224-226
なるほど。
やはり SV を使わないとダメってことですね。
いまちょっと別作業入っちゃってすぐに確認できないけど、
あとで動いたか報告します。
さんくす。

ちなみに、手元ではなにも考えずこんな感じにしてました。
いま思えばまともに動くわけがないよなぁ。
情けない…。

void
hogehoge( dst, src )
wchar_t* dst
wchar_t* src
CODE:
{
dst[0] = NULL;
hogehoge( (unsigned char *)dst, (unsigned char *)src );
}
OUTPUT:
dst

wchar_t* で渡して (unsigned char*) に cast しているのは
この hogehoge 関数の仕様で仕方ないってことで。

ぐあ。223=227です。書き忘れた。しかも sageてない。
さらにしかも書き込み時の tab って無視されるのね…。

>>227-228
xsubppの吐いたCソースファイルを見てもらえば分かるけど、
/usr/local/lib/perl5/5.8.0/ExtUtils/typemap に従って、SV *からwchar_t *に変換する際に
wchar_t *dst = (wchar_t *)SvPV_nolen(ST(0));
wchar_t *src = (wchar_t *)SvPV_nolen(ST(1));
SvPV()でSVの文字列用の内部バッファを貰っているわけだから、
perlの管理をbypassして勝手に書き換えたら不味いと思う。たぶん
(SvGROW()で十分にバッファを引き延ばして、書き換えた後にSvCUR_set()で
適切に長さを設定しなおしてやれば問題はないかもしれないが)

...ところで、そのhogehoge()関数は、destの領域サイズを渡すことはできないの？
溢れた際、処置のしようがないけど

>>229
とりあえず質問部分にだけ返答します。

ここで書いたogehoge()関数って実際にはstrcpy(),strncpy(),strlen()に
相当するものがそれぞれ用意されていて、C で書くと
size_t len;
len = hogestrlen( (unsigned char*)src );
wchar_t* dst;
dst = (wchar_t*)malloc( len );
hogestrcpy( (unsigned char*)dst, (unsigned char*)src );
みたいな使いかたするものみたいなんです。
hogestrlen() は引数の src を変換したら何bytes になるかを返すっていう感じね。

まぁそういう仕様なので溢れたらさようならーなのが仕方ないっぽい。

>>230
こんな感じでいいのでは？
hogehoge($dst, $src) or error_happend();
のように呼び出す、と。

void
hogehoge(dst, src)
    SV* dst
    wchar_t* src
    PREINIT:
        size_t len;
        wchar_t *buffer;
    CODE:
        if (SvREADONLY(dst)) {
            XSRETURN_NO;
        }
        len = hogestrlen((unsigned char *) src);
        if ((buffer = malloc(len + 1)) == NULL) {
            XSRETURN_NO;
        }
        hogestrcpy((unsigned char *)buffer, (unsigned char *)src);
        sv_setpvn(dst, buffer, len);
        free(buffer);
        XSRETURN_YES;

#>229の（...）内は無視してね。perlgutsに駄目だとはっきり書いてあった。

正直、perlのオブジェクト指向プログラミングはどうですか？
rubyと比較してどうですか？
いろんな角度から、客観的な意見を聞きたいです。
できれば両方を使える人、答えてください。

構文が泥臭い。

Ruby以外は糞

>>234
てめえの脳が糞、耳垢も糞？

メインのスクリプトファイル(1)と、そこからrequireで取りこんで利用するファイル(2)
の2つがあるとします。

(2)でpackage main;として、パッケージ変数を宣言して代入、これを(1)から参照しよう
とすると、(-w つけたときに)その変数は1回しか使われていない、打ち間違いでは?とい
うようなワーニング(possible typoとかいうやつ)が出ます。

パッケージ変数を(1)で宣言したり、(2)をmain以外のパッケージにして、(1)で完全修飾
で参照するとワーニングは出ないのですが、なんで同じパッケージなのにこんなワーニン
グが出るのでしょうか。これをuse vars以外で回避するにはどうすればいいのでしょうか。

いちいち別パッケージを作りたくないが、同じファイルにべたっと書くと読みにくい時
などに困っております。

>>232
メンバの定義の時、perlだと無名ハッシュや無名配列などを作ってその中にうまく配置し
なければならないので少し面倒です。C++だと単にブロックの中で宣言していくだけで
いいのでやや楽です。public/privateもきっちりしております。
rubyは知りません。

>>232
オブジェクト指向言語として必要な要素はすべて揃っている。
超強力なリフレクションで徹底的に動的に扱うことができる。

ってかんじかな。デメリットは包括的かつ統一されたクラスライブラリ
が付いてこないこと。これが痛い。

JavaとかRubyとかSmalltalkが気持ち良いのって
そーいうクラスライブラリが付いてきてるからなんだよな。

"クラスライブラリも言語の一部だ"なんて声もあるけど
言語を特色付ける一要素でしかない。でもユーザからすると重要。
うーむ。

>>232
perl5のOO記法が気に入らなくてrubyに走った。

>>236
その警告はコンパイル時に出されるものだからだね。
試しにperl -wc script.pl(コンパイルのみ)にしても警告は出るはずだよ。

というのも、Perlがコンパイル時に変数を見たとき、その(2)の変数は見えないんだよ。
requireは実行時になって初めて呼ばれるからね。
requireすればPerlにとっては変数が複数回使われていると分かるけど、
もう発行した警告は取り消せないというわけ。

でもたいていの場合、その警告はもっともだと思うんだよね。
今回はたまたまtypoしなったのかもしれないけど、
本当にtypoしても別ファイルだと気付きにくいでしょ。
だから、use strictをしてその使う変数をvars/ourで宣言するか、
その(2)をモジュールにしてuseで取り込むかした方がいいと思うよ。

PerlのOOってprivateとかpublicみたいな区別ってあったんだっけ。
「境界線はパトロールしない」んじゃなかったけ。
俺は、無理やり従来の枠組みに押し込もうとしたような記法があんまり
好きではないな。@ISA ってなんの略じゃろ。みたいな。

>>240
@ISAって何の略ですか？

Implementation of Super Algorithm

>>242
まーたーぁ。
"is a"の略でしょ。

バイナリファイル内の文字列を置換するにはどうしたらいいのでしょうか…。

open(INFILE, "<$infile") or die "ERROR : ファイルが開けません($infile)\n";
open(OUTFILE, ">$outfile");
binmode(INFILE); binmode(OUTFILE);

while (read(INFILE, $buffer, 1024)){
　　$buffer = s/対象文字列/置換文字列/g;
　　print OUTFILE $buffer;
}

close(INFILE);
close(OUTFILE);

とかは無理でした。

>>244
typoじゃないなら板違い

まあ、まず「=」の代わりに「=~」としないときびしいんじゃないかな。

あと日本語だとどうなのって気もするし。

>>245-246
あ、、、、（略

　　＿＿＿＿＿＿
　〈 ｽｲﾏｾﾝ、ｺﾉﾄｵﾘﾃﾞｽ！
　　∨￣￣￣￣￣
　　　　　　ヾ
　(´Д｀;)、
　 ノノＺ乙

あるディレクトリの階層を出力する方法がわかりません。

真剣困ってます。教えてください。

>>248
は？

はぁ・・・・・・・

自力でがんばろ！

真剣に困ってる奴が書く文章には見えない。

まず日本語勉強しないとな。
あと、Perlクックブックとかを買うと幸せになれるのでは?

mataaoridesuka?

　　　　 　　　　@　　　 　@　 　　 　 　 　　 　@　　 　　@
　　　　　　__〃　　 　 〃 　　　　　　　　　__〃　　　　〃
. 　 　 ／´〃⌒ヽ⌒〃ヽ　 　 　 　　　／´〃⌒ヽ⌒〃ヽ
　 　 / 　 　 　　　　　　　ヽ　　　　　/ 　 　 　 　　　　 　|
　　　| 　　　　　　　　　　　|　　　　　|. 　 　 　 　　 　　　|
　 　 | 　 　　　 -‐　　 '''ｰ |　　　　　|.　　　　　　　　　　 |
　　／　　　　　‐ｰ　 くー　|　　　　　|　 　 　　 　　､　　, |
　 （　（　　　´ﾟ　　,ｒ(､_>､ ﾟ')ヽ　　　（　（ 　 　 -―●-●|ヽ
　　ヽ／⌒っ 　 .ト‐＝‐ｧ'　! ⌒っ　ヽ／⌒っ　　　） ‥　）⌒っ
　　　＼ ノi、 　 ` ｀二´' 丿ヽ、ノ　 　＼ ノ 　　　　ｰ=_ノヽ、ノ
　 　 　　　|､｀ ''Ｉー-‐Ｉ　､|　 　　 　 　　　|､｀ ''Ｉー-Ｉ　､|
　　　　　 ��￣つ　 ��￣つ 　　　　　　 ��￣つ　��￣つ

糞言語には糞スレがお似合いだな。ぷぷっぷぷぷ

　　　　 　　　　@　　　 　@　 　　 　 　 　　 　@　　 　　@
　　　　　　__〃　　 　 〃 　　　　　　　　　__〃　　　　〃
. 　 　 ／´〃⌒ヽ⌒〃ヽ　 　 　 　　　／´〃⌒ヽ⌒〃ヽ
　 　 / 　 　 　　　　　　　ヽ　　　　　/ 　 　 　 　　　　 　|
　　　| 　　　　　　　　　　　|　　　　　|. 　 　 　 　　 　　　|
　 　 | 　 　　　 -‐　　 '''ｰ |　　　　　|.　　　　　　　　　　 |
　　／　　　　　‐ｰ　 くー　|　　　　　|　 　 　　 　　､　　, |
　 （　（　　　´ﾟ　　,ｒ(､_>､ ﾟ')ヽ　　　（　（ 　 　 -―●-●|ヽ
　　ヽ／⌒っ 　 .ト‐＝‐ｧ'　! ⌒っ　ヽ／⌒っ　　　） ‥　）⌒っ
　　　＼ ノi、 　 ` ｀二´' 丿ヽ、ノ　 　＼ ノ 　　　　ｰ=_ノヽ、ノ
　 　 　　　|､｀ ''Ｉー-‐Ｉ　､|　 　　 　 　　　|､｀ ''Ｉー-Ｉ　､|
　　　　　 ��￣つ　 ��￣つ 　　　　　　 ��￣つ　��￣つ

アラレキ〜〜ック
θ＝＝〜〜

>>257
やる気の無いレスだ・・・

>>248
glob('*/*');
というようにワイルドカードを2つ使うとサブディレクトリのファイル名が全て手に入るよ。
さらに、
glob('*/*/');
だとサブディレクトリ名が全て手に入る。

grobでできるならシェルでもできるね。
ls -l */*/*|glep xxx
とかやると簡易findになるし。

>>259-260さん
教えてくれてありがとうございます。
これから精進します。

>>259
globbingの質問だったのか…。
ディレクトリの深さを調べるとかかと思ったよ。

しかしそれだと同一レベルのものしか見付からないから、File::Findを使うべきでは。

>>252も言ってるが、cookbookを読むべき。
わけのわからんことを言ってる奴が多すぎる。

コンソール上に表示させる際に、
色を指定して表示させることはできるのでしょうか？

>>231
報告遅れましたが、この code でうまく動きました。
XS って情報が少ないので大変感謝です。

winのactivePerlでは*.pmとか*.plはどこにおいたらいいですか？

baka?

Perlについての質問箱
http://pc3.2ch.net/test/read.cgi/tech/1017736187/

が前スレ＝Pert1ってことでOK?

CPANに書いてるし。
＞Copy the module into your Perl's lib directory.
＞That'll be one of the directories you see when you type perl -e "print qq(@INC)".

DOS窓なんかで perl -e "print qq(@INC)"　って打って出てきたディレクトリに
放り込めと。

ここのフィボナッチをやってみたんですが、
http://www.bagley.org/~doug/shootout/bench/fibo/fibo.perl
>perl fibo.perl 10
とすると、
89
が返ってきて計算がおかしい様なんですが、なんででしょうか。
(55が返るはず)

ちなみに30渡すと、
>perl fibo.perl 30
Out of memory!
Error: Runtime exception
なんなんだろう・・

>>270
最初の三項演算子の比較を<=2にすればあんたがほしい答えになる。
後者はあんたの環境が悪い。
余計な話だがuse integerを使う意味もないし、すぐ桁あふれを
起こす使い物にならないスクリプトだと思う。
この種の処理ならBigIntを使うべき。

つうかフィボナッチで再帰するな馬鹿。糞言語ににはお似合いだがな

>>271
あんたまっとうなレスもするんだな。ちょっと意外。
グチャミソゴミ吐き言語のサンプルとしては>>270のリンク先は
あまり適切ではないと思うが。

糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語
糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語
糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語
糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語
糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語
糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語
糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語
糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語糞言語

(アフォにアフォ扱いされて憤死)
272は273ではありません。
271は変質者か？カスはどっかいけ

“アフォ”しかレス出来ないのに、さも知ったかぶったような馬鹿のおられるスレは此方ですか？
煽りしか出来ねえ癖にガタガタうるせえんだよ。ヴォケ！と伝えたいのですが。

勘違いとは詳しい事情もしらず決め付けるやつも勘違いだわな（わら

今度近日中に都内の電車にサリンを巻く。
もし君たちが、Rubyに入教すれば
座禅をしたままで、空中浮遊をすることができるようになる。
matzは偉大なり。紙さまです。今日は電車を使わず
座禅で出勤することができました。これもRubyのおかげです。
Rubyに入れば、永遠の命を手にすることができるのです。

>>278
警視庁のＨＰから通報しました。こういう類のことは予告
でもつかまるんだよね。犯罪はだめぽ。

相変わらず頭悪いなぁw

>>271
うーん、
http://www.bagley.org/~doug/shootout/bench/fibo/fibo.perl
このコードがおかしいとなると、このサイトのベンチ結果は
当てにならないってことでいいんですかね・・？
環境はPerl for Win32 Build 316 - Built 23:50:22 Mar 16 1998です。
ちなみに<=2にしても30は計算できませんでした。

>>272
ベンチ用のコードなので、あえて再帰を使ってるのは納得できる
理由だと思いますが？

このコードは引数2のときの処理がおかしい。
漏れの環境では条件を<3にすると正常に計算できた。

>>281
バカ？

Perl5で、

my_defun hoge($foo, $bar) { BODY };

なんて書くと

sub hoge($$) {
　my ($foo, $bar) = @_;
　eval { BODY };
}

みたいな文に展開されるサブルーチン "my_defun" みたいのは書けないでしょうか？

>>284
なんでこんなんが必要なのか分からんが

sub my_defun {
　 my($name) = $_[0] =~ /^([^\t\x20(]+)\s*(?:\(((?:(?:[\$%&@][^\t\x20,]+)(?:,\s*)?)*)\))?$/;
　 my @arg = split /,\s*/, $2;
　 my $code = $_[1];

　 for (@arg) {
　 　 $p = substr($_, 0, 1);
　 　 if ($p eq '$') { $_ = "my $_ = " . 'shift;' }
　 　 elsif ($p eq '@') { $_ = "my $_ = " . '@{shift @_};' }
　 　 elsif ($p eq '%') { $_ = "my $_ = " . '%{shift @_};' }
　 　 elsif ($p eq '&') { $_ = 'my $' . substr($_, 1) . ' = shift;' }
　 }

　 eval join '', (
　 　 'sub ', $name, ' {',
　 　 　 @arg,
　 　 　 $code,
　 　 '}',
　 　 '*::', $name, ' = \\&', $name, ';'
　 );
}

my_defun 'hoge(@foo, $bar)', q{ print join '/', $bar, @foo };
my @hoge = ('age','sage');
hoge(\@hoge, 'moge');

プロトタイプ宣言はコンパイル時にのみ有効だから、
動的生成時は無視される。

つーか<=2っておかしくない？

>>1
やけにCGIを意識した書き込みだな。

そもそもfib(30)って、高々30階層しか再帰呼び出しされない筈なのに、
Out of memory!になるのはおかしいよね・・・。
perlで数値計算させるのがまちがってるんでしょうか。

CGI以外にまともな用途がないからな。

perlっのコード見てるとつい鼻毛抜いてしまう

まともなレスしない割に粘着ですね。＞rubyist＠カラアゲうまうま

低レベルな書き込みをいつまでも続けないで欲しいな。お前のことだ。糞野郎>>270

問題が全然解決してないので書きこんでるだけです。
掲示板を私物化ですか？＞rubyist＠カラアゲうまうま

つーか正解は
return $_[0] < 2 ? $_[0] : fib($_[0]-2) + fib($_[0]-1);
ですよね。やっぱベンチはでたらめかな。

いい加減うざいな。独り言なら余所でやれ。

>>295=rubyist＠カラアゲうまうま
自作自演もほどほどにな。

>>296 ﾊｧ? お前もソイツと一緒に消えろ。

>>293
いちいち相手するな。

俺は Perl よりむしろ Ruby を使うほうだが、rubyist を騙って粘着する基地外は
氏んでもらいたい。

>>294
C等のコードを見ると同じ間違いをしているから、ベンチマークの結果は正しいと思うよ。
といっても、ベンチマークの結果を鵜呑みにしていいかどうかはまた別問題だけどね。

rubyistはみんなそんな感じだ。いい加減消えてくれ

#!/usr/bin/perl

while(1) {
　print 'rubyist@カラアゲうまうまは名無しさん＠カラアゲうまうまとは別人ですよね？';
}

Perlで複素数や文字式の計算をやりたいのですが、できるのでしょうか？
学校の先生とPerlについて話をしていて、ウェブで複素数の計算できるようなもの作ってみてくれと言われたんですが、いかんせん複素数をどうしたら扱えるかわからなく悩んでいます。
本はもちろんのことgoogleで調べてみましたが全くと言っていいほど情報が無く、ダメでした。どなたかご存知ないでしょうか？

>>302
ラクダ本を買え

HTMLのフォームに式を入れて、それを計算させるの？

式[(5i - 2)(2i + 1) ]　＝　解[　　　　　　　　]
とか？

>>303
早速本や行って見てきます。
田舎だから売ってないかも…
そしたら都会にお出かけしてきます。

一番簡単なのは複素数を配列として表現することだよね。
3+2i だったら @hoge = (3, 2) とする。

で四則演算をやる関数を
×( @hoge, @fuga )
とかって感じで呼び出せるように定義すればいいんじゃないかと思われ。

>>306
素直に標準libを使ったほうが簡単だと思うが？

>>302
「こんなコードどこかにないかな〜」と思ったら、まず
http://search.cpan.org/
ここで検索するんだ。今回の場合はComplexといれて検索。
http://search.cpan.org/author/JHI/perl-5.8.0/lib/Math/Complex.pm
と一瞬にして出てくる。

しかしだなぁ、
http://www.google.co.jp/search?q=perl+%E8%A4%87%E7%B4%A0%E6%95%B0&ie=UTF-8&oe=UTF-8&hl=ja&lr=
で一発なところを見ると、本当に検索したのかと小一時間問い詰めたい。

ウェブの使い方と厨学生レヴェルの英語力があれば、ラクダ本は無用。
漏れ的には「オブジェクト指向Perlマスターコース」を勧めるが、
基本的に「本を買え」ってだけの香具師は信用するな。

>>308
だから、>>302にはあんたがいう程度のスキルもないってことだよ。
Math::Complexはperlの標準libに入ってる。
本来、探すもへったくれもないだろうが。

>>309
確かに、googleで検索する前に、
perldoc perlmodlib
で名前を調べて、
perldoc Math::Complex
とやってもいいな。

厨房でも大きな顔が出来る。それがPerlスレ（わら

３０４が正しいとすると式を構文解析するほうがよほど大変そう。

306 も偉そうにしているわりには標準libすら知らない

＞カラアゲうまうま
キモッ！

いろいろレスありがとうございます。
昨日はMath::Complex.pmまでは探し当てたんですが、それから立ち往生してしまい…
いわゆるモジュールなんてPerlの初心者本でcgi-libとjcode変換ぐらいしか知らなくて、モジュールとはどんな風に使うのか？というところで悩んでしまいました。
それでComplex.pmを落としてきて、ルートの計算や階乗まではいけたんですが、肝心の複素数を扱うところで挫折と言った具合です。
まぁもう少し難しそうな本を読まないと置けないのかと思いました；´Д｀）

追加で返事忘れてました。
>>304そうですそんな感じです。あと複素数同士の割り算やなどです。
>>306さんのは簡単な計算ではいいのですが、iをそのまま虚数として扱えるフォートランのような感じでやれないものかと思っていました。
今のところ306さんのようなiを文字として最後に引っ付けてやっているのですが、やはり限界が訪れてしまい皆さんに聞いてみようと思ってのです…
お世話かけて申し訳ない。もう少し頑張るデス！

と言いつつさっきやったら出来ました。
いままで3*iを3iとして打ち込んでいました。
全くもって情けない話ですみません |дﾟ)

@data=('A,7,緑','C,6,青','B,4,赤','A,9,紫','A,2,黄緑','B,10,黄','C,3,青紫')
という配列の各要素の第1項でソートするには、
@data=map{$_[0}sort{$a->[1] <=> $b->[1]}map{[$_, split /,/]} @data;
とする。

んで、配列から重複した要素を取り除くには
@array=grep(!$count{$_}++, @array);
と書きます。

上の@dataのような２次元配列（？）の各要素の第1項で重複した要素を取り除くにはどう変形させたらいいか分かる人教えてください。
->　の使い方がイマイチようわからんです。

>>318
まず、それは二次元配列ではなく、単なる一次元配列だ。
普通は、
my $data =
[['A', '7', '緑'],
['C', '6', '青'],
.... ]];
とする。もしくは3つのうちどれかをキーにした無名ハッシュへのリファレンスを
要素にもつ無名配列にする。漏れなら後者だな。重複する可能性の少ないデータ、
この場合は2番目の数をキーにする。単なる数だから配列でもいいかも知れない。

まずはデータ構造の見直しを推奨するが、どうしてもこれでなければならないのか?

>>319
@dataの構造でないといけないというわけではないです。
１．要は、３つの項からなる要素をひとつのカタマリとする
２．各要素のN項に着目し、重複した要素は除く
ということが満たされるということをしたい。

無名配列とかについてはちょっとまだ使ったことがないというレベルです。
my $data の形の方がわかりやすいかな？

それって>>318の例でいうと、
たとえば「最初の項に着目する」場合、
ほしい結果は「('A', 'B', 'C')」みたいな
リストなわけ??

いや、欲しい結果はこういうこと。
('A,7,緑','C,6,青','B,4,赤')

最初の項が「A」である要素が3つあって、
そのなかのどれを選んでもいい、っていうなら、たとえば、

foreach $data (@data) {
if ($data =~ /^(.)/) { # これだと「最初の一文字」だが、まあ。
$hoge{$1} = $data;
}
}
として
foreach $hoge (sort keys %hoge) {
print $hoge{$hoge}
}
とかするとこれはPerlらしい泥縄でuniqして最後に現れた要素だけとりだせると。

もっと簡潔に書ける人大募集。

302に便乗して質問です。
複素数や文字式を格納した変数を有効桁数で表示してみたいんですけどどうしたらよいですかね？
printf や　sprintf　でやってみたけど文字の入った式は無視されちゃって…
2.063835iというのを2.06iに直して出力できないものっでしょうか？

今の時点では変数内でiを探して抜き出し、数字部分だけで有効桁にしてiを付けてやるというのしか思いつきません。

>>324

s/(\d+\.\d+)/sprintf("%.2f",$1)/eg;

じゃダメ？ :-)

a.txtとb.txtと2つのファイルがあったとして
a+b.txtみたいなファイルを出力にするには
どうしたらいいんでしょうか。

a.txt
1　1　4　3
5　2　2　8
2　8　6　9

b.txt
3　2　1　9
0　2　1　1
3　0　2　8

a+b.txt
4　3　5　12
5　4　3　9
5　8　8　17

>>324
perldoc Math::Complex して、
The first one is "format", which is a sprintf()-style
という行を検索してみてください。それらしいことが書いてありますたよ。

>>324
perldoc Math::Complexにやり方が書いてあるけど…。
英語が分からなくても、一度ざっと目を通すくらいはしてね。

Math::Complex->display_format(format => '%.2f'); # Complexオブジェクト全般に有効
my $cplx = new Math::Complex;
$cplx->dislay_format(format => '%.2f'); # このオブジェクトにのみ有効

>>326
簡単な方法は無いから、力ずくでやるしかないね。

あう、被った上に親切すぎだね…。

>>326
配列に[ ]で区切って数字を入れていって、
@a[i]と@b[i]を足して
printする。

ちからずくですか…(-＿-)　perlﾔﾒﾖｳ

>>326
Math::Matrixを使いなされ。

Math::Matrix
(ﾉﾟοﾟ)ﾉ ｵｵｵｵｫｫｫｫｫｫ-そんな便利なものが！

>>333
>>308にも書いたが、とにかく*自分でコード考える前に*、
http://search.cpan.org/
で検索すれ。

一つ勉強になりますたｍ（＿＿）ｍ

みなさん親切にありがとうございます。
只今エキサイト翻訳しつつ、解読中です。
なんとなく解りかけていたので、試行錯誤しつつやってみます。
（ ● ´ ー ｀ ● ）

えげｒ７８お２３ｔｇ４ｋｊｆ＠ｐｓｄｃさｃあｓ





ｓ：：：：：：：：：：

↑↑なっち！

dbmopenでDBMファイルを作ると
自分のLinuxマシン（RedHat7.3、Perl5.6.1）では
拡張子の無い単一のファイルができるんだけど
プロバイダ（OS不明、Perl5.6）上で同じの実行すると
拡張子が.dirと.pagの2つのファイルができる。

相互でDBMファイルをやり取りしようという計画だったんだけど
無理なのかなあ。

違いが生じる原因はOSの違い？
なんか解決する方法あったら教えて。

require で呼ばれた hoge.pl の最後には、
なんで 1; が無いとだめなんでしょう？

>>339 DBMといってもsdbm,gdbm,BerkeleyDBとか亜種があることぐらい知っておけ。
>>340 そういう糞仕様だから。

ぺｒｌは区塩

Perl の設計者（だれかしらんけど） に一言文句を言わせてくれ！！
それは変数のスコープについてだ！

なんで local な変数がグローバルなスコープを持ってて、
本当にローカルなスコープの変数を使いたいときには
my を使わないといけないんだ！

　　　混　乱　す　る　だ　ろ　う　が　！

ちなみに俺は、ruby は嫌いだがから揚げは好きだ。

ちなみに俺は、ruby は好きだが rubyist@カラアゲうまうまは大嫌いだ。

俺の読んでいる perl 入門チラシには

sub サブルーチン名 {
　　処理
}

って書いてあるんだけど、

sub サブルーチン名 (\%$) {
　　処理
}

みたいに ( ) がついてるのはどういう意味？

>>340
最後に真の値を返さなければならない仕様で、その一番簡単な方法だからだ。
UNIX系の連中が大好きな「慣習」ってやつ。

>>342
myは後付けだからな。一応今でもlocalに使い道はあるぜ。漏れがよくやるのは、
作ってる最中のコードの頭で$DEBUG = 1としておいて、テストが済んだサブルーチン
の頭でlocal $DEBUG = 0ってやると、そのルーチンのデバッグメッセージだけ
飛ばせる。

>>345
Cの関数プロトタイプみたいなもんだ。なくてもいいよ。

>>346
( ) の中は別になくてもいいのか・・・
これによって sub の中での @_ に何か影響があるのかな〜と思ってたよ。
ありが�d

Perlプログラミング講座
http://www5a.biglobe.ne.jp/~n_rieko/perl/

PerlとCGI入門
http://pc-information.com/perl.html

ahya'foo とか ahya::foo とか。
' と :: って同じものなの？

perl4
perl5

>>349

同じ。
hoge'hogeだと、emacsのperl-modeが識別できないんだな。

教えて下さい。 $TEST に
X-Mailer : RIGHT Mailer
MAIL To: root\@test.com （以下略）
ってな感じでメールの内容が入ってるんすけど、これをsendmailに渡す時って
どうやったらいいんでしょうか？どーもスマートな方法がわからないんです・・・

>>352
>>334

>>353
すいませんでした・・・見つけますた。

>>350-351 ありが�d

File::Tailと同等なモジュールないですか？
ActivePerlを使っているのでFile::Tailが使えないんです。

おまえ資質無いよ。

資質があるやつは、こんなとこに来ない。

言うことはそれだけか。ぷぷっ

例外が使えないPerlは正直使い物にならんです。

例外処理のこと？
もし、それならevalつかうんだけど、、、

マジレス求む。

デバッグメッセージに自分がいるサブルーチンを含めることは可能だろうか？

たとえば
sub hoge {
(snip)
print_debug_msg($foo); # $foo = 1
(snip)
}

で

hoge: 1


みたいな

caller使え馬鹿低能

>>363
くだらん質問が来たらおれもあんたを騙ろうかな(w

>>362
>>363にあるようにcaller()が使える。
内部でcallerを使ってるだけだけど、標準ライブラリCarpにあるconfessとcluckは
メッセージと共にスタックフレームも出力してくれるから便利だよ。

>曽爾 久理恵さん
教えていただきありがとうございます。


配列の形式を変えて、以下の形としました。
@data=(["A","7","緑"],["C","6","青"],["B","4","赤"],["A","9","紫"],["A","2","黄緑"],["B","10","黄"],["C","3","青紫"]);

この形で、
１．各要素の1項目目でソートをする
@data=(["A","7","緑"],["A","9","紫"],["A","2","黄緑"],["B","4","赤"],["B","10","黄"],["C","6","青"],["C","3","青紫"]);

２．各要素の1項目目が重複した要素を取り除く
@data=(["A","7","緑"],["B","4","赤"],["C","6","青"]);

という結果を得たいのですが、いい案はないでしょうか？

#!/usr/bin/perl -w
use strict;
use Data::Dumper;
our @data=(["A","7","緑"],["C","6","青"],["B","4","赤"],["A","9","紫"],["A","2","黄緑"],["B","10","黄"],["C","3","青紫"]);

# 1
@data = sort{ $a->[0] cmp $b->[0] } @data;
print Data::Dumper->Dump([\@data], ['*data']);

# 2
# ただし何が残るのかは指定できない
{
my %t;
@data = grep{ ! $t{ $_->[0] }++ } @data;
}
print Data::Dumper->Dump([\@data], ['*data']);

__END__

>>366
いい案って……やればいいだけじゃん。

perlでオブジェクト指向って無謀ですか？今度大き目のWebの仕事で
perlを使用するんけど、リーダーがOOを前面に押し出した作り
にすると言い出しまして．．．

OOならRubyだろ。馬鹿じゃね?

GNOMEでCによる大規模OOPが可能であることが証明されていますから、
OOPサポートのあるPerl5でOOPが無謀だなんてことはありません。

RubyでWebアプリケーションは重過ぎます。

>>371 おまえGnome/GTK+でプログラムを書いたことないだろ。あのダサイ設計を見て言っているなら病気だな(w
gtk_hoge_do_something(GTK_HOGE_CAST(obj), args)なんか毎度やってられるか。
>>372 Walrusはとっくに実用レベルですが？ Perlにありましたっけ？

下層階級・業界のドカタの皆さんにはPerl見たいな糞言語がお似合いです。

>>369
メンバーがみなperl者なら、行くとこまで行っちゃえば。

破綻が目に見えるようだな。

>>373
>Walrusはとっくに実用レベルですが？
実際に稼動してるとこ見たことないぞ。
つーか本家に行ってもC++に書き直される運命ですた。

Perlで大規模OOPできるよ。ただし、Perlの哲学を忘れないでね。
「オブジェクト指向は、それが意味のあるときだけ使い、そうでないときには避けること。」
それじゃ、開発がんばってね。

OO自体は他の言語で経験があるというんじゃなきゃやめとけ。

>>376
頼むから偽rubyistは相手せずに放置してやってください。

この前、とほほでperlを勉強し始めた、にわかperl君なんですが「空配列」
って何のために使うんでしょうか？
ググってみたけど、断片的にしか書いて無くてイマイチ「こう言う時に使う」
とか「こう言う場合の為にある」とか言う感じが掴めず胸が気持ち悪くて
どうしても我慢なりません。
ハァ？とか言わないで教えてもらえると本当に嬉しいっす。

空配列って、@hoge = ( ); みたいなやつ??
だとしたら、それは空っぽなので、特に用途はなくて、
ゴミがたまった配列をリセットするときに使うわけじゃよ。

算数の授業で
0はどういうときに使う数ですか
と質問するのに似ているな。

----
嘲笑している訳じゃなく、マジレスなのでそこのところよろしく。

ハァ？

程度低いスレ。
WebProgに引きこもって出てくるな。

糞言語板とかできねぇかな。
Perl,HSP,Delphiとかを隔離すれば少しはましになるだろうに。

バカにしながらこのスレを粘着質にチェックしている
基地外がいるスレはここですか？

ああそうか。

Perl とか HSP とか、そーゆー効率の悪い言語を使ってる人たちの
立場で考えてみる必要もあるのか。

そして、るｂｙスレにはたいした書き込みしない。＞からあご

rubyがそんなにすばらしいなら、perlスクリプトに対応する
rubyのソースを逐一見せてくれたまえ。そうしてくれりゃ
こっちも比較のしようがあるもんだ。

>>388
書けないんだよ。rubyは知らないから。放っといてやれ。

Ruby >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Perl

今夜のお祭りはここですか。

rubyist@カラアゲうまうま←かわいそうな奴

ガンバ！！

＞糞言語板
真っ先にRubyが隔離される予感。

>>394
おまえとカラアゲ君だけ隔離されれば、それでじゅうぶん。

カラアゲ君、よっぽど悔しかったんだろうな。名無しになって暴れてるぞ。
追いつめると何するかわからんから困るよな。

パターンに変数が含まれるパターンマッチで
変数にメタ文字が含まれてしまう場合、何か良い方法はあるのでしょうか。

ex. $foo = "aaa?bbb"　のとき　"aaa?bbb" =~ /$foo/ をマッチさせる方法

"aaa?bbb" =~ /\Q$foo\E/

こうすると、展開されないYO!

>>398
おお！ありがとうございます！！

複数行にわたる文字列を一行に納めたいのですが、
たとえば"aaa\tbbb\nccc"と"aaa\\tbbb\\nccc"を相互に変換する関数ってありますか？

Perl って何って読むんですか？

Pearlと同じく、パールって読むらしいよ。

日本人に聞き取れないだけで発音はちょっと違う。

$str =~ s/([\\\t\n\r])/\\$1/g;

一応エスケープ処理は書いてみました。
でも120％車輪の再発明っぽい気がしてきて背筋が寒くなるので、
誰か情報ください。

質問です。
"aaa\\tbbb\\nccc"→"aaa\tbbb\nccc"
こういう時の処理って、どうやったら正規表現一発でできるのですか？

%escapelist = {
'\\\\' => '\\',
'\\t' => '\t',
'\\n' => '\n',
'\\r' => '\r'
}
s/(\\\\|\\t|\\n|\\r)/$escapelist{$1}/g;
こうですかね？

できたには出来たけど。。。
やっぱり車輪の再発明の予感。
$str = "aaa\nbbb\tccc\\ddd\\\\eee";

%reescapelist = (
'\\' => "\\",
'\t' => "\t",
'\n' => "\n",
);
%escapelist = (
"\\" => '\\',
"\t" => '\t',
"\n" => '\n',
);
print "first:\n" . $str . "\n";
$str =~ s/([\\\t\n])/$escapelist{$1}/g;
print "escape:\n" . $str . "\n";
$str =~ s/(\\\\|\\t|\\n)/$reescapelist{$1}/g;
print "reescape:\n" . $str . "\n";

http://pc3.2ch.net/test/read.cgi/tech/1028906179/680n
.

くだらないﾈﾀではあるんだけど、

CPANってなんて読むんだ？

しーぱんでいいのか？

うぜぇ
どうでもいいだろ

ばーか
クパンに決まってるだろクパンに

シパン！

宇宙刑事CPAN

クパーン逮捕だ〜

オライリージャパンのサイト見ると
「プログラミング Perl 改訂版」とあるのですが、
アマゾンで調べると、さらにVolume1とVolume2があるらしいのです。

前者が古くて、あとから二冊に分かれたとかなんでしょうか？
近くの本屋にはオライリーはあってもプログラミングPerlはないので確認できず、なのです。

中身全くわからずに二冊買うのはちょっと勇気いるので、
現状わかる方教えてくださいまし。。。

＞前者が古くて、あとから二冊に分かれたとかなんでしょうか？
そのとおり

二冊に分かれたのが最新のなんだよ。PODの話とかがかいてある。
一冊のは古いの。

オライリーのサイトはなんだかヘンだね。
二冊のが出る直前には予約ページみたいなのもあったんだけど、
それを引っ込めて、古いのがそのまま載ってる。

そうでしたか。。。
二冊に分かれるくらいだから結構詳しいのでしょうか。
大変そうだけど役に立つだろうし、気長に読んでみますです。

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

私もオライリーのことでなんなんですが、
"はじめてのPerl"を一通り読んで、
「これってホントに"はじめて"なんかい〜？！」
っと思いました。
Perl全体からすれば初めても同然なんだろうけど、
いきなり（ではないのですが、）読むにはつらいです。

特に"Ｃの関数と同じく…"という表現がなんども出てきて、
その都度、「Ｃ知らんねん！！」と心の中で叫びました。
Ｃ知らないでPerlやるのはどんなもんか、っていうのが世間一般なんでしょうか？

プロセスとかも使ったことはあったのですが、
あたかも"プロセスぐらい知ってるよね？"といった感じでした。
確かにそういう断り書きはあったのですが…。

Perl理解するには他の分野の知識も必要だと思うのですが、
大体どのような流れで学んでいけば良いと思われますか？

>>419
その本は Perl が初めての人向けの本なので UNIX とか C とか
そういうのは一般教養だという前提に立っています。
他の参考書見たら?
推薦するのは>>167で紹介した本。

Perl 勉強するなら初めは Windows2000/XP がインストールされたマシンの
電源の入れ方と切り方が分かっていればいいんじゃないの?

俺は当時、「初めてのPerl」を呪った。Cを知らない俺には難しすぎる内容。表題に偽りありってやつだ。
しかも金が無かったから、別のPerl本が買えなかった。後悔と絶望が心を埋めた。
で、しかたがないから一週間かけて、「初めてのPerl」に書いてあることを表にしようと思った。
そう、こんな感じでひたすら書いていったんだ。

my $hoge = @_; #@_は引数のリスト。スカラーとリストの代入。最初の要素だけが取れる。
my $hoge = shift; #shiftを使う方法。@_がひとつずれるので注意。
my ($foo, $bar) = @_; #リストとリストの代入。３つめ以降は取れない。
......

７日目の夕方。全部書き終わったとき、「初めてのPerl」の偉大さを悟ったよ。
そして、やっとたまったバイト代で、俺は「プログラミングPerl」を買ったのさ。

>>421
その表を売り出せ。再帰的再生産とでも言うのだろうか。

>>421
そのアプローチは正解ですな。あらゆる勉強の基本は写経です。
所詮人間の脳は泥臭い肉の臓器。泥臭い方法でしか知識は身につきません。
しかし7日で写経してしまうとは、あんたは真面目な人ですな。高学歴?

>>409
スィーペェン

C　P　A　N
ﾂｪｰﾍﾟｰｱｰｴﾝ

>>425
中学校もでてない、からあげ君がドイツ語使ってる
明日、雪だな。

ぷぷっ妄想逞しいな（わら
もうすぐ「PerlからRubyへの移行ガイド」という本が出るよ。
Perl->Pythonの本は既にピアソンから出てるし。

Rubyist >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Perler

プログラマという商売は特に保守的になってはいけないよね。
「PHP/Javaで出来ることはPerl+DBIで出来る」なんていう馬鹿は
「XMLで出来ることはLispで出来る」と言っている人と
同レベルだと思う。
さらなる高みを目指すならRubyを学ぶべき

XMLで出来ることはLispで出来るとおもうんだが。

↑ｐｐｐｐｐｐｐｐｐｐｐｐｐｐｐｐｐｐｐｐｐｐｐｐｐｐｐｐｐｐ

やっぱ世間はクズの集まりなんだろうか
Lisp=XML と公言するのがはずかしいという認識すらない。
UNIX天動説厨房といえる。多少なりともXMLを勉強したなら
namespaceとかencodingとかの重要性がわかってもよさそうだが。
XMLが世間で普及しない訳だよな、これは。
Ruby >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Lisp >>> Perl

当り前のことを今さらですが、Rubyは、すばらしい言語です。
ところが、あのコンピュータ界の癌細胞というべきアニオタの白豚Larryが作成したPerlは何でしょうか。
あまりにも、醜悪かつ悪質かつ脆弱ではありませんか、欠点だらけで、もはや言語としての体をなしていません。
また、Perlコミュニティの対応は、完全秘密主義かつ傲慢ではないでしょうか。
できれば、Perlような粗悪品を使いたくはありません。
しかし、まわりを見渡すとみんなPerlです、そうなると粗悪品を使わざるえないです。(特に仕事ですと)
なぜでしょうか？
Perlは、書籍の数が多いのです、簡単に使えるのです、たいしたことをしなければですが（わら
Perlは、Linuxでいえばタコ以下の人々に広く使われているのです。
Perlユーザを嘲弄し、排除してゆくのがわれわれRubyistの務めではないでしょうか？
そのための場として2chにおいて長らく活動してきた結果、「Perlは糞」
「Ruby以外の言語は糞」という認識は定着し始めてきたように思います。
同時に、GUIがなければ何もできない窓厨房の玩具であるDelphiスレッドにも執拗な攻撃を加え、
Delギコという生意気な固定を追い出すことにも成功しました。（かなり前ですが

これからもRubyの輝かしい未来のために活動を続けて行きたいと思いますので、さらなる声援と愛顧をお願いします。

オーノー
ワタシ、ニホンゴワカリマセ〜ン

>>426で相手してやったんで図にのちゃったな。
みんな、カラアゲは、放置しろ。

>プログラマという商売は特に保守的になってはいけないよね。
not保守的==荒らし
のから揚げくんてすてきだなぁ（藁。

Perlのなにが良いかって、「そりゃインチキだろー」って
とこがたくさんあるとこ。

>>419
『はじめてのPerl』が書かれた頃には、現在のように、Web関係で広
まって、419や429のような知能の低いうすらバカがPerlを使うことに
なるなんて想像もできなかったのかな。

>>436
ウスラ馬鹿でもUNIXを勉強していた、が正解。
生きた証拠が漏れや喪前。

作るなら、スクリプト言語板じゃないの？
PerlもRubyもPythonも一緒になれるし、
なんなら、隔離されてどっか逝ってしまったJavaScriptも混ぜられる。
どうよ？

ruby > perl
だとしても
perler > rubyist
は間違いないな。

カラアゲ君は本当にRubyをすばらしいと思ってるのかねえ??
文章もよく読むと「?」だし、
さらに一生懸命このスレにカキコしてるし。

俺がRuby最高、Perl糞って思ってたら、
こんなスレに出入りする時間も惜しいと思うけどな。

ほんとはRubyが大嫌いなやつなのでは?
もしくはまともなスクリプト言語を設計したいワナビーの能無し君が
Ruby作者にジェラシー感じてとか。
(ボクのほうがみんなに注目されるべきだ、みたいな)

>>440
君の考えは正しいと思うが、もう放置しようや。

>>440
そんなのPerlユーザの自作自演に決まってるだろ。
ホントにゲスな奴等だな。お前らって

Ｒｕｂｙ６ｓａｉｋｏｕ！

なかよくしなよ
どうせスクリプト同士
目くそ鼻くそだよ

なかよくしなよ
どうせスクリプト同士
目くそ鼻くそだよ

メインスクリプトに*.libをrequireしてPerlを走らせる、
requireせずにそのコードをメインスクリプトに記述してPerlを走らせる。

どちらが速い？ 前者はrequireする分、遅くなるだべか？

当たり前だろヴォケ

>>446
そりゃrequireした方が遅いには遅いでしょうが、大したことはありません。
そこまでタイミングがシビアなプログラムならば、そもそもperlで書いてはいけません。

実行中に、スクリプトに宣言が無いモジュールを読めるPerlは神。

スカラー変数内のバイナリデータのサイズを得ることはできないでしょうか？
文字数ならlengthでいけるのですが。。。

一度保存してstatで取得すればよいのですが、それだとサイズ取得が
保存後になってしまって、ちょと困るのです。

どうかアドバイスをくださいです。

そのための/tmpだ。

>>450
'\0'の事を言っているなら、テキストだろうとバイナリだろうとlengthで問題ないはずだけど。

>>450
binmode(FH);　でデータ取得して、length

今まで<STDIN>から読み取った後にchompをして
末尾の改行処理を行っていたのですが、
chompが削るのはLFだけなんでしょうか？
バイナリ見たらCRだけ残ってたのですが…う〜む。

あと、末尾処理を\r\n,\r,\nの三つで行うことがあると思うのですが、
どのコードが送られてくるかは何によって決まってるんでしょうか？
サーバーのOSか、それともクライアントの方が関係してるんでしょうか？

ちなみに私のOSは例によってWindowsです。。。

>>454
chop ならちゃんと削ってくれない？

どうしてprint関数は

print $hoge;

って括弧がいらなくて、私のつくた関数は

myfunc($hoge);

って括弧がいるですか？

予め定義されている場合は()は要らないだろ。
順序を変えてみろ

基地外でてきたから他行こ。Perlスレはたくさんあるでよ。

低レベルな話題はどこへ行っても相手にされないよ。

>>454
chompはその時の$/に入っている値を削る。このデフォルトが\nだ。
\r\nを削りたいなら、chompを呼ぶ前に$/にセットすれ。
どのコードが来るかは、そりゃ出力するプログラムで定義されているように来る。
Windows上でprint "moge\n"; と書けばその通りに送ってくる。

>>456
perlの仕様だ。ほとんどの組み込み関数は演算子のように使えるようになっている。
しかし分かりにくい時もあるので漏れはわざと括弧をつけている。

ちなみに括弧が必要かどうかと、その関数が「予め定義されている」か
どうかは関係ない。

↑perlsubでも読んだら？知ったか低脳馬鹿

ここの人って、レベルが低いですね（わら

しかしノイズが多いな

>>462
括弧無しでの関数呼び出すとき、その関数が実際に定義されている必要は無いよ。
宣言されている必要はあるけどね。

プログラマって、社会人になっても精神的にはまだ子供な人が多いんですよ

引数を省略すると$_を引数にとるような関数を自作するには、
どうしたらいいですか？

$_使えばええんとちゃうん？

>>468
分かりました。ありがとうございました。

？

>>470
$_ はグローバル変数だから、だと思う・・・

もしかしてSTDINに対してseekってできないの？

while ( <> ) {
print tell( STDIN ) . "\n";
}

ってやったら全ての行で -1 が返ってきてるみたいなんだけど…。

端末に繋がっている場合にseek/tell出来ないだけなんじゃ。
ていうか<>って<ARGV>の省略形なんでSTDINとは微妙に違うよ。

>>472
できますたよ。< で適当なファイルを読ませてみなされ。
一行ごとにカラムの数がちゃんと表示されますたよ。

あわわ。重要なことが抜けてた。すまぬすまぬ。

472のソースをhoge.plとすると
$ cat nantoka.txt | hoge.pl
とすると -1 が返ってくるのです。

474さんの通り
$ hoge.pl < nantoka.txt
だとうまく行くのは確認しています。
こういうものなのかな？。

>>475
#!/usr/bin/perl
open(MOGE, "cat test |");
while ( <MOGE> ) {
print tell(MOGE) . "\n";
}

でもだめですた。

perldoc -f tell:

The return value of tell() for the standard streams like the STDIN
depends on the operating system: it may return -1 or something else.
tell() on pipes, fifos, and sockets usually returns -1.

ということなので、パイプでは使えないんじゃないですか?

>>476
やっぱりだめなのかー。
情報さんきうでした。

っつーか手元の環境の perldoc あたりの ver が古くて
perldoc -f tell
しても >>476 の結果が出てこない。
鬱だ。

>>477
man lseekでもしてみろ。

質問です。
パターンにマッチした文字列は$&に入ると聞いたので
$string="1234+()";
while($string =~ /[1-9][0-9]*/g ){
$&+=1;
print"$&";
}
としても1235は表示されませんでした。
1235と表示されるようにするにはどうすればいいですか？
マッチした文字列を整数として扱うというのはできますか？

それネタ? うちのPerlでそれを実行すると

Modification of a read-only value attempted at a.pl line 3.

こういうエラーになるんだけど。
ちなみにこうすれば1235が表示される。

while($string =~ /[1-9][0-9]*/g ){
　$a = $&;
　$a+=1;
　print"$a";
}

$& に代入することはできない。

質問させてください。
私はperl 5.8.0を使用しています。

$smtp=Net::SMTP->new('localhost');
$smtp->mail("test");

とやっているのですが、
Can't call method "mail" on an undefined value at ./test.cgi line 9.
といわれてしまい、動いてくれません。
newに失敗しているのでしょうか？
どのように対処したらよいのでしょうか。

>>482
私のところも5.8.0だけどそのコードでエラーは出ないね。
まさかとは思うが、use Net::SMTP; を忘れているとか?
いや、それならnewで引っかかるか。

いろいろと会って謝りたいことがあるのだけど、
東京に出られないので（人ごみ恐怖症、躁鬱病、突然の意識不明などなどを
発症してしまっているので。入院も7割くらいの確率でする予定）
重症です(苦笑)
精神障害者手帳の申請をする予定。

ただ単にlocalhostにメール鯖が立ち上がってないだけだろ

>newに失敗しているのでしょうか？
当たり前だろヴォケ

質問です。
ある日付から1ヵ月後の日付を取得したいのですが、どのようにすればよいのでしょうか。
localtime(timelocal($ss, $mm, $hh, $d, $m, $y)+24*60*60);
で1日後は取得できるのですが、1ヵ月後が分かりません。
お願いします。

ちなみにそれって、1月30日の「一ヵ月後」は2月28 or 29日になるってこと?

>>487
1月30日の「一ヵ月後」は2月28日ですが…1ヵ月の定義が変な感じしますね…。
1月29日の一ヵ月後も2月28日になってしましますね。
集計のためのプログラムなのですが1日〜月末までを1ヵ月にすることにします。
とりあえず解決です。くだ質ですまん。
# ところで>>486って実際どうやればいいんでしょうかねぇ？

もしやと思ってちょっと調べてみたら、
CPANにDate::Calcっていうモジュールがあり、
http://search.cpan.org/dist/Date-Calc/Calc.pod

こういう関数を使うと楽らしいが、
($year,$month,$day) = Add_Delta_YM($year,$month,$day, $Dy,$Dm);

1/28〜1/31の一ヵ月後が2/28でいいなら、
ちょこっとif文とかを書き連ねて場合わけしたほうが速そうだ。

>>480
>>481
どうもありがとうございました。
ネタではないです。

Perl言語で、(x+1)の2乗やら、(x+y)*(x+2y)　などといった
計算を行うにはプログラムはどうすればよいでしょう？
もちろん2乗は「(x+1)**2」なんて事は承知してますが、
このまま計算するとモロにエラーｗ（当たり前）
ちなみに欲しい出力結果として、
前者は「x^2+2x+1」後者は「x^2+3xy+2y^2」。

分かる方お願いしますm(_ _)m

>>491
記号処理をやらせたいわけだろ?
どうすればいいってどういうことだ?
そういうプログラム書けばいいだろ。

>>489
おお！すっきりしました。
サンクス！（おそレスすまそ

>>492
そのプログラムが分からん＾＾；
モジュールとか使うのかな？

$_="(x+y)*(x+2y)";

s/\((-?[0-9]+|[1-9]*[a-z]+)\+?(-?[0-9]+|[1-9]*[a-z]+)\)\*\((-?[0-9]+|[1-9]*[a-z]+)\+?(-?[0-9]+|[1-9]*[a-z]+)\)/($1)*($3)+($1)*($4)+($2)*($3)+($2)*($4)/g;

print ;

>>495
それだと予め答えの形式がわかってないといけません＾＾；
例えば
[1+{(x+y+1)^2}{(19-14x+3x^2-14y+6xy+3x^2)}]*
[30+{(2x-3y)^2}{18-32x+12x^2+48y-36xy+27y^2}]
なんて計算はできません＾＾；
↑が実際やりたい計算ｗ

>>496
いつまでも一人で笑ってろ、ボケ!

>>496
自分では何か考えたの？

dcにでも食わせれば？

>>496
おまえ、「計算」の意味知らないだろう?(w

おお。さすがPerlスレ。程度の低い争いが延々と続く（わら

>>491-500
みんな馬鹿（わら

Perlユーザには計算は難しいらしい（わらわら

ところでPerlで文字式の計算はできんのか？ｗ
複素数はできるらすぃーが。

>>504
文字式の計算って展開とか因数分解のことか？

>>496
数式を処理する場合、通常以下の方法で行われる。
　式のパーズ
→数式の表現(ツリーなど)
→処理用フィルター(項のまとめ、因数分解、その他)
→出力

この過程でPerlの正規表現が役に立つことがあるのは確かだが、これ以上はスレ違い。
アルゴリズムスレとか、より適切なスレがあるだろう。

s/(?!\d)\w+/\$$&/g;
s/\d+(?=\$)/$&*/g;
s/\^/**/g;
tr/\[\{\}\]/(())/;
eval $_;

数式処理は「Math::ematica」モジュールを使うと楽だYO!

http://search.cpan.org/author/ULPFR/Math-ematica-1.108/ematica.pm

>>508
Mathematicaのインターフェースじゃねえか!

>>506
Mathの下にいろいろあるようだ。

eval 式;

じゃダメなのか？

間違えた。変数はすべて一文字か。

tr/\[\{\}\]/(())/;
s/(?!\d)\w/\$$&/g;
s/[\)\w](?=[\(\$])/$&*/g;
s/\^/**/g;
print eval($_), "\n";

ていうか、いいかげん気づけよ!!

こういうのは LISP で書くと楽そうだね。

>>514
まったく同じことを書こうとしていたよ。最近schemeを勉強し始めたばかり
なんだけどね。

やっぱ、Ｐｅｒｌじゃ書けないってか。
さすが糞Ｐｅｒｌ

実習でLispを使って微分のプログラムを書いたのを思い出しますた。
S式を使えばPerlでも楽に書けるかも、と言ってみるテスト。

＃しかしそれはPerlで書いたLispインタプリタに過ぎない罠。

ってかPerlなら文字列でごまかしごまかすぃでっち上げるのがCool。
Genericなんか見えやしねー
>>496は氏ね。アルファベットの貞二も無しに語るなヴォケー
交換法則だの分配法則だの作って無理やり通せー

お前ら民足ね

初歩ですいませんがperlのifっていうのはどう使うのでしょうか
↓のプログラムっていきなり３つ表示されちゃうんですが
100000000のときに1番目で
90000000のときに2番目で
80000000のときに3番目を表示させたいのですが
どこが間違ってますでしょうか？

$D=100000000;
for($i=$D;$i>=1;--$i){
if ($i =~ $D/10*10) {print $i." 1\n"; }
if ($i =~ $D/10*9) {print $i." 2\n"; }
if ($i =~ $D/10*8) {print $i." 3\n"; }
}

君はどんな参考書を読んでPerlをやっているのかな。

条件式のところの「=~」だけれど、この記号を使うのは、
右辺が正規表現のときなんだよね。
君の条件式だと右辺は数式ジャン?

で、その数式の意味も良くわからないな。

結論から書くと以下のようにすればいいんだけど、
もう少し桁数を少なくして試したほうが速いんじゃないかな。

$D=100000000;
for($i=$D;$i>=1;--$i){
if ($i == 100000000) {print $i." 1\n"; }
if ($i == 90000000) {print $i." 2\n"; }
if ($i == 80000000) {print $i." 3\n"; }
}

ネタっぽい気もしつつ、一応ﾏｼﾞﾚｽ。

激しく感謝
人のプログラムを改良しているので
自分よくわかってないのです。

よくわかってない人が改良だってさ(w

perltkの質問はここでいいでつか？
Win32/Activeperl の環境なのですが
Tk::dirtree でドライブを選択することはできないのでしょうか。

Ｐｅｒｌに乱数って有るんでしょうか？
二冊ほど参考書読んだのですが乗ってなかったので・・・・

Perlってのはイージーそうにみえるけど、
「他の言語の経験があるなら」イージーだというわけですね。

乱数は
$x = rand(); で、0以上1未満の乱数が、
$y = rand($z); で、0以上$z未満の乱数が得られます。($zは正の値)

本格的にやるなら、辞書っぽく関数の一覧がでてる参考書を探して買おう。
オライリーのポケットリファレンスは不親切だが安くて薄いよ。

active perl 5.6を使っています。
nslookupみたいに、ipアドレスからドメイン名を引く関数ってありますか？

それはgethostbyaddrのことじゃな。

ありがと

STDIN からの入力を全て吸い上げるのに、join("", <>) より速く簡潔な方法
があったような覚えがあるんだけど、誰か知ってる？

>>530
これはどう？
@line = <>;

>>531

単一の文字列にする場合のこと。
(改行を意識すると多分遅い。)
ちなみに、read(STDIN, $s, (1<<31)-1) は Out of memory だった(w

>>532
料理本に書いてある。見てくれ。

@unko("ウンコ","マンコ","ウンコ","チンコ","ウンコ");
っていう配列があってさ
ｳﾝｺ　:3ｺ
ﾁﾝｺ　:1ｺ
ﾏﾝｺ　:1ｺ
（50音順）
って表示させたいんだがどーすればいいですか？

全角カナ→半角ｶﾅ変換て簡単に出来たっけ？

Perlスクリプト内部から、他のPerlスクリプトを実行する場合どうすればいいですか？

>>534
ハッシュを使うとうまくいくかも

>>530
これでどう？

$/ = '';
$buffer = <STDIN>;

>>536
system, eval, requireのお好きな方法をどうぞ。

>>526

有難うございます
そうですね辞書っぽいの今度探して買ってみようと思います。

同じ名前の人が・・(,, ﾟ×ﾟ)
>>537
ああ　なるほど。
アリガトウ。

>>538

(･∀･) ｿﾚﾀﾞ!

>>538
> $/ = '';
> $buffer = <STDIN>;

{
local $/;
$buffer = <STDIN>;
}

のまちがい?

>>542
> local $/;

あ、漏れは local $/ = undef; って書くけど
perlvar のマネです

お前ら！なかなか面白い結果になりましたよ。

$ ls -la /kernel
-r-xr-xr-x　1 root　wheel　3582788　11/17 20:01 /kernel
$ /usr/bin/time perl -e '{ local $/ = undef; print <>;}' < /kernel > /dev/null
　　　　5.23 real　　　　 3.64 user　　　　 1.39 sys
$ /usr/bin/time perl -e 'print join("", <>);' < /kernel > /dev/null
　　　　0.17 real　　　　 0.14 user　　　　 0.03 sys
$ /usr/bin/time perl -e 'while (<>) { print; }' < /kernel > /dev/null
　　　　0.12 real　　　　 0.06 user　　　　 0.05 sys
$ /usr/bin/time perl -e 'while(read(STDIN, $_, 8192)) { push @a, $_; } print join("", @a);' < /kernel > /dev/null
　　　　0.06 real　　　　 0.03 user　　　　 0.03 sys
$ /usr/bin/time perl -e 'read(STDIN, $_, 99999999); print' < /kernel > /dev/null
　　　　0.03 real　　　　 0.01 user　　　　 0.02 sys
$ /usr/bin/time perl -e 'while (read(STDIN, $s, 8192) > 0) { print $s; }' < /kernel > /dev/null
　　　　0.02 real　　　　 0.00 user　　　　 0.01 sys

(FreeBSD 4.7R + Athlon 1G + メモリ128Mbytes)

$/ を変化させると異様に遅くなる。やはりお手軽な join("", <>) よりも速
くしたい時には read() を使うのがよさそうですな。>>533 も気になるので、
あとで料理本も読んでおきます。

どーでもいいベンチマークだな。

>>544
530ってすげー頭弱そうだから、事前に一度ファイルを読み込ませて
おくのすらやってなさそう。

とはいえ、最初のやつだと、領域確保、転写、領域確保、転写、領域確保、
転写……の地獄だから、遅くても不思議ではないが。

うわーなんかたたかれてるしー？

>>546
当然やってるって。そもそも 544 は時間順にソートしてあるだけだって気づかんの？
つか、検証すれば一瞬でわかるのに。

ああそうか。$/はundefでもいいんだっけ。
localはまぁケースバイケースだろうね。

>>544
変数への代入とファイル(/dev/nullだけど)への書き込みを
同列に扱われても、あまり参考にならないんじゃないかな。
それと、/kernelってよく知らないけどバイナリファイルでしょ？
普通はバイナリファイルに対して<>演算子は使わないから、そういう意味でもあまり参考にならないと思うよ。

最後にもう一つ。readで全てを読み込みたいなら、普通はread(FILEHANDLE, $buffer, -s FILEHANDLE)とする。
-sはstat(2)のラッパーで、ファイルやファイルハンドルのサイズを取得する演算子。

% command < file
では動くのに
% cat file | command
では正常に動かないスクリプトがあって困っています。

プログラムはメールのフィルタで MIME::Parser で

$parser = new MIME::Parser;
$entity = $parser->read(\*STDIN) or die;

という感じなんですが、パイプで渡すと正常に解釈されません。
(body に Content-type 行が入ってきたり、bodyの一部がヘッダとして解釈されてしまいます)

% cat file | command -

でもダメ？

>>548
> ああそうか。$/はundefでもいいんだっけ。

若干意味が違うようです。

　　　 $/　　　The input record separator, newline by default.
　　　　　　　 This is used to influence Perl's idea of what a
　　　　　　　 "line" is.　Works like awk's RS variable,
　　　　　　　 including treating empty lines as delimiters if
　　　　　　　 set to the null string.

> 変数への代入とファイル(/dev/nullだけど)への書き込みを
> 同列に扱われても、あまり参考にならないんじゃないかな。

最適化による影響(perl ではまず無いだろうけど)が出ると嫌だったので、何
らかの処理を入れたかっただけ。まあ length とかの方がよかったのは確かだ
けど、処理時間はほとんど変化しない。(±10%程度)

>>548
> それと、/kernelってよく知らないけどバイナリファイルでしょ？
> 普通はバイナリファイルに対して<>演算子は使わないから、そういう意味でもあま
> り参考にならないと思うよ。

日頃無茶な <> を使っていて、>>530 の質問もバイナリファイルを扱いながら
だったので。確かに <> を改行の少ない大きなファイルに使うと時間がかかる
というのはこれでよく分かりました。
(最初の例で ltrace を取ったら、realloc の嵐)

> 最後にもう一つ。readで全てを読み込みたいなら、普通はread(FILEHANDLE,
> $buffer, -s FILEHANDLE)とする。
> -sはstat(2)のラッパーで、ファイルやファイルハンドルのサイズを取得する演算子

STDIN が普通のファイル(パイプでもデバイスファイルでもない)という前提を
置いていいなら、もちろんそうする。(条件つきで分岐させるのが一番速いけ
ど、下手をすると >>549 みたいな現象も発生する。)

>>550
駄目でした。

ギャア！
すいません。
パイプで渡すと fseek() 出来ないんでした。

質問です。2桁の整数値、たとえば
"01","09","01","21"
"01090121"
としたいのです。各値は実は日付で整数演算で日付の
更新を行っていますが、更新されたあとの数字を繋げると
"19121"
のように整数2桁にはなりません。
どうしたらよいのでしょうか？

>>555
$a=1;$b=9;$c=1;$d=21;
$s=sprintf "%02d%02d%02d%02d", $a, $b, $c, $d;
print $s;

>>556
ありがとうございます(涙)

HOGEディレクトリをモジュール検索パスに追加することは出来たんだけど、そこ以外からのモジュール検索を拒否するには、どうすればいいの？

@INC = ('HOGE');

# Perl初心者です。
($dmy,$tel,@rain)= split(/,/,$line);
$ref_rain=\@rain;
$hash_rain{$tel}=$ref_rain;
# これを
$hoge=$hash_rain{$tele[$i]};

for($j=0;$j<155;$j++){
print "$j,$$hoge[$j]\n";
$s=$$hoge[$j];
print outf $j,$s;
print "$j,$s\n";
}

とすると、標準出力には表示できるのですが
ファイルに書き込まれません。どなたかお助けを。

>>560
outf はちゃんと開いて、ちゃんと閉じてるの？

＃>>561 すみません。もうすこし下まで再掲します。
open(out,">$outf") or die "Failed to open $outf \n";
print "Now Printing $outf \n";
# print out "(h)","Rain\n";
$hoge=$hash_rain{$tele[$i]};

for($j=0;$j<148;$j++){
# print "$j,$$hoge[$j]\n";
$s=$$hoge[$j];
print outf $j,$s;
if($s>0){print "$j,s=$s\n"};
}
close outf;
＃としております。

>>562
print out $j, $s;

close out;
じゃないの？

>>563
ありがとうございます、ってなんて恥ずかしいミス。
..................無駄にサーバの容量使ってしまいました。
逝ってきます................。

PerlでWindowsアプリ作る場合、GUIがネックになるのだが
Perl/TKみたいなしょぼいのじゃなくて何かないかねぇ？

565さんにちなんで。

Win32APIをコールして、ダイアログを表示したりしたいのですが、
参考になるプログラムをどなたかご存知ですか?
どこを探ればよいのですか?

>>565
これはどう？
http://www.bahnhof.se/~johanl/perl/Loft/
>>566
たぶんWSHでやったほうが簡単

>>567
あ、これ前にどっかで見たことあります。
英語苦手だから手出せなかったんだけど、
ちょっと挑戦してみようかなぁ。ＴＨＸ！

perl -i.bak ./hoge.pl ARGV0 ARGV1 /moge/*.txt

ってな感じでmoge以下の.txtに.bakでバックアップを取りつつ
ARGV0 ARGV1の引数を渡したhoge.plを適用したいんだけど、
どう記述すれば良いの？

$ARGV0 = shift;
$ARGV1 = shift;
# やりたい処理。

うーん、駄目ダス。ARGV0 ARGV1 が引数でなく
対象のファイルと解釈されてしまっているです

じゃBEGIN{}の中でshiftしてみ。

結局駄目ですた。perl のコマンドラインからだと外の解釈の方が早いみたい。
むー、perl内部で対象ファイルを全検索して作業させるか、オプションを書き込んだ
ファイルを別に用意してオプションは内部から読ませるかしないと駄目かなぁ・・・

>>573 どうやってる?

$ cat hoge.pl
#! /usr/bin/perl
BEGIN {
  $s0 = shift;
  $s1 = shift;
}
s/$s0/$s1/;
$ echo hoge > hoge.txt
$ perl -pi.bak hoge.pl o a hoge.txt
$ cat hoge.txt
hage
$ cat hoge.txt.bak
hoge

おぉ、できたダスよ。丁寧な指導ありがとうです。

たぶんARGV[0]とか特殊な変数使ったのが駄目だったかもです。

メールのmime encodeされたSubject: フィールド（=?iso-2022-jp?B?とかいうやつ）を
decodeするのはどんなライブラリを使えばいいでしょう？
定番Mime-toolsを使おうとして、
ttp://search.cpan.org/author/ERYQ/MIME-tools-5.411a/lib/MIME/Tools.pm
をみると、そのままずばり「how do I decode these encoded strings?」と
太字で書いてあるところがあって、MIME::WordDecoderを使えと書いてあります。
ところがこれは、「more-popular Western byte representations」だけみたいなんです。

iso-2022-jpのものをdecodeするには何を使えばいいんでしょう？

http://search.cpan.org/author/DANKOGAI/Jcode-0.82/Jcode.pm
の mime_decode。

超初心者で困っています。
マジレスでおながい。(ﾟДﾟ)
サーバーはapacheを使っていて
perlはActiveperlというものを使っています。
そこで以下の簡単な足し算の式が本に載っていたので
やってみたんですけどエラーが出ちゃって、実行
できません、何故でしょうか？
よろしくお願いします。

#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
$number1 = 10;
$number2 = 5;
$answer = $number1 + $number2;
print "$number1 + $number2 の答えは$answerです。;
_END_

>>579

> print "$number1 + $number2 の答えは$answerです。;

"が閉じてないがほんとに本のまま打ち込んだのか?

>>580
あっここなんですか。( ﾟДﾟ)ﾎﾟｶｰﾝ
はい本のまま打ちこみました。
今、本で確認してみましたけど
閉じてありませんでした。
また何か会ったらよろしくお願いします。
ありがとうございました。

>>580
言われた通りに修正して更新してみたら
本当にできました。ありがとうございました。
尊敬もんです。(・∀・)ｶｺｲｲ!
ちなみに書籍名は
「カスタマイズで覚えるまるごとPerl＆ＣＧＩ」
というものです。藁

>>579 >>580
板違い

ActivePerl(5.8)で, 4G以上のファイルに対して以下のようなコードがうまく動かないんだけど, バグかな?

open(FH, '>>largefile.txt');
print FH 'a';

printの手前に seek(FH, 0, 2); を加えれば, とりあえず何とかなるけど。

>>584
その部分でけじゃなんとも言えないよ

>>584
もしもWin9x系を使ってるなら、ファイルシステム(FAT32)の限界だと思われ。

正規表現でつまりますた。

/a/b c d/e f g/h i j/k l m

という文字列から

b c d

だけを取り出したいので

/^\/a\/(.+)\/.+/

とやって$1を参照すると

b c d/e f g/h i j

とでてしまいます。　どうすればいいんでしょぅか・・・

age

事故レスだけど正規表現でなくてsplitつかえば
即解決なんスね・・・

>>587
後方参照指定を / 以外の文字クラスとするか、非欲張りマッチにする。

/^\/a\/([^\/]+)\/.+/
/^\/a\/(.+?)\/.+/

>>590
すごい。ありがとうございます。
非欲張りマッチなんてしらなかったです。

ためしにググってみたら５件しかヒットしなかったです。
レアなんすかね。

なあ、CGIのソース見るとグローバル変数使いまくりなんだけど、
そうした方がプログラムが速くなるとか何か理由があるわけ？
おれには理解出来ないんだけど。
localとmyを一切使わないプログラムってどういうのよ。

>>592
かわいそうなソースしか見てないんだね

>>593
やっぱおかしいだろ？おれは何か特別な理由があるのかと
おもってたけど単なるヘタレコードなだけだろ？

まったくいやになるよな・・・

>>594
掲示板やカウンターのCGIで使われている理由。

　厨　の　質　問　を　減　ら　す　た　め

まああれだ、みてて気持ち悪いよな。

なるほど。君頭いいね。localとかmyを使わないでおくと、localとかmyの勉強をしなくてすむんだね。

>>595
なんとなく納得…

だってよ、一応サブルーチンに分けてはあるけど
パラメータが一つもねえものしか、ねえんだよ（泣

そしてmyやlocal(これはまあ使わなくてもいいけど、、)
が一つもねえんだよ。。。全ての変数がグローバル変数。

こんなのどうやって直せっていうんだよ。
コードサイズはまあCGIだから多くがHTMLソースだとしても、
それでも2万行ぐらいある。はぁ。。。氏にてゑ

いったいどんな本で勉強したらああいったコードが出来上がるわけ？
おれはラクダ本しかもってないが、あれに書いてあるサンプルコードは
ちゃんと関数にはパラメータを渡してるし、スコープもなるべく狭い
範囲に限定するようなものになってる。

糞本書いてるやつは死ね

に、二万行??

厨が書いたんなら、10個に分割できるスクリプトが直列に並んでるだけじゃないのか?
ガンガレ。

CGIとHTMLの本は悲惨な内容のものが多いよ。
CGIだととりあえず動いてしまうから始末に終えないんだよね。

部分的に中途半端に直すよりは、プログラムそのものを理解したほうがはやいと思う。
VBで似たような状況に陥ったけど、そのときは全ての変数について徹底的に洗い上げたよ。
まあyyとかhって変数がグローバルで重要なデータに使われてたりして愕然としたわけだが。

PF_INET6
や
AF_INET6
を使うにはどうすれば良い？

Perlのバージョンは5.6です。

>>591
nongreedy

>>603
thanks.

たしかにnongreedyでググるとたくさんヒットしますね。でも日本語ページはヒットしないな。
日本のperlプログラマのあいだではやっぱりレアなんですかね。

>>604
どうだろな。結構使う機会あると思うんだが。

>>604
普通に使ってると思うが・・・
単語が浸透してないだけじゃないか？
漏れは「最短マッチ」と呼んでる。
http://www.google.co.jp/search?q=%E6%9C%80%E7%9F%AD%E3%83%9E%E3%83%83%E3%83%81&ie=UTF-8&oe=UTF-8&hl=ja&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=lang_ja

>>606
なるほど

thanks

自分の場合、最短一致だったり…

だから最短マッチじゃ間違っているんだってば。

>>609
「だから」はどこにかかってるんだ？
どこにも正しい間違いの話は出ていないが？

CGIの話で申し訳ないんだが、
perl（5.00503）のCGI.pmで

CGI::ReadParse(\%FORM);

とやった後に、$FORM{'〜'}の中身をどうやっても空にすることが
できないんだけどこれって仕様？

CGI::ReadParse(\%FORM); #この時点で$FORM{'url'}に値が入る
$FORM{'url'}='';
print("Content-type: text/html\n\n");
print($FORM{'url'}); #空になっていない。

↑ごめん。やっぱ板違いなので
Web プログラミング板に行って来ます。

undefしてもだめ？

greedy：欲張り、貪欲

禁欲マッチ

スニーカーぶるーす

>>613
undefしても駄目でした。

$FORM{'url'}='hoge';

みたいに空以外の文字列だとちゃんと入るのが不思議。

>>617
んー？Perl5.6とか5.8とかで試してみれば？

>>602
Socket6 モジュール入れてみた？

【バージョン】
$ perl --version
This is perl, v5.8.0 built for cygwin-multi-64int


【ソース】
use CGI;
$ENV{'REQUEST_METHOD'} = 'GET';
$ENV{'QUERY_STRING'} = 'url=http://www.google.com';
CGI::ReadParse(\%FORM);

print "1 ",$FORM{'url'},"\n";

$FORM{'url'} = 'change';
print "2 ",$FORM{'url'},"\n";

$FORM{'url'} = '';
print "3 ",$FORM{'url'},"\n";



【結果】
$ perl hoge.pl
1 http://www.google.com
2 change
3

>>620は>>617宛てです。

うちのPerl5.8では普通でしたよ。

>>620
5.6.0だと確かにクリアされない。

delete($FORM{'url'});
が必要のようだ。

バイナリファイルの編集で、
先頭から何Byte目から何Byteを削除したいときってどうすんの？

ﾌﾟ >>616

>>624
・substr() 使う。
・読み出し書き込みのループの中で「何Byte目から何Byte」は書き込みをスキップ。

>>624
こんな感じでどうだ?
バイナリ値が入ったスカラ、オフセット、長さを指定して
$bar = bin_delete($foo,3,8);
とかで動くはず。
何バイト目は、オフセット指定な
1バイト目だったら0を指定で

sub bin_delete ($$$)
{
　my $bin = shift;
　my $offset = shift;
　my $length = shift;
　my ($result,$bin_length,$i,$j);

　$bin_length = 8 * length($bin); # 8bit char;

　for($i=0;$i<=$offset;$i++) {
　　vec($result,$i,1) = vec($bin,$i,1);
　}

　for($j=$offset+$length+1;$j<$bin_length;$i++,$j++) {
　　vec($result,$i,1) = vec($bin,$j,1);
　}
　return $result;
}

すまん、bit単位だった。
vec() のオフセット8にして、あと適当に直せばByte単位で動くよ(多分

>624
MSDOS, Windows系はbinmode()を使うことを忘れずに。

ん〜。
例えば/tmp/binってファイルがあって、
このファイルの中身が

00 01 02 03 04 05 06 07 08 09 0a 0b 0c 0d 0e 0f
10 11 12 13 14 15 16 17 18 19 1a 1b 1c 1d 1e 1f

だったとします。
このファイルの8byte目から16byteを削って

00 01 02 03 04 05 06 07 18 19 1a 1b 1c 1d 1e 1f

ってデータに書き変えたいんです。初心者ですみません。

>>630
ファイルって考えるから混乱するんだ

イ $hoge にファイルの内容を読み込み
ロ $hoge の8〜16Byte目を削った $fuga を作る
ハ $fuga をファイルに保存

イとハは出来るよな? ただファイル扱うだけだから。

あとは、ロの部分を何とかしてやりゃいい。
$fuga = substr($hoge,0,8); # 0番目から8個(7まで)
$fuga .= substr($hoge,26); # 27番目から最後

これでいいと思うが、substr()がバイトストリームちゃんと扱えるかどうかは自信ない

COBOL風の書式指定で数値と文字列を相互変換するようなモジュールが無いでしょうか？

toFix("9(3)V9(3)", 1.25) → "001250"

toFloat(9(3)V9(3)", "001250") → 1.25

みたいなかんじ。

$fuga = $hoge; # 上記例に合わせて $fugaを用意
substr($fuga,7,16) = undef;

>>630 って9Byte目から16Byteを削ってないか?

>>630
一回ファイルを読み込んで
編集後の内容を書き込むといったイメージですか？
わかりますた。

>>633
1番目のByteって1byte目っていうですかね？
それとも0byte目っていうんですかね？
そこらへんよくわかってないんですんません。

>>635
1番目のByteは1Byte目

>>630 の例だと
1Byte目 は '00'
2Byte目 は '01'
(略)
8Byte目 は '07'

9Byte目の'08' からを削ってないかい?

あと、オフセット(一番最初からの位置/距離)は0から数えるよ。
最初(1バイト目)から5バイト ： オフセット0, 長さ5
3バイト目から8バイト ： オフセット2, 長さ8
8バイト目から16バイト： オフセット7, 長さ16　（>>633の例)

オフセットは「対象の前に幾つデータがあるか？」って考えると分かりやすいかも。

>>634
>一回ファイルを読み込んで
バイナリファイルって大きさどのくらいだ？
あまり大きすぎるなら全部読み込むのはメモリ的にきついかも。

>>636
ありがとござます。
おっしゃるとおりです。
seek()とかで0byte目とか指定するから0byteから数えておりました。

>>631
> これでいいと思うが、substr()がバイトストリームちゃんと扱えるかどうかは自信ない
問題ない。

>>637
容量的には大きくないけど
大きい場合にはいい方法ありますか？
open()で開いて
チョコチョコっと削除して
close()
みたいなやりかたってないんかな？
全部メモリに読み込まずに。

>>640
ブロック単位に、seekして読んではseekして書き込みの繰り返しだろうな。

>>640
・読み出し書き込みのループの中で「何Byte目から何Byte」は書き込みをスキップ。

>>640
あるいは別ファイルに書き出してからコピーするかrenameするか。

>>640

# m byte 目から n byte を削除として。
open IN, "<source";
open OUT, ">target";
$len = (stat(IN))[7];
for ($i = 1; $i <= $len; $i ++) {
$c = getc(IN);
print OUT $c if ($i < m || $i >= m + n);
}
close OUT;
close IN;

ループで毎回 if で判定するのが気になるならループを二つに分けて間で seek() する。

ところで、ラクダ本3版って買うべき？　2版は持ってる
1(要らない)〜5(絶対買うべき)　で言うとどの位かねぇ

3

予想通りの答えだ（ｗ
金に余裕出来たら買うか・・・

「オブジェクト指向Perlマスターコース」て訳がだめでつか？やっぱ原書嫁？

ラクダ本もカワセミ本も読んだことないけどそこそこPerl使えてるよ。
「すぐわかるPerl」から入ってあとはmanの邦訳で。

俺もそこそこは使ってる
search.CPAN と perldoc だけで何とかなるけど
思想的な部分はラクダ本でも読んでおかないと

そんなこと言われると俺も読んでみたくなるじゃないか（ｗ
でも2版と3版でそんなに内容変わってるものかな。

>>650
俺は、perl なんてしょせん「そこそこ使えれば十分」な用途にしか使わないから。
ラクダ本とか見たことない。
思想的に他の言語にそんなに違わないと思うけど ? (少なくともそこそこ使える範囲ではね。)

>>632
まずないと思う。
COBOL はあまり知らないのでなんともいえないけど、自分で作ってもそんなに難しくないと思う。

思想：TMTOWTDI

思想＝LarryのJoke いや、まじで

>653
"9(3)V9(4)だったら sprintf("%03.4f"とかして作った後に '.'を消去して
作ってる。
逆は。後ろから3桁の次に '.'を挿入してから数値として評価。

今のところ有効桁数を越えるような桁数が出てこないのと
9(9)
9(9)V9(9)
という２種類しか出てないからなんとかなってるんだけど。

>656
ｽﾏｿ
後ろから4桁の次、の間違い。

Perlスクリプト内で一旦外部のプログラムを実行した後、
その実行によって得られた戻り値を取得する・・・
といった処理は可能だろうか。
色々調べたんだが結局駄目だった。

パターン修飾子の /s と /m の違いがわかるいい例文はないですか？
お願いします。

>>658

$str = `date`;
@str = `ls`;
$exitcode = system('cp foo bar');

とかじゃ無いのか?

>>659

$str = "aaa\nbbb\nccc";
print "/s match\n" if $str =~ /a$/s;
print "/m match\n" if $str =~ /a$/m;

実行してみ

>>661
ありがとうございます。
わかりますた。m(__)m

>>660
申し訳ないがよくわからん・・・

例えば実行中のスクリプトから"test.exe"を引数"1"を渡して実行する。
"test.exe"では受け取った引数"1"に応じた処理を行い、実行結果を戻り値として
Perlのスクリプトのほうに戻す。
とりあえず受け取った値を出力する。

といったようなことをしたいわけだが・・・。

>>663
system LIST
"exec LIST" とほとんど同じですが、まず fork を行ない、 親プロセスではチャイルドプロセスが終了するのを wait します。
exec の項で述べたように、引数の処理は、引 数の数によって異なることに注意してください。
返却値 は、wait() が返すプログラムの exit 状態です。
実際 の exit 値を得るには 256 で割ってください。
このド キュメントの exec の項も参照してください。

>>663
何言ってるか分からん
test.exe が返す 0(成功) -1(失敗)　のようなexit codeを受け取りたいのか
それとも test.exe を実行したときに画面に表示される文字列を受け取りたいのか
どっちだね

わかり難くてすまん。
どっちと言われれば後者のほうに当たる。

>>621
ありがとうございます。そうですか、
5.8.0入れてもらうにはレンタルサーバー側に言わないと駄目ですね。

>>622
やはりそうですよね。
$FORM{'url'}=~s/^http:\/\/$//;
とやろうとしたのですがマッチしてもクリアされないん
ですよねぇ。

いた違いなのに答えてくれてありがとうございました。
（かしこ）

>>666
$str = `test.exe 1`;

リストで受け取りたいなら
@str = `test.exe 1`;

基本中の基本だぞ、これを探せない方が難しい

>>667
>>623は見た?
Perl 5.6.0自身のバグなのか、5.6.0のCGI.pmのバグなのかは追い切れてないが。

>>669
ただのハッシュにCGI.ｐｍが関係あるの会？

>>667
$a = $FORM{'url'};
$a =~s/^http:\/\/$//;
FORM{'url'} = $a;
だな。

>>670
>>611,613,617-623

ReadParseでtie(%in,CGI)してるので「ただのハッシュ」というわけでもない
みたいなんだな、これが。

>>619
>Socket6 モジュール入れてみた？

うん。
OSがFreeBSDなんだけど、/usr/ports/net/p5-Socket6
で普通にmake installしただけ。

use Socket; なのか use Socket6; なのかわからん。

取り敢えず実行すると
Socket: Protocol not supported at file line11
と表示されてしまう。

file line11 は
socket(S,PF_INET6,SOCK_STREAM,0)||die "socket: $!";

どうなんでしょう?

672のエラー文だけど、
use Socket; でも use Socket6;
でも同じね。

>>673

use Socket;
use Socket6;

ではどうだい？

>>CGI.pmのReadParse

CGI.pmのバグだと思う。(私の環境にあった)version 2.752だと問題ないみたい。

でもそのReadParseに渡したハッシュって結局param()メソッドのラッパーにすぎないから、
cgi-lib.plとの互換性以外は無意味な気がする。
値が複数あると一々split /\0/しなきゃいけないから面倒だしね。

ある文字列に、任意の文字(正規表現)が幾つ含まれるかを求めるにはどうしたらいいだろうか。

$str に元の文字列、$countに結果を返すとして

1文字の場合
$str = $count =~ tr/A//;

複数文字/正規表現の場合
@tmp = $str =~ m/PATTERN/g;
$count = @tmp;

1文字は多分これが一番短いと思う( $_ は除く)
他の場合は、もっと短く出来ると思うんだが、上手い方法が思いつかない
$count = scalar ($str =~ m/PATTERN/g);
じゃダメだった（なんでだろう・・・）
何か慣用句的な使い方があった様な気もしないでもないんだけど

誰かアドバイスおねがいします
効率/コードの簡潔さ　共に知識不足でこれ以上考えられないっす。

>>676
s///でやれば痴漢した数が帰ってくるはずだけど。。

$count = $str =~ s/PATTERN/$&/g; すりゃ良かったのか・・・
tr使っておきながら「マッチカウントだからm//だ」と思い込んでた自分が恥ずかしい・・・(鬱

スレ汚しｽﾏｿ

あるスクリプトからrequireした2つの.plファイルがあって、
片方の中にあるサブルーチンから、
もう片方の中にあるサブルーチンを呼び出したい。

どうすればいいのでしょう？
俺のやり方がおかしいだけなのかな？なんか出来ない。

そのrequireするふたつのplファイルのそれぞれの頭ンとこに
package hoge;
とか
package fuga;
とか書いておいて、
一方からもう一方を呼ぶときにたとえば
&hoge::fuga();
というふうにするんだったと思ったが。

requireする順序に関わらず双方向で呼び合う時にはなにか工夫が要るかも?

# req.pl
require 'a.pl';
require 'b.pl';
a();
# END-----

# a.pl
sub a
{
　print "A.pl\n";
　b();
}
1;
# END-----

# b.pl
sub b
{
　print "B.pl\n";
}
1;
# END-----

>perl req.pl
A.pl
B.pl

問題無いけど？

ありがとうございます。
>>680
名前空間ですか。それは使ったことがありませんでした。やってみます。

>>681
ホントでつか？

できますた。

=cut

=cut

が変なところまで入り込んでました…。
ｽﾏｿ>>680>>681

ついでだから補足

a.pl で require 'b.pl';
b.pl で require 'a.pl';
main.p; で　require 'a.pl'; require 'b.pl';

としても、ちゃんと1回だけ読んでくれるから問題無いらしい

Cの#includeとは違って、"require"だからね。
あたりまえっちゃーあたりまえか。

全ての*.pmで require "config.pl" して、1回しか読み込まれず、
config.pl内で定義した$CONFIG_HOGEが使えなくて焦ったことがあります。

PHPだと require(), require_once() が別々なんだよな。
後から出来たのに、何故？
include(), include_once() もあるから余計ややこしい

>>674

でけた。さんくす。

Perlで複数回読み込みたいならdo "file" ってのがあるよ。

Linux(RH8)にPerl/TkをインストールしたかったのですがCPANから取って来れません。

# perl -MCPAN -e 'install Tk'
ftp.perl.org をDNSに問いあわせています... 失敗しました: ホストが見つかりません

nslookupの結果は
Non-authoritative answer:
ftp.perl.org canonical name = ftp.cpan.ddns.develooper.com.
Name: ftp.cpan.ddns.develooper.com
Address: 142.132.1.82

perlのインストールについて
WINDOWS９８で、perl(日本語パッチも当てたい)をインストールしようと思っています

あの、perlの本やネットでインストール方法を探したんですが、
www.activestate.com/Products/Download/Get.plex?id=ActivePerl&_x=1
からインストールするようなことは分かったんですが、
WINDOWS９８のリンクを押すと、Apixxx.exeじゃなく
InstMsiA.exeのダウンロードが始まってしまって困っています。
どうやってみんな成功したんでしょうか。
まだ日本語パッチファイルもインストール方法を調べないといけないと
いうのに、本体のダウンロードさえも出来ていないのは情けないなと思ってるんですが。

なんとかっていうマイクロソフトの新型インストーラーがあって
まずそれをｲﾝｽｺしてからperl本体を(拡張子msiだったようなきがする)
ｲﾝｽｺするんだよ。
でも日本語がどうのっていうんなら、先にそのやり方調べたら?

うぉ、嬉しいなぁー692さん、ありがとうございます。
日本語のやつも調べています。日本語の奴は、まずActivePerlをCドライバーの下に
インストールして、そのあとインストールすることがわかりました。
692さんが言ってるなんとかっていうマイクロソフトの新型インストールは
さっき僕が言ってたInstMsiA.exeのことな気がしてきました。
だったらperl本体もさがさないといけないと思って探しているんですが、
ActivePerl 5.8.0 build 804 っていうのがそうですかね。
って思ったんですが、１１メガ以上もある。
ソフトってこんなに大きいんですか？！！

君が示したページ、
http://www.activestate.com/Products/Download/Get.plex?id=ActivePerl&_x=1

には「Perlをインストールするのに必要なもの」が書いてあるんだよ。

Windows98の人は、「Windows Installer 2.0以降」が必要ですよ、って。
で上のほうの「General」には、55メガバイトぐらいディスクの
空きスペースが必要だよとも書いてあるね。

日本語のやつのにどういう説明が書いてあるかわからないけど、
バージョンをちゃんと確認しないとね。

5.8.0は結構最近出たやつだよ。
って、5.8.0出たんだな。日本語のファイル名とかちゃんと扱えるだろうか。
ちと心配。

質問！！
perlでEXCELのpersonal.xlsマクロを起動方法って
どうやればいいんですか？
誰か知ってたら教えてください。

>695
$Excel->Run("マクロ名")じゃだめなわけ？

696様
ありがとうございます。でも、それは試したのですが
動かないんですよね。色々検索してもpersonalマクロの起動
方法は見つからないんですよ。
大変困ってます。

694さん、おっしゃるとおりでしたよ！
今はそのインストーラをインストールし終わって、これから
本体を探すところです。でも、１１Mバイト以上もあるから、かなり時間が
かかりそうですよ！
うち、３２キロ回線だから、遅いらしくて…

$a = "abc(de)fghi";
$b = "(de)fg";
があったとき、
$a = "abchi"にしたいのですが、
$a =~ s/$b//;
とすると()がまずいのかうまくいきません。
何かいい方法はありますか？

$a =~ s/\Q$b//;

>700
できました！
ありがとうございます。

クロージャってどういうときに使うとありがたみがでるもの？
ProgrammingPerl3edにはメンバ関数への参照の作り方のサンプルが
載ってるけど、他には何かあるかな？

よくサンプルとして使われる例としては、カウンターメーカーとか。

sub make_counter{
my $count = shift;
return sub{ $count++ };
}
# カウンターを作る
my $counter1 = make_counter(1);
my $counter2 = make_counter(10);
# 使う
print $counter1->(); # 1
print $counter2->(); # 10
print $counter1->(); # 2
print $counter2->(); # 11

(続き)
ありがたみは「手軽なオブジェクトの代用品」ってところかな。
上の処理をクロージャなしでやると面倒だし、
Perlの場合はフィールドに対するアクセス制限が出来ないので危険でもある。

{ #まず、カウンタークラスを定義して…
package Counter;
sub new{
my $class = shift;
bless{ count => shift } => $class;
}
sub next{
$_[0]->{count}++;
}
}
# カウンターを作る
my $counter1 = Counter->new(1);
my $counter2 = Counter->new(2);
# 使う
print $counter1->next();
# 後は同じ

>ありがたみは「手軽なオブジェクトの代用品」ってところかな
>Perlの場合はフィールドに対するアクセス制限が出来ないので

なるほど。自分としては状態を持った関数というものをどういう
フウに使えばいいのか分からず考えてました。
オブジェクトが値に関数が付いているのと逆で関数に値がついているというかね。

本にも書いてあるようにLispから拝借した概念ならLisp風のコーディングに
ついて勉強すればいいのだろうけど、どうもそこまでは。。。

もっといろいろと勉強しないとだめですな。どうもありがとうございます。

C風の/*〜*/のコメントとC++風の//〜\nのコメントを同時にファイルから剥ぐ
正規表現を探していますが見つかりません。C風のコメントを剥ぐだけなら
見つかるのですけれど。誰かが作っていても良さそうなものですがご存知ない
でしょうか？お教えください。

おながいします。

>>706

s@//.*$@@;
で良さそうなもんだが

>>706
文字列リテラルなどを考えると、C風のも正規表現だけでは不可能。

ということにしたいんですね？:-)

# closureのテスト
# funcの呼び出し。無名関数への参照を取得
# 無名関数の参照呼び出し。
# funcはレキシカル変数を無名関数に渡すためのラッパーとして機能する。
sub func
{
　　my $func = shift;
　　print "func1 end\n";
　　return sub{ my $h1 = $func . shift;
　　　　　　　　print "h1 end\n";
　　　　　　　　return sub{ my $h2 = $h1 . shift;
　　　　　　　　　　　　　　print "h2 end\n";
　　　　　　　　　　　　　　return sub{ my $h3 = $h2 . shift;
　　　　　　　　　　　　　　　　　　　　print "$h3 \n";
　　　　　　　　　　　　　　　　　　　　print "h3 end\n";
　　　　　　　　　　　　　　　　　　　};
　　　　　　　　　　　　 };
　　　　　　 };
}
print "make h1 ref\n";
$h1 = func("aaa ");
sleep(1);
print "make h2 ref\n";
$h2 = &$h1("bbb ");
sleep(1);
print "make h3 ref\n";
$h3 = &$h2("ccc ");
sleep(1);
print "call h3 ref\n";
&$h3("ddd ");

このような関数を作ってクロージャのテストしてみたのですが、
出力がなぜか思うようになりません。
これはなぜなんでしょうか？全てが最後にドバッと出てきてしまいます。

あ、すみません。勘違いでした。失礼しました。

気が合うな。クズ。

>>708

$_にＣのソース全てが入っているとして
s#/\*[^*]*\*+([^/*][^*]*\*+)*/|("(\\.|[^"\\])*"|'(\\.|[^'\\])*'|\n+|.[^/"'\\]*)#$2#g;
でＣのコメント削除ができるらしいのです。実際それっぽく動きます。

で、これを//〜\nまでの削除に対応させるべく拡張しようと思っていたのだけれど、
深みに嵌まっていやんな状態になって、車輪の再発明するのもなんだな、と思っての質問です。

ちなみに上の正規表現はこのサイトから拾って来ました。
http://www.tech-web.net/perlmania/perlfaq6.html#How_do_I_use_a_regular_expressio

Jeffrey Friedlレベルのperlハッカーキボン

>>714
>>707

釣られて見る X-D
>>714
/*〜*/ 式の場合、改行を跨げるから s スイッチつけて
全体一気処理しつつ、最短マッチで置換するのがよさげ。
// の場合は行末までがコメントだから >>707 のが最善。
性質違うから無理に1linerしないほうが簡単では？
＃てか、あまり異種コメント混在ってのが美しくない気も…

>>714

>>707 すら理解出来ないのにハカーキボンとか言ってんじゃねぇよ
正規表現勉強してから物言えや

リテラル文字列とかあるからねぇ

突然ですが、環境変数「PERL5OPT」をセットしてあると
Activeperl5.8のインスコ失敗しませんか？（Win版）
スレ違いなら失礼。

なんてセットしてんのよ?

wxPerl　OSXで動いた人いる？

日本語関係がうまくいかねー
euc、jis、sjis
どれを使えばいいですか？

euc

>>722
euc

>>720
-MWildですが。

Perlヲタってソースコードまで見るやつが少なすぎる気がするんだけど気のせい？

sub retref{my $val = 'まんこ'; return \$val}
print ${&retref};
こういうのはアリなのかなあ

>>727
わざわざリファレンス返す理由は?
スカラー返してから、必要ならその返り値のリファレンスを取った方が良いと思うけど
クロージャなら >>703 あたりを参照

sub retref{
my $a = 'foo';
return \$a;
}

$b = &retref;
$c = &retref;
$d = $b;
print $$b . "\n";
print $$c . "\n";
print $$d . "\n";
$$b = 'bar';
print $$b . "\n";
print $$c . "\n";
print $$d . "\n";

実行結果
foo
foo
foo
bar
foo
foo

ごめん、手で打ったら間違った

foo
foo
foo
bar
foo
bar

>>728
結局Dynamic Scopeだろうが、Lexcal Scopeだろうが、
参照カウントを数えて、ゼロになったらGCで
回収するということに変わりはないんだよね？
myはシンタックス上のものであって、
メモリ管理はまた別の話になると見えますね。

print "おにぎり";

この
「おにぎり」って文字列は、
jis ですか？
euc ですか？

>>731
ソースファイルのエンコーディングによる

態度悪かったですか？すんまそん。

>>707 and >>715
回答していただいたのはありがたいんですが、やりたかったのは>>706に書いた
通り、C風とC++風のコメント混在したソースからのコメント除去なんですよ。

>>708 and >>718
Jeffrey Friedlの正規表現では、リテラル中に含まれる例外への対応が不十分
だと言う事ですか？詳細キボン。

>>716
御意。>>714のスクリプトでは$/ = undef;として全ての行を一気読みして同様の
事を実現していますね。行末は$で実現させないで\nでいけると思います。
仰る通り1linerにする必要は有りません。でもC風のコメントの中にC++風の
コメント開始のトークンが現れたり、その逆もあるし、正規表現で実現させるには
一気にやるしか無いですよね？Cのコメント除去後C++のコメントの除去、もしくは
その反対ではダメなんですよ。（てかこの辺の説明は不要ですよね？）
課題としてはメチャ難しい類に入ると思います。

本来の目的自体はCのプリプロセッサを通すという、真っ当な方法で解決して
しまいました。あとは単なる技術的な興味です。お騒がせさまでした。

(ﾟДﾟ)ﾊｧ?

PerlでCのdefineとか
アセンブラのマクロみたいなことってできる？

>>733
>714のREは|で区切って順に
#コメント|文字列|文字|改行|それ以外#
ってなってるんだから、そこに>707を突っ込みゃいいだろ。

Socketモジュールを使って inet_aton と inet_ntoa で
ホスト名からIPアドレスを取れるじゃないですか。
その逆のIPアドレスからホスト名を逆引いてくれるコマンド
教えてください。

>>736
そんな簡単な話じゃないような気がする。
それだと //**/ とかに対応できなくない？

>>738
じゃこうかな。mオプションもいるか?
s#/(?:/.*|\*[^*]*\*+(?:[^/*][^*]*\*+)*/)|("(\\.|[^"\\])*"|'(\\.|[^'\\])*'|\n+|.[^/"'\\]*)#$1#g;

>737
gethostbyaddr

>>738
俺が言えるのは、そんな気の狂った文字列を書くなという事だけだ。
健闘を祈る

Perlプログラムが狂気だと？
それは違うな。
正規表現記述にxオプションを使わない奴が狂っているだけさ。
Perlは己の狂気を映す鏡。
己に臆すは臆病者よ。
はははーっ！

このスレは>>742の狂気を映す鏡になりますた。

狂ってるのは
//**/
こういうコメントの事だろ

こういうのはどうだ?
int cxx_comment = 1 //**/ 2
;

>>745
それC99になったら使えねぇよなあ。

正味な話、一発でなんでもOKなコードよりも

・特殊な例を以外は処理出来るコード
・特殊な例を発見するコード
・特殊な例に泥臭く対応するコード

を組み合わせてサクッと片付けることのほうが多い。

>>739
お、できてるっぽいね。

掲示板にメール送信機能をつけてみたんですが、題名に日本語が使えず、
メッセージのところも改行が「・」で、「>」が＆ｇｔ；になったりしてしまいます。
どこをどう直すべきでしょうか?

>>750がソースです

#------------------メール送信機能-------------------------#
open(MAIL,"| /usr/sbin/sendmail -t") || &error("送信できません。");
print MAIL <<"_MAIL_";
From: xxx\@xx.xx
To: xxxxxx\@xxxx.ne.jp
MIME-Version: 1.0
Subject: 投稿がありました
X-Mailer: Sendmail
Content-type: text/plain; charset=ISO-2022-JP
Content-Transfer-Encoding: 7bit

投稿がありました。
名前：$name
題名：$subject
メールアドレス：$mail
ホームページ：$url
メッセージ：$msg
---------------------------------------
投稿者情報
IP：$ip
ホスト：$host
---------------------------------------
_MAIL_
close(MAIL);
#--------------------メール送信機能------------------------#

よろしくお願いします。

>>749-750
jcode.plを知らんのだろうか…

>>751
そろそろ Jcode.pm では(Encodeは知らない)

プロバイダでJcode.pm使えないとか抜かすならWeb板行ってくれ

やり方がよくわかんないんです

>>739
流石です。>>738のレスを見てから最大18分で修正＆投稿で一発動作。
漏れにはマネできません。

重箱突付く様で恐縮ですが、//〜\\nの対応が未対応ですね。
漏れも>>736のヒントを受けて少し考えて見ました。

s#/\*[^*]*\*+(?:[^/*][^*]*\*+)*/|//(?:\\\n|[^\n])*(?=\n)|("(?:\\.|[^"\\])*"|'(?:\\.|[^'\\])*'|\n+|.[^/"'\\]*)#$1#g;

確認用のCソースは以下です。

int main(int argc, char* argv[]){
printf("ややこしいコメントの例/*\n");/*
//ここはコメント*/ printf("// /*この文字列はプリントされる*/\n"); // /*
//printf("この文字列はプリントされない\n");*/ /*
printf("*/\n");// */とプリントされる\
ここはコメントだがVC+＋6.0ではワーニングが発生
return 0;
}

この質問はこれで完了と言う事で有難うございました。

indexでは対象文字列から文字列を検索することができますが、
何文字目という位置情報しか得られません。
検索した文字列が存在する位置の座標情報を得る為にはどうしたらよいのでしょうか･･･

座標情報(ぷっ

便座情報

プリプロセッサを選ぶ狂気のコメント
bccでは1,gccでは一度cppに掛けた後コンパイルで0

#include <stdio.h>
#define line add(/,/)
#define in add(/,*)
#define add(s1,s2) s1##s2
int main (){
int i=0;
line;/*
i=1;
in;*/
printf("%d\n",i);
return 0;
}

>>754
> 重箱突付く様で恐縮ですが、//〜\\nの対応が未対応ですね。
あ、継続するんだっけ。正直、忘れてた。

いまでもワーニングって言う人いるんだ。

ｸﾞｯﾄﾞｳｫｰﾆﾝｸﾞ ｻｰ!!

ワーニングでもマクドナルドでも、通じるならいいじゃん。

ワーニングでも通じるけど、内心笑われてるかもよ

fatal はなんとよむのよ？

ふぇいたる？

テキストファイルの１行を消して詰めたいのですが
やっぱり、消したデータをダミーファイルに書いて
新規で作り直してダミーファイルからコピーしないと駄目なのでしょうか？

>>766
こんなんでいいのかな？

#!/usr/bin/perl

# $ARGV[0] がファイル名、$ARGV[1] が消したい行（０ベース）

exit 0 unless (open IN, "<$ARGV[0]");
@lines = <IN>;
close IN;

$lines[$ARGV[1]] = "";

open OUT, ">$ARGV[0]";
print OUT @lines;
close OUT;

__END__

ダミーファイル云々がよく理解できないよ。

>>767さん
おお、それです。
ありがとうございます。

カレントディレクトリの絶対パスを取得するにはどうしたらいいですか?

>>769
ボウヤ、世の中には検索エンジンという便利なものがあるんだよ。
http://www.google.co.jp/

>>769
use Cwd; $cwd = cwd();

>>771
そういうモジュールがあったのですか，
ありがとうございます。

perl5.6のdbmopenで作ったファイルをperl5.8で読み書きしたいのですが、可能ですか？
どうやら仕様が変更されて読み込めない。。。

別に問題はない

プラットフォームが違うと読み込めないことがあるよ。

どうしても読み込ませたい場合には、どのようにしたらいいのですか？
方法があるのでしたらご教授ください！

今、サブルーチンを書いています。そこで質問です。
戻り値として何の型が要求されてるのかを知りたいのですが、どうやったらサブルーチン内で判別できるのでしょうか？

>>776
互換性のあるDB（YukiWikiDB2など）にそっくり入れ替るスクリプトと、そこからまた新形式に入れ替えるスクリプトを書く。これが確実。

>>778
YukiWikiDB2というDBですか。初めて聞きます。。
ほかに互換性のあるDBも教えていただけたら教えてください。

無知なので、他のDBは知らない。
dbopenで何のDBが開くかは環境依存。大抵はバイナリファイルで実装されたDBが開く。そしてこのファイルは、種類が違うと互換性が無いと思ったほうがいい。
YukiWikiDBはファイルシステムを利用した、dbopenに近いインターフェイス―要するにハッシュみたいに使える―DB。
これは比較的移植性が高いので、バイナリDBの入れ替えをするのに向いていると思って書いた。

perl5.8.0のコンパイルをしたんですが、make testで100% okayになりません。
みなさんどのぐらいで妥協していますか？

>>777
> 戻り値として何の型が要求されてるのかを知りたい
if(wantarray){リスト
}elsif(defined wantarray){スカラー
}else{戻り値無し
}
だったと思います。

私も質問です。
以下のように無名 FileHandle を hash にブチ込んで利用したい訳なんですが、、

use IO::File;
$fh{'fh1'}=IO::File->new("> file");
print $fh{'fh1'} "hoge";
close $fh{'fh1'};

知らなかったのですが print $fh{'fh1'} "hoge"; で
$fh{'fh1'} が展開されないようなのです。(汗
これはどうすれば利用可能になりますか？
暫定的な対処として以下のように書いてみたのですが、
もっとスマートな方法があれば教えて下さい。

use IO::File;
$fh{'fh1'}=IO::File->new("> file");
my $fh=$fh{'fh1'};
print $fh "hoge";
close $fh{'fh1'};

>>781
オプティマイズレベルを下げたら100%いけました。

>>781
いっつもLocaleあたりで警告喰らって97%ほどで妥協します〜（ﾍﾀﾚ

>>782

print {$fh{'fh1'}} "hoge";

これで行けるよ

>>785
> print {$fh{'fh1'}} "hoge";
ぉぉぉおおなるほど。ありがとうございます。(多謝

>>777
wantarray という関数でリストコンテキストかを判定できるが、これで
いいのかな。だめならもうすこし詳細をキボンヌ。

>>787
うが、被ってるよ。はずかしいな。最近navi2chの調子が悪くて更新がうまくできん
のです。スマソ。

>>782
あれ、でも
>if(wantarray){リスト
>}elsif(defined wantarray){スカラー
>}else{戻り値無し
>}
これ変じゃないですか? defined wantarray => Trueならリストでしょう。

漏れはだいたいサブルーチンの最後で
return wantarray ? $scalar : @list;
のようにやります。

はじめまして。お聞きしたいことがあるのですが、Javascriptで作った変数をPerlの変数に渡したいのですがどのようにすれば良いのでしょうか？

具体的にはCGIプログラムの中で`./client "Javascriptの変数"`として外部のプログラムにCGIでプリントするHTMLの中のJavascriptで作った変数の値を渡したいのですが。

Javascriptではフォームを作ってそのフォームに入力されてた文字を変数に入れるような動作をしています。

どなたか教えてください。宜しくお願いします。

>>789
> これ変じゃないですか? defined wantarray => Trueならリストでしょう。
うがーごめんなたい...(；´Д⊂
物凄い勢いでperl書いて腱鞘炎で逝ってきまつ...

>>789
デタラメ書くなよ

リスト：　wantarray, defined(wantarray) 共に真
スカラー：　wantarray は偽、defined(wantarray)は真
戻り値なし： wantarray,defined(wantarray) 共に偽

戻り値無しのケースを無視したとしても
return wantarray ? @list : $scalar;
だろうに

>>792
> リスト：　wantarray, defined(wantarray) 共に真
> スカラー：　wantarray は偽、defined(wantarray)は真
> 戻り値なし： wantarray,defined(wantarray) 共に偽
え〜と、つまり私は間違ってない..のかな？(汗
つか、脳内で書くから駄目なんですね、
今すぐテストしに逝ってきます。お騒がせしました。

>>782　ので合ってるよ

>>735
自己レス。
Cの#defineみたいなことをするのは
use constant HOGE => 'あああ';
でOKらしいんだけど、引数をつけられるプラグマってない？
つーかプラグマってどうやってつくるんだろうか。
普通のモジュールと何が違うの？

use xxx HOGE(x,y) {print(x*y);}
みたいなことがしたいのだよ。

なんだこりゃ…？
ActivePerl Build631(5.6.1)でたったいま気付いたのだが、
H'1A を 「getc」で読み込むと、このキャラ以降 undef
(End of File)を返すっぽい…これってやはり仕様？
＃なんで今時そんなMS-DOSなことが。追試希望。
＃＃それとも単にdocの読みが甘いだけ？(´・ω・｀)

>>797
binmode してみたら？
関係ないかな。

>>797
VCあたりのランタイムの仕様。
いやなら>>798のいう通りbinmode。

どうでもいいけどH'1Aって何の書き方?

>>792
ああそうですね、スマソ。逆にしてしまった。

>>798
CでのソースをPerlにそっくり移植してテストしてたんですわ…。
ファイルopen後、binmode 切替済状態でこの現象に当たったのです。
getc がスクリプトバグの犯人であることが解かるまで小一時間悩んじった。
とりあえず今はreadにすりかえて回避してますが、美しくナーイ（；；
＃Perlではコンソール入力(STDIN)向け？関数だからプラットフォーム依存仕様なのか？
＃MSDOSのコンソール入力終了は^Zだし…。(UNIXでは^Dだよね？)

>>801
通常のファイルからでも同じ動作?

build804では\x1aとそれ以降も普通に読み込む

>>792
>>777 ではありませんが質問させてください。
サブルーチンの中でreturnしなければ最後に評価された式が返され、return;
だけだとundefもしくは()が返されたんじゃないかと思うんですが、perlで
「戻り値なし」というのはどうやるんでしょうか。またサブルーチンを呼ぶ
際に左辺の変数で受けなければ戻り値は消えるはずで、どういうシチュエー
ションで「戻り値なし」を区別しなければならないのでしょうか。

Windows上で作成したプログラムで

open(FILE, "<tst.dat");
@data = <FILE>;
close(FILE);

foreach (@data)
{
chomp;
}

foreach (@data)
{
print $_;
}
↑のように書いてRedhatLinuxにあげて実行したら表示されません。
プログラム上に改行コードを含めて実行すると表示されるのに別ファイルか
ら読み込むとできないんですが…。知ってる方いたら教えてくださいお願いします。

open(FILE, "<tst.dat");
↓
open(FILE, "tst.dat");

つーかWebＰｒｏｇ板でしゃぶっとけ

>>806
> open(FILE, "<tst.dat");
> open(FILE, "tst.dat");
どっちも正しいと思うぞ。

>>805
何がしたいのか全くわかりませんので説明して下さい。
コードを見ると読み込んだファイルの“改行を取って”
標準出力するんですか？一行になりますよ？
それでもイイのであればこうするのが良いかと。

open FH,"hoge.dat";
print chomp while <FH>;
close FH;

>>807
そのとおりです。m(__)m
”標準出力に改行無しで出力させたいんです”

お答え頂いてありがとうございます。
でも、807さんのを実行してみたら「1」が行数文出たんですが、
これって環境のせいでしょうか？
chompは、なんか本には、戻り値が「取り除いた文字数」と書いてあるんですが
本が間違ってますかね？

>>808
> でも、807さんのを実行してみたら「1」が行数文出たんですが、
ごめんなさい。その通りです。寝ぼけました。

chomp and print while <FH>;

でどうですか？

HTML::Paserのイベントで呼ばれるサブルーチンに
引数を渡したり戻り値を受け取ったりすることはできない？
グローバルな変数で処理しろってか？使いづらっ！

>>808
>>807殿が誤っておられます。環境のせいではなく仕様です。
perl -p -e 'chomp;' filename
とやれば用件を満たすのではないかと思います。

809さんと811さんに教えていただいたのをやってみたんですが、
両方とも駄目でした。
１文字も出力されません。
一応、プログラム中に「改行を入れた変数」を取り除いたり、
文字列と「改行コード」を「.」で連結させて表示させたりは
可能なんですが、取り除いてからの「配列での１行出力」が
できないんですよ…。１行であれば回しちゃっても構わない
んですが、それの表示もできません。
どうか宜しくお願いします。

>>811
> perl -p -e 'chomp;' filename
その手がありましたか...
普段使わないので完全に忘れ去っておりました。

>>812
ん〜おかしいな。。

>>811
つーか改行取りたいだけならtr -d '\012'だけどな。

>>812
シェルとその設定によっては、
最後に改行を入れないと表示されないことがあるようです。
私のzshではそうなります。

>>814
私はawk, sed, trなどは全てperlで代用しております。

perl で、定期的(数秒おき)に処理をしたいのですが、スマートなやり方がわかりません。
とりあえず書いてみたコードは、見た目通り動かない上に、迷惑極まりないポーリングなので
このあたりも何とかしてみたいのですが、何かヒントを頂けないでしょうか。

$event=0;

sub alarm_handler {$event++; $SIG{ALRM} = \&alarm_hander;};
$SIG{ALRM} = \&alarm_handler;

alarm 1;
while(1) {
while ( $event <= 0 ) {$event;}; $event--;
print "tick ";
alarm 1;
}

なんでsleep使わんの?

>>817
例えば、10秒おきに処理をしたいけど、その処理に5秒位かかるので、
素直にsleep 10 とかすると、何秒おきかわからなくなるかな？
となると、イベントでなんとかしないと？と思って、こうしました。

でも、sleep で眠って、時間になったら fork すればいいのかな？
早速やってみます。

>>810
HTML::Parser より HTML::TokeParser のほうが楽。

>>816

pipe を使う方法。
--
pipe R, W;
$SIG{ALRM} = sub { syswrite(W, 'o', 1); };
while (1) { alarm 1; if (sysread(R, $tmp, 1) > 0) { print "tick "; } }
--
W は non-blocking mode にした方が良い。
sysread のエラー処理もやっておくべき。

>>817
最終的には sleep + fork でうまいこといきました。

試しに作ってみた失敗作の駄目っぷりが尋常でないので晒します。
笑ってやって下さい。
# 当の本人も、コンピュータも固まりました。

while(1) {
if($pid=fork) {
sleep 1;
} elsif (defined $pid) {
print "tick ";
}
}

# 3:57PM up 41 days, 25 mins, 1 user, load averages: 215.88, 65.60, 24.73
# こんなにロードアベレージをあげたのは始めて。

うまいこといったほうです。
while(1) { if($pid=fork) { sleep 1; }
elsif (defined $pid) { print "tick "; exit; } }

>>821
ﾜﾗﾀｗ

>>810
頭がワリィーのがもろ三重だな。オブジェクトだよ、object

>>820
pipe の勉強から始めます。
ありがとうございます。

>>810
なるほど、そっちも検討してみます。
ちなみに、HTML::Parserのイベントで呼ばれるサブルーチンへ
引数を渡したり戻り値を受け取ったりすることはできませんか？

>>824
＞頭がワリィーのがもろ三重だな。オブジェクトだよ、object
なんですかこの頭の悪い生き物は？（ｗ

↑>>819の間違いだった。

うわ、分かってないな（ｗ

使ったことないけど、perldoc HTML::Parser を
サラッと読んだ感じでは event のコールバック
プロシージャを定義するだけなんじゃないか？
と思った。呼出元の object も捕捉できるようだし…。

CODEを引数として受け取るようなサブルーチンを作りたいんだけど、上手くいかない。
やりたいのは

foo { some code; } $bar, $baz;

みたいに、第一引数にCODEを受け取るモノなんだけど
これは sub foo(&@){ } で出来た。
この foo を

foo $bar, $baz;

のように、CODEを省略してもOKな様にしたい。
引数の受け取り方は sort みたいな感じ。

別に明確な目的がある訳じゃなく
出来るなら試してみたいって程度なんだけど

>>830
第２引数以降が“リファレンスでない”のが確かなら、

sub foo {
unshift @_, sub{ "dummycode" } if ref $_[0];
my( $somecode, $bar, $baz) = @_;
###
}

見たいに判定して引数リストそのものを右へずらしてしまえば？
＃ref の返値がコードリファレンスか確認すればなお良いかと。

$a = 301.4 * 400;
$b = int($a);
print "\$a=$a \$b=$b \n";

を実行すると
$a=120560 $b=120559
と結果が表示されます。これって仕様なのでしょうか。
小数点以下切り捨てをしたいのですが、1足りなくなる場合があって困ってます。

>>796
>>284-285

>>830
sub foo {
　my $code = ref $_[0] eq 'CODE' ? shift : sub { ... };

>>832
($b) = $a =~ /(\d+)\.?/;

>>826
頭の悪い生き物だが、あんたよりはマシと思われ（ｗ
こんな風に使うんだよ
use HTML::Parser;
$p = HTML::Parser->new();
$p->parse_file('test.htm');
print $p->{CHECK_A},"\n";


sub HTML::Parser::start {
my ($self,$tagname,$attr,$attrseq,$text) = @_;
$self->{CHECK_A}++ if $tagname eq 'a' ;
}

>>834
直接メソッド書き換えるのなんかどうかと思わん？

Ruby Wayっつー本に、

「オブジェクト指向Perlマスターコース（ピアソン）」
では２種類のポリモルフィズムを解説している。
１つは継承を使ったポリモルフィズム、
もう１つはインタフェースポリモルフィズムだ。

と書いてあります。
んで、インタフェースポリモルフィズムってなに？

>>835
お利口さんなコメントだな。ホントのお利口さんなら添削するもんだがな（ｗ
834はスタブを直接書き換えて何が悪かろうというもんだ。
あんたの気にいるように書き換えてやろう。
package MyParser;
$p = MyParser->new();
$p->parse_file('test.htm');
print $p->{CHECK_A},"\n";
package MyParser;
use base 'HTML::Parser';
sub start {
my ($self,$tagname,$attr,$attrseq,$text) = @_;
$self->{CHECK_A}++ if $tagname eq 'a' ;
}
1;

新式では次のように汁
use HTML::Parser;
$p = HTML::Parser->new(api_version => 3,
start_h => [ \&my_start, "self,tag" ]);
$p->parse_file('test.htm');
print $p->{CHECK_A},"\n";

sub my_start{
my ($self, $tag) = @_;
$self->{CHECK_A}++ if $tag eq 'a' ;
}

perlccとperl2exeでは、何が違うのでしょうか？

大橋巨泉のパールウッシッシー

>>836
「ジェネリックプログラミング」と呼ばれる手法の基本になる考え方…かな。
「xという処理をするyというメソッドを持っていなければならない」という"インターフェイス"によってポリモーフィズムを実現するのがインターフェイスポリモーフィズム。
例えば：

package Foo;
sub new; # 実装は省略
sub print_me;

package Bar;
sub new;
sub print_me;

package main;
my @coll;
foreach my $class(qw(Foo Bar)){
# これも一種のインターフェイスポリモーフィズム
# FooとBarは互いに関係ないが、同名のコンストラクタを持つ為思った通りに動く
push @coll, $class->new();
}
foreach my $o(@coll){
# print_meというインターフェイスによってポリモーフィズムを実現する
$o->print_me();
# @collに入っているのが何か知らなくてもいい。
}

バイナリファイルをコピーするやり方を教えてください。

>>841
#!/usr/bin/perl

# $ARGV[0] がコピー元、$ARGV[1] がコピー先。

open IN, "<$ARGV[0]";
binmode IN;# 念のため。
open OUT, ">$ARGV[1]";
for ($i = 0; $i < (stat(IN))[7]; $i ++) {
print OUT getc(IN);
}
close OUT;
close IN;
__END__

ファイルの存否とか open の可否とかのチェックは自分で付け加えておくれ。

>>842
ありがとう。感動しますた。

>>842
binmode OUT をド忘れしてらっしゃいませぬ？
＃そのままでは出力時に(Win)\n->CRLF、(Mac)\n->CRに化けそう。
入出力両方にbinmodeかけるのがアンパイかと。

emacsでperl-mode使ってるんだけど、
これって正規表現が絡むと色づけがおかしくなるよね？
みなさん気にしないでプログラミングしてるのかな？

>>845
エスケープして逃げるなあ。
あとコメントで止めるとか。（$a =~ s/\d+/"/; # "）

まあ使いにくいことは確かだね。
ヒアドキュメントのインデントもおかしい

>>845-846
cperl-modeを使っている。perl-modeよりは改善されている。

>>847
>>846の例はcperl-modeでもダメなようだが。

>>847
Windows上でemacs使ってるんだけど、
cperl-modeいいです。ありがとう。

windows2000にActivePerl5.6(build633)を入れて使ってます．

漢数字を半角数字に置換したいのですが，
$list =~ s/一/1/g;
は置換できるのに，
$list =~ s/十/10/g;
とすると"Unrecognized character"とエラーを吐かれます．

調べると"十"の2バイト目が"\"とコードが重複(0x5C)してるのが原因だと分かったのですが，
これを回避する方法が分からず前に進めません．
何か良い策は無いでしょうか・・


とりあえず試してみたことは

(1) シングルクォートでエスケープする．→ $list =~ s/'十'/10/g;
結果）エラーは出なくなったが置換してくれない．

(2) コード，変換するデータ共にeucで処理する．
require "jcode.pl";
&jcode'convert(*list, "euc");
$list =~ s/十/10/g;
&jcode'convert(*list, "sjis");
こんな感じのコードをeucで保存して実行．
結果）エラーは出なくなったがそれまで置換出来てたもの（"一"とか）すら置換出来なくなった．


windowsでperlを使うこと自体間違ってるのでしょうか。゜(ﾟ￣∩￣ﾟ)゜。

http://freeweb2.kakiko.com/jjkiknjpg/asgvearg.htm

>>850
Jperlパッチを当てるか、Perl5.8 を使うのが無難に思うけど…。

これ自体が間違い： $list =~ s/十/10/g;
s/// は s""" と等価。つまり変数が展開されるし
\エスケープも解釈される。だから '\' を含む文字
がおかしくなる。かといって単純に
こうする「$list =~ s'十'10'g;」わけにもいかない。
（ \' がエスケープ解釈されてエラーになる）
そこでちょっと面倒だけどこういう定義をする。

$str = q/十/;
$list =~ s/$str/10/g;

(q/.../ は '...' と等価でかつ \\ \' 以外はエスケープされない)
当然だけど Webフォームやファイルから直接 $str に
代入するほうが手間が少ない。スクリプト中に直接
SJIS漢字文字列を埋め込む行為が面倒の原因。

こんなのは？
$test = "十\";
$test =~ s/十\/10/g;
print $test;

>>852
こんなに早く解決していただけるとは思ってませんでした
どうもありがとうございます．
perlは動けばいいやみたいな場当たり的使い方しかしてこなかったので
基本的知識が欠落してました．（´Д｀；）
本当に感謝ですm(_ _)m