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
0376nobodyさん
03/08/01 17:30ID:???ヒントを乞う位なら構わんけどさ、自助努力の前にしつこく説明してクレクレ言う椰子は嫌だな。
一々誰かの時間を奪ってまで問答を求めるのは「上手な利用」とは言わない。
先人の知識ってのは先に書籍とかを当たった方がはやい。
それでも詰まったときに質問するのはアリ。
試行錯誤をめんどくさがり過ぎてるのがミエミエな奴はムカツク。
0378nobodyさん
03/08/01 18:06ID:???0379nobodyさん
03/08/01 18:46ID:???0380nobodyさん
03/08/01 19:50ID:???>>1 に書いてあるじゃん
【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
1： 自分はこう言う事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
これに反するような質問が悪い例
0381nobodyさん
03/08/01 20:31ID:???0384nobodyさん
03/08/01 21:44ID:???質問を乞うぐらいにならんと上達せんよ。
まあ、中途半端な奴に言ってもわからかな。はは。
0385nobodyさん
03/08/01 21:47ID:???常識や礼儀を覚えてない奴は勘弁してくれ。
0386nobodyさん
03/08/01 22:18ID:???0387nobodyさん
03/08/01 22:21ID:???マトモな質問者なら大歓迎なのれす。
0388nobodyさん
03/08/01 22:50ID:???0389nobodyさん
03/08/01 22:58ID:???0390nobodyさん
03/08/01 22:58ID:???普通に質問しても「氏ね」とか言われたもんだ。
ここまで丸くなった２ちゃんでまだ叩かれてるような奴って……
0392nobodyさん
03/08/01 23:17ID:???0393nobodyさん
03/08/01 23:28ID:???これが見事に実践されてるわけだな。
アフォな質問にはアフォな回答が。
0394nobodyさん
03/08/01 23:48ID:???質問するときは内容をよく吟味してから投稿してください。
0396nobodyさん
03/08/02 01:55ID:O5cg5dSHsrand(time|$$);
を付けないと、rand が時間で決まってしまいます。
そんなもんなんですか？
0397山崎 渉
03/08/02 02:20ID:???（ ＾＾ ）＜ ぬるぽ（＾＾）
0400ぼるじょあ ◆ySd1dMH5Gk
03/08/02 04:48ID:???ﾋﾟｭ.ｰ （ ・３・） ( ＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
＝〔~∪￣￣￣∪￣￣〕
＝ ◎――――――◎ 山崎渉&ぼるじょあ
0401398
03/08/02 04:51ID:???0402nobodyさん
03/08/02 08:53ID:???0404nobodyさん
03/08/02 10:25ID:???0405nobodyさん
03/08/02 11:24ID:???while(time%60){
# wait..
}
print rand(), "\n";
をf複数のプロセスで動かしてみたけど、全部違う値になったよ。
WindowsXpHome ActivePerl 5.6.1/FreeBSD Perl 5.8.0/Linux Perl 5.6.1
実行環境と同じ値になる根拠をしめしてください。
0407nobodyさん
03/08/02 14:08ID:???@dat = split(/<>/, chomp $tmp);
$log[$i] の改行コードを省いたものをカットして @dat に格納して処理したいんですが、
$log[$i] そのものの改行コードは残しておきたく、$tmp を使っています。
これを一発で表現する方法を教えてもらえませんか？
0408nobodyさん
03/08/02 14:26ID:???@dat = split(/<>/, $log[$i]);
chomp $dat[-1];
0410nobodyさん
03/08/02 20:02ID:???*** Hello! Welcome to the 2ch World! ***
**************************************************
と表示しようとして、
#!/usr/bin/perl
print "content-type: text/html\n\n";
print "**************************************************\n";
print "*** Hello! Welcome to the 2ch World! ***\n";
print "**************************************************\n";
とメモ帳に入力してmona.cgiという名前で保存し、tok2.comにffftpを使ってうｐしたのですが、
いざ結果を見てみると、
************************************************* *** Hello! Welcome to the 2ch World! ***
*************************************************
と言う風に表示されてしまいます。
どうしたら一番上のような結果にすることができるのでしょうか？
OSはWindowsです。どうかよろしくお願いします<(_ _)>
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__
■ このスレッドは過去ログ倉庫に格納されています