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/10 22:57

>>836
動かしてみ

**836** · 03/08/10 22:58

ミスった。
>>835ね

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

>>828
http://perl.infoware.ne.jp/documents/perlboot.ja.html

>>830
$time = sprintf '%02d 時間 %02d 分', $time, ($time * 60) % 60, $time;

**nobodyさん** · 03/08/10 23:18

perlをダラダラ書いてたら、
一つのファイルで、1500 行
を超えてしまいました。
行数が多いと何か不都合は起きますでしょうか？
お教え下さい。

**nobodyさん** · 03/08/10 23:27

素朴な疑問。なんで、
print qq|<a href="hoge">fuga</a>|;
ってやればコードが見やすいのに、
いちいち
print "<a href=\"hoge\">figa></a>";
ってやってる人が多いんですか？
qqのほうが、コーディングもよけいなことあんまり考えなくて、はやくすむと思うんだけど

**nobodyさん** · 03/08/10 23:30

>840
それを見やすいと思うのはPerlユーザーだけ。
俺は使い分けてるけどね。

**nobodyさん** · 03/08/10 23:30

>>838
最後の$time要らん。

>>839
そのスクリプトを保守する人間が困らないのなら別に問題無し。

>>840
最初に覚えた方法が一番分かり易いと思い込んでいる人は多い。
もちろんその方法しか知らない人も多い。

**840** · 03/08/10 23:41

>>841-842 レスさんくす。
なるほどねー。
自分最初にPerlおぼえて、
そのあとちょっとPHPかじって、
Javaおぼえようかなーて思ってる程度だからなー。

**nobodyさん** · 03/08/10 23:42

>>841
C#にも@""構文があるのに。Perlﾕｰｻﾞだけとは心外だな。

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

print "何時間？\n>";
$time =<>;
my(@time_temp) = split(/\./, $time);
chomp($time);
if(length($time_temp[1]) eq "1"){$time_temp[1] = $time_temp[1] * 10;}
time = sprintf '%02d 時間 %02d 分', $time, ($time * 60) % 60, $time;
print "<a href=\"hoge\">figa></a>";
$time_temp[1] = int(60 * $time_temp[1] / 100);
print "$time_temp[0]時間$time_temp[1]分\n";

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

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

#!/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 = srand;

# Player2
$kougeki2 = srand2;

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

srand;
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/11 01:00

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

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

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

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

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

>>840
単に知らないからだと思うが。

**nobodyさん** · 03/08/11 10:23

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

>>839
長くなりすぎると動きません。５００行以内じゃないと動きにくいです。
ちゃんと勉強しろ！オタクやろう！！

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

　　　　　　　　　　　　　＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　 ∧＿∧∩　／
　　　（　´∀｀）/＜真珠のＰｅｒｌと何が違うんですか！？
　＿ / /　　 /　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
＼⊂ノ￣￣￣￣＼
　||＼　　　　　　　　＼
　||＼||￣￣￣￣￣||
　||　 ||￣￣￣￣￣||
　　 .||　　　　　 ||

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

　　　　　　, '　ｓ　　　＼::::::::::::i
　　　　　／"""''／ーﾅ-ｔ----|
.　　　　/ 　　,.‐　　 ⌒ 　　　／ﾍ
　　　　｛入｜(･)　　(･)　　　 ||||||| 　　／￣￣￣￣￣￣￣
　　　　　　｜⊂⌒◯-------9）　＜　　　まだ、動かないぜ！ベイビー！！
　　　　　　｜ |||||||||＿　　　　｜　　　＼＿＿＿＿＿＿＿
　　　　　　　＼ﾍ＿／　＼　／￣`＼､
.　　　　　　　　＼、__ i⌒i／, -'"~ 　`ヽ､
　　　　　　　,.‐'´　　　i--i　　　　　　　　＼
　　　　　　　`〈ヽ, -'"~T 　ヽ、　, -'"　~ `ヽ、
　　　　　　　／　（￣　T　　　iヽ、__　　　　　＼.
　　　　　／　　　　（￣T　　　|　　　`ヽ、　　　　｝
　　　　く　　　　　　￣　`ヽ、/__　　　　　　　　/

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

＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　|| ($damage < 0) and ($damage = 0);
　　　|| $defense->{'HP1'} -= $damage;はダメージ
　　　|| 　　　　　　　∧＿∧ 　。
　　　||　　　　　　　　（　　＾＾）／
　　　￣￣￣￣￣￣（　　　　つ￣￣￣￣￣￣￣￣￣
　　　　　　　　 / ￣￣￣ ./| lヽ──────────────
　　　　　　　　 |￣￣￣￣| | |　ダメージを受けると、糞をもらします
￣￣￣￣￣￣￣￣|＿＿＿＿|/ |
　　　　　　　　　　　　　　　　　￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　∧ ∧　　　　∧,,∧　　　∧ ∧
　　　 (・,,　∧▲　　ﾐ　 ∧ ∧　(　　∧ ∧
　　～（＿(　　∧ ∧＿(　∧ ∧＿ﾐ･д･∧ ∧
　　　　＠（＿(,,・∀・)＠ (　　 *)～ミ＿ ( 　　,,)
　　　　　　＠（＿__ﾉ　～（＿__ﾉ　　～（＿__ﾉ

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

2chって、鯖/カテゴリ/.../dat/
でアクセスして表示しますよね？
これってこの全てのディレクトリの下にindex.htmlか.cgiかなにかを置いてあって、
それを表示してるってことですよね？
でも
鯖/カテゴリ/.../dat/
これでアクセスしたときと、
鯖/カテゴリ/.../dat/index.htmlでアクセスしたときと、
表示が微妙に違うんです。

どういう仕組みで表示させてるんでしょうか？

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

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