Perlについての質問箱 18箱目
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん
2005/07/20(水) 05:15:36"There's more than one way to do it" ということで、Perlの奥深さについて皆で語り合い、追求してまいりましょう。
CGIについての質問は板違いです。WEBプログラミング板でどうぞ。
CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。
(WEBプログラミング板 http://pc8.2ch.net/php/ )
CGIの質問は答えがPerlと全然関係ない話に帰着する場合が多かったりするのでWEBプログラミング板に行って聞いたほうが得ですよ。
このスレでは(CGI以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。
http://www.perl.org/get.html
● 2005/03/17現在の最新版: 5.8.7
● 2005/03/17現在の開発版: 5.9.2
…携帯からなんで調べれません…(T-T)
0447デフォルトの名無しさん
2005/08/24(水) 20:46:480448デフォルトの名無しさん
2005/08/24(水) 20:46:53ネット環境を整えるか、ネットカフェなどで調べて下さい
0449デフォルトの名無しさん
2005/08/24(水) 21:23:410450デフォルトの名無しさん
2005/08/24(水) 21:29:19use integerしておいたほうがCPUに優しかったりするのかしら
0451デフォルトの名無しさん
2005/08/24(水) 21:31:53スクリプトにもよるけど、たぶん大して変らない
0452デフォルトの名無しさん
2005/08/24(水) 22:05:57yahooじゃ駄目なのかしらん？
0453デフォルトの名無しさん
2005/08/24(水) 22:19:36検索性能が段違いだから。
あと、Yahoo!は検索サイトではなくポータルサイトなので、
ページを開いた時にいろんな無関係の情報がグチャグチャ出て
重くてウザい、といった理由もある。
0454デフォルトの名無しさん
2005/08/24(水) 22:21:29そうっすよ。
MS-DOSで使ってた時はコプロが使われる数少ないソフトの１つだった（ｗ
（あとは1-2-3も使ってたっけ？）
iperl.exeとか使ってたけどね……。
>>451
そう？と思ったけど、確かに数値演算してる部分が少なければ変わんないか。
気になるならBenchmarkしよー >>450
0455デフォルトの名無しさん
2005/08/24(水) 22:52:01＞検索性能が段違いだから。
ソースは？
0456デフォルトの名無しさん
2005/08/24(水) 22:57:44というか、そもそもスレ違いの質問だと思うぞ
0457デフォルトの名無しさん
2005/08/24(水) 22:59:08ま た ソ ー ス 厨 か
訳も分からんくせに一人前の口きくんじゃねえよ。
お前は一人寂しくソースカツ丼でも食っとけ。
0458デフォルトの名無しさん
2005/08/24(水) 22:59:54ソース の検索結果 約 3,150,000 件中 1 - 10 件目 (0.08 秒)
http://www.google.co.jp/search?hl=ja&q=%E3%82%BD%E3%83%BC%E3%82%B9&lr=
yahoo
ソースで検索した結果 カテゴリ：101件 登録サイト：579件
http://search.yahoo.co.jp/bin/search?p=%A5%BD%A1%BC%A5%B9&fr=top&src=top
0459デフォルトの名無しさん
2005/08/24(水) 23:00:46そんなことするより手前のスパゲッティーソースをなんとかしろよ
と言われた
0460デフォルトの名無しさん
2005/08/24(水) 23:01:49確かに今のCPUなら浮動小数点計算だろうと普通のPerlスクリプトで使う計算程度の
計算量では大差ないかもしれませんね
>>454
MS-DOS時代って・・・大ベテランの方ですな( ´д｀;)
いや話がずれてました失礼
適当にベンチマークとって見ました所、私のPC(Athlon 1.0GHz)では、
use integerした場合、単純なインクリメント処理で約2.5倍のパフォーマンスという結果になりました。
> perl -MBenchmark -e "$c=0; timethis(10000000, sub{ $c++; });"
timethis 10000000: 3 wallclock secs ( 2.08 usr + -0.00 sys = 2.08 CPU) @ 4800768.12/s (n=10000000)
> perl -Minteger -MBenchmark -e "$c=0; timethis(10000000, sub{ $c++; });"
timethis 10000000: 2 wallclock secs ( 0.82 usr + 0.01 sys = 0.83 CPU) @ 12033694.34/s (n=10000000)
おまけ やっぱり多倍長整数演算は重いな・・・
> perl -MMath::BigInt=:constant -MBenchmark -e "$c=0; timethis(100000, sub{ $c++; });"
timethis 100000: 14 wallclock secs ( 9.61 usr + 0.02 sys = 9.63 CPU) @ 0.00/s (n=100000)
# 初め、integerとMath::BigInt=:constantを間違えて、逆に重くなった!?と思っていたのは秘密
0461デフォルトの名無しさん
2005/08/24(水) 23:03:59Yahooはこっちだろうと。
ソースで検索した結果 ページ：約41000000件
http://search.yahoo.co.jp/bin/query?p=%a5%bd%a1%bc%a5%b9&fr=top&h=p
0462デフォルトの名無しさん
2005/08/24(水) 23:06:100463デフォルトの名無しさん
2005/08/24(水) 23:10:28最近は独自のを使ってる
ttp://www.itmedia.co.jp/news/articles/0405/31/news007.html
YahooがGoogleの拾ってないページを持ってたりすることも結構あるから、
場合によっては両方で検索したりすることもある漏れGoogle信者
0464デフォルトの名無しさん
2005/08/24(水) 23:14:260465デフォルトの名無しさん
2005/08/24(水) 23:22:090466デフォルトの名無しさん
2005/08/24(水) 23:36:48だったら、yahooでもよくね？
0467デフォルトの名無しさん
2005/08/25(木) 00:02:170468デフォルトの名無しさん
2005/08/25(木) 00:10:135.8系ならbigintプラグマなんてのもあったのか
0469デフォルトの名無しさん
2005/08/25(木) 00:49:52Bの行の単語がAのどこかの行にあったら
その行を出力させたいんだけど。
open(FILE1,$ARGV[0]);
open(FILE2,$ARGV[1]);
while(FILE1){
$hoge=$__;
while(FILE2){
$pattern=$_;
if($hoge =~ /$pattern/){
print "$hoge \n";
}
}
}
0470デフォルトの名無しさん
2005/08/25(木) 00:59:02@f1 = <FILE1>;
close(FILE1);
open(FILE2,$ARGV[1]);
@f2 = <FILE2>;
close(FILE2);
foreach(@f1)
{
$i=$_;
foreach(@f2)
{
if($_ =~ /$i/)
{
print "$_\n";
}
}
}
こんなんどう？FILE1の存在行の分だけFILE2でまわすから効率悪いんだが
0471デフォルトの名無しさん
2005/08/25(木) 01:01:040472デフォルトの名無しさん
2005/08/25(木) 01:07:08先にパターン一覧を読み込んでおいてそれぞれの行で回すのが一番手っ取り早いかな
こんな感じでどうだろ
my @patterns = ();
open(IN, $ARGV[1]);
while (<IN>) { chomp; push(@patterns, $_); }
close(IN);
open(IN,$ARGV[0]);
while(<IN>){ my $line=$_;
foreach my $pattern (@patterns) {
print $line if $line =~ /$pattern/;
}
}
close(IN);
0473472
2005/08/25(木) 01:08:300474デフォルトの名無しさん
2005/08/25(木) 01:52:060475デフォルトの名無しさん
2005/08/25(木) 02:00:14せっかくだから、最初に1つの正規表現に加工する場合の例を書き捨て。
open(FILE1,"<$ARGV[0]");
open(FILE2,"<$ARGV[1]");
my $ptn;
while(<FILE2>) {
chomp;
$_ = quotemeta($_);
$_ = join($_,'\b','\b') if m/^\w+$/;
$ptn .= join($_,'(',')|');
}
substr($ptn,-1) = '';
close(FILE2);
eval("m/$ptn/ && print while <FILE1>");
close(FILE1);
0476デフォルトの名無しさん
2005/08/25(木) 03:17:41俺は盆休みに東京から福井県にあるヨーロッパ軒までソースカツ丼食べに行った。
マジで美味かったよ。
0477デフォルトの名無しさん
2005/08/25(木) 13:01:14くだんない話引っぱるなよ、夏厨。
0478デフォルトの名無しさん
2005/08/25(木) 14:40:21ごめんな。
0479デフォルトの名無しさん
2005/08/25(木) 19:28:11みなさんなら、どんな構成になるでしょうか。理由込みで。
0480デフォルトの名無しさん
2005/08/25(木) 19:51:52幾つかも何も、現実的には ActivePerl 一択だが。
RAD ツールをお探しなら以下へ。
Perl書くのにどんなエディタ使ってる？
http://pc8.2ch.net/test/read.cgi/php/1014357485/
0481デフォルトの名無しさん
2005/08/25(木) 21:24:380482デフォルトの名無しさん
2005/08/25(木) 22:22:04http://hoge.com/のリンクを<a href="http://hoge.com/">http://hoge.com/<;/a>に置き換えることは出来たんですが
再編集すると、またhttp://に反応してしまって、リンクタグが変になってしまいます。
どうゆう風にすればいいでしょうか？スマートな方法とか、正規表現の例などをお願いします。
0483デフォルトの名無しさん
2005/08/25(木) 22:29:540484デフォルトの名無しさん
2005/08/25(木) 22:43:04terapad
0485デフォルトの名無しさん
2005/08/25(木) 22:46:17oedit
0486デフォルトの名無しさん
2005/08/25(木) 23:13:27説明不足ですみませんでした。<a href="http://">リンク</a>みたいなこともやるので、
タグにかこわれていない時だけリンクをしたいんです。
0487デフォルトの名無しさん
2005/08/25(木) 23:15:40ttp://www.din.or.jp/~ohzaki/perl.htm#AutoLink
タグで囲われてない のが条件ならこの辺どう？
0488デフォルトの名無しさん
2005/08/26(金) 00:11:54ってダブルクォーテション、改行(0X0A)以外のキャラクタという意味で
良いんですか？
0489デフォルトの名無しさん
2005/08/26(金) 01:11:19なんだか難しくてよくわからないので自分で書いてみたけど、$1がすごく変です・・・上手くはいったから良いでしょうか？？
$value =~ s/http:\/\/([\w|\!\#\$\%\&\'\(\)\=\-\^\`\\\|\@\~\[\{\]\}\;\+\:\*\,\.\?\/]+)/<a href=\"http:\/\/$1\">http:\/\/$1<\/a>/g;
この拾った正規表現を以下のように変更しました
$value =~ s/([^"'=><])(http|https|ftp):\/\/([\w|\!\#\$\%\&\'\(\)\=\-\^\`\\\|\@\~\[\{\]\}\;\+\:\*\,\.\?\/]+)/\1<a href=\"\2:\/\/$3\">\2:\/\/$3<\/a>/g;
0490デフォルトの名無しさん
2005/08/26(金) 01:47:460491デフォルトの名無しさん
2005/08/26(金) 01:53:000492デフォルトの名無しさん
2005/08/26(金) 01:55:320493デフォルトの名無しさん
2005/08/26(金) 01:57:070494デフォルトの名無しさん
2005/08/26(金) 01:59:46なんだかんだ言ってもこのスレの回答者はいい奴ばかりなんだよ。
ソースカツ丼でも食べて落ち着いてくれよ。
0495489
2005/08/26(金) 02:14:26どうしたらいいでしょうか
0496ヽ(´ー`)ノ ◆.ogCuANUcE
2005/08/26(金) 02:46:13Regexp::Common 使った方が良いかと。
use Regexp::Common qw/URI/;
our $URI_RE = qr/
$RE{URI}{HTTP}
| $RE{URI}{HTTP}{'-scheme' => 'https'}
| $RE{URI}{FTP}
/x;
our $HREF_ATTR_RE = qr/
href
| action
| src
/ix;
s@(^|(?:$HREF_ATTR_RE)[^='"])($URI_RE)@$1<a href="$2">$2</a>@g;
とりあえず、こんなもんですか。
0497デフォルトの名無しさん
2005/08/26(金) 03:56:05拡張構文が使えるなら (?<!["'<=>]) でいけると思う。
それよりも、そもそもの設計をやり直した方がいいぞ。
例えば http://aaa/bbb?https://ccc/ddd?ftp://eee#fff みたいな
URI があるとおかしなことになる。RFC 3986 的にはおそらく valid。
0498ヽ(´ー`)ノ ◆.ogCuANUcE
2005/08/26(金) 04:55:40$HREF_ATTR_RE いらんね。
use Regexp::Common qw/URI/;
our $URI_RE = qr/
$RE{URI}{HTTP}
| $RE{URI}{HTTP}{'-scheme' => 'https'}
| $RE{URI}{FTP}
/x;
s@(^|[^='"])($URI_RE)@$1<a href="$2">$2</a>@g;
>>497
別におかしくならない。
例えば http://aaa/bbb?https://ccc/ddd?ftp://eee#fff みたいな
例えば <a href="http://aaa/bbb?https://ccc/ddd?ftp://eee">http://aaa/bbb?https://ccc/ddd?ftp://eee</a>#fff みたいな
$RE{URI}{HTTP} が fragment を処理しないから、そこで切れちゃうけど。
設計の是非はともかく、やっつけ仕事でこういうのやりたくなる時って
あると思うけど。
0499489
2005/08/26(金) 18:35:23497さんの方法で出来ました。ただそうゆうURLが出ると再編集のときにおかしくなりますね。
もうちょっと正規表現について勉強しようと思います。
0500デフォルトの名無しさん
2005/08/26(金) 22:00:360501デフォルトの名無しさん
2005/08/26(金) 22:01:440502デフォルトの名無しさん
2005/08/26(金) 22:06:190503デフォルトの名無しさん
2005/08/26(金) 22:07:08たくさん、ありますね・・
0504デフォルトの名無しさん
2005/08/26(金) 22:10:40これ最近出た奴だけど評判良いみたいだから勧めとく
0505デフォルトの名無しさん
2005/08/26(金) 22:30:480506デフォルトの名無しさん
2005/08/26(金) 22:43:010507デフォルトの名無しさん
2005/08/26(金) 23:11:42Encode.pmの作者がレビューしてるなｗ ここも見てるのかな。
0508デフォルトの名無しさん
2005/08/26(金) 23:14:58Ｔｋとか
GUI::Loftとか
で、PARでexeにするとか？
0509デフォルトの名無しさん
2005/08/26(金) 23:17:190510デフォルトの名無しさん
2005/08/26(金) 23:21:07弾氏が評価してるようですね。
邦訳はいつ頃になるんだろう・・
はてなの人が翻訳した本が今度出るらしいですね。
方向としては＞504と近いのでしょうか？
Effective Perl 、Perl CookBookってどうですか？
0511デフォルトの名無しさん
2005/08/27(土) 01:30:04両方ともオススメ。
クックブックは原著買っても良いかも。この手の本は分冊されてると
ちょっと使いにくいんじゃないかなと思うんで。安く済むし。
0512デフォルトの名無しさん
2005/08/27(土) 11:48:182進法から10進法、10進法から2進法に変換するには、どの様に記述すれば良いのでしょうか？
Perl云々以前の話だと思うのですが・・・
0513デフォルトの名無しさん
2005/08/27(土) 11:55:520514デフォルトの名無しさん
2005/08/27(土) 12:00:34具体的には上記の様な20項目程のスイッチがありまして、
それを10進法に置き換えてファイルに格納したいのです。
そのままcsv形式で格納しても良いのですが、スイッチを随時増やす予定なので。
圧縮が目的ですので8進法でも16進法でも問題ありません。
途中で送信してしまいました。
>>513
無い訳がないですよね・・・もう一度ググってきます。
0515デフォルトの名無しさん
2005/08/27(土) 12:24:12Perl以前どころか、10進法、2進法以前の話。
0516デフォルトの名無しさん
2005/08/27(土) 12:55:38packのb/Bかvecあたりを勉強するのがいいんじゃないかと。
0517デフォルトの名無しさん
2005/08/27(土) 13:54:32６４進数へ変換すれば、速度落とさずに効果出ますよ
0518デフォルトの名無しさん
2005/08/27(土) 14:00:550519514
2005/08/27(土) 14:24:54packとunpackの使い方で、進数の変換が出来るのですね。
ヒントをありがとうございました。勉強してみます。
>>517
そのものズバリのモジュールがあったのですか。検索が全然足りませんでした。
速度が気になりますが、取り敢えずは関数で処理してみたいと思います。ありがとうございました。
0520デフォルトの名無しさん
2005/08/27(土) 14:25:20直接可読である必要があるのだろうか。
0521デフォルトの名無しさん
2005/08/27(土) 14:40:51進数がどうこういうのが直接の目的じゃなくて1と0だけのデータ
を効率よく少ない記憶領域に詰めこみたいというのが本来の目的
みたいだから、perlならpack使うのが自然じゃないかな。
0522デフォルトの名無しさん
2005/08/27(土) 15:08:160523デフォルトの名無しさん
2005/08/27(土) 15:15:450524デフォルトの名無しさん
2005/08/27(土) 16:19:050525デフォルトの名無しさん
2005/08/27(土) 16:43:49hoge.plをダブルクリックするとコマンドプロンプトが出るのですが
必要ないので出ないようにするにはどうすればいいの？
0526デフォルトの名無しさん
2005/08/27(土) 16:45:130527デフォルトの名無しさん
2005/08/27(土) 17:56:56>>58>>60>>61
0528デフォルトの名無しさん
2005/08/27(土) 20:42:38-e $File
が偽を返すようです。
対処法をご存知の方、よろしくお願いします。
$FileはTkのgetSaveFile()の返却値が入っています.
0529時間があったらでいいわよっ、あ、でも来て欲しいな
2005/08/27(土) 20:43:17いまVIPが、世界が認めてない東海って名前を、
日本海に直してもらう作戦を行ってるのは、当然知ってるわよね？
VIPPERの力で、Googleが東海の単独表記を取り下げたのは有名ね。
でも、いまVIPは大きな問題を抱えてる。
ITスキル、特に鯖関係のものが、圧倒的に足りないのよ。
それでなんだけど・・・んちょっと、、、VIPに協力してほしいのよね。
べ、べつにあんただったから頼みに来たわけじゃないわよ！勘違いしないでよね！
でも、あなたの力があれば、日本海を取り戻すのが近くなるのは・・・確かだわ。
もし・・・協力してくれるんなら、このスレに書き込んでほしい。
http://ex11.2ch.net/test/read.cgi/news4vip/1125074145/
・・・・やっぱり、あなたに協力して・・・ほしいから。
0530デフォルトの名無しさん
2005/08/27(土) 21:22:222バイト文字って、何? シフトJISのこと?
0531デフォルトの名無しさん
2005/08/27(土) 22:01:58処理結果はファイル経由でやりとり。
0532デフォルトの名無しさん
2005/08/27(土) 22:28:410533デフォルトの名無しさん
2005/08/28(日) 00:28:360534デフォルトの名無しさん
2005/08/28(日) 01:13:09ハッシュやXMLの形式を取るデータをJSONの形式に変換するモジュールを使うと楽ですよ。
0535デフォルトの名無しさん
2005/08/28(日) 02:35:53数百行程度の小さなプログラムなら地道にprintできるけど
デカイものだとさすがにしんどい
0536デフォルトの名無しさん
2005/08/28(日) 02:46:36デバッガを使うといいですよ、っていうか。
小さな単位に分割して個別に攻めましょうよ。
0537デフォルトの名無しさん
2005/08/28(日) 03:19:01てかなんですかそれ
0538デフォルトの名無しさん
2005/08/28(日) 03:27:33なんだろう? 支援を中止すること? 推薦を取り消すこと?
de-buck? ドルをドル以外に変えること?
0539デフォルトの名無しさん
2005/08/28(日) 03:54:410540デフォルトの名無しさん
2005/08/28(日) 04:34:58優秀なプログラマですね
0541デフォルトの名無しさん
2005/08/28(日) 06:40:47ﾈﾀにﾏｼﾞﾚｽｶｺﾜﾙｲが…
× デバック
○ デバッグ
0542デフォルトの名無しさん
2005/08/28(日) 07:03:58で下記が出力され、hoe.exeができません。
どうやってつくるの？
Note (probably harmless): No library found for oldnames.lib
Note (probably harmless): No library found for kernel32.lib
Note (probably harmless): No library found for user32.lib
Note (probably harmless): No library found for gdi32.lib
Note (probably harmless): No library found for winspool.lib
Note (probably harmless): No library found for comdlg32.lib
Note (probably harmless): No library found for advapi32.lib
Note (probably harmless): No library found for shell32.lib
Note (probably harmless): No library found for ole32.lib
Note (probably harmless): No library found for oleaut32.lib
Note (probably harmless): No library found for netapi32.lib
Note (probably harmless): No library found for uuid.lib
Note (probably harmless): No library found for ws2_32.lib
Note (probably harmless): No library found for mpr.lib
Note (probably harmless): No library found for winmm.lib
Note (probably harmless): No library found for version.lib
Note (probably harmless): No library found for odbc32.lib
Note (probably harmless): No library found for odbccp32.lib
Note (probably harmless): No library found for msvcrt.lib
0543デフォルトの名無しさん
2005/08/28(日) 07:08:300544デフォルトの名無しさん
2005/08/28(日) 07:16:460545デフォルトの名無しさん
2005/08/28(日) 12:35:17■ このスレッドは過去ログ倉庫に格納されています