トップページ⇒php
1001コメント315KB

Perl 初心者コーナー Part24

■ このスレッドは過去ログ倉庫に格納されています
0001 ◆fBgbHI04bQ 03/06/07 22:30ID:GbQKLcPE
いらっしゃーい、Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。

1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。

最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。


CGIだけど、なんか質問ある？ Part 10
http://pc2.2ch.net/test/read.cgi/php/1048686475/
【Perl,CGI】参考書籍 第三版
http://pc2.2ch.net/test/read.cgi/php/1030209573/
CGIに依存しないPerlの話題一般/Part2
http://pc2.2ch.net/test/read.cgi/php/1030548610/
スクリプトの改造依頼は、【 スクリプト改造工房 PART 6 】
http://pc2.2ch.net/test/read.cgi/php/1047806915/

過去ログやお勧めサイトは >>2-10
0261nobodyさん03/06/12 20:55ID:???
>>260
わからないながらも使ってみてうまくいった、
とか言うのであれば、前言を撤回する。
0262nobodyさん03/06/12 21:03ID:???
>>261
どこにいれたらいいのかわからない、というレベルですからねえ。
0263nobodyさん03/06/12 21:37ID:xj4xPJ4f
>>251
-s 消しても同じ結果なんですが…。
0264nobodyさん03/06/12 22:01ID:???
>@newls2 = sort { $b <=> $a; } @newls2;
>return($newls2[0]); # 最高番号検出

さすがレスキュー・・・・
0265nobodyさん03/06/12 22:27ID:???
えーでも、
何個か数字があってその中から最高値を取り出せって言われたら
オレもソートさせちゃうけど・・・楽だし。
自分で、一個ずつ比較させる処理書いてもいいけど・・・
0266nobodyさん03/06/12 23:27ID:???
うん。sortはCで書かれてるから、(データ量に依存はするが)perlでちまちま比較するよか早いかも新米。
0267nobodyさん03/06/12 23:47ID:xj4xPJ4f
>>249
ActivePerl5.8.0最新版でもNGでした。
誰か、暇な方、試して頂けないですかね…
0268nobodyさん03/06/12 23:53ID:???
cgiを改造してくれるスレってなかったっけ？
0269nobodyさん03/06/12 23:54ID:???
すいません。
FlashCGIつかっているのですが、こっちと、ﾄﾘﾌﾟが合いません。
新ｻﾊﾞではないとおもいます。。。
はじめの2文字って「H.」から何かに変わったんでしょうか？
0270nobodyさん03/06/13 00:03ID:???
>>267
もう回答は出てるので、お引き取りください。
0271nobodyさん03/06/13 00:10ID:???
>>266
そうか？1回のループでいけるだろ。ソートするよりマシ。
0272nobodyさん03/06/13 00:25ID:???
>>269
変わってません。スレ違い。
0273nobodyさん03/06/13 00:27ID:???
>>272
そんな、ちょっとまえにローカルでしたときは変わってなかったのに、いまやると変です。。。なぜでしょうか
0274nobodyさん03/06/13 00:28ID:???
数値の大小を比較する演算子をきみたち初心者諸君に授けるぞよ。

A > B　　←これはＡが大きいと真をかえすのだ

0275nobodyさん03/06/13 00:35ID:nrl/A00g
“ヘ(￣-￣ )カモォーン♪
http://www.k-514.com/
0276nobodyさん03/06/13 00:41ID:???
その1回のループをまわすためにインタープリターがどれだけ働くかと...
実際のところは計測しなきゃわからないが。
0277nobodyさん03/06/13 00:44ID:???
Perlは逐次解析するわけじゃないし・・・
0278nobodyさん03/06/13 00:58ID:???
インタープリターとか言ってるあたりが初心者スレだな
0279nobodyさん03/06/13 01:16ID:???
>>276
何行ってんだ？ソートすると何度もコピーが行われるだろ。
最大値抽出ごときでソートするなんてとんでもない。
0280nobodyさん03/06/13 01:49ID:???
foreach(@num){
$max = $_ if($_ > $max);
}
これが一番早くてメモリも使わず？
0281nobodyさん03/06/13 01:57ID:???
$max の初期値は?
0282nobodyさん03/06/13 02:08ID:???
負も考えて@numの第一要素でもぶちこめば？
0283nobodyさん03/06/13 02:12ID:???
>>278
はて? perlgutsにもperlembedにもinterpreterと書いてあるが何か?

>>279
こういう恣意的なデータも取れるんだよ。
use Benchmark;
@ar = (1 .. 5);
timethese(10000, {
sort => '@br = sort { $b <=> $a; } @ar',
loop => '$max = $ar[0]; for (@ar[1..$#ar]) { $max = $_ if ($_ > $max);}'
});
Benchmark: timing 10000 iterations of loop, sort...
loop: 2 wallclock secs ( 2.23 usr + 0.01 sys = 2.24 CPU)
sort: 3 wallclock secs ( 1.98 usr + 0.00 sys = 1.98 CPU)
0284nobodyさん03/06/13 02:19ID:???
必　死　だ　な
0285­03/06/13 08:01ID:???
print "location: ***" で飛ぶとリファラは残りますか？
0286nobodyさん03/06/13 08:01ID:???
１回余分にチェックするほうが、スライスするより安くすむと思うが。。。
0287nobodyさん03/06/13 09:29ID:???
>>241さんの質問に関連してお聞きしたいのですが。
外部ファイルにして、requireするにせよ、useするにせよ、
perlは、皆コンパイルするということなんですが、
以下のようにするより、

use Hoge;
if (...) {
　kore; # koreはmainの関数
} else {
　are; # areはHoge.pmの関数
}

以下のようにした方が負担が減るということでしょうか。

if (...) {
　kore;
} else {
　use Hoge;
　are;
}

028828703/06/13 10:01ID:???
ごめんさい。1回限りしか、この部分が実行されないことが
前提です。そして、ifになる確率が５０％はあるとして。
0289nobodyさん03/06/13 10:19ID:???
>>287
useの場合は一緒じゃない？
requireなら、そうやったほうがいい。（require文が実行された時点で読み込むから）
029028703/06/13 10:31ID:???
そうだったっす。requireですた。
うん、こういうの書いた覚えあるんで、正しい判断だったんだと
わかってほっとしますた。
0291nobodyさん03/06/13 11:18ID:???
>>284 必死だな。これくらいのインチキも見破れないのか。(w

-----BEGIN PGP MESSAGE-----
Version: PGP 6.5.8ckt - ja http://www.hizlab.net/pgp/

qANQR1DDDQQDAwKzdZAaYlhVL2DJvuMRq1Krlrlnei+qaIGlODje1KRbdRDVTD1/
h7dQ6RfnS3GkGv2RNdvpZgVvgQqkSXcM3N8o9AkvtrmRtO3BsJJ1id5RArQwjmEE
kVXhF6Y5HdeQfOOTRjTMV2kS0i27sza8Gv+g+uFFTozzmsJ2ffbmrUi/K4MjsNnN
yh/mrKF/MkenFZqjnQobAHmjqzYxj8VMyx31Ar1GM4g/2UiEtAErfz//cJCJ0zsB
akVGj67i/wWnQoZgYVxe1sSyT/0=
=+BHl
-----END PGP MESSAGE-----
0292nobodyさん03/06/13 11:41ID:???
Perlでwordファイルを検索することってできますか。
Namazuの仕組みを調べればいいんでしょうが、もっと簡単に
モジュール組み込んで、テキストファイル検索するみたいに、
バリバリ、正規表現検索がしたいのれす。
なにか情報の載っているサイトでもいいですから教えてくらはい。
0293nobodyさん03/06/13 12:41ID:1CoOWAYz
質問です。

CGI.pmはmultipart/form-dataで送られたきたデータを受け取ると、
即座に一時フィルを作成するようなんですが、
このファイルを削除するか、ファイルを作成しないようにする方法はないですか？
0294nobodyさん03/06/13 12:50ID:???
>>292
Wordファイルの仕組みを調べれば、簡単じゃないことが分かるよ。
とりあえずバイナリエディタで開いてみ。
Namazuを使いたいってことなら、wordファイルからテキスト部分を抜き出して
インデックス作ればいいからそっちのやり方だと簡単かも。

>>293
全然CGI.pmの中身も見ずに反応するけど、
最後にファイル削除されないの？
ファイルを作成しないってことはメモリに全部蓄えるつもり？
予測可能なファイル名になっちゃうのなら問題だろうけど、
予測不可能なファイル名になってない？

0295nobodyさん03/06/13 13:24ID:???
初心者諸君よ！　ベンチマークの採り方もお勉強しよう。

use Benchmark;

$count= 100;
@array= (0 .. 5000);

timethese($count, {
'code1'=> q{
    $max= $array[0];
    for (1 .. $#array){
        $max < $array[$_] and $max= $array[$_];
    }
},
'code2'=> q{
    @array2= sort {$b <=> $a} @array;
    $max= $array2[0];
},
'code3'=> q{
    $max= (sort {$b <=> $a} @array)[0];
},
'code4'=> q{
    ($max)= sort {$b <=> $a} @array;
}});
0296nobodyさん03/06/13 13:43ID:U7lWej0V
☆セクシーヌードを生クリック☆！　〜まずは無料です〜
http://endou.kir.jp/moe/linkvp.html
0297nobodyさん03/06/13 14:45ID:???
>>292
ActivePerlならWin32::OLEで、WordファイルをCOMオブジェクトとして開けば、
Wordオブジェクトのメソッドを呼び出せる。

ActivePerlじゃないならOLE::Storageで頑張る。
029829203/06/13 16:14ID:???
>>294
wordファイルをバイナリエディタで開いて解析しようとしたが、
ちょっと漏れには無理だと悟って聞いたのです。大分前の話。
word2txtでwebを漁ってもぱっとしなかったし・・・
Namazuは、wordファイルも検索するって知ってる？つまり、
テキスト部分を抜き出すエンジンを備えているんじゃないかなぁ。
調べてみます。

>>297
うーん、ちょっとOLE::Storage見てみたけど、難しそうです。
Win32::OLEとかこれ使って、川合さんや極悪さんがExcelファイルを
簡単に扱えるモジュール書いてくれているんですが、やはり、word
は難しいんでしょうね。


0299nobodyさん03/06/13 17:49ID:???
>>294
> >>293
> 全然CGI.pmの中身も見ずに反応するけど、
> 最後にファイル削除されないの？
> ファイルを作成しないってことはメモリに全部蓄えるつもり？
> 予測可能なファイル名になっちゃうのなら問題だろうけど、
> 予測不可能なファイル名になってない？

それが、削除されないんですよ。
new CGIした時点で一時ファイルが作られて、
exit(0) or dieしても消えないんですよ。
どんどんファイルが増えていくのはちと問題ありかと。
0300nobodyさん03/06/13 18:16ID:???
>>299
サーバがUNIXなら対応法はman CGIすりゃ書いてある。
0301nobodyさん03/06/13 18:18ID:???
>>299
その現象Windowsではなるよね
アップした際のファイルのファイルハンドルが開きっぱなしなのが原因

$q = new CGI;
$upfile = $q->param('upfile');
$tmpfile = $q->tmpFileName($upfile);#一時ファイル名取得CGItemp12345みたいな

〜処理〜

eval{close($upfile);}; #一応ファイルハンドル閉じる
unlink($tmpfile); #一時ファイル削除
0302nobodyさん03/06/13 18:27ID:???
んまぁ　最後のunlinkはなくてもいいかもしれないけど
保険として残ってたら削除ってことで。

ちなみにclose()をevalで囲っておかないと添付ファイルがない場合
特定のPerlのVerではエラーするよ
0303nobodyさん03/06/13 18:29ID:???
>>300
Linuxだが、

man: ??????????????????????
Failed to open the message catalog man on the path NLSPATH=<none>

No manual entry for CGI
0304299,29303/06/13 18:31ID:???
>>300
>>301
> >>299
> その現象Windowsではなるよね
> アップした際のファイルのファイルハンドルが開きっぱなしなのが原因
> $q = new CGI;
> $upfile = $q->param('upfile');
> $tmpfile = $q->tmpFileName($upfile);#一時ファイル名取得CGItemp12345みたいな
> 〜処理〜
> eval{close($upfile);}; #一応ファイルハンドル閉じる
> unlink($tmpfile); #一時ファイル削除

Thanks、解決しますた。
無料鯖なんで詳しく知らないけど、
環境変数見る限りではApache/1.3.27 (Unix) らしい。
でもunlink($tmpfile);しないと消えないんだよな・・・
0305nobodyさん03/06/13 18:36ID:???
>>303
だったらCPANで見れ
0306nobodyさん03/06/13 19:35ID:???
string literals, numeric literalsとありますが、literalの意味が
わからないのですが。わかる方います？
0307nobodyさん03/06/13 19:36ID:???
文字って意味よ。だからliteralsなわけよ。
0308 ◆fvP8C22Kzg 03/06/13 19:43ID:???
#PK,a
0309nobodyさん03/06/13 19:45ID:???
>>295

#そのまま・・・
Benchmark: timing 500 iterations of code1, code2, code3, code4...
code1: 4 wallclock secs ( 3.98 usr + 0.00 sys = 3.98 CPU) @ 125.63/s (n=500)
code2: 5 wallclock secs ( 5.05 usr + 0.00 sys = 5.05 CPU) @ 98.97/s (n=500)
code3: 2 wallclock secs ( 1.37 usr + 0.00 sys = 1.37 CPU) @ 364.70/s (n=500)
code4: 1 wallclock secs ( 1.36 usr + 0.00 sys = 1.36 CPU) @ 367.65/s (n=500)

#@arrayをランダムに
Benchmark: timing 500 iterations of code1, code2, code3, code4...
code1: 2 wallclock secs ( 2.60 usr + 0.00 sys = 2.60 CPU) @ 192.23/s (n=500)
code2: 8 wallclock secs ( 7.98 usr + 0.00 sys = 7.98 CPU) @ 62.64/s (n=500)
code3: 4 wallclock secs ( 3.95 usr + 0.00 sys = 3.95 CPU) @ 126.71/s (n=500)
code4: 4 wallclock secs ( 3.93 usr + 0.00 sys = 3.93 CPU) @ 127.13/s (n=500)

#code1 を $max= $array[0]; for (@array){ $max < $_ and $max= $_ } に修正
Benchmark: timing 500 iterations of code1, code2, code3, code4...
code1: 1 wallclock secs ( 1.73 usr + 0.00 sys = 1.73 CPU) @ 289.02/s (n=500)
code2: 8 wallclock secs ( 8.03 usr + 0.00 sys = 8.03 CPU) @ 62.29/s (n=500)
code3: 4 wallclock secs ( 3.92 usr + 0.00 sys = 3.92 CPU) @ 127.62/s (n=500)
code4: 4 wallclock secs ( 3.90 usr + 0.00 sys = 3.90 CPU) @ 128.11/s (n=500)
0310nobodyさん03/06/13 20:24ID:???
>>244
いまさら言うのもアレだが、2chみたいにPATH_INFOを使って
hoge.cgi/fuga.jpgのようにすれば、IEなどを騙せ･･･たと思うけども。
031118803/06/13 21:06ID:???
glob使えないそうな・・・
で、glob使わないで、
unlink(<tmp*>);と同じことする方法ってないですか？
0312nobodyさん03/06/13 21:20ID:???
>>311
readdir と grep 辺りで。
0313nobodyさん03/06/13 21:29ID:???
>>309
普通に考えて、配列にはforeachが最速なんじゃないの?

$max = $array[0];
foreach my $array (@array) {
　$max < $array and $max = $array;
}
0314nobodyさん03/06/13 21:29ID:???
あぁ、ごめん、最後に書いてあった。。…
0315nobodyさん03/06/13 21:37ID:???
>>311
$path = ".";
opendir(DIR, $path) or die;
unlink grep { /^tmp.*/ and -f "$path/$_" } readdir(DIR);
closedir(DIR);
031631103/06/13 21:57ID:???
>>312
>>315
あー、なるほどー。そっちでくるとはおもわなかった。
ありがとうございます。
031731503/06/13 22:02ID:???
あ、これだとカレント以外のディレクトリを指定したときカレントのを消そうとして失敗するな。
書いてから気が付いた。ごめん、適当に修正してくれ。
031831503/06/13 22:10ID:???
やっぱ直した。３行目だけ。
unlink map { "$path/$_" } grep { /^tmp.*/ and -f "$path/$_" } readdir(DIR);
0319nobodyさん03/06/13 22:14ID:???
２ちゃんねるのトリップ作成法を教えてください
0320nobodyさん03/06/13 22:24ID:???
>>319
スレ違い
0321nobodyさん03/06/13 22:29ID:???
>>320
Perlのはずです。
0322nobodyさん03/06/13 22:30ID:???
>>321
>>1
0323nobodyさん03/06/13 22:33ID:???
>>321
ｶｴﾚ(・∀・)ﾆﾄﾞﾄｸﾙﾅ!!
0324nobodyさん03/06/13 22:35ID:???
トリップのアルゴリズムは公開されてたっけ
2ch互換のBBSを作るくらいしかメリットは無いかな
0325nobodyさん03/06/13 22:40ID:???
>>319
いろんな2ch互換掲示板でも落としてきて解読しろ
0326nobodyさん03/06/13 22:41ID:???
>>325
ただcryptやっているだけでした。
ですので、2chのアルゴリズムと一致しません。
0327nobodyさん03/06/13 22:52ID:???
( ﾟдﾟ)ﾎﾟｶｰﾝ
0328nobodyさん03/06/13 22:58ID:???
あーすまんﾊｹﾞども。
ﾄﾘｯﾊﾟｰで十分だ、
ﾉｼ
0329nobodyさん03/06/13 23:11ID:???
globって今は標準組み込み関数じゃないの？
0330nobodyさん03/06/13 23:11ID:???
↓次の話題どうぞ
0331nobodyさん03/06/13 23:12ID:???
↓　↑
→→→
0332nobodyさん03/06/13 23:15ID:???
標準だけど、内部動作は処理系依存だから、環境によって結果が異なる。
033332903/06/13 23:27ID:???
例えば動かない環境教えてくれ
0334nobodyさん03/06/13 23:39ID:???
>>333
内部的にはシェルを呼び出してるんだから鯖がそれを規制してたらダメだな
033531103/06/14 00:24ID:???
>>315
丁寧にありがとうございます。
で、
$path = "../image/photo";
opendir(DIR, $path) or die;
unlink map { "$path/$_" } grep { /^tmp.*/ and -f "$path/$_" } readdir(DIR);
closedir(DIR);

とやったのですが、結果を見ると、消えてないんですよね・・・
なんでなんでしょう？スクリプトも間違いがあるとは思えないし、
別にcgi自体は正常に終了してるしからエラーログも見れないし、
$path のディレクトリも存在してるし・・・

いったい何が原因なんでしょうか？
恐縮ですがもう少しおつきあいねがえれば幸いです。
0336nobodyさん03/06/14 00:27ID:???
>>335
tmp.*　でいいのか？
0337nobodyさん03/06/14 00:28ID:EElS1+7W
perlでcgi作りたいです。
でもCGIの設置くらいしかしたことありません。
１から勉強しようと思います
で、参考書籍のスレに行ったんですがなんか微妙なので
こっちで手っ取り早く教えてください
ソースはメモ帳で書けるんですよね?

お勧めの本おしえてください。
プログラムはやったことないに等しいです
（HTMLはある程度書けます。それとHSPくらいなら・・・）
宜しくお願いします
0338nobodyさん03/06/14 00:30ID:???
>>335
・print map { "[$path/$_]" } grep { /^tmp.*/ and -f "$path/$_" } readdir(DIR);
等としてみて本当に拾えているか確かめる。
・unlink 後に print $!; してみる。
0339 ◆hMJAPH9PWA 03/06/14 00:31ID:???
>>335
unlinkの後に$!を見てみる。
空ならunlinkは成功しているよ。
…というか、CGIスクリプトなのか。共用サーバでは実験しないでね。

CGIスクリプトは、途中でdieしても、HTTPヘッダさえ出力してあれば問題ないように見えることもあるから、注意してね。
0340311=33503/06/14 00:31ID:???
もうしわけないです。>>335 ですが、ファイルアップする場所がまちがってました。
正常に動きました。
申し訳ございません。
0341nobodyさん03/06/14 00:38ID:???
>>336
いいんだよ。それ正規表現だから。

>>337
ソースはメモ帳でOK。ただ扱えるサイズに制限があったような？
フリーのテキストエディタを使うといいよ。プログラミングに便利な機能がたくさんある。
034233703/06/14 01:25ID:EElS1+7W
>>341
HTML書くとき使ってるエディタ使うことにします
本はどうしようかな…
やはり見てから決めたほうがいいかな。
0343nobodyさん03/06/14 02:19ID:???
>>342
独習perlで初歩を勉強できる。
0344nobodyさん03/06/14 05:08ID:CEUIIJh6
Perlで、アクセス者のプリンタを制御することなんてできないですよね。
VBAならできるかもしれないけど。
0345nobodyさん03/06/14 05:46ID:???
>>344
Perlを何か勘違いしてる。
サーバサイドプログラムを勘違いしてる。

そういうのは、クライアントサイドプログラム。
0346nobodyさん03/06/14 07:32ID:FbHmkvIr
ｷﾀ━━━━━(ﾟ∀ﾟ)━━━━━!!!!
http://homepage3.nifty.com/coco-nut/
0347nobodyさん03/06/14 12:59ID:???
>>345
そんな事ないよPerlは何でもできるはず
0348nobodyさん03/06/14 13:13ID:???
句読点を抜いた文章は、バカっぽく見えるうえに説得力がまるでない。
0349nobodyさん03/06/14 15:23ID:???
サブルーチンで
sub sub{

}

と
sub sub($){

}
にはどういう違いがあるんですか？
0350nobodyさん03/06/14 15:48ID:???
>>349
sub 'hoge';
みたいに括弧なしで呼べたり、
sub @hoge;
とかした時の動作が変わったり。
0351nobodyさん03/06/14 22:11ID:???
>>350
＞動作が変わったり

どうかわるの？
0352nobodyさん03/06/14 22:33ID:???
Perlでping撃ちたいんですけど、

プロンプトみたいに、撃つ回数
平均時間、最短時間、最長時間
を得ることができますか？
リファレンスみると、生きてるか死んでるか、しかわからないみたいなので・・・
0353　03/06/14 22:44ID:???
質問します。

アクセスログのファイルのファイルハンドルをＦとすると

@line=<F>;

のようにするのは、よくないとどこかで見たのですが
ファイルサイズが小さい場合でも駄目なのでしょうか？
もしよかったとして、どれくらいのサイズまでなら大丈夫なのでしょうか？
もし過去ログにあるのならば、どのあたりの過去ログにあるかを教えて欲しいです。

よろしくお願いします。
0354nobodyさん03/06/14 22:47ID:???
>>352
system("ping");
0355nobodyさん03/06/14 23:03ID:???
>>353
小さきゃかまわないよ。
どのくらいのサイズまで大丈夫かなんて、環境によって違うので分からない。
「みんなはどれぐらいで線引きしてるか」の答えなら得られるかもしれない。
0356nobodyさん03/06/14 23:06ID:???
>>353
別に良くも悪くも無い
自分の用途によって使い分ける
0357nobodyさん03/06/14 23:11ID:???
>>349
「プロトタイプ」でググってみりる。
0358　03/06/14 23:19ID:???
>>355
>>356
ﾚｽありがとうございます。
なるほど、確かに環境によってかわりますよね。
では、どのくらいの大きさで区別をなさってるのでしょうか？

私は30〜50k程度のファイルでする予定です。
0359nobodyさん03/06/14 23:33ID:???
そんぐらいだと、一行づつ読んだ方がいいと思う。
0360nobodyさん03/06/14 23:33ID:???
>358
なんで差が出るかの理由を考えろ。
その方が早い。
■ このスレッドは過去ログ倉庫に格納されています