Perl コーディング初心者質問コーナー Part26

**nobodyさん** · 03/07/24 19:48

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

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

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

最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。

関連スレ
【Perl上級者コーナーPart01】
http://pc2.2ch.net/test/read.cgi/php/1024741312/
CGI: Common Gateway Interface part 11
http://pc2.2ch.net/test/read.cgi/php/1055597189/
【Perl,CGI】参考書籍第三版
http://pc2.2ch.net/test/read.cgi/php/1030209573/
【スクリプト改造工房 PART 6　】
http://pc2.2ch.net/test/read.cgi/php/1047806915/

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

**nobodyさん** · 03/08/11 13:42

>>858
PATH_INFO
詳しくは CGI スレで。

**nobodyさん** · 03/08/11 13:56

>>858
http://pc2.2ch.net/test/read.cgi?bbs=php&key=1059043704
http://pc2.2ch.net/test/read.cgi/php/1059043704/

**nobodyさん** · 03/08/11 14:06

どーもthxです。勉強してきます

**nobodyさん** · 03/08/11 14:08

>>860
あ、なるほど本来(?)なら
bbs=php&key=1059043704
と引数を渡すところを、
PATH_INFOってのを使って、
/php/1059043704/
こういう形で引数を渡すように設定できる

そういうことですね。勉強になりました。

**nobodyさん** · 03/08/11 18:17

>>854
俺は14874行の
perlスクリプトを動かしてるが、なんてことはなく
サクサク動いてるぞ。

**nobodyさん** · 03/08/11 18:26

単純に行数じゃ判断できないしなぁ。
改行だけなら1～2バイトだし。
行数よりもファイルサイズが重要でないかい？

**nobodyさん** · 03/08/11 18:41

2113行、60KBでサクサク

**nobodyさん** · 03/08/11 19:59

10000行、20KBで以下略。

**nobodyさん** · 03/08/11 20:01

2701行、85Kbでサクサク

**863** · 03/08/11 20:02

14874行って書いたけれど、
サイズは623KBだ。
サクサク。

>>854
はマシンのスペックがよっぽどしょぼいか、
しょっぱいスクリプトの書き方してるんじゃないかな。

**nobodyさん** · 03/08/11 20:04

10000行で20KB
ってことは、10000行の改行だけのスクリプトってことだな

**nobodyさん** · 03/08/11 20:04

あ、ちがった。
KBとBの単位をまちごた。

**nobodyさん** · 03/08/11 21:26

最近UTF-8でスクリプト書いても動く事に気付きました。
で素朴な疑問ですがやはりEUCでないとどこかで不都合起きたりしますか？
今のところ何も起きてないけど気になって。

**nobodyさん** · 03/08/11 21:34

ＵTF-8だと問題ないでしょ。
さらに
perl5.8を使って、
use Encode;
でさらに幸せになれます。

**nobodyさん** · 03/08/12 04:00

たった５０行ですけど、重くて全然動かないですよ。
パソコンの環境によっては５００行以下にしなさいってことだ。

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/08/12 04:50

50行で動かないってどういうスクリプトだそりゃ。
または博物館行きのスペックのマシンでも使ってんのか？

**nobodyさん** · 03/08/12 04:53

ほっとけ

**nobodyさん** · 03/08/12 04:55

>>884
とてつもなく巨大な配列とか使ってたりして(w

**nobodyさん** · 03/08/12 05:17

無限ループすれば一行でもおもくできるが？

つか、おめぇAA貼ってる馬鹿だろ。みんな放置汁

**nobodyさん** · 03/08/12 05:21

>>874-882までまた削除依頼でいいだろ
今度はコピペとして依頼してくれって言ってるから、そろそろ（ｒｙ

**nobodyさん** · 03/08/12 05:27

わざと重くするなら無限ループでもなんでも簡単だが、
50行でうごかねーって騒いでるのは
わざと重くしてるのか？

**nobodyさん** · 03/08/12 10:40

すいません、CPANって、なんて読むのでしょうか？
しーぱん？しーぴーえーえぬ？

**nobodyさん** · 03/08/12 10:50

しーぱん

**nobodyさん** · 03/08/12 10:55

しーぽん

**nobodyさん** · 03/08/12 11:00

ｼﾊﾟｰｿ

**nobodyさん** · 03/08/12 11:41

>>890
CPAN (See-Pan)

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/08/12 11:55

粘着質だな

**nobodyさん** · 03/08/12 12:02

そのうち板ごとアク禁されるでしょ

**nobodyさん** · 03/08/12 13:34

>>874以降の分、削除依頼してきた

**nobodyさん** · 03/08/12 14:43

激しくPerl初心者で悪いんだが、所有者がWebになってるディレクトリを削除するために（FTPからは削除できない）
それ用の簡単なプログラムを書いてみたんだが５００InternalServerErrorになる。ソースをうｐするのでご教授願いたい。
ttp://amici.dip.jp/~takuho/cgi/hakoniwa_sakujo.txt
KENTWEB配布の文法チェッカーでは異常なしらしいんだが…。

**906** · 03/08/12 14:44

失敬、アドレス間違えた。
正しくは、
ttp://nd22.abz.jp/cgi/hakoniwa_sakujo.txt

**nobodyさん** · 03/08/12 14:56

>>906
2行目に
print "Content-type: text/plain\n\n";
を挿入

03/08/12 14:57

だな

**nobodyさん** · 03/08/12 15:00

>>906
UNIXで動かしてるのか？
と言うより、CGIとして起動してるのか？

それなら>>908のは必須だよ。

**nobodyさん** · 03/08/12 15:09

えー、よく分からないんだが、Windowsで書いたPerlのスクリプトを、Linuxのサーバにうｐして走らせてる、でいいのかな？
あと、>>908の言うとおりにスクリプトを変更して走らせたら、なんかDLしますか？みたいなウィンドウが出てきたので、txt/plainをtxt/htmlにしてみたら一応走った。
$sakujp1から$sakujp9までを表示させてみたら全部0　（´Д｀;）ﾏｼﾞｶﾖ

**nobodyさん** · 03/08/12 15:13

うが、失敬あげてもた

**nobodyさん** · 03/08/12 15:17

>>911
ディレクトリは空なんだろうね。

**nobodyさん** · 03/08/12 15:21

>>911
txtじゃなくtextなのだが

**nobodyさん** · 03/08/12 15:22

>>913
空じゃないといけないのかｗ
スクリプト書き直します

>>914
ああ、こりゃまた失敬。
ちゃんとtextって書いてますよ。

**nobodyさん** · 03/08/12 16:29

定数のみを記載したファイルを各CGIにて読み込んで、
各ページで内容を統一したいのですが、以下の方法では
エラーとなってしまいました。
どなたかご教授お願いします。

# main.cgi

require "inc.pl";
････

# inc.pl
my $title = "welcome";
････

よろしくです。

**nobodyさん** · 03/08/12 16:29

落ち着いてから喋れよ

**nobodyさん** · 03/08/12 16:44

my %hage = (
　a => "hage",
　b => {
　　c => "$hage{a} /hage",
　},
);

こんな感じで$hage{b}{c}で、$hage{a}を使いたいけど、
出来ませんよね？何かいい方法有りませんか？

**nobodyさん** · 03/08/12 16:47

my の意味わかってる？
なんでつけてんの

**919** · 03/08/12 16:50

あ、、>>916あてね

**nobodyさん** · 03/08/12 16:53

>>918
どうしても初期化時にやりたいの？

**nobodyさん** · 03/08/12 16:56

>>918
my $zura = "hage";
my %hage = (
　a => $zura,
　b => {
　　c => "$zura /hage",
　},
);

**916** · 03/08/12 17:07

解決しました。

根本的に間違えていました。

まず、パッケージ宣言をしていませんでした。
あと、>>920さんのいうとおり、パッケージとして読み込む
内容に対してmyにしていました。

**918** · 03/08/12 17:10

>>919
実はあんまいみ分かって使ってないかも（汗

サブルーチンの中でその間数内でしか使わない変数は、
myを付けるようにしてる。あと、use strict;してると、
my付けなきゃ怒られるから、、、

>>921-922
一つにまとめた方がすっきりしていいかなーって思いましてね。
やっぱ無理ですかね？

**918** · 03/08/12 17:11

>>920
あ、俺宛じゃないのね。
失礼。

**nobodyさん** · 03/08/12 17:35

>>925
ついでに勉強しておくと良いと思われ。
キーワードはvarsとかourあたりで。

**923** · 03/08/12 19:10

解決したのですが、別の問題が･･･

requireで呼び出す定数の記載されたplファイルが、
ブラウザから丸見えになってしまいます･･･
(見られたくない内容が記載されています)

属性を600にしたら動かないようですし。

ブラウザから参照できないファイルにできないものですか？

よろしくお願いします。

**nobodyさん** · 03/08/12 19:18

全然コーディングと関係ないぞ

**923** · 03/08/12 19:23

>>928 失礼しました。流れでついつい聞いてしまいました。

ちなみに拡張子をcgiにしてみると実現できました。

**nobodyさん** · 03/08/12 19:41

>>927
そこから先はスレ違いの内容だ。

**nobodyさん** · 03/08/12 19:42

.htaccessで観覧不可にすればいーじゃん

**nobodyさん** · 03/08/12 20:11

>>932-938まで削除依頼済み

**nobodyさん** · 03/08/12 20:23

>>940
運用情報にて規制対象にするのがよいかと。

**nobodyさん** · 03/08/12 20:31

>>941
それはいいね。
運用情報をちょっと見てきたけど、コピペや広告がﾋﾞｼﾊﾞｼと
アク禁になっててﾜﾗﾀ。
今後も続いたらそっちに回そう。

**nobodyさん** · 03/08/12 20:50

my $ref_mail = $pop3->get($num);
my $mail = join(/ /, @{$ref_mail});

とかくと、成功したり失敗したりします。
エラーが出た場合のエラー内容は下記のとおりです。

Can't use an undefined value as --.cgi reference

これについて調べてみたのですが、どうも理解が
できません。
定義するとエラーが出てしまいますし、初心者の私に
どうか教えていただければ幸いです。

**nobodyさん** · 03/08/12 20:57

あるところに糞スレの好きな男がいた。
男は「（都の人のする）糞スレというものをひとつ立ててみよう」と思った。
男の女房が「（天さかる鄙にすむわたしのような教養のない女でもわかるが）都の人はそんなことをしない（と思う）」
と諌めたが、男はきかない。
「（釈迦入滅以来うだつのあがらない自分という男にほとほと愛想が尽きたが）
ここで糞スレを立てれば（都の人のように）頓知がきいていると世の賞賛を受けるだろう」
と糞スレをたてた。

はたして翌日、＞２以降、罵倒の嵐だった。
＞１も無駄なことをするものだなあと（何故か判らぬが突然出てくる）横川の僧都（そうず）は嘆いた

**nobodyさん** · 03/08/12 22:05

>>942
でも担当★がちょとあんぽんたんだったので★を剥奪されたそうです（ｗ

**nobodyさん** · 03/08/12 22:14

透明削除入れたので、レス番がずれました。
申し訳ないです。

>>937は>>932-934辺りへのレスです。

**nobodyさん** · 03/08/12 22:35

クエリーストリングを、%inに入れたとして、以下のコードを実行すると、

sub htmlspecialchars{
　　#PHPの同名関数と同じ動きをします。
　　my ($letter) = $_[0];
　　$letter =~ s/&/&/g;
　　$letter =~ s/"/"/g;
　　$letter =~ s/'/？/g;
　　$letter =~ s/</</g;
　　$letter =~ s/>/>/g;
　　return $letter;
}

foreach $key (keys %in){
　　&jcode::convert(\$in{$key}, "sjis");
　　print qq|<input type="hidden" name="$key" value="|. &htmlspecialchars(\$in{$key}) .qq|">\n|;
}
<input type="hidden" name="country" value="SCALAR(0x827cdbc)">
<input type="hidden" name="gender" value="SCALAR(0x827cd2c)">
となってしまうのですが、どこがいけないのでしょうか・・・？

**nobodyさん** · 03/08/12 22:43

>>938
乙。
あぼーん<>あぼーん<>あぼーん<>あぼーん<>あぼーん<>
を追加加工は出来なかったのね（ｗ

>>939
リファレンスで渡してるやん。。。

**nobodyさん** · 03/08/12 23:00

#!/usr/bin/perl

# CGIヘッダの出力
print "Content-type: text/html\n\n";

while($HP1 > 0) and ($HP2 > 0){
srand1;
srand2;
}

# Player1
$HP1 = 400 - $kougeki1;
$KIK1 = 60;
$PAN1 = 20;
$DF1 = 10;

# Player2
$HP2 = 300 - $kougeki2;
$KIK2 = 100;
$PAN2 = 40;
$DF2 = 0;

# Player1
$kougeki1 = sentaku;
$kougeki1 = $KIK2 = 100;
$PAN2 = 40;

# Player2
$kougeki2 = $KIK2 = 100;
$PAN2 = 40;
$DF2 = 0;

**nobodyさん** · 03/08/12 23:00

sentakud;
if($mode == 1){
$offense = \%you;
$defense = \%my;
}elsif($mode == 2){
$offense = \%my;
$defense = \%you;
}
if( int(rand(2)) ){
#punch
$damage =
$offense->{'$PAN1'} - $defense->{'$DF2'};
if(!$rand = int(rand(5))){
#half
$damage = int($damage / 999);
}elsif($rand < 3){
#miss
$damage = "";
}
}else{
#kick
$damage =
$offense->{'$KIK1'} - $defense->{'$DF2'};
}

**nobodyさん** · 03/08/12 23:07

sentaku2;
if($mode == 1){
$offense = \%you;
$defense = \%my;
}elsif($mode == 2){
$offense = \%my;
$defense = \%you;
}
if( int(rand(2)) ){
#punch
$damage =
$offense->{'$PAN2'} - $defense->{'$DF1'};
if(!$rand = int(rand(5))){
#half
$damage = int($damage / 999);
}elsif($rand < 3){
#miss
$damage = "";
}
}else{
#kick
$damage =
$offense->{'$KIK2'} - $defense->{'$DF1'};
}

($damage < 0) and ($damage = 0);
$defense->{'HP1'} -= $damage;

**nobodyさん** · 03/08/12 23:08

($damage < 0) and ($damage = 0);
$defense->{'HP2'} -= $damage;

# HTMLの出力
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\">\n";
print "<html>\n";
print "<head><title>対戦バトル</title></head>\n";
print "<body>
<p>Player1：体力は$HP1です</p>
<p>Player2：体力は$HP2です</p>
<p>Player1は<big>$kougeki1</big>のダメージを与えた。</p>
<p>Player1は<big>$kik1</big>のダメージを受けて混乱した。
<p>mona-は<big>$panti1</big>のダメージで野原でクソをし始めた。
<p>Player2は<big>>$kougeki2</big>のダメージを与えた。</p>
<p>Player2は<big>>$kik2</big>のダメージを受けて裸踊りを始めた。
<p>Player2は<big>>$pantti2</big>のダメージで光浦なみの女にレイプし始めた。</p></p></body>\n";
print "</html>";

**nobodyさん** · 03/08/12 23:09

>>935

それはその下のファイルを使うな、という意味です。
そのファイルは使えないので、そのファイルを全部削除して、
１から書き直すことをすすめます。

**nobodyさん** · 03/08/12 23:46

配列の中身を順番に書き出すにはどうすれば良いんでしょうか。

while (@test){
　print\n;
}

とかやってみたのですがPCごと固まってしまいました…。
あとハッシュの中身を例えば
キー：値
のような形のリストとして出力するような方法も知りたいです。
#キーは不定

**nobodyさん** · 03/08/12 23:55

>>946
foreach(@test){
print $_,"\n";
}

**nobodyさん** · 03/08/13 00:11

foreach $key(keys %HASH){
print $key." = ".$key{$key}."\n";
}

**nobodyさん** · 03/08/13 00:20

>948
間違ってるぞ。
foreach $key(keys %HASH){
print "$key=$HASH{$key}\n";
}

**nobodyさん** · 03/08/13 00:23

while (my($k, $v) = each %hash) {
print "$k:$v", "\n";
}

**nobodyさん** · 03/08/13 00:23

>>943
ハードリファレンスやシンボリックリファレンスとして使用する値は、
定義済みの値でなければなりません

**nobodyさん** · 03/08/13 00:25

>>945
あるいは
while ( @test ) {
　　pop shift @test."\n";
}

>>946
あるいは
while ( ($key, $val) = each %HASH ) {
　　print $key." = ".$val."\n";
}

**952** · 03/08/13 00:26

失礼。訂正です。

>>945
あるいは
while ( @test ) {
　　print shift @test."\n";
}

**nobodyさん** · 03/08/13 00:26

お。。
まちがってた。
thxでごんす。

**946** · 03/08/13 00:28

ありがとうございました。
whileとforeachの違いがイマイチわかりづらいですが
ラクダ本でも見てゆっくり勉強する事にします。

ハッシュの方はKeys関数のところみたら見事に載ってました。
わざわざすみませんでした…。

**952** · 03/08/13 00:29

たびたび失礼。訂正です。

>>945
あるいは
while ( @test ) {
　　print shift @test;
　　print "\n";
}

**nobodyさん** · 03/08/13 01:30

>>945
@testが小さければ
print join("\n", @test, '');

**nobodyさん** · 03/08/13 10:45

>>946

while (<>) {
print $_ . "\n";
}
のつもりで書いたのか。それならば。
while (shift @test) {
print $_ . "\n";
}