【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を見よう。
0258nobodyさん
02/04/06 22:25ID:???0259nobodyさん
02/04/06 22:45ID:b9SW2YHj----test.txt-----
ABC DEF GHI
ABCDEFGHI JKL
AB CD EF GH
-----------------
だと
3
2
4
と表示したいのです。
私が作ってみたのが
open(IN,"test.txt");
@data = <IN>;
my @kazu = split(/\s/,$_);
print scalar @kazu
close(IN);
なのですが上手く動きません。
上記動作をするにはどうすればよろしいでしょうか？
お教え願えないでしょうか。
0260259
02/04/06 22:46ID:b9SW2YHjprint scalar @kazu;
でした。; が抜けてました。
でも 考えているようには動きません。
0261nobodyさん
02/04/06 22:51ID:???オマエ$_とか<IO>の意味わかってないだろ。
今回は教えてやるから、何か一つマトモな本を読む(そして理解する)ことをおすすめするぞ。
open IN, "test.txt";
print scalar(split), "\n" while <IN>
close IN;
0263259
02/04/06 22:52ID:b9SW2YHj事故レすですみません。
出来てしまいました。
open(IN,"test.txt");
@data = <IN>;
foreach(@data){
my @kazu = split(/\s/,$_);
print scalar @kazu;
}
close(IN);
でしたね。すみません。
0265259
02/04/06 22:54ID:b9SW2YHjありがとうございます。
ただいま勉強中です。
0266nobodyさん
02/04/06 22:56ID:???open(IN,"test.txt");
while(<IN>){
split(/ /,$_);
print "$#_\n";
}
close(IN);
これでどうかしら？
0267266
02/04/06 22:58ID:???0269nobodyさん
02/04/06 23:00ID:???0270259
02/04/06 23:01ID:b9SW2YHj<IO>とは何の事でしょうか？
Input,Outputでしょうか。
$_ は STDINファイルハンドルから読み取ったものを、
変数で指定しなかった場合に、戻り値を自動的に代入する変数という事でOKでしょうか？
良かったらお教え下さい。
0272nobodyさん
02/04/06 23:19ID:???IOがInput/Outputってのはよしだが、
ここでは"IO"ってのは"X"と同じく、「何らかのファイルハンドル」って意味で使った。
で、俺が言いたかったのは<>(ヤマカッコ演算子)のこと。
<IO>でファイルハンドル"IO"から一行または全行読み込み、
whileなどの中ではデフォルトの代入先として$_が使われる、と。
試しに
<IO>;
とだけしても$_にはなにも読み込まれない。
で、$_ってのは幾つかの演算子/関数においてのデフォルトの使用変数。
>>261で示した"scalar(split)"のsplitの第二引数も$_なのでこんなこともできる。
(ちなみにデフォルトの第一引数は' 'だ。)
つーようなことが>>259のコードを見て理解しているとは思えなかったわけだ。
そんだけ。もう寝る。
0273nobodyさん
02/04/06 23:28ID:???今まで、「不等号の記号」とか言ってて、わずらわしかったんだよな・・・
0274nobodyさん
02/04/06 23:30ID:???それくらいなら「小なり大なり」と家YO！
0275259
02/04/06 23:34ID:b9SW2YHjおっしゃるとおりで、理解できていません。
これから勉強します。
丁寧なご説明有り難う御座いました。
0276nobodyさん
02/04/06 23:48ID:cii4pUwI絶対パスで書くとエラーが出ます。
例えば
<!--#exec cgi="../a.cgi"-->
ならＯＫですけど絶対パスで
<!--#exec cgi="www/usr/a.cgi"-->
だとエラー出ます。（↑の絶対パスは例）
絶対パスは間違ってないはずなんですが。
それとも間違ってるからエラーなんでしょうか。
0278nobodyさん
02/04/06 23:58ID:???$new = time();
($sec, $min, $hour, $day, $mon, $year) = localtime($new);
とした、$monは＋１しないといけないのに、
$dayはそのままでもいいんですか。
そういう仕様にした理由ってなんでしょ。
0279nobodyさん
02/04/06 23:58ID:cii4pUwIいや、だから例、って念を押してるじゃん・・
例が思いつかなかったからそう書いたんだけど
/home/aaa/public_html/a.cgi
これって絶対パスですよね？こういう指定をやってもエラー出る。
http://www.aaa.com/a.cgiでもエラー。
0280nobodyさん
02/04/06 23:59ID:rWktCpba相対パス
0282nobodyさん
02/04/07 00:01ID:???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;
}
■ このスレッドは過去ログ倉庫に格納されています