【Perl】初心者コーナーPart11
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
02/03/27 12:53ID:wAXxxOxPいらっしゃーい、Perlの「コーディング」で困ってる人のスレです。
1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
1と3が無いと誰も答えられないよ、良い回答は良い質問から。
一緒に勉強しましょう。
参考書籍はこちら【【Perl,CGI】参考書籍 第２版 】
http://pc.2ch.net/test/read.cgi/php/988809842/
CGIの質問はこちら【CGIだけどなんか質問ある Pert 5.01 】
http://pc.2ch.net/test/read.cgi/php/1015127347/l50
その他の雑多な話題は、【CGIに依存しないPerlの話題一般】
http://pc.2ch.net/test/read.cgi/php/991313362/
過去ログ、その他の役立ち情報は>>2-10を見よう。
0283nobodyさん
02/04/07 00:03ID:???絶対パスは使えないことがある。詳しくはここ参照。
http://tohoho.wakusei.ne.jp/wwwssi.htm
>>277>>280
真性か？
0284nobodyさん
02/04/07 00:04ID:D+FXhcqD0286nobodyさん
02/04/07 00:58ID:???それは日が１から始るなら月も１からにせんかい！
ってことなんだろうけど、月の表記は日本のように数的でなく
Januaryなどのように文字で表すのが一般的だからじゃない？
日は1st, 2ndって数での記述が普通だからそれに合わせたんでしょ、おそらく。
0287nobodyさん
02/04/07 03:14ID:???違う、知ったかｶｺﾜﾙｲ
0290nobodyさん
02/04/07 07:03ID:???Perlのモジュールって、ネイティブコードで動くの？
ようするに、早いの？
なんか/usr/lib/perl5/に
ごちゃっといっぱい入ってるんだけど、
皆、?,pmとか、?.plなんだよね、これって普通のソースだよね、
単に、requireでファイルをインクルード
してるのと、変わらないのかしら？
どうなの？
0291k
02/04/07 07:48ID:1Y8RzvgS「返信」とか「次の１件」とかのボタンをボタンじゃなくて
画像にしたい場合はどうすればいいですか？
0292nobodyさん
02/04/07 08:10ID:???第二に、それを知らなくてもできる方法はあるがperlは関係ない。
掲示板の作者に聞くか、ウェブ制作板のjavascript関係のスレで質問しましょう。
0294nobodyさん
02/04/07 10:02ID:l6zqVn0khttp://tohoho.wakusei.ne.jp/html/input.htm
0297292
02/04/07 12:36ID:???再帰ックなレスだな。
なるほど．．画像といったらアンカータグかと．．。
まあ「ボタンじゃなくて．．」っていう>>291は画像貼り付けたボタンもNGかもね。
0298nobodyさん
02/04/07 12:50ID:KHtC3gVA今は正規表現でホストにproxy ns cacheを含むリモートホストを弾くようにしているのですが
他に追加すべき単語はあるでしょうか？
海外の匿名串は弾けなさそう・・・
0300298
02/04/07 13:55ID:KHtC3gVAそれも考えたんだけどポートスキャンしないとダメだから
大掛かりなスクリプトを組まないとだめだろうなぁ。
cookieを併用してみるのも考えてみます。
ありがとうございます。
0301
02/04/07 15:23ID:V4vspG98ある変数のなかのメッセージから改行コードをマッチングさせて
改行が特定の数になったらそれ以降を切り捨てるやりかたをおしえてください
0302nobodyさん
02/04/07 15:53ID:???$message =~ s/\n{$n,}//g;
0303nobodyさん
02/04/07 15:55ID:???改行3個目以降切り捨て。
多分最適化の余地あり。
0304nobodyさん
02/04/07 17:54ID:???$str = ($str =~ /^((?:.*\n){$limit})/ ? $1 : $str);
303氏のよりも少しだけ速い
0305
02/04/07 19:04ID:V4vspG98ありがとうございます
0306nobodyさん
02/04/07 19:08ID:???$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/</</g;
$value =~ s/>/>/g;
これだと全部<>になってしまいますよね？
なんかいい方法はないでしょうか？
具体的には <<<<>><を <<<<>>< みたいな感じにしたいのですけれど。。
いろいろ探したのですが見つかりませんでした。。
0307nobodyさん
02/04/07 19:20ID:???&は&と書くか全角で＆と書くかしてくれ
0308nobodyさん
02/04/07 19:53ID:???Cのlimit.hの
$_ = INT_MAX - 1 ;
みたいな事したいのだ！
0309nobodyさん
02/04/07 20:46ID:???0310
02/04/07 20:59ID:V4vspG98>>304の方のほうがうまくいきません。
私のせいかもしれませんがどこがわるいのかわからないです・・・
0311nobodyさん
02/04/07 21:00ID:mbQ4bo4Fデータファイル内のあるデータと一致する行だけを消す方法で
定番のやり方はあるのでしょうか？
ファイルを全部読み込んで、リストにして一致する行以外を
別のリストに作成して、書き込む方法では力づくっぽい気がしまして・・
ご教授よろしくお願いします。
0312nobodyさん
02/04/07 21:18ID:???改行数の設定はちゃんとしてる？
my $limit = 3;
0313nobodyさん
02/04/07 21:39ID:???ファイルを１行ずつ読み、あるデータと一致しない行を
適当なファイルに書き出していく。
そのファイルを元ファイルと置き換える。
ってのが定番でないかな。最適かどうかは知らんけど。
0314
02/04/07 21:42ID:V4vspG98はい、というか直接数字いれました・・・
0315nobodyさん
02/04/07 22:04ID:???じゃあヽ( ´ー｀)ノﾜｶﾞﾝﾈｰｽ。漏れのところではきっちり動くんだけどなあ。
perl -w とか use strict; とかしたらエラーは出る？
0316やさしいお兄さん
02/04/07 22:53ID:???どうやらこの板は初心者ばかりのようだからわたしがこたえておきましょう。
一応、複数環境（OS)対応版をつくってみました。まちがってたらツッコメや！
my( $nl )= "\x0d?\x0a|\x0d"; # 複数環境用改行パターンテンプレート
my( @lim )= (0, 3); # 繰り返し回数設定
my( $set ); # 取り出し文字列セット用
;# パターンをセットする
($set)= /^((?:(?:(?!$nl).)*(?:$nl)?){$lim[$[],$lim[$[+1]})/o;
0317やさしいお兄さん
02/04/07 23:06ID:???痛々しくてみてなれないネー！
なぜハッシュをつかわないのか？ こういうときのためのハッシュだと必ず本には書いてある
はずだが、まだ理解できてないようだな！
0318nobodyさん
02/04/07 23:09ID:???一応煽ってあげよう。
この板は初心者ばかりとか言っておきながら間違ってたらツッコメってどーゆーことだ。
この板の連中よりも上級者なら自分で考えろ。
で、 >>314は303方式で出来てるならそれでいいｍでは？
304の方が確かにちょっと速いだろうけど、316は303よりも遅そうだし。
こんなところで引っかかるよりも、作りたいものを完成させるのが先だと思う。
0322nobodyさん
02/04/07 23:41ID:???0323やさしいお兄さん
02/04/07 23:49ID:???わたしが書いたほうが、約１．５倍速でした。３１８君は、目測でわたしが書いたほうが遅そうだと
書きましたが、どう見てもわたしが書いたほうがはやそうだったからベンチとってやったよ！
わたしが書いたほうは先頭からのマッチ部分までのみの取り出しなのに対し、３０３君のは先頭から
末尾までのパターンを確認する処理と括弧内にマッチした部分への置換というまわりくどい処理を
していることから考えて、どう見てもわたしが書いたほうが速いし、それに付け加えて複数OSにも
対応しているということだ。
Benchmark: timing 10000 iterations of 303, 316...
303: 0 wallclock secs ( 0.66 usr + 0.00 sys = 0.66 CPU)
316: 1 wallclock secs ( 0.38 usr + 0.00 sys = 0.38 CPU)
0324nobodyさん
02/04/07 23:49ID:???perlのスカラーはintじゃないという罠を踏まえたうえで、
とりあえず概算でいいなら、こんなんで。
$i = 1;
print $i*=10,"\n" while $i ne Inf;
0325（・∀・）ｲｲ！
02/04/07 23:49ID:???とかく月曜日は閑散となりがちなので、明日も気合いを入れてがんがろう！
0326nobodyさん
02/04/08 01:20ID:6SHXOq5Lたまに
Benchmark: timing 10000 iterations of 303, 316...
303: 0 wallclock secs ( 0.66 usr + 0.00 sys = 0.66 CPU)
316: 1 wallclock secs ( 0.38 usr + 0.00 sys = 0.38 CPU)
って見るんだけど、これってどうやって取るの？
方法知りたいです。
0328nobodyさん
02/04/08 01:49ID:???あ、文字列の最後が改行じゃなかった場合にマッチしなかったのね。これでいいかな？
($str) = $str =~ /^((?:.*(?:\n|\z)){0,$limit})/;
Perl神の>>316氏にもプレゼント。
($str) = $str =~ /^((?:[^\x0D\x0A]*(?:\x0D\x0A|[\x0D\x0A]|\z)){0,$limit})/;
Benchmark: timing 100000 iterations of 316, ore...
316: 3 wallclock secs ( 3.96 usr + 0.00 sys = 3.96 CPU) @ 25278.06/s (n=100000)
ore: 2 wallclock secs ( 1.65 usr + 0.00 sys = 1.65 CPU) @ 60532.69/s (n=100000)
>326
ストップウォッチ
0329nobodyさん
02/04/08 01:50ID:???http://www.perldoc.com/perl5.6.1/lib/Benchmark.html
0330
02/04/08 15:23ID:cplvHQS4ありがとうございます。
もう正規表現わけわからんので正規表現だけの本購入しました。
ＰＥＲＬリファレンス系だと細かく書いてないので
正規表現奥が深いですね
0331nobodyさん
02/04/08 18:22ID:???人が書いた正規表現は、まさに「魔法の呪文」みたいなもんで、
使ってみれば確かに効果は出るんだけど、それがどういう理屈で
そうなるのか解読するのは骨が折れるんだよね。
0332nobodyさん
02/04/08 21:40ID:dY0mSfL0阪神は本来、神のチーム。
これくらいのゲームができて当たり前。
1938年に開幕７連勝した時に阪神は優勝した。
今年も９割方優勝する。
阪神電鉄の株価もウナギ昇りだ。
優勝すれば経済効果も核爆弾級だろう。
現在、阪神ファンの脳内モルヒネ分泌量は最高だ。
仕事にも遊びにもハリが出る。
阪神ファンが勝ち味に飢えていたが故に。
カーネル・サンダースは俺たち阪神ファンに17年間の試練を与えた。
今はそのことに感謝したい。
昼食時には是非ともKFCを利用したいと思っている。
0333nobodyさん
02/04/08 23:00ID:9Gr66QZ9表を細く平面的にしたいんですけど、
（こんな感じ→ttp://www2.pure.cc/~cle/yy-bbs/yybbs.cgi）
どこをどういじれば良いかさっぱりです。
誰かお願い。
0335nobodyさん
02/04/09 00:44ID:???Web製作板でスタイルシートのスレ探しに行け。
0338306
02/04/09 06:08ID:???すいません。えっと、
< < < > > < を < < < > > <
みたいに<>←→<>の相互変換をしたいのです。。
0339nobodyさん
02/04/09 06:49ID:N8wWg1s7@list = (A,B,C,D,E,F);
ってのがあって
EとFだけ取り出して別の配列に入れたい
場合ってのはどうやってやればいいんでしょうか
0340やさしいお兄さん
02/04/09 06:50ID:???これでどう？
%conv= ('<' => '<',
'>' => '>',
'<' => '<',
'>' => '>');
$_= '< < < > > <';
s/<|>|&(?:l|g)t;/$conv{$&}/g;
print;
0342やさしいお兄さん
02/04/09 06:58ID:???これでどう？
@list= qw(A B C D E F);
push(@new, splice(@list, $#list- 1, 2));
0343やさしいお兄さん
02/04/09 07:16ID:???やっぱりすなおに以下のようにしたほうが速いかな？
s/<|>|&[lg]t;/$conv{$&}/g;
0345nobodyさん
02/04/09 07:34ID:???$&は危険
s/([<>]|&[lg]t;)/$conv{$1}/g;
>342
負数のほうが簡潔
push @new, splice(@list, -2, 2);
0346やさしいお兄さん
02/04/09 07:37ID:???できるだけループ数を多くして３回とってみたらいずれも３４０のほうが速かったです。
つまり、[lg] よりも (?:l|g) のほうが速いという結果でした。
Benchmark: timing 100000 iterations of 340, 343...
340: 12 wallclock secs (11.21 usr + 0.00 sys = 11.21 CPU)
343: 12 wallclock secs (11.43 usr + 0.00 sys = 11.43 CPU)
0347nobodyさん
02/04/09 07:48ID:???まだ間に合うから、修行しなさい。
0349やさしいお兄さん
02/04/09 08:10ID:???でも以外でしょ？
0350nobodyさん
02/04/09 09:46ID:???@new = @list[ 4, 5 ];
0351nobodyさん
02/04/09 10:34ID:???0352nobodyさん
02/04/09 10:44ID:???Perlソースのテンプレートが欲しいのです。
ラマとラクダがまだ家に来てくれないので欲しいのです。
第一引数でフォルダを指定して、
そのフォルダ下にある全ファイルを読み込んで処理する
テンプレが欲しいのです。
ファイル処理をする関数名はdo_file
で、そこは私が作るんで。テンプレおねがいします。
0353☆
02/04/09 10:51ID:???そのバナーのカウントが１プラスされるようにしたいんですが、うまくいきません。
以下の構文でどこか間違っている個所があれば教えて頂きたいのですが、、
ちなみにQUERY_STRINGと$read_data[1]はリンク先URLです。
#バナーをクリックした時
if($ENV{'QUERY_STRING'} eq "$read_data[1]")
{
open (DATA,$datatext);
@data = undef;
@read_data =();
@data = <DATA>;
close DATA;
for($i = 0;$data[$i];$i++)
{
@read_data = split(/\t/,$data[$i]);
$read_data[4]++; #４列目はリンクカウント数
$lastdata[$i] = "$read_data[0]"."\t"."$read_data[1]"."\t"."$read_data[2]"."\n";
}
open(WRITE,">$datatext");
print WRITE "@lastdata";
close WRITE;
print "<META HTTP-EQUIV=\"Refresh\" CONTENT=\"0;URL=$ENV{'QUERY_STRING'}\">\n";
exit;
}
0354nobodyさん
02/04/09 10:52ID:???キミは最初に質問と言っておきながら、いつの間にかクレクレ君に大変身ですか？
0355☆
02/04/09 10:56ID:???あ、すいません。構文間違えました
#４列目はリンクカウント数とかかれている部分、
$read_data[2]++;
で、２列目の間違いです。
0356352
02/04/09 11:07ID:???<>とか、きっとそういうのを使うとは思うんですが…
どうかおねがいします。教えてください。
ﾍﾟｺﾘm(_ _)m o０(いつのまにか…というより、もとよりそのつもりでしたが何か？
)
0357やさしいお兄さん
02/04/09 11:19ID:???これでどうでしょうか？動作確認はしておりませんが．．．
if ( $ENV{'QUERY_STRING'} eq $read_data[1] ){
open(DATA, $datatext);
while (<DATA>){
@read_data = split(/\t/);
$read_data[2]++;
push(@lastdata, join("\t", @read_data)."\n");
}
close DATA;
open(WRITE,">$datatext");
print WRITE @lastdata;
close WRITE;
print qq(<META HTTP-EQUIV="Refresh" CONTENT="0;URL=$ENV{'QUERY_STRING'}">\n);
exit;
}
0358nobodyさん
02/04/09 11:27ID:???最初に質問というのなら、具体的にどこの記述でいきづまっているのか、
具体的なコードを明示すべきだろ。
それもしないでおきながら調子のいいこと言って自分を正当化すんじゃねーよ！
0359☆
02/04/09 11:30ID:???どうもです。
でもそれで実行して再読み込みすると、データテキストに無限に数字が書き込まれてるんですが・・
それ以前の部分の処理が悪いんでしょうか？
0361nobodyさん
02/04/09 12:06ID:???>いらっしゃーい、Perlの「コーディング」で困ってる人のスレです。
>
>1：自分はこう言う事がしたい。
>2：それでこんな風にやってみたが･･･
>3：それだとこんなエラーが出て上手く行かなかった。
>
>1と3が無いと誰も答えられないよ、良い回答は良い質問から。
>一緒に勉強しましょう。
0362やさしいお兄さん
02/04/09 12:09ID:???そうですよね。処理の内容を考えずに書いてしまいました。チョット
データファイル内容がよくわからないのですが、リンク先URLはあらかじめ
データファイルに設定されているということならば以下のような感じかなと。
open(DATA, $datatext);
while (<DATA>){
chop;
@read_data= split("\t");
$read_data++ if $ENV{'QUERY_STRING'} eq $read_data[1];
push(@last_data, @read_data);
}
close(DATA);
open(WRITE,">$datatext");
for ( @last_data ){
print WRITE $_,"\n";
}
close WRITE;
print qq(<META HTTP-EQUIV="Refresh" CONTENT="0;URL=$ENV{'QUERY_STRING'}">\n);
exit;
0363やさしいお兄さん
02/04/09 12:20ID:???まちがってしまいました。ごめっ。
$read_data[2]++ if $ENV{'QUERY_STRING'} eq $read_data[1];
0364やさしいお兄さん
02/04/09 12:31ID:???またまちがってた。頭冷やしてきまーす。
push(@last_data, join("\t", @read_data));
0365☆
02/04/09 12:42ID:???ありがとうございます。
アクセス数の書き込みはうまく行きました。
でも今度はCGIにアクセスすると自動的に何度も何度もリロードされます。
0366やさしいお兄さん
02/04/09 12:54ID:???より速く処理をするために以下の書き方もアリだと思います。
常に以下のメタタグを返す処理ならば何度もリロードになるでしょう。
最終的にどうしたいの？
open(DATA, $datatext);
while (<DATA>){
@read_data= split("\t");
$ENV{'QUERY_STRING'} eq $read_data[1] ? ($read_data[2]++,push(@last_data, join("\t", @read_data)."\n")) : push(@last_data, $_);
}
close(DATA);
open(WRITE,">$datatext");
print WRITE @last_data;
close WRITE;
print qq(<META HTTP-EQUIV="Refresh" CONTENT="0;URL=$ENV{'QUERY_STRING'}">\n);
exit;
0368やさしいお兄さん
02/04/09 13:01ID:???$ENV{'QUERY_STRING'} にこのCGI自身がしていされていれば、
何度もこれを繰り返すの間違いでした。
0369☆
02/04/09 13:09ID:???<a href="banner.cgi?http://www.yahoo.co.jp/"><IMG SRC="banner.gif"></a>
のようになっていて、
バナーをクリックした時にこのサブルーチンが動くようにしたいんです。
すなわちbanner.cgiに直接アクセスした時には
バナー一覧だけが表示される、という形です。
0370nobodyさん
02/04/09 13:11ID:B5CaElBBmy @setting = <SET>
と書いたんですが、@settingには何も入ってないみたいなんです。
open (SET,"$PATH");
my @setting = <SET>
close (SET);
open (SET,">$PATH");
ならできるんですが、、、
0371やさしいお兄さん
02/04/09 13:12ID:???以下のようにして、メタタグをコメントにしてみては？
URL一覧かバナー画像かどちらか必要ないほうもコメントで。
while (<DATA>){
@read_data= split("\t");
print qq(<A href="$read_data[1]">$read_data[1]</A>\n); # URL一覧なら
print qq(<img src="$read_data[0]"><BR clear=all>\n); # バナー画像なら
$ENV{'QUERY_STRING'} eq $read_data[1] ? ($read_data[2]++,push(@last_data, join("\t", @read_data)."\n")) : push(@last_data, $_);
}
0372やさしいお兄さん
02/04/09 13:17ID:???@read_data= split("\t");の直後に以下を書くということかな？
print qq(<a href="banner.cgi?$read_data[1]"><IMG SRC="$read_data[0]" border=0></a><BR>\n);
0373☆
02/04/09 13:23ID:???いやいやいや、バナー表示のHTMLは別の所にあるんです。
このクリック数カウントの部分だけをsub countというサブルーチンで
呼び出したいんです。
クリック数を得るためリンクが「banner.cgi?〜」となっているんですが、
バナーをクリックするとbanner.cgiに飛んでしまう。
だからbanner.cgi?〜
↑ここの値、すなわち$ENV{'QUERY_STRING'}が存在する時、
このサブルーチン&count; を起動させたいわけです。
0374やさしいお兄さん
02/04/09 13:27ID:???+> だと、いきなりファイルが空になってしまいます。
open (SET,"+<$PATH");
my @setting= <SET>;
0375やさしいお兄さん
02/04/09 13:33ID:???なんとなくわかってきました。以前の処理を以下のブロックに入れるということかな？
勿論、メタタグは無しということで。スクリプトの最初のほうがいいかな。
if ( $ENV{'QUERY_STRING'}=~ /http:/ ){
exit;
}
0376nobodyさん
02/04/09 13:34ID:B5CaElBBどうもです。
読み込みはできましたが、書き込みが追加になってしまうのを上書きにしたいんですけど、
読み込み＆上書きは一度にできないんでしょうか？
0377やさしいお兄さん
02/04/09 13:35ID:???チョットまずいかな、いかのようにしたほうがよかった
if ( $ENV{'QUERY_STRING'}=~ /^http:\/\// ){
exit;
}
0378やさしいお兄さん
02/04/09 13:37ID:???seek(SET, 0, 0); # これではじめのほうに巻き戻すナリ！
0379やさしいお兄さん
02/04/09 13:39ID:???truncate(SET, 0); # これも必要だね。
0380nobodyさん
02/04/09 13:42ID:B5CaElBBできました！
お付き合いどうもありがとうございました。
0381☆
02/04/09 13:44ID:???ありがとうございます！！
これでとりあえずバナーをクリックした時にURLにジャンプするようになりました。
しかしbanner.cgi自体をリロードすると、
datatextの中のデータとかバナーの数がどんどん増えていってしまいます。
0382やさしいお兄さん
02/04/09 13:58ID:???たしか、サブルーチンにして呼び出すということなので、
@last_data をさいしょのほうで初期化するのをわすれていました。
１どの処理でこのルーチンを複数回呼び出すとどんどん増えていきますね。
@last_data= ();
または
@last_data= -1;
または
@last_data= undef;
または
undef @last_data;
■ このスレッドは過去ログ倉庫に格納されています