【Perl】初心者コーナー Part12
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
02/04/27 23:17ID:1NNXdNspいらっしゃーい、Perlの「コーディング」で困ってる人のスレです。
1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
1と3が無いと誰も答えられないよ、良い回答は良い質問から。
一緒に勉強しましょう。
CGIの質問は【CGIだけどなんか質問ある Pert 6 】
http://pc.2ch.net/test/read.cgi/php/1019561283/
参考書籍の話題は【【Perl,CGI】参考書籍 第２版 】
http://pc.2ch.net/test/read.cgi/php/988809842/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般】
http://pc.2ch.net/test/read.cgi/php/991313362/
スクリプトの改造依頼は 【スクリプト改造工房 Part4 】
http://pc.2ch.net/test/read.cgi/php/1012839651/
過去ログ、その他の役立ち情報は>>2-10を見よう。
0466nobodyさん
02/05/05 16:35ID:???表示させるときは
<img src="./counter.cgi?4">
<img src="./counter.cgi?3">
<img src="./counter.cgi?2">
<img src="./counter.cgi?1">
という感じにして呼び出しています
0470nobodyさん
02/05/05 16:49ID:???＞KENT WEBとかで学習した厨房だろ。アホに限ってよく＆付けてるな。
真性のPCｦﾀとかは知らんけど普通の人が別に趣味で覚える分には
最初は大体そんなもんです。実際＆〜；でも〜（）；でもどっちでもいい。
0473nobodyさん
02/05/05 17:39ID:???画像一体型というとgif連結ですか？
まだ始めたばかりなのでまずは簡単なのからやってるので。。
当方win98se + アパッチ + アクティブperlです
0475nobodyさん
02/05/05 19:30ID:eXghpSwQ原因は、画像がブラウザのキャッシュに残ってるからだとおもいます。
0476nobodyさん
02/05/05 21:05ID:gfSt2Khcopen(IN,"$filepath");
@data=<IN>;
close(IN);
#処理#
open(OUT,">$filepath");
flock(OUT, 2);
print OUT @data;
close(OUT);
この場合flockはOUTの1回だけですけど、INのときもflockしたほうがいいですか？
0483476
02/05/05 23:12ID:lg58HjNFopen(IN,"$filepath");
flock(IN,1);
@data=<IN>;
close(IN);
#処理#
open(OUT,">$filepath");
flock(OUT, 2);
print OUT @data;
close(OUT);
こんな感じ？
0484nobodyさん
02/05/05 23:21ID:???書き込みモードでopenするのは危険。
俺なら
open IO, "+<$file" or throw error;
flock(IO, LOCK_EX) or throw error;
while(<IO>){
# 処理
}
seek IO, 0, 0;
print OUT __ANY_DATA__; # 適当に出力
close OUT;
0485476
02/05/05 23:24ID:lg58HjNF0486nobodyさん
02/05/05 23:26ID:???openと同時にファイルが（一時的に）空になる。
よって、書き込む前に自分がクラッシュしたり、誰かがロック権を得たりすると破滅する。
0487476
02/05/05 23:31ID:lg58HjNF変えてみました。
open(FILE,"+<$filepath") or die(error);
flock(FILE,2);
@data=<FILE>;
#処理#
seek(FILE,0,0);
print FILE @data;
close(FILE);
0490nobodyさん
02/05/05 23:56ID:???HTMLファイルならそのソースを、
@in に1行ずつ代入していきたいんですけど
どうすればできますか？
0494nobodyさん
02/05/06 00:05ID:???Cookbookでは、こうやってるね。
seek(FH,0,0);
print FH @data;
truncate (FH, tell(FH));
close(FH);
0495nobodyさん
02/05/06 00:12ID:???ほい。
http://www.google.com/search?hl=ja&q=lwp%82%CC%8Eg%82%A2%95%FB&btnG=Google+%8C%9F%8D%F5&lr=lang_ja
0496476
02/05/06 00:12ID:/skFdheWopen(IN,"$filepath");
flock(IN,1);# 排他じゃだめ？
@data=<IN>;
close(IN);
#処理#
open(OUT,"+>$filepath");
flock(OUT, 2);
seek(OUT,0,0);
print OUT @data;
close(OUT);
0497nobodyさん
02/05/06 00:23ID:???0500476
02/05/06 00:34ID:/skFdheWファイルに書き込む場合(2回目のopen）を+>にしたらだいじょぶかと思ったけど
だめですか・・・。
0502495
02/05/06 00:42ID:???もっといいのみっけた。
http://www.isc.meiji.ac.jp/~sumwel_h/cyberlaw/tech/htmlfaq01.htm
0503nobodyさん
02/05/06 00:58ID:/8u085RLなれば、具体的にはどんなことが出来るのでしょうか？
アプリとか作れるのでしょうか？自分が知ってるのはCGIを作れると言うぐらいでよくわかりません。
厨名質問ですが、どなたかご教授願います。
0506nobodyさん
02/05/06 01:21ID:???せめてFAQぐらい読もう(1.10とか)
http://www.att.or.jp/perl/faq/faq0j.html
>>505 俺も激しくスレ違いと思うが(と言うか努覧ﾍ不足)
0507nobodyさん
02/05/06 01:36ID:???0508495
02/05/06 01:41ID:???食べないは難しいけど、出さないは
print "Fuck So Reena!" unless $ENV{'HTTP_COOKIE'};
とか。
0512nobodyさん
02/05/06 02:43ID:e2HRGuxkこれを最短一致にするにはどうしたらいいでしょうか。
よろしくお願いします。
0515nobodyさん
02/05/06 03:31ID:e2HRGuxkなるほど！ありがとうございます。
0517nobodyさん
02/05/06 07:06ID:???open(IN,"$logfile") || &error;
この省略した書き方について誰か説明お願いしますｍ(＿ ＿)ｍ
0518nobodyさん
02/05/06 08:27ID:???ネタか？
0521nobodyさん
02/05/06 09:14ID:???どうすれば直りますか？
いちおうkent氏のカウンタで試したら普通にできたのに
なぜか俺が作ったのだと19→29、29→39になるんだるう
0522nobodyさん
02/05/06 10:39ID:???select(undef, undef, undef, 0.5);
これを
select(undef, undef, undef, 2);
か、もっと大きな数にするとなおんない？
0523pear ◆FRUIT8pk
02/05/06 11:25ID:???どこが省略されてるの？
$logfileを読み込んで、読み込めなかったら&error;吐くようになってるだけでしょ？
0525nobodyさん
02/05/06 11:31ID:???いやまだ初心者なんでよくわからんのですがperlはいろいろな書き方があるらしいので
そういう書き方が普通にあるのか余分な部分をはぶいて省略されている書き方なのか知りたかったのでし
if (!open(IN,"$logfile")) { &error; }
↑でもいいんですよね？
'||'ってifとかの条件判断のときにしか使わないものだと思っていたもんで。。
0527nobodyさん
02/05/06 12:14ID:???print 3 + (2 > 1) * ('a' cmp 'b') - (1 | 2) * (3 && 4);#=> -10
0528４６５
02/05/06 12:24ID:???なぜか他のサイトで配布されているのはうまくいかないのに
処理がほとんど同じ俺がつくったやつは変な症状が出ていたので
動くほうのコードをちょっとずつ自分が作っているコードと入れ替えてみたら
なぜか動きました。。やっぱりキャッシュが壊れていたのかな？
ありがとうございました。御礼にあとで2ch用のアップロダうｐしにきます
0529nobodyさん
02/05/06 12:37ID:???Cでもできるけど、普通の神経の持ち主ならやらないね。
標準的なスタイルってのが決まってるから。
main() {
0 || puts("a");
1 || puts("b");
0 && puts("c");
1 && puts("d");
}
Perlでは好んでやるね。やり方は一つではない、が信念だから。
0530nobodyさん
02/05/06 14:40ID:???0532nobodyさん
02/05/06 16:26ID:usSooVS5Ｊ++や、JBulderのIDE見たく、画面デザインと、
コードつなぎ合わせてくれて、ノンコーティングとまではいかないまでも
うまい事やってくれるツール
そんなうまい話無し？
0533nobodyさん
02/05/06 16:34ID:???処理系依存なのは f(a-1, ++a) の
どちらの式が先に評価されるか、じゃなかったかなぁ。
&&, || の評価順は保証されていたはず。
ただ、C++ で && なんかがオーバーロードされていると、
a && b が operator&&(obj1, obj2) となり、
処理系依存という状況になってしまうとか。
(More Effective C++, Item7 より)
>>532
Visual Perl とかどうなんだろう。使ったことないけど。
0534nobodyさん
02/05/06 16:56ID:???半角スペースや全角スペースを１つのみを弾くのは簡単ですけど、、、。
0535nobodyさん
02/05/06 16:59ID:???0539nobodyさん
02/05/06 17:18ID:???全角スペースは文字コード体系に依存するからそれは正しくない
$hoge !~ /\s+/ && $hoge !~ /\x81\x40+/ && $hoge ne ''
これだと、shift-jis 専用になる
0542nobodyさん
02/05/06 17:50ID:???0544nobodyさん
02/05/06 19:21ID:0erw8YvUで使ったSOCKをもう一回
print SOCK "GET $path2 HTTP/1.0\r\n\r\n";
で使いたいんですが、一度closeしてsocket、connectしないといけないんでしょうか？
0546nobodyさん
02/05/06 19:28ID:0erw8YvUやっぱりそうですか。。。
重くなるかと思って・・・。
ありがとうございました。
0547nobodyさん
02/05/06 22:56ID:???ありがとうございます。
>>456
サーバーエラーになりました。
>>462
動きましたがindex.htmlファイルは置いていってくれませんでした。
自作なのでしょうか。こんなのをすぐに作れるのはすごいと思います。
0550549
02/05/07 02:36ID:???HTTP/1.1ならできるはず。
0551nobodyさん
02/05/07 08:03ID:???アプロダ用意しといたので誰か使うときになったら使ってね
http://popup3.tok2.com/home/program/
0552nobodyさん
02/05/07 14:12ID:???ありません。
無理です。
0554nobodyさん
02/05/07 18:00ID:???0556nobodyさん
02/05/07 22:14ID:???どのようにしたらいいでしょうか。
ちなみに最初の一つだけ挿入できました。
0557nobodyさん
02/05/07 22:29ID:???http://www.din.or.jp/~ohzaki/perl.htm#NumberWithComma
0558nobodyさん
02/05/07 22:35ID:???0559nobodyさん
02/05/08 00:54ID:ZY3V1UfD調べてみたけど、"Visual Perl"しかめっかんなかった
http://www.activestate.com/Products/Visual_Perl/
これ、おもろそう、トライアル版ダウンしてみる
ところで、Active Perlと普通のUnixのPerlってどう違うの？
0560nobodyさん
02/05/08 14:33ID:???一覧表示するというものをつくりました。
その結果表示は１０件以上になると「次の１０件」をクリック
すると１１件以降のものが表示される、というようにしています。
ところが、例えば「大阪」というキーワードで検索すると、最初
の１０件は正常に結果が表示されます。
しかし次の１０件以降の検索結果表示がうまくでないのです。
どうやらキーワードの「大阪」が２度目以降の送信時に文字化け
して検索結果0件となり上手く検索ができないようなのです。
さらによくわからないのが、一度「検索結果0件」とでたあとに
ブラウザを再表示すると、正常な結果がでてくるのです。
（他、新潟、埼玉、神奈川なども上手くいきません）
他の文字列では正常に動作しているのですが、これは原因として
どのようなことが考えられるのでしょうか？
基本的なことなのかもしれませんが、宜しくお願いします。
0561nobodyさん
02/05/08 19:45ID:???URIエスケープしてなくない？
printf qq(<a href="%s">次の10件</a>), URI_Escape($search_value);
### URIエスケープ文字列を返す
sub URI_Escape {
my($string) = @_[0];
$string =~ s/(\W)/'%' . unpack('H2', $1)/eg;
return ($string);
}
0562nobodyさん
02/05/08 19:51ID:???のときにパターンマッチングでひらがな、カタカナ、英数、漢字を
かたまりにしてカンマで区切りたいのですがどうしたらよいのでしょうか。
希望出力結果としては
ああ,ss,嗚呼,aiu,アイウエ,ka,書,き,句,
としたいと思っています。入力はEUCで行っています。
どうもperlで漢字やカタカナを一文字ずつチェックする方法がわからなくて・・・。
Jperlを使わない方法では無理なのでしょうか？
0563nobodyさん
02/05/08 19:53ID:???printf qq(<a href="$0?value=%s">次の10件</a>), &URI_Escape($QUERY{'value'});
0565560
02/05/08 21:47ID:???ありがとうございます。
実はまだよくわかっていないんですが、とりあえずレスいただいた内容を
理解できるように調べることからはじめてみます。
■ このスレッドは過去ログ倉庫に格納されています