Perl 初心者コーナー Part22

**nobodyさん** · 03/04/15 10:15

いらっしゃーい、Perlのコーディングで困ってる人のスレです。

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

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

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

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

過去ログやお勧めサイトは >>2-10

**nobodyさん** · 03/04/15 16:02

このスレで聞くことじゃないかもしれないんですが・・・
私はサーバを借りてて、（Kagoyaのスタンダード40です）
サイトにPerlでランダムに文面を表示するスクリプトを設置してました。
20個くらいページがあって1ページにつき4つほどそのスクリプトを
設置してたところ、サーバに負荷がかかりすぎだと
サポートの人から注意されてしまいました。
Perlで書いたCGIを使うとそんなに負荷ってかかるもんなんでしょうか？
まあ1ページに4つも設置した私が一番馬鹿だとは思うのですが。

**nobodyさん** · 03/04/15 16:10

>>9
まーどんなｽｸﾘﾌﾟﾄかしらんから答えようが無い。
一般的にはそれなりに負荷はかけるものだと思ったほうがいいよ。

# というかﾗﾝﾀﾞﾑ文字列とかはｻｰﾊﾞｰｻｲﾄﾞでやるよりｸﾗｲｱﾝﾄｻｲﾄﾞでやったほうがいいんじゃ？

**nobodyさん** · 03/04/15 16:11

>>9
どのぐらいアクセスあるかもわからないので、なんとも言えないね。
ランダムな文面がそんなに各ページに必要な理由もわからないし。

**nobodyさん** · 03/04/15 16:36

>>10-11さん
そうですか。私が設置してたのは携帯用サイトのランダムテキスト広告です。
長いので引用はやめときますが、こういう広告ってやっぱり
スクリプトの文章の長さによって負荷の大きさって違うんでしょうか？
今度から以下のようなランダム表示スクリプトを使おうかと思うんですが。
#!/usr/local/bin/perl5
$txtfile = "ranod,.txt";
open(FILE, "$txtfile");
chop(@lines = <FILE>);
close(FILE);
srand(time + $$);
$aaa = int(rand($#lines + 1));
print $lines[$aaa];
exit;

あと、クライアントサイドっていうのもあるんですね。
今の私にはさっぱりわかりませんが勉強しようっと。