Perl コーディング初心者質問コーナー Part26
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
03/07/24 19:48ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
1： 自分はこう言う事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
関連スレ
【Perl上級者コーナーPart01】
http://pc2.2ch.net/test/read.cgi/php/1024741312/
CGI: Common Gateway Interface part 11
http://pc2.2ch.net/test/read.cgi/php/1055597189/
【Perl,CGI】参考書籍 第三版
http://pc2.2ch.net/test/read.cgi/php/1030209573/
【 スクリプト改造工房 PART 6 】
http://pc2.2ch.net/test/read.cgi/php/1047806915/
過去ログやお勧めサイトは >>2-10
0412410
03/08/02 20:53ID:lcThEZovレスありがとうございます。
早速、 print "content-type: text/html\n\n";を print "content-type: text/plain\n\n";
に直して再度うｐしてみたのですが、結果は同じでした(´･ω･`)ｼｮﾎﾞｰﾝ
誠にあつかましいのですが、他に良い方法は無いでしょうか？
どうかよろしくお願いします。
0413nobodyさん
03/08/02 20:55ID:???0415nobodyさん
03/08/02 21:04ID:84QkeiYeを、
2ちゃんねる(巨大掲示板)の詩・ﾎﾟｴﾑ板
としたい（ようは、リンクを取り除きたい）のですが、
どうすればいいのでしょうか・・・？
わからないながらに、やってみましたが、
$HTMLContents =~ s/<a href="http:\/\/(.*)">(.*)<\/a>/$2/g;
とすると、「詩・ﾎﾟｴﾑ板」しか$2に入りません。。。
0416nobodyさん
03/08/02 21:06ID:???最小マッチングでぐぐれ。
0417415
03/08/02 21:21ID:84QkeiYeさんくすです。
ぐぐりました。
$HTMLContents =~ s/<a href="http:\/\/(.*?)">(.*?)<\/a>/$2/g;
で解決しますた。
0418nobodyさん
03/08/02 21:40ID:lx3eHYOp@INCをコマンドラインで指定して実行する方法ってありましたっけ？
0419nobodyさん
03/08/02 21:42ID:???-Iオプションですね。。。
0420nobodyさん
03/08/02 21:43ID:???何故ヘルプを見ない？
-Idirectory specify @INC/#include directory (several -I's allowed)
0423nobodyさん
03/08/02 23:01ID:???print "**************************************************<BR>\n";
print "*** Hello! Welcome to the 2ch World! ***<BR>\n";
print "**************************************************<BR>\n";
0424nobodyさん
03/08/03 01:14ID:???htmlの場合はソース内の改行
当然見た目を改行させるには<br>がいる
0425412
03/08/03 09:51ID:???>>413
>>414
>>423
>>424
できました！ こんなくだらない質問に答えてくれて皆さんどうもありがとう
ございました<(_ _)>
0426nobodyさん
03/08/03 12:05ID:???くだらないつーか。text/plainを勝手にtext/htmlと解釈することがあるという
IEの仕様にからむ、とても難儀な問題なのだよ。
0427nobodyさん
03/08/03 12:21ID:???0428nobodyさん
03/08/03 13:14ID:???内容を走査して、勝手に振る舞ってるってことかな
0429nobodyさん
03/08/03 13:26ID:???そういう糞ブラウザは、image/png でハードディスクの内容を消去するバイナリが埋め込まれていると、
実行しちゃうんだろうなぁ。。。
0430nobodyさん
03/08/03 15:35ID:???&foo( %ENV, "sample", 123456 );
sub foo
{
my (%a, $b, $c ) = @_;
}
こうやっても、%a $b $c に何も入ってこないよ～
解らないよ～ヽ(´Д`；)ﾉ
0431nobodyさん
03/08/03 15:49ID:???0432nobodyさん
03/08/03 15:59ID:???0433nobodyさん
03/08/03 17:33ID:???&foo( \%ENV, "sample", 123456 );
sub foo
{
my ($a, $b, $c ) = @_;
my %a = %$a;
}
リファレンスについては http://www.kt.rim.or.jp/~kbk/perl5.005/perlref.html
0434nobodyさん
03/08/03 17:42ID:???先越された(´･ω･`)
んじゃ一応補足……$a->{HOGE} とやればハッシュをコピーしなくてもそのまま参照可能。
配列の場合も同じように。
0435nobodyさん
03/08/03 17:47ID:???ハッシュは(key1,value1,key2,value2・・・)となってるただの配列。
で、配列は展開されちゃうから、
my %hoge = (1=>'a', 2=>'b');
&foo(%hoge, "sample", 123456);
sub foo {
my (%a, $b, $c ) = @_;
}
と書くと、%aには(1,'a',2,'b',"sample",123456)が入り、$b,$cはからになる。
ちなみにリファレンスを使うのが普通だが、使わないでやりたいなら
my %hoge = (1=>'a', 2=>'b');
&foo("sample", 123456, %hoge);
sub foo {
my ($b, $c,%a) = @_;
}
とすることもできる。
0436nobodyさん
03/08/03 17:50ID:???$a->{HOGE}とやると参照渡しになるので、その中身を変更しようとすると実引数の中身も書き変わる。
$ENV{HOGE} = 'hage';
&foo( \%ENV, "sample", 123456 );
print $ENV{HOGE}; # higeが表示される
sub foo
{
my ($a, $b, $c ) = @_;
$a->{HOGE} = 'hige'
}
0437nobodyさん
03/08/03 18:23ID:???値を@_へコピーするのに時間がかかる(メモリも喰う)から、
なるべくリファレンスを使うのをお勧めします。
0438nobodyさん
03/08/03 18:27ID:???> ハッシュは(key1,value1,key2,value2・・・)となってるただの配列
ソースキボンヌ
つーか、ただの配列だったらでかいハッシュに対して$foo{bar}なんてことは気軽に出来ないから、間違いじゃねーの。
0439nobodyさん
03/08/03 19:13ID:???0440430
03/08/03 19:27ID:???Cで言うと、アドレス（orポインター）渡しみたいなもんですか？
なんか、少し混乱気味ヽ(´Д`；)ﾉ
>>433-435 さんのレスを参考にコーディングしてみます。
0442nobodyさん
03/08/03 19:45ID:???0443nobodyさん
03/08/03 20:01ID:???ﾊｧ?
＞ただの配列だったらでかいハッシュに対して$foo{bar}なんてことは気軽に出来ないから
何をおっしゃってますか？
内部でハッシュ関数を呼び出して、得られた値をインデックスとして使っているのですよ。
配列はランダムアクセスできるからO(1)じゃん。
0447nobodyさん
03/08/03 21:55ID:HoJp4WnKContent-typeの表示が問題と思い、
なんとかEncoding:gzipかなんか書いたんですがだめでした。
何が問題と考えられるでしょう。
0448nobodyさん
03/08/03 22:08ID:???0449nobodyさん
03/08/03 22:10ID:???>>1を読まないのが問題。
2度と来るなとは言わんが、>>1を1日10回読んで1週間後にまた質問しに来い。
今日はもう書き込むな。
0452nobodyさん
03/08/04 13:19ID:???0453nobodyさん
03/08/04 13:53ID:???0454nobodyさん
03/08/04 14:08ID:???0455nobodyさん
03/08/04 15:43ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
また過去ログも情報の宝庫です。よく探してみましょうね。
1： 自分はこう言う事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
【よくある勘違い】
CGI ≠ Perl です。
判らなければまずはググってみましょう。＞ http://www.google.co.jp/
【初心者の扱い】
「初心者」だからといっても容赦しませんことよ。ふふふ。
0456nobodyさん
03/08/04 15:48ID:???差分取るソフトで使いやすくて便利なソフト教えてください。
早速、落としてこれから使っていこうと思いますので。
0459nobodyさん
03/08/04 16:33ID:???ソースはここから落とせるよ。
http://www.perl.com/pub/a/language/info/software.html
0460nobodyさん
03/08/04 16:47ID:???>>456の想像しているものとは違う気がする。
気の利いたエディタなら普通についてそうだし、
Windows用のを探しているなら「Windiff」で腐るほどヒットする。
# つか捻りの無いソフト名多すぎ:)
0461457
03/08/04 16:48ID:???# つか捻りの無いソフト名多すぎ:)
だな。俺もさっき調べてたけどWindiffって名前で色んな奴があるよな。
Cygwin入れてるから別にいいんだけどな。
0465nobodyさん
03/08/04 20:06ID:???漏れもうすぐネカフェの時間なので
0466あぼーん
NGNG0467あぼーん
NGNG0468あぼーん
NGNG0469nobodyさん
03/08/04 20:47ID:???負荷を考えると、ループの中でevalを使いたくないのです。
（ループさせる回数がとても多いので。）
現状では、こういう風にやってます。
eval('use Time::HiRes;');
if ( $@ eq undef ) {
require './lib/bench.pl';
$HIRES = 1;
&bench::start;
} else {
require './lib/dummy_bench.pl';
}
最初にこういう風にしておいて、
続く
0470nobodyさん
03/08/04 20:47ID:???package bench;
use strict;
use Time::HiRes;
sub start {
処理ほげほげ
}
sub check {
処理ほげほげ
}
1;
dummy_bench.plの中身は
package bench;
sub start {
}
sub check {
}
1:
Time::HiResが必要な処理の時は
&bench::check
等として呼ばれるわけですが、最初のevalのチェックで失敗してたら
ダミーのほうが読み込まれているので空のサブルーチンが呼ばれます。
このやり方について2点疑問があります。
1.ファイル名とパッケージ名は同一でなければならないと聞いたことがありますが、これはやってはいけない方法なのですか？
2.もっとスマートな方法があるならご教授ください。
0471nobodyさん
03/08/04 20:54ID:???0472nobodyさん
03/08/04 21:40ID:???1. 自分が何をやっているのか理解しているなら問題ない。
2. Time::HiRes の存在チェックを bench.pl 内でやれば
dummy_bench.pl は不要。
#--- Bench.pm ---
package Bench; # 小文字のみのパッケージ名はプラグマ
use strict;
eval ('use Time::HiRes;');
my $EnableHiRes = $@ ? 0 : 1;
sub start;
*start = $EnableHiRes ? sub { ... } : sub { ... };
#--- Bench.pm を使うスクリプト ---
use Bench;
Bench::start();
0473469
03/08/04 21:50ID:???とてもためになります！
これがきっかけで
ついでにいろいろ気になることも増えてきたので
勉強中です。。
0474469
03/08/04 23:32ID:???サブルーチンの定義自体をevalしないと
モジュールがないとき動きませんでした。
sub start;
*start = $EnableHiRes ?
eval 'sub { use Time::HiRes; ほげほげ }' : sub {};
#単純にevalの中でuseしてもされてないのでこうするしかないような
0475nobodyさん
03/08/05 00:29ID:???何故また use し直すんだ? 下のコードで試してみ。
Time::HiRes が存在すれば実際に sleep した時間が、
無ければ常に 1 が返ってくる。
#--- Stop.pm ---
package Stop;
use strict;
eval('use Time::HiRes qw(usleep);');
my $Enable = $@ ? 0 : 1;
sub stop;
*stop = $Enable ? sub { usleep($_[0] * 1_000_000) } : sub { sleep($_[0]) };
1;
__END__
#--- test.p ---
#!/usr/local/bin/perl
use strict;
use Stop;
local $| = 1;
print 'foo,';
my $wait = Stop::stop($ARGV[0]);
print "bar. ($wait)\n";
__END__
0476469
03/08/05 01:03ID:???まじすいませんです。
475のコードでもいろいろやってみました。
evalしないと動かなくなっていたのは
以後の処理のほうに問題があるっぽいです。
あるっぽいというのは、最小限の部分だけコード取り出して
いろいろ試してたら今動いたので。
これからじくーり調べます。
ほんとたすかりました。
0477nobodyさん
03/08/05 01:12ID:???if (require Time::HiRes) {
$Enable = 1;
Time::HiRes->import('usleep');
}
0478nobodyさん
03/08/05 05:31ID:???具体的には
「日本語 ファイル名テスト用ファイル.txt」を
%C6%FC%CB%DC%B8%EC%20%A5%D5%A5%A1%A5%A4%A5%EB%CC%BE%A5%C6%A5%B9%A5%C8%CD%D1%A5%D5%A5%A1%A5%A4%A5%EB.txt
このようにしたいのです、変換元の日本語はEUC(自身無い)です
今、他人のCGIをいじっているのですがそもそも反対のことをしているのはわかっているのですが
うまく、上の形になりません、何か効率のいい方法はありませんか?
0479478
03/08/05 05:33ID:???>うまく、上の形になりません、
うまく、上の形の文字列が取得できません
0480nobodyさん
03/08/05 06:02ID:???$str =~ s/(\W)/'%'.unpack("H2", $1)/ego;
print $str;
0481nobodyさん
03/08/05 10:33ID:???と
eval('use Time::HiRes;');
は何が違うの?
0482nobodyさん
03/08/05 11:03ID:???前者は実行できなかった時にコンパイルエラーになる。
後者は実行できなくてもそのまま進む。
0483nobodyさん
03/08/05 11:28ID:???俺の実力では原因が特定出来ないので相談にのってもらいに来ました。
ファイルの書き換えなのですが、日頃正常に動いていた動作で、
突然ファイルの中身が消滅してしまい、「0バイトのファイル」になってしまいました。
記述内では、ファイルを書きかえる処理として、
open(FILE,">$log_file");
print FILE $log_code;
close(FILE);
このようなもの「のみ」あり、$log_codeには必ず何かが代入されています。
$log_code に何かが代入されているのはこのプログラムの基本で、代入されていないわけはありません。
また、今回発生したバグと同一の処理は日頃から普通に行っていました。
また、このファイルは複数人数が書き換える物ではなく、
ID登録した「一人の人物」が書き換えるものなので、ファイルロックなどはしていませんでした。
今回のバグで、ファイルの中身が消滅してしまう原因となったアクセス者は、
「俺自身」です。
プログラム作者は俺自身なので、微妙に動作は怪しいですが、今回のは想定外のバグで、原因がつかめないでいます。
記述を考えても、処理自体のバグでファイルが消えてしまった事は非常に考えにくいのですが、
これは取り敢えず、
「処理自体のバグ」を疑うべきでしょうか？
「システムのファイル書き換えミス」を疑うべきでしょうか？
m(__)m
0484あぼーん
NGNG0485nobodyさん
03/08/05 11:55ID:???デバッグにおいてこういう思い込みは最大の敵。
必ずテストを行ない、その結果を確認する事。
この場合なら、openの前後の行にprintで$log_codeを表示させてみる。
はっきり言えば、>483の説明だけではなんとも言えない。
情報が少なすぎる。
0486nobodyさん
03/08/05 12:24ID:???die "Error : \$log_code" unless ($log_code);
とか
これを機にいろいろトラップしとき
0488nobodyさん
03/08/05 14:17ID:???両者の違いは、一気に構文解析がされるかされないか。
eval BLOCKの場合はそうされるので、eval 文字列よりも高速
0489483
03/08/05 14:46ID:???ありがとうございます。
同じように再現しようと思っても日頃からやってるのと同じ処理なので困ってました。
今度から、ことごとくプログラム内でエラーチェックしておくようにします。
バグの原因が分からない時ってスッキリしないですね。。。。汗
0490nobodyさん
03/08/05 16:01ID:???超高速でダブルクリックして呼び出しかけたらどうなんねん？
0491nobodyさん
03/08/05 17:42ID:???ｸﾚｽ
0493492
03/08/05 18:45ID:???もうひと言付け加えると今まで正常に動いていたのは$log_fileが軽かったから。
$log_fileのサイズが臨界点に達すると、鯖がいい加減にしろと作業途中で職場放棄。
0494483
03/08/05 20:36ID:???みなさんありがとうございました。
大変参考になりました。
>>492
それを回避するには、ファイルを２つ用意し、バックアップも常に生成しておけ…
と言う事でしょうか？
0495nobodyさん
03/08/05 20:58ID:???0496nobodyさん
03/08/05 21:07ID:???0498nobodyさん
03/08/05 22:11ID:???どのくらいよ？
0499nobodyさん
03/08/05 22:25ID:LRtAIpMcmy $et = int(rand(9));
if($et == 3){
srand(time|$$);
$et =int(rand(2)) ;
if($et == 0) {
①
}else{
②
だと、全部①になります。
２つ目の srand(time|$$); を無くすと、
正常になりますが、どうしてでしょうか？
0500nobodyさん
03/08/05 22:25ID:???排泄処理…？プロセス事故死の話だろ？
>>494が正解。
ただlogを毎回自動バックアップしてたら壊れたファイルも…ってことになるから、
その変自分のにあったうまい方法を考えておく事。
>>498
perlのメモリ管理はperl自身でやっているから、
つまり鯖によって設定が（ｒｙ
0501nobodyさん
03/08/05 22:29ID:???なんで２回も初期化してるのかは知らんけど。
randの出しかたはアルゴリズムがマシンによって違うぞ。
俺の勘では、それwin系のシステムで使ってないか？
0502あぼーん
NGNG0504nobodyさん
03/08/05 23:34ID:???これを動かしてみそ。
srand(time|$$);
my $base = rand;
print "base = ", $base, "\n";
srand(time|$$);
print "base*3 = ", $base*3, " rand(3) = ", rand(3), "\n";
srand(time|$$);
print "base*2 = ", $base*2, " rand(2) = ", rand(2), "\n";
しかし、srand(time|$$)って、Win系だと数列がほとんど変化しない予感。
0505あぼーん
NGNG0507504
03/08/06 01:10ID:???処理系によるかもしれませんが、大抵、srandに同じ乱数シードを与えると
randで読み出す乱数列が同じ物になります。
>>499の複数回のsrand(time|$$)で、$$(プロセスナンバー)は変化しません。
timeは一秒ごとに更新なので、これもほとんど変化しません。
つまりrandの前でsrand(time|$$)を実行することによって、(かなりの確率で)
同じ数列を読み出してることになります。
rand(n)はrand()*nと(最低でもperl5.005_03以降は)等価なので、
int(rand(9))==3が成り立ちrand()値が同じ場合、rand(2)で得られる値は
3.0/9*2=0.666..から3.999../9*2=0.888..までの値になります。
よってint(rand(2))で得られる値は常に0になります。
…多分ね。
0508nobodyさん
03/08/06 09:23ID:7imIHn2Wパッケージ($package)のシンボルテーブルを、%stabで参照できるようにする
コードとして、赤ラクダ本に次のように書いてありました。
local(*stab) = eval("*_$package");
(*_$packageの部分は、Perl5では、*{${package}::}だと思います。)
このevalは何をしているのでしょうか? あっても、なくても同じでしょうか?
perl4ではシンボリックリファレンスは使えなかったから、eval()が必要だった。
今ではわざわざeval()する必要はないね。
ついでに型グロブで別名をつける必要も無い。
my $stab_ref = \*{$package."::"};
これでシンボルテーブルへの参照を直接使えばいい。
0510nobodyさん
03/08/06 10:57ID:7imIHn2Wどうも有り難うございます。でも、Perl5でシンボリックリファレンスを使え
ないようにして、しかもevalなしでも動いてしまうのが不思議です。
use strict 'refs';
$package = 'main';
local(*stab) = "*${package}::";
while (($key, $val) = each(%stab)) {
local(*glob) = $val;
if (defined $glob) { print "$key => $glob\n"; }
}
あ、ホントだ。
多分、perl5からだと思う。
でも折角のstrict 'refs'なのに…変な仕様だね。
■ このスレッドは過去ログ倉庫に格納されています