トップページ⇒php
1001コメント332KB

【Perl】初心者コーナーPart9

■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん＠お腹いっぱい。01/12/28 23:21ID:SPLRvqQi
いらっしゃーい、Perlのコーディングで困ってる人のスレです。

1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。

1と3が無いと誰も答えられないよ、良い回答は良い質問から。
一緒に勉強しましょう。

参考書籍はこちら【【Perl,CGI】参考書籍 第２版 】
http://pc.2ch.net/test/read.cgi/php/988809842/
CGIの質問はこちら【ＣＧＩだけど、なんか質問ある？part5】
http://pc.2ch.net/test/read.cgi/php/1009331505/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般】
http://pc.2ch.net/test/read.cgi/php/991313362/

過去ログ、その他の役立ち情報は>>2-10を見よう。
0388■■■■■02/01/25 17:52ID:xsDEBfwk
#!/usr/local/bin/perl -w
↑の-wはどういう意味なのでしょうか？
0389名無しさん＠お腹いっぱい。02/01/25 17:57ID:???
>>388 検索しろやボケ（ｗ ←の"ｗ"と同じ。
0390名無しさん＠お腹いっぱい。02/01/25 18:02ID:???
ちなみに
#!/usr/local/bin/perl -ﾌﾟ

にすると警告メッセージの文体がうざくなります
0391名無しさん＠お腹いっぱい。02/01/25 18:03ID:/7cgUOJj
>388
ワーニングのwだよ。
0392■■■■■02/01/25 18:07ID:xsDEBfwk
どんなキーワードで検索するのですか？
マジ質問なんですが。-wはキーワードにならないもので。
0393名無しさん＠お腹いっぱい。02/01/25 18:08ID:???
がんぼれ

http://www.google.com/search?hl=ja&q=perl+%83X%83C%83b%83%60+w&lr=
0394■■■■■02/01/25 18:08ID:xsDEBfwk
なるほど、「スイッチ」ですか。ありがとうございます。
0395名無しさん＠お腹いっぱい。02/01/25 18:17ID:???
正直 man perl / perldoc perl ぐらい見ろやボケ と言いたい。タダの教えて厨じゃん。
0396名無しさん＠お腹いっぱい。02/01/25 18:21ID:???
ﾏﾀｰｿ光線　　しびび(以下略
0397名無しさん＠お腹いっぱい。02/01/25 18:28ID:S6WZ3j03
ユーザーに一時的にユニークなIDを付加したいのですが、
何か定石になっている方法等はないでしょうか。
0398親切な人02/01/25 18:42ID:???

ヤフーオークションで、幻の人気商品、発見！！！

今は無き「コピーガードキャンセラー」↓
http://page5.auctions.yahoo.co.jp/jp/auction/e5843828

ヤフーオークション内では、現在、このオークション
の話題で、持ちきりです。
0399名無しさん＠お腹いっぱい。02/01/25 18:52ID:???
>397
$$
0400名無しさん＠お腹いっぱい。02/01/25 18:52ID:???
400
0401名無しさん＠お腹いっぱい。02/01/25 20:53ID:???
>>385
これは、0x1A(=^Z)がDOSでEOFだったという歴史的経緯によるもの。
純粋に入力をバイナリとして扱うには、FILEについても
openの直後にbinmode(FILE)とすることで解決するはず。
0402名無しさん＠お腹いっぱい。02/01/25 21:24ID:Y6CV5/iR
>>399
やはり$$が定石なのですね。
ありがとうございました。
0403名無しさん＠お腹いっぱい。02/01/25 21:56ID:79BxtF4T
自作のPerlモジュールを@INCのパスに
置かずに、使用する方法はあるのでしょうか？
0404名無しさん＠お腹いっぱい。02/01/25 22:02ID:/7cgUOJj
>403
use lib
0405名無しさん＠お腹いっぱい。02/01/25 22:05ID:???
>403
ていうか、モジュール自作できるのに、そのモジュールの使い方がわからないなんて事あり得るのだろうか？
040640302/01/25 22:36ID:79BxtF4T
ゴメンよ、お馬鹿で。でもあり得るんだよ、実際ココにいるから。

で、
use lib '/path/to/my_module_dir';
を加えたら、とりあえず動いたんだけど、
use lib 'ディレクトリパス';
とすれば @INC にここで指定した'ディレクトリパス'が
加わったのと同様と考えていいのですか？
0407名無しさん＠お腹いっぱい。02/01/25 22:57ID:???
use lib "/path/to/dir";
print @INC;

で分かるだろが。自分で調べろヤ。
0408名無しさん＠お腹いっぱい。02/01/25 23:02ID:???
ﾏﾀｰｿ光線　　しびび(以下略
0409名無しさん＠お腹いっぱい。02/01/25 23:10ID:XMaI9lFd
>>401
ありがとうございます。
入力側もバイナリモードにすることにより期待通りに動きました。
出力に関しては以前引っかかったことがあったので
気にしていたのですが入力も、とは・・・やられました。
0410名無しさん＠お腹いっぱい。02/01/25 23:39ID:???
>ﾏﾀｰｿ光線　　しびび(以下略
これって教えて君を増やす為なの？
0411名無しさん＠お腹いっぱい。02/01/26 00:51ID:OfzJhL7v
SSHでログインして「use benchmark;」を使ってベンチマークをするのは出来たんですが
これって、ブラウザからは出来ないんですか？500エラーになるんですが…。
結果の数値を表示させるにはどうしたら良いでしょう？
0412名無しさん＠お腹いっぱい。02/01/26 02:20ID:WUMSdJPW
jisコードの数字(ISO2022-JPの文字列ではなくて、文字をあらわす
文字コード、例えば「あ(2422)」の2422という数字)
をEUCの文字に変換して出力するにはどうしたらよいのでしょうか？
print &convert(2422);
(表示)
あ
見たいな感じにしたいんですが・・・。
0413agege02/01/26 03:19ID:???
> 411
use benchmark; ⇒ use Benchmark;
0414名無しさん＠お腹いっぱい。02/01/26 16:03ID:???
>>412
packを使ってみ
0415名無しさん＠お腹いっぱい。02/01/26 18:44ID:4vbo6FDe
質問なのですが

Perlで、配列を一つのスクリプト内で何度も再利用することで、
その都度、別の名前の配列を複数作る場合に比べて
メモリ消費は低減できるのでしょうか？
0416ループに関して02/01/27 23:58ID:y07CruPJ
formからpostで受け取ったデータを
ハッシュにして…ってところ何ですけど。

require './cgi-lib.pl';
&ReadParse(*form);

$A1="$form{'A1'}";
$B1="$form{'B1'}";
$A2="$form{'A2'}";
$B2="$form{'B2'}";
$A3="$form{'A3'}";
$B3="$form{'B3'}";
・
・
・
$A50="$form{'A50'}";
$B50="$form{'B50'}";

っていう感じにしたいんです。
まあ「動く」ってだけなら気合いで書けば問題ないんですけど、
ループとか使ってきれいに書く方法を教えていただきたいのです。

どうもループは苦手でして。。。よろしくお願いします。
0417名無しさん＠お腹いっぱい。02/01/28 00:45ID:i9Ky8+Ox
>416
while (($key,$value) = each(%form)) {
    $$key = $value;
}
なんのためにこんな事をするんだろう？・・・・
0418うんこ02/01/28 07:44ID:???
>>414
情報ありがと。漏れの検索が甘かったです。すんません。
0419http://nara.cool.ne.jp/mituto02/01/28 15:08ID:Ye799Ifr
３月２４日〜２７日に立命館大学ＢＫＣに田中洸人氏が来ます。
http://210.172.69.179/jps_search_02au
http://nara.cool.ne.jp/mituto
0420 02/01/28 15:19ID:???
うんこ発見!!!
0421名無しさん＠お腹いっぱい。02/01/28 15:29ID:???
>420
いいようんこ見つけたくらいでいちいち騒がなくて。
小学生じゃあるまいし。
0422うんこ02/01/28 16:35ID:???
あーあ、みつかっちまった。(誰に?!)
厨房だからっていじめないでおくれよ。
頑張ってプログラミングしてます。
0423名無しさん＠お腹いっぱい。02/01/29 00:28ID:4QGFGOvy
以下のようなtest.plを作って実行すると
config.txt did not return a true value at test.pl line 4.
と言われてしまいます。しかも
print "$board\n";以下が表示されません。
どうしたものでしょうか。

config.txtに
$board = "文字列01";
$dir = "文字列02";
$limit = "文字列03";
$down = "文字列04";
を書き込んでいます。


======test.plの内容======
#!/usr/bin/perl -w

if ($#ARGV < "0") { print "[ERROR]\tUsage: perl test.pl config.txt\n"; exit; }
if (-e $ARGV[0]) { require ($ARGV[0]); }
if (!defined($board) || !defined($dir) || !defined($limit) || !defined($down)) {
print "[ERROR]\n";
exit;
}

print "$board\n";
print "$dir\n";
print "$limit\n";
print "$down\n";
0424名無しさん＠お腹いっぱい。02/01/29 00:34ID:kF9Gt4SC
>423
config.txtのお尻に
1;
と書いてみる。
0425名無しさん＠お腹いっぱい。02/01/29 01:05ID:aDiD5uGU
my $sentence = '今日は29日だ。01:05分';

if ($sentence =~ /([\d]+)/) {
$sentence .= "\n・$1";
}

print $sentence;

この結果
> 今日は29日だ。01:45分
> ・29
が出力されますけど、
いくつ含まれているか判らない数字列を全部取り出して、
それを全部後ろにくっつけて、
> 今日は29日だ。01:05分
> ・29
> ・01
> ・05
と出すにはどうすればいいでしょう。
0426名無しさん＠お腹いっぱい。02/01/29 01:11ID:???
while($sentence =~ s/([\d]+)//) {
$sentence .= "\n・$1";
}

間違えると無限ループになるから注意。
0427名無しさん＠お腹いっぱい。02/01/29 01:14ID:???
tu-ka,自分で間違ってるじゃん。

$sentence2 = $sentence;
while($sentence =~ s/([\d]+)//) {
$sentence2 .= "\n・$1";
}
0428 ◆7P5EE/DI 02/01/29 01:19ID:???
my @number = $sentence =~ /\d+/g;
$sentence .= join "\n", '', map { '･' . $_ } @number if @number > 0;
0429名無しさん＠お腹いっぱい。02/01/29 01:23ID:qEiE9m0V
"20020129012155"という文字を
$yyyy = "2002";
$mm = "01";
$dd = "29";
$h = "01";
$m = "21";
$s = "55";
こうしたいんですが、スマートなやり方はないでしょうか？
今は
@date = split //,$date;
for (1..4) {$yyyy .= shift @date;} for (1..2) { $mm .= shift @date;}
こんなのを書いてるんですがいかんせん汚い・・・
0430 ◆7P5EE/DI 02/01/29 01:32ID:???
/^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})$/

あんま奇麗じゃないか
0431名無しさん＠お腹いっぱい。02/01/29 01:44ID:jKfeCUaQ
>>430
いや、充分綺麗（ﾜﾗ
043242902/01/29 02:10ID:mntfCIt4
ああ、なるほど、マッチさせればいいのか・・・
ありがとうございました。
0433名無しさん＠お腹いっぱい。02/01/29 03:11ID:???
>>429
unpack ('A4A2A2A2A2A2', $str);
043442502/01/29 03:55ID:???
>>426-428
かなり助かりました。ありがとうございました。
0435名無しさん＠お腹いっぱい。02/01/29 06:48ID:yBBFlrS0
再び質問させてください。
htmlファイル中にある&を%44になおすプログラムを作っているのですが
そのファイルの中には&が８個あって１番目の＆だけを修正したいのです。
#!/usr/local/bin/perl

while(<stdin>){
s/&/%44/o;
print;
}
上記の状態から修正したいのですが、どうしたらよいでしょうか？？
0436340=43502/01/29 07:13ID:yBBFlrS0
私のやり方だと８個の＆すべて％２４に変わってしまいます。
色々やってみたのですがうまくいきません。
おちから貸してください。
0437・・・02/01/29 07:29ID:???
#!/usr/local/bin/perl

while(<stdin>){
unless ($this_scalar_means_flag == 3.14159265358979){
$this_scalar_means_flag = 3.14159265358979;
s/&/%44/o;
print;
}
}
0438名無しさん＠お腹いっぱい。02/01/29 07:35ID:???
一秒たりとも自分では考えたくないんだね　　:-)
043934002/01/29 07:43ID:yBBFlrS0
すみません。単純に勉強不足です。
わたしなりには考えたのですがどうしてもうまくいかなくて。。。
0440名無しさん＠お腹いっぱい。02/01/29 09:32ID:/LeYWjfo
ところでgunzipさんのサイトってあるの？
以前作ってるとか聞いたことあるんだけど。。
0441名無しさん＠お腹いっぱい。02/01/29 10:58ID:???
>>440 スレ違い
0442名無しさん＠お腹いっぱい。02/01/29 11:50ID:???
>437　ﾁｮﾄ感動。　ﾀﾉﾁｲ。

0443名無しさん＠お腹いっぱい。02/01/29 12:43ID:F543ET41
馬鹿発現なのは100も承知。

$iのiとはなんのi？
あと$1とか……
色々しらべてみても、これ？　つーのが。
0444あぼーんNGNG
あぼーん
0445名無しさん＠お腹いっぱい。02/01/29 13:00ID:???
>443
どれにレスしているのか引用しなさい。
わからないことが馬鹿なんじゃなくて、他人に自分の意志を
伝えられる文章を書けないのが、馬鹿。
0446名無しさん＠お腹いっぱい。02/01/29 13:11ID:???
>443
言ってる意味がよくわからないが、
$1とかに関しては正規表現の際に使う特別な変数。
http://tohoho.wakusei.ne.jp/wwwperl1.htm#Expr

$iのiってのは、プログラムの世界で、一時的なカウントの変数とかに
一般的にi、j、kなどが使われる理由を知りたいって事？
こっちに関しては俺も知らないからなんとも言えないけど。
0447名無しさん＠お腹いっぱい。02/01/29 13:44ID:F543ET41
>>445
すんまへん。引用じゃなかったんで。

>>446
＞一般的にi、j、kなどが使われる理由を知りたいって事？
そ、そういうことです（苦笑）。
vは valueなのかな、とオボロゲにゃー思うんですが。
0448名無しさん＠お腹いっぱい。02/01/29 14:16ID:???
>447
i はイテレータの頭文字じゃないかな？
044944702/01/29 15:00ID:???
www.ruby-lang.org/ja/uguide/uguide09.html
これのことですかね？
0450名無しさん＠お腹いっぱい。02/01/29 15:14ID:JIM4MzqN
よろしくお願いします。
open(DAT,"foo.dat");
@foos = sort <DAT>;
close(DAT);
foreach (@foos) {
print;
}
これだとファイルが大きいとメモリを使いすぎるみたいなのでやめようと思って、
下のように書き直したんですが
open(DAT,"foo.dat");
foreach (sort <DAT>) {
print;
}
close(DAT);
この場合も結局、一旦<DAT>を全部読み込んでからsortしてるんでしょうか？
@foosにコピーしないだけマシですか？
0451名無しさん＠お腹いっぱい。02/01/29 15:29ID:7v+0Ir29
たいしてかわらん
045245002/01/29 18:58ID:???
そうですか。。。
じゃああまり気にしないことにします。
0453名無しさん＠お腹いっぱい。02/01/29 20:12ID:GCzt07oL
perlで、ファイルリストを渡すと、そのファイルの中の
特定文字列を置き換える、という処理をしたいのですが
どうしたらよいのでしょうか？
a.txt
b.txt
c.txt
と渡すと、
a.txtのmonaをgikoに、
b.txtのmonaをgikoに、
c.txtのmonaをgikoに、置き換えるという処理をしたいのです。
045445302/01/29 20:21ID:GCzt07oL
環境はWindowsです。しょぼん。
0455名無しさん＠お腹いっぱい。02/01/29 20:27ID:7v+0Ir29
perl -p -i -e 's/moga/giko/g' a.txt b.txt c.txt
045645302/01/29 20:31ID:GCzt07oL
>455さんありがとうございます。最後のa.txt b.txt c.txt部分が
リストになって渡されるのです。
Linuxみたいに`cat list`とかできるとよいのですが…
045745302/01/29 20:35ID:GCzt07oL
cat list | perl …ではだめですよね。なんかだめっぽいです。
やりかた間違ってるんでしょうか？
0458名無しさん＠お腹いっぱい。02/01/29 20:39ID:???
>455
Can't do inplace edit without backup.
0459名無しさん＠お腹いっぱい。02/01/29 20:44ID:???
>457
Windowsにcat入っているの？
0460名無しさん＠お腹いっぱい。02/01/29 20:45ID:7v+0Ir29
cat list | xargs perl -i.bak -p -e 's/giko/mona/g'
だけど。今思ったらWindowsなんだね。
じゃあ、自分でファイルオープンして置換しながらtmpファイルに出力して
renameで。
046145302/01/29 20:58ID:GCzt07oL
catじゃなくてtypeでした>>457 でもどのみちだめっぽいですね。
1行ずつ「exec perl」で呼び出すってのはだめでしょうか？
type list | perl -e "while(<>){exec \"perl -e's///'\"}みたいに
やってるんですが…うううむ
0462名無しさん＠お腹いっぱい。02/01/29 21:05ID:???
@files = ('a.txt','b.txt','c.txt');
foreach $file(@files) {
     @DATA = ();
     open(FILE,"$file");
     while (<FILE>) { $_=~ s/mona/giko/g; push (@DATA,$_); } close (FILE);
     open(FILE,">$file");
     print FILE @DATA;
     close (FILE);
}
0463名無しさん＠お腹いっぱい。02/01/29 21:23ID:???
perl -p -i.bak -e "BEGIN{chomp(@ARGV=<ARGV>)} s/mona/giko/g" list.txt
ってのはどうかな。何故かlist.txtが破壊されるけど。
0464名無しさん＠お腹いっぱい。02/01/29 21:27ID:???
perl -p -i.bak -e "BEGIN{chomp(@ARGV=<>)} s/mona/giko/g" <list.txt
なら破壊されないか。
046545302/01/29 21:28ID:GCzt07oL
なるほろ！いったん配列にいれるのですか。ありがとうございます。
046646202/01/29 21:31ID:9LBydpPt
・・・・・・・
0467名無しさん＠お腹いっぱい。02/01/29 21:37ID:???
ワラタ
046846202/01/29 21:41ID:vVENca1F
>467
ひどいや。
046946702/01/29 22:41ID:???
気分を害したならあやまる。スマン。 おれは462の466のコメントがうまいなと思っただけで、
別にけなしているわけではない。ある意味、逆にリスペクトだよ。
047042902/01/30 00:14ID:vUn9vtFi
>>433
ありがとうございました。
unpackって使った事がないので他にも色々試してみます。
047146202/01/30 01:15ID:Dm6D5Jsh
>469
いえいえ、そうでもないです。
ていうか、コピペにでも見られたのでしょうか？マジに手打ちでちこちこ書いたのに
見事な放置っぷりで悲しくなりました。動作確認までしたのに。
どうしてでしょう？
やっぱ、一行目に
#! /usr/local/bin/perl
書かなかったのが敗因でしょうか？(笑)
0472名無しさん＠お腹いっぱい。 02/01/30 10:45ID:cYid0m8S
ディレクトリー名を変更するにはどうしたらいいの？
0473名無しさん＠お腹いっぱい。02/01/30 12:18ID:jvP4y3Zo
>472
リネームする。
0474名無しさん＠お腹いっぱい。02/01/30 13:08ID:???
>>473
スミマセン
perlでって意味です。
0475名無しさん＠お腹いっぱい。02/01/30 13:19ID:???
>474
perlでリネームする。
0476名無しさん＠お腹いっぱい。02/01/30 13:24ID:???
レンタル鯖　UNIX　LINUX
どこも、板違いに思えたので、
こちらで質問させてください。

CGI(Perl)を自作していて、
＠Ｌｉｎｅｓに、文字列を埋め込んで
（HTMLの文法に沿った文字列です）
print "@LINES";
この処理を、ＡのサーバーとＢのサーバーで実行した場合、
表示できるＡのサーバーと表示できずにエラーとなるＢの
サーバーがあります。

これは、物理的なメモリーの不足が問題でしょうか？
Apacheの設定の問題でしょうか？
次回、Ｃのサーバーをレンタルする場合に、
上記のエラーを回避できるサーバーを選択するには、
何を確認すればいいのかわかりません。。。
どうか教えていただきたいです。

ちなみに、@LINESを出力できないって問題は、
foreach $temp(@LINES){
print $temp;
}
これで、クリアしました。

また、foreachで一行ずつ、書き出す場合と
@LINESで一気に書き出す場合で
サーバーにかける負担と
プログラムの処理にかかる時間についても
ご教授いただければ、幸いです。

よろしくお願いします。
長文スイマセン。。。。
0477名無しさん＠お腹いっぱい。02/01/30 13:31ID:jvP4y3Zo
>476
それぞれのサーバの環境、特に導入されているperlのバージョンなどが
わからなければ何とも言いようがないけど、このケースでは全く
Apacheは関係ないし、メモリの実装量も、あまり関係あるとは思えないな。
オーバーフローでも起こしていない限りスワップしてでも実行するだろうし。

perl単体の問題だと思います。
0478名無しさん＠お腹いっぱい。02/01/30 13:37ID:jvP4y3Zo
>474
$souce_dir = "test"; # リネームしたいディレクトリ名
$dist_dir = "test1; # リネーム後のディレクトリ名
`mv $souce_dir $dist_dir`;
047947602/01/30 13:37ID:???
>477
ご回答ありがとうございます。
失敗したＢのサーバーのPerlのバージョンを
調べてみます。

@LINESで一気に書き出す場合と、
$LINESで、一行ずつ書き出す場合については、
Per単体の問題がない場合は（エラーで落ちない場合）
@LINESの方が高速に動作すると考えても良いでしょうか？
0480名無しさん＠お腹いっぱい。02/01/30 13:39ID:jvP4y3Zo
>479
foreachの行程分だけ早いだろうけどね。
微々たる問題だとは思うけど。
048147602/01/30 14:02ID:???
>480
ご回答ありがとうございます。

スワップファイルをHDに書き出す可能性や
サーバーにかける負担を考えると
foreachの方が良いってことですね。

ありがとうございました。
0482名無しさん＠お腹いっぱい。02/01/30 14:14ID:jvP4y3Zo
>481
ううん、逆です。
foreachのほうがその繰り返しの行程分
リソース食うって意味です。
でも多分本当に微々たる問題だと思います。
0483日付の計算？02/01/30 14:27ID:5H2ncmbe
たとえば、今日から30日後の年月日を算出すると
いった場合どうしてます？。なんかカレンダーの
テーブルとか自作しなくちゃいけないとか？

随分前から悩んでるんですけど・・。
0484名無しさん＠お腹いっぱい。02/01/30 14:33ID:???
>483
localtime(time + 30*24*3600);
0485名無しさん＠お腹いっぱい。02/01/30 15:14ID:L4I/gPlU
"@LINES"だと文字列をつくるんでリソース食わないか? あと、print foreach @LINES と print "@LINES"は$"によっては、
結果が違ってくるね

0486日付の計算？02/01/30 16:40ID:5H2ncmbe
>>484
ありがとうございます。
0487名無しさん＠お腹いっぱい。02/01/30 17:45ID:5H2ncmbe
[簡単な暗号化]

cryptのような暗号化されたものを、元の状態にもどせない
ものではなくて、

任意のキーを与えて文字列を暗号化して、またそれをその
のキーで元の文字列に復元できる。

なるたけサーバーに付加がかからない。

って何か方法があるだろうか？

もしくはもっと簡単でもいいので、今思いつく方法としては
文字コードに変換して幾つかずらして暗号化するって方法ぐ
らいかな。
0488名無しさん＠お腹いっぱい。02/01/31 03:29ID:???
>>487
その辺がお手軽では？
全く強度を気にしないならBASE64辺りでも良いだろうけど。
少し凝るなら文字コードに変換したのをKeyで作った変換テーブルで
変換すると云う手も有る(テーブルを作る都合上処理は大きくなるけど)。
或いは適当な(数学で云う)関数を作ってKeyにより係数を変動させる。
その関数に文字コードから変換した数を代入し値を出し、適当に文字に
変換なんて手もあるかも(この場合計算誤差が出ないようしなけりゃ成らない…)。

ぱっと考えたものだと上記くらいですね。
処理の重さは…知らない(笑)。
暗号強度と暗号化の複雑さは大体天秤の関係で状況に拠るから一概には
どれが良いっては言えないのは当然だから難しい問題かもしれないけど。

ちなみに自分は新たにアルゴリズム考えるのめんどいからCPAN辺りからモジュール
拾ってきて組み込んだなぁ…。
■ このスレッドは過去ログ倉庫に格納されています