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 10:15

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

[総合]
　・Perl Com: http://www.perl.com/pub/
　・CPAN.com: http://search.cpan.org/
　・ActivePerl: http://www.activestate.com/
　・CGI-ML:http://forest.ne.jp/cgi-ml/

[お薦め]
　・Perlメモ: http://www.din.or.jp/~ohzaki/perl.htm　★読んどけ
　・Perl Recipes: http://www.effectiveperl.com/recipes/
　・Randal's WebTechniques columns: http://www.stonehenge.com/merlyn/WebTechniques/
　・Perlの部屋: http://www.cc.rim.or.jp/~midorin/mad-p/perl/index.html
　・Perl初心者の部屋：http://www.harukaze.net/~mishima/perl/
　・Perlリファレンス：http://www.big.or.jp/~mio/ga/pl/plref/pl_ref.htm
　・Perlのページ：http://homepage1.nifty.com/nomenclator/perl/

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

[Document&Tutorial]
　・Perl News: http://www.news.perl.org/
　・Perl Monks: http://www.perlmonks.org/
　・use Perl; : http://use.perl.org/
　・Learn Perl - Perl Education: http://www.devdaily.com/perl/edu/index.shtml
　・Perldoc.com: http://www.perldoc.com/
　・Using Perl5 in Web: http://docs.rinet.ru/Using_Perl5_in_Web/
　・Rex Swain's Home Page: http://www.rexswain.com/
　・Robert's Perl Tutorial: http://www.netcat.co.uk/rob/perl/win32perltut.html
　・Perl Tuts: http://savage.net.au/Perl-tutorials.html
　・Beginning Perl Tutorials: http://www.pageresource.com/cgirec/index2.htm
　・jcode.pl の私的な解説書: http://www.mikeneko.ne.jp/~lab/kcode/jcode.html
　・Logical Choice Software, Home Page: http://www.logsoft.com/perltips/
　・Perlfect Solutions: http://perlfect.com/
　・The Perl Archive : http://www.perlarchive.com/
　・Perl6 & Parrot VM についての情報: http://dev.perl.org/perl6/
　・use Object; : http://perl.infoware.ne.jp/

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

前スレ

Perl 初心者コーナー Part21
http://pc2.2ch.net/test/read.cgi/php/1047980851/

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

>>5
テンプレのほうに足すの忘れてしまった。スマン

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

前スレの最後の方の質問者ですが、
あの環境変数のスクリプト動きました。
どうやら仕様(?)変わったらしく、以前はcgi-binに入れなくてよかったんですが、
入れないといけなくなったらしいです。
それで、また質問なんですが、指定した環境変数だけ表示するにはどうすればいいんですか？
よろしくお願いします。

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

>7
表示したい環境変数を指定する。

**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;

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

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

あ・・・なんかファイル名のとこが変ですいません

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

携帯端末だとJavaScriptは使えないから、サーバサイドで任意のメッセージを
吐き出すように、なおかつメモリを食い過ぎないようにするしかない。

**nobodyさん** · 03/04/15 17:34

>>9-12
Perlの話じゃなくなってるが、
そのスクリプトがSSIで埋め込まれてるとして…。

今時のサーバだとスクリプト自体の処理内容より、
プロセス立ち上げが大きな負荷になる。
だから1ページ表示する度に4つのプロセスが
立ち上がるような事をするより、ページ丸々CGIで
吐くようにした方がサーバには優しいと思う。

http://pc2.2ch.net/test/read.cgi/php/1048686475/

**nobodyさん** · 03/04/15 17:41

これを4つずつ使ってりゃ注意も来るかもな。
1つで4つ分の広告をまとめて吐くようにすればいいのに。

**nobodyさん** · 03/04/15 17:50

どうもです。まとめてCGIとして作ったほうが良いんですね。
そっちのほうが負荷が大きいものだと思ってました。
調べてやってみたいと思います。ありがとうございましたー。

**nobodyさん** · 03/04/15 18:25

配列について躓いています。
・やりたいこと
　24bitsカラーコードを、無作為に選んで並び替えたい。
・やってみたこと。
　24bits分の配列を用意して、無作為に選び、別の配列へ代入させてみた。
my @src_colors=(0..16777215);
my @dist_colors;
foreach(0..16777215){
push(@dist_colors,splice(@src_colors,int(rand($#src_colors+1)),1));
}
・結果
　Out of memoryとなる。

そもそも64MBytesもある配列を用意している時点でアウトなんだと思うのですが、ほかに良い方法が思い浮かびませんでした。
（外部ファイルを使って同じ方法を。と思ってみたのですが、こちらも「重複するカラーコードを排除する」という点で同じような配列を使ったためにOut of memoryとなってしまいました。）
そこで、別の方法論がありましたらご教授いただけるとありがたいです。
それではよろしくおねがいいたします。

**Perl3級** · 03/04/15 18:40

一週間がんばりましたが、どうしてもわかりません。
最後の望みを託してエキスパートのみなさんにすがります。宜しくお願い
致します。

#/usr/local/bin/perl
@i = ( "AAA 100 80",
"BBB 500 500",
"AAA 400 420");

foreach $line (@i) {
split(/\s/, $line);
$key = $_[0];
$hash{$key} = $line;
print "$key $hash{$key}\n";
}

これを実行すると、

AAA => AAA 100 80
BBB => BBB 500 500
AAA => AAA 400 420

となります。あとは、AAA,BBBごとに右の数字を足していきたいのです。
簡単に言えば集計プログラムです。最終的に

AAA => AAA 500 500
BBB => BBB 500 500

となれば成功です。どんなにやってもわかりません。頭も痛くなって
きました。ぼくに秘伝を伝授して下さい。どうか、お願いします。

**nobodyさん** · 03/04/15 18:43

>>18
並べ替えできたとして何に利用するの？
九九の範囲内で足りるものを、それ以上の桁数で答を
用意しておいても無駄なだけでしょ
用途に対する根本的な設計がうまくないのでは？

**通行人さん＠無名タレント** · 03/04/15 19:14

my @i = ( "AAA 100 80",
"BBB 500 500",
"AAA 400 420",
"AAA 120 150",
"BBB 30 420"
);

my %hash = ();
foreach my $line (@i) {
my @temp = split(/\s/, $line);
my $key = shift @temp;
if( exists $hash{ $key }){
$hash{ $key }->[ 0 ] += $temp[ 0 ];
$hash{ $key }->[ 1 ] += $temp[ 1 ];
} else {
$hash{$key} = [ @temp ];
}
}
foreach my $key(keys %hash){
print $key, $hash{$key}->[ 0 ],$hash{$key}->[ 1 ], "\n";
}

**nobodyさん** · 03/04/15 19:23

この場合、exists は definedにするべき。undefに加算することを避けていることをはっきりさせる。
それから、my @tempで新しいメモリに置いてるのに、[ @temp ]は勿体ない。

**nobodyさん** · 03/04/15 19:26

undefをdereference

21 · 03/04/15 19:28

>>22
そうですね。
ありがとうございます。

**nobodyさん** · 03/04/15 19:44

>>21-22
この場合は暗黙の内に生成しちまっても問題ないと思うんだけど
駄目なんでしょうか。

@record = ("AAA 100 80", "BBB 500 500", "AAA 400 420");

my %sum;
foreach (@record) {
my($key, @value) = split /\s/;
for (my $i = 0; $i <= $#value; $i++) {
$sum{$key}->[$i] += $value[$i];
}
}
foreach my $key (sort keys %sum) {
print"$key => $key @{$sum{$key}}\n";
}

つか >>19 のコードは興味深いな。一つ勉強になったよ。

**nobodyさん** · 03/04/15 21:17

use strictの時は、undefのreferenceがランタイムエラーになる。

25 · 03/04/15 22:13

>>26
上のコードに use strict つけて @record を my 宣言して
走らせたけど、エラーになりませんでしたよ。
5.005_03 と 5.8.0 で確認。

リストリファレンスでないものを無理矢理リストとして
デリファレンスしたらエラーになるけど、代入時は
勝手にやってくれますよね?

use strict;
my $foo;
print @{$foo}; # ランタイムエラー

$foo->[2]{'bar'}[10] = 'baz';
print join '/', ($foo, $foo->[3], $foo->[2]{'bar'}, $foo->[2]{'bar'}[10]); # OK

**nobodyさん** · 03/04/15 22:31

あ。。。+=は代入扱いだな。鬱

**nobodyさん** · 03/04/15 23:20

質問させてください。
例えば、あいうえおかきくけこという文章の時、5文字目までを残して、
あいうえお　までを表示させて最後に･･･を付けるというような形です。

あいうえおかきくけこ
↓
あいうえお･･･

みたいにする方法を教えてください。

**nobodyさん** · 03/04/15 23:26

>29
どのような文字が入っているかによって変わる。
全て２バイト文字だと断言できるならsubstrでもできる。
１バイト文字と２バイト文字が混ざるなら、文字コードを読んで判断させなければならない。

**nobodyさん** · 03/04/15 23:38

>>30
早速お返事をありがとうございます。
ホームページの名前なので英語だったり日本語だったりしますので
下のにあたりますでしょうか？できればその方法を教えてください。

**nobodyさん** · 03/04/15 23:43

>>31
この辺参考にしる。
http://www.din.or.jp/~ohzaki/perl.htm#JP_Split

**nobodyさん** · 03/04/16 00:01

>>32
ありがとうございます。
URLのホームページを拝見したのですが難解でどこの事なのか分かりませんでした。
リンク集のログデータをトップページに表示させるためのデータをまとめるスクリプトを書いています。
どなたか方法を教えてください。お願いします。

**nobodyさん** · 03/04/16 00:13

>33
クリックせずにコピペしてみろ。
ちゃんとどこを見るかまで教えてくれている。
それ以上は自分で考えれ。

**nobodyさん** · 03/04/16 00:16

基本的にこのスレは「自分で解決しようと努力してるけどできない」人には優しいが、
「最初から全部教えてもらおうとしている」人には冷たい。
Perlのサポートセンターじゃないんだから。
回答側もボランティアだ。

よぉく>>1を読んでくれ。
>一緒に勉強しましょう。
勉強するのは教わる事じゃない。
考える事だ。

**はしのえみ好きー** · 03/04/16 00:26

＞基本的にこのスレは「自分で解決しようと努力してるけどできない」人には優しいが、
＞「最初から全部教えてもらおうとしている」人には冷たい。
このスレに限ったことじゃないよね。
後者に優しいのは宿題任せろスレぐらいだ。

**nobodyさん** · 03/04/16 00:27

コピペしようとはもうとう考えておりませんので、
substrの方法はわかりましたが、
１バイト文字と２バイト文字が混ざると駄目なようで。
この方法をどうか教えてください。

**はしのえみ好きー** · 03/04/16 00:27

何か反論みたいになってしまったがそうではなくて、>>35には概ね同意。

**nobodyさん** · 03/04/16 00:28

>>36
ウソだけど、はしのえみのヌード持ってるぞ

**はしのえみ好きー** · 03/04/16 00:30

>>39
マジっすか！？

**nobodyさん** · 03/04/16 00:35

>37
>32のリンク先になにがあった？
文字単位に分割できれば、そこで文字数を数える事はできるよな？
そうしたら、最初５文字だけ残して、その後ろを消して置き換え。
あとは自分でやってくれ。

**nobodyさん** · 03/04/16 00:51

ありがとうございます。
その部分は既にsubstrを教えて頂いたのできてます。

39 · 03/04/16 00:54

>>40
最初にウソだけどって書いたのに・・・・・・
ウンコーーーーーー

**Perl3級** · 03/04/16 00:55

21-27
みなさん。ありがとうございました。
お陰さまで無事プログラムか完成しました（涙
ありがとう、ほんとうにありがとう（涙

**nobodyさん** · 03/04/16 00:56

ここってヌードやウンコで盛り上がれば教えてくれますか？

**nobodyさん** · 03/04/16 01:09

$title = "あいうえおかきくけこ";
$title = mb_strimwidth("$title",0,10,"...");

**nobodyさん** · 03/04/16 01:19

>>46
スマンそれ違う。

**nobodyさん** · 03/04/16 01:44

>>47
これは何でしょうか？試してみましたが動きませんでした。

現状はsubstrで･･･に変換する事が出来ましたが、
substrが、1バイトづつで指定していますので、
1バイト文字と2バイト文字の組合せでは場合によって、
文字化けが発生しまいます。先ほどホームページを教えて頂いたのですが、
今の私の力では読み取る力がありませんでした。
思考錯誤してみます。お騒がせして申し訳ありませんでした。

**はしのえみ好きー** · 03/04/16 01:55

>>43
>>40のメール欄読んでよ・・・・・・
○ンコーーーーー

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

自己解決しました。

>>20
例えが良く判りませんでした。すみません。

**50=18** · 03/04/16 02:27

**chuu** · 03/04/16 11:42

ユーザ名からホームディレクトリが存在するかをチェック知りたくて、
$username = "hoge";
if (-e "~$username") {・・・
とやっても、hogeというユーザが存在するにもかかわらずfalseになります。
チルダを使わずフルパスで指定すれば当然うまくいくわけですが、
ユーザ名からホームへのフルパスを得るようなことはできますか？
/etc/passwdを開いて検索しなければならないのでしょうか・・・
よろしくお願いいたします。

**はしのえみ好きー** · 03/04/16 11:45

~（ﾁﾙﾀﾞ）を展開するのはシェルのお仕事。Perlは知らんぷりっ
/home/$username でｲｰﾝｼﾞｬﾈｰﾉ？

**はしのえみ好きー** · 03/04/16 11:48

もしくはgrep $username /etc/passwd。あとは野となれ山となれ

**chuu** · 03/04/16 12:04

>>53様、すばやい回答ありがとうございます。
変な環境でして、/home/*で統一されているわけではないんです。
passwdファイル検索の方向で試してみます。
ありがとうございました。

◆hMJAPH9PWA · 03/04/16 12:25

>>55
/etc/passwd用組み込み関数があるよ。
perldoc -f getpwent
perldoc User::pwent
およびgetpwent(3) man pageを参照のこと。

**はしのえみ好きー** · 03/04/16 12:34

>>56 そんなのがあったんだ。>>52じゃないがｱﾘｶﾞ㌧

**nobodyさん** · 03/04/16 13:20

HTTP-Liteを入れようと思い、コマンドプロンプトで
ppm>install HTTP-Lite　と打ち込んだのですが、

Error installing package 'HTTP-Lite': Could not locate a PPM binary of 'HTTP-Lit
e' for this platform

となってエラーになってしまいます。
検索はしてみましたが、さっぱり見当違いなものしか検索できませんでした。
どうかどうすればインストールできるか、ご教授お願いします。

**nobodyさん** · 03/04/16 16:28

PPM> search HTTP::Lite
Packages available from http://ppm.ActiveState.com/cgibin/PPM/ppmserver.pl?urn:/
PPMServer:
HTTP-Lite [2.1.1] Lightweight HTTP implementation
PPM>

あるけど
setでパス通ってるか見てみ

**nobodyさん** · 03/04/16 17:56

Perl串ってなんですか？
レンタルサーバーに置いて２ｃｈ書き込むのに使ってる人いる？

**nobodyさん** · 03/04/16 19:20

(　ﾟдﾟ)ﾎﾟｶｰﾝ

58 · 03/04/16 19:20

通ってなかったです、超初歩的ミスですみません＾＾；

**nobodyさん** · 03/04/16 22:53

>>49
そういういじめか・・・

でもまじでヌードは見たいがな、俺も。
あいつは何かむらっとくるもんがあるあいつはもう３０なのに・・・・・
写真集出せ

**nobodyさん** · 03/04/17 00:24

Perlで作ったプログラムをcgiとして使うときって通常ファイルの拡張子は.plで使うのですか？
それとも何かコンパイラみたいので.cgiに変えるとかなんですか？
お願いします教えてください。

あとそのうち作ったcgiを配布してみたいと考えているのですが、そのときも拡張子が.cgiのほうが良いのですか？

**nobodyさん** · 03/04/17 00:33

.cgiじゃないと動かんだろ？
.plで動けば.plでいいじゃない？

**はしのえみ好きー** · 03/04/17 00:34

>>63
漏れ年上でかつ可愛い人が好き。はしのえみは理想だな。

>>64
スレ違い。ここははしのえみについて語るスレです。

Webサーバの設定で、拡張子".cgi"というファイルのリクエストを受けるとそれ用に処理するようになってる。
だから、設定によっては".pl"でもOKな時もある。
どっちにしろ".cgi"にしておけば安心。ファイル名を変えるだけでOKよ。

**nobodyさん** · 03/04/17 00:36

やれやれ・・・

**nobodyさん** · 03/04/17 00:38

スレ違い。ここははしのえみについて語るスレです。

**nobodyさん** · 03/04/17 00:55

漏れは坂下千里子が好きかも。
型グロ部ってイマイチ何かよくわかりません。
とあるCGIをDLして、それを解読中なのだが、
たとえば、
*option_pnt = $_[0];
*config_pnt = $_[1];
$ctl_sock = $config_pnt{"ctl_sock"};
$before = $option_pnt{"before"};
$after = $option_pnt{"after" };
$path = $option_pnt{"path" };
&jcode'convert(*before,"sjis");
&jcode'convert(*after ,"sjis");
&jcode'convert(*path ,"sjis");
のような部分があるのですが、
漏れ敵には、文脈に応じて柔軟に型を識別してくれるもの
くらいの認識なのですが、いまいちシックリきません。
どんなときに型グロ部使うと激ｳﾏｰなのか、どなたかご教授ください。

**nobodyさん** · 03/04/17 00:59

そうか、ただ拡張子を変えただけか。
いやてっきりＰｅｒｌプログラムをコンパイルしているのかと思っていたから。
サンクスみんな
ついでにいうと６３＝６４＝俺や。
どうでもいいがな。

オマエがすれ違いやで。

**nobodyさん** · 03/04/17 01:02

配布するときは、圧縮してるサイトが多いね。lzh,zip,tar.gz
圧縮しないときはtxtにしてるところが多いね。
cgiだと多くの場合、実行されちゃうから。