Perl コーディング初心者質問コーナー Part34
■ このスレッドは過去ログ倉庫に格納されています
0001前スレの連投で気分崩したので後よろ
04/04/05 16:01ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこう言う事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0367nobodyさん
04/04/23 20:15ID:???はじめの文字がaだった場合とそれ以外で読み込むフォルダを分けたいと
思っています。
以下のように記述したのですが、エラーが出てしまいました・・。
どこ違っているのかわからないので、指導お願いします～。。
$IMAGE = sprintf("%01d/%01d/%04d",$a,$b,$c);
if ($a eq a){print "<IMG src=\"image/$a$b$c.gif\">;
}else{print "<IMG src=\"img/$a$b$c.gif\">";}
また、1.1.残りと分けたいのですが、画像ファイルの名前が4～6文字とランダムなのですが、上の書き方だとだめなんですよね・・？
どうすればいいんでしょうか？
0368nobodyさん
04/04/23 20:17ID:???最近アクセス解析CGI作ったから require で呼び出せるように書き換えて
提供してやろうか？
いるなら捨てアドさらせ。
さらしてから書き換えに２～３日掛かるからその後送ってやる
0369nobodyさん
04/04/23 21:00ID:???print $IMAGE =~ /^A/ ? "<IMG src=\"image/$IMAGE.gif\">" : "<IMG src=\"img/$IMAGE.gif\">";
0370nobodyさん
04/04/23 21:04ID:???＞$IMAGEに書かれている文字を、sprintfで文字を3つに（1.1.残り）に分けて
使う関数が目的に合っているかよく調べろ。
＞$IMAGE = sprintf("%01d/%01d/%04d",$a,$b,$c);
これじゃあ$a,$b,$cを指定のフォーマットにして/をはさんだ文字列として
$IMAGEに代入する式だ。
こんなのでもいいだろ。
$a = substr($IMAGE,0,1);
$b = substr($IMAGE,1,1);
$c = substr($IMAGE,2);
0371369
04/04/23 21:12ID:???0373nobodyさん
04/04/24 12:42ID:ftCx7p610374nobodyさん
04/04/24 13:44ID:???0375373
04/04/24 14:07ID:???0376nobodyさん
04/04/24 15:41ID:???自分で使う分には構わないって事でファイナルアンサーしてたような。
CPANに登録するのなら英語(Ascii?)で書かかないと。
http://www.perldoc.com/perl5.8.0/README.jp.html
http://search.cpan.org/~nwclark/perl-5.8.4/README.jp
EUC-JPで化けるみたいだしね。
# UTF-8だといけるのかな？
0377373
04/04/24 21:14ID:???お陰で彼女が出来ました
0378nobodyさん
04/04/25 11:23ID:KCQtln8X例えば、MOD_A.pm と MOD_B.pm を自作して
MOD_A.pm 内のソースで use MOD_B; を宣言
MOD_B.pm 内のソースで use MOD_A; を宣言
cgiプログラムを作ってるんですが、そのcgiプログラムの中で
use MOD_A;
use MOD_B;
とかやりたいんですがどう？
もっとさらに言うと、MOD_A.pm の中で自分自身を
use MOD_A;
とかやっても大丈夫ですか？
0379nobodyさん
04/04/25 11:41ID:???0380nobodyさん
04/04/25 11:42ID:???0381nobodyさん
04/04/25 14:33ID:???相互 use、自己 use とも無限ループにはならない。
ttp://www.perldoc.com/perl5.8.0/pod/func/use.html
ttp://www.perldoc.com/perl5.8.0/pod/func/require.html
ただし、自己 use することに何の意味もない。
さらに、相互 use することにも意味がない。
>378 の例だと CGI の中の use MOD_B; と、MOD_B.pm の中の use MOD_A; は
あってもなくても変わらない。
とりあえず、相互に use するような設計がおかしいので考え直せ。
0382nobodyさん
04/04/25 21:00ID:???ＨＴＭＬでの " は \" になることは知っているので、そうしたのですが、
! や ? の記号の前にも \ が必要なのですか？それとも他の記号なのでしょうか？
0383nobodyさん
04/04/25 21:06ID:???話はそれからだ。
0384nobodyさん
04/04/25 22:15ID:???cgiで文字列の出力をしようとしているのですが、500エラーがでます。
" は \" になることは知っているので、そうしたのですが、
! や ? の記号の前にも \ が必要なのですか？それとも他の記号なのでしょうか？
0386nobodyさん
04/04/26 16:42ID:NLGfQi9Fディレクトリに、Basic認証もしくはDigest認証をかけて
/private/secure.cgi
へアクセスをした場合に、ユーザ名・パスワードを引数として
渡すには、どうやったら良いのでしょうか？
どなたかご教授、お願い致します。
0387nobodyさん
04/04/26 17:04ID:???パスワードを CGI に引き渡すのは
少なくとも現行の CGI というインタフェースを使う限りでは
原理的に不可能です。
これは Perl コーディング上の制限ではなく
CGI というインタフェース仕様上の制限です。
CGI 以外の方法なら、
例えば mod_perl を使って PerlAuthenHandler を組むやり方であれば
Apache Request オブジェクトの get_basic_auth_pw() メソッドを使って
パスワードを取得することができます。
0388386
04/04/26 17:18ID:NLGfQi9Fレスありがとうございます。
REMOTE_USERでのユーザ名引き渡し、確認できました。
パスワードはやはり無理ですか...
ユーザ名だけを利用して（重要な部分へは再認証という形で）
対応していきます。
0389nobodyさん
04/04/26 17:45ID:8MkOGNrLエラー処理ができなくて困っております。
例えば、
my $dbh = DBI->connect("dbi:Pg:dbname=$dbname;port=$port", $user, $password, {RaiseError => 1, AutoCommit => 0}) || print "error";
これで$dbnameが存在していないものを指定すると、printにいってくれず、
Internal Server Errorが出てしまいます。↓error_log
DBI connect('dbname=--;port=--','',...) failed: FATAL: database "--" does not exist at --.cgi line --
ご教授いただけませんでしょうか。
宜しくお願いします。
0391nobodyさん
04/04/26 18:11ID:???横槍入れるようだが、同じパスワードで何回認証しても意味ないと思うんだが。
ユーザー名は追跡の為に追うこともあるだろうけど。
0392nobodyさん
04/04/26 18:24ID:???ユーザ名とパスはリクエストヘッダAuthorizationで渡されるから拾えばいい。
例えば.htaccessで
RewriteEngine on
RewriteCond %{HTTP:Authorization} ^(.*)
RewriteRule test.cgi test.cgi$1 [e=HTTP_CGI_AUTHORIZATION:%1]
($scheme, $data) = split (' ', $ENV{'HTTP_CGI_AUTHORIZATION'});
if ($scheme eq 'Basic') {
$data = &decode_base64 ($data);
($ENV{'REMOTE_USER'}, $ENV{'REMOTE_PASSWORD'}) = split(':', $data);
}
sub decode_base64 {
my ($str) = "@_";
my ($res, $len) = "";
local($^W) = 0;
$str =~ tr|A-Za-z0-9+=/||cd;
if length($str) % 4;
$str =~ s/=+$//;
$str =~ tr|A-Za-z0-9+/| -_|;
while ($str =~ /(.{1,60})/gs) {
$len = chr(32 + length($1)*3/4);
$res .= unpack("u", $len . $1 );
}
return ($res);
}
print "Content-type: text/html", "\n\n";
print "$ENV{'HTTP_CGI_AUTHORIZATION'}<br>\n";
print "$ENV{'REMOTE_USER'}<br>\n";
print "$ENV{'REMOTE_PASSWORD'}<br>\n";
0394nobodyさん
04/04/26 18:39ID:???ちょっと間違った
RewriteEngine on
RewriteCond %{HTTP:Authorization} ^(.*)
RewriteRule test.cgi test.cgi [e=HTTP_CGI_AUTHORIZATION:%1]
sub decode_base64 {
my ($str) = "@_";
my ($res, $len) = "";
local($^W) = 0;
$str =~ tr|A-Za-z0-9+=/||cd;
$str =~ s/=+$//;
$str =~ tr|A-Za-z0-9+/| -_|;
while ($str =~ /(.{1,60})/gs) {
$len = chr(32 + length($1)*3/4);
$res .= unpack("u", $len . $1 );
}
return ($res);
}
0396nobodyさん
04/04/26 21:22ID:BWwI4BSicgiでcss文書を吐き出したいんですが、Content-type:text/cssと最初につけておけばよいのでしょうか？
infoseek iswebでこれをやると広告がついてきてcssとして使えなくなるんですが、普通にうｐしたcssファイルはhttpでgetできます。
この差はＣＧＩ作り手側のミス？それとも拡張子cgi＝広告付加とかＣＧＩ作り手側じゃどうしようもないものですか？
0397nobodyさん
04/04/26 21:28ID:???0399nobodyさん
04/04/26 23:30ID:???そうでしたか…失礼。
0400nobodyさん
04/04/27 17:46ID:m4JuDEBr0401nobodyさん
04/04/27 17:51ID:???0402nobodyさん
04/04/27 17:56ID:m4JuDEBrできるだけ早く処理できる方法があったらお願いします。
0403nobodyさん
04/04/27 18:04ID:???できるだけ待ち時間を短くするための工夫としては、
ソケットを non-blocking で開いて並列で処理する、ぐらいか。
0404nobodyさん
04/04/27 20:01ID:D2O5MFhmprint "content-type: text/html\n\n";
open(TEST, "sub/test.htm");
while (<TEST>) {
print $_ ;
}
close(TEST);
exit;
ローカルではうまくいくのですが、サーバーに上げて実行してみると上手くいきません。
0406nobodyさん
04/04/27 20:14ID:???それに「うまくいかない」で読んでるやつがどうなったかわかると思うか？
0407nobodyさん
04/04/27 22:30ID:???先頭にtime値を書き込んで､新しい方を読み,古い方に書く
2重ファイル方式を取入れたのですが､ログが消えた時はそのままでした｡
flock考やperlメモのやり方でもたまに飛ぶので(ローカルでは書き込みプログラムを何個走らせても飛ばないんですが…)
バックアップ的にこのやり方を導入したいんですが､アドバイス願えないでしょうか?
0408nobodyさん
04/04/27 22:36ID:???並列で処理しないとロックの検証にはならないよ。
でなきゃ鯖の問題だな。
0409nobodyさん
04/04/27 22:55ID:???0410nobodyさん
04/04/27 23:00ID:???同じ値になるだろ
0411nobodyさん
04/04/27 23:01ID:???0412404
04/04/28 00:18ID:2okML1Hbですがまた問題が発生しました。
sub/test.htmから＜n月＞という文字列がある行をマッチさせたいのですが、下のようにすると
ローカルではマッチするんですが、サーバーに上げるとマッチせず。。。
print "content-type: text/html\n\n<html>";
open(TEST, "sub/test.htm");
while (<TEST>) {
if ($_ =~ /＜.*?月＞/) {print $_;}
}
close(TEST);
print "</html>";
exit;
4行目を
if ($_ =~ /＜(.*?)月＞/) {print $_;}
に書き換えるとローカルでもサーバーでもマッチします。なぜでしょうか。
0415nobodyさん
04/04/28 01:00ID:???何だ釣りだったのか？
釣りを楽しむ余裕が
今はある！！！
誘導くらいしてあげるよ
http://pc5.2ch.net/test/read.cgi/php/1069245758/l50
0418nobodyさん
04/04/28 01:59ID:???回答ありがとうございました｡
>>408
5台くらいで鯖マシンに(perlの)duke撃ちまくってテストしました｡
>>409
現在携帯からなので無理ですが
perlメモのロックの部分とflock考えの奴をそれぞれやりました｡
>>410
そうでした…
ただifの条件に合わないと､elseで指定されている方を読み込みますし大丈夫なのでは?
サイトの方は日に200くらいの書き込みで､そんなに多くは無いんですが､
2,3ヵ月に1回は飛んでしまいます｡
逆にtopのカウンタは2重ファイルってだけで
ロックは使って
0420nobodyさん
04/04/28 06:01ID:???落ちたりしたらログ飛ぶわなあ。
0421nobodyさん
04/04/28 07:36ID:???そういう可能性もあるんですね｡
読み書き両用でopenして…と思いましたが､どっちみちサイズを0にした時点で落ちたら意味無いですよね…
ツリー型なので700件残るようにしてますが､少し多いづしょうか?サイズは130KBくらいです｡
0424nobodyさん
04/04/28 16:05ID:S7OIBKMs`halt`;
----------------------------------------------
以上のスクリプト実行しても鯖ダウン出来ませんでした。
どうやったら鯖ダウンできますか？
0425nobodyさん
04/04/28 17:32ID:???0426nobodyさん
04/04/29 00:19ID:DqcSI5IGindex.htmlがあるとしてこの中の一部にxxx.cgiを表示したいのですが
どぅやったら表示出来るのでしょう？
表の中に表示させたいのですがインラインフレームしかありませんか？
0427nobodyさん
04/04/29 00:27ID:???板違いです。
0429nobodyさん
04/04/29 13:25ID:???0432nobodyさん
04/04/29 14:59ID:???0433nobodyさん
04/04/29 20:58ID:???htmlをcgiに取り入れたら?
0434nobodyさん
04/04/29 21:11ID:???0435nobodyさん
04/04/29 22:36ID:???use Pgのgetvalueみたいなものはuse DBIにないのでしょうか。
すみませんがご教授いただきたいです。
0436nobodyさん
04/04/30 01:19ID:???0437nobodyさん
04/04/30 01:52ID:???DBIスレの方がちゃんと知ってる人が多いと思う
http://pc5.2ch.net/test/read.cgi/php/1015943725/
0438nobodyさん
04/04/30 03:25ID:SiN+gHBLバッククオートで外部プログラムを実行し、標準出力を受け取りたいと考えてます。
$tmp = `/usr/bin/wget -d http://example.com/test.cgi?d=domain\&p=password -O -`
このとき、アンパサンド「&」をエスケープできません。( http://example.com/test.cgi?d=domain でwgetが実行される)
どうすればよいでしょうか。
perl -v > This is perl, v5.6.1 built for i386-linux.
シェルで/usr/bin/wget -d http://example.com/test.cgi?d=domain\&p=password
はちゃんとgetの長いメッセージとして実行できてます。
GETはやめてPOSTにしろ、はなしでお願いします。。
0439nobodyさん
04/04/30 10:18ID:???かなり卑劣かも。
$tmp = q|http://example.com/test.cgi?d=domain&p=password -O -|;
$tmp = `/usr/bin/wget -d $tmp`;
0441nobodyさん
04/04/30 10:46ID:???俺には真似出来ねえ。
0442442
04/04/30 17:56ID:G+Ai2Hl9このようなxmlファイル(test.xml)があったとして、
-------------------------------------------------
<?xml version="1.0" encoding="Shift_JIS"?>
<data>
<member num="01">
<name>AAA</name>
</member>
<member num="02">
<name>BBB</name>
</member>
</data>
-------------------------------------------------
その中から、「AAA」と「BBB」を取り出すには
perlどのように書けばよいのでしょうか？
↓から続きがかけません・・
-------------------------------------------------
#!/usr/local/bin/perl
use XML::Parser;
：
：
：
print $name01; #AAA
print $name02; #BBB
-------------------------------------------------
0443nobodyさん
04/04/30 18:34ID:???google って知ってる? とっても便利だから使ってみなよ。
http://www.google.co.jp/search?lr=lang_ja&q=perl+XML%3A%3AParser
0444442
04/04/30 18:51ID:???ttp://member.nifty.ne.jp/hippo2000/perltips/xml/parser.htm
とか良さそうだったのですが、解説を呼んでもいまいちよくわかりませんでした・・
0445438
04/04/30 20:25ID:???必ず直前で変数に固定値を代入するので、変数るのを納得しときます
0446nobodyさん
04/04/30 22:38ID:???バッククォートでは変数展開とかがかかるので、\& が & になった状態でシェルに渡されてる。
なので、\\& にしても通るとは思うんだが、>440 のようにシングルクォートを使う方が素直だと思う。
0447nobodyさん
04/04/30 22:54ID:5VEFp/rmポートチェックってどうやったらできますか？
掲示板の荒らし対策に80と8080のチェックしたいんです。
ググってもいいページが見つからないんで・・・
できればスクリプトごとお願いします。
0450nobodyさん
04/04/30 23:45ID:???とりあえず Socket.pm のマニュアルでも読めば。
0451nobodyさん
04/05/01 00:12ID:???0452nobodyさん
04/05/01 00:43ID:???0453nobodyさん
04/05/01 01:09ID:fGFxpvHE／ . : : : : : : : : : ＼
/.: : : : : : : : : : : : : : ヽ
,!::: : : :,-…-…-ミ: : : : :',
{:: : : : :i '⌒' '⌒' i: : : : :}
{:: : : : | ｪｪ ｪｪ |: : : : :}
. , ､ { : : : :| ,.、 |:: : : :;!
ヽ ヽ. _ .ヾ: :: :i r -ﾆ-┐ | : : :ﾉ
} >'´.-!、 ゞイ! ヽ 二ﾞノ ｲゞ‐′
| －! ＼` ｰ一'´丿 ＼
ﾉ ,二!＼ ＼___／ /｀丶､
/＼ ／ ＼ /~ﾄ､ ／ l ＼
/ 、 ｀ソ! ＼/l::::|ハ／ l-7 _ヽ
教 え ろ や ？ あ ？ コラ ？
0454nobodyさん
04/05/01 01:10ID:fGFxpvHE, - ' ﾞ ｀` ‐ 、_,,,,,
,r' ／＝ミ
/ 彡ll',''´
. / 彡lll
!-- .､ ,､､､､,,, 彡lﾉ
l,,,,,__ / ___ 'r''ﾞヽ
. |`ﾞ'' ./ `'ﾞ'''" .〉,l |
|. ,' //
. ',. ,' , r'
. ﾞ, ﾞ'ｰ ‐` l |
ﾞ､''ﾞ ,,､二''‐ ﾉ l、
''''''''7'ヽ ''' ／ /`〉｀ﾞT''''''''''
l ` ､,,,,､- ' " / /.| |
. | | .l i / ./ | |
| | | l / ./ .| |
. | | | l / / | |
| | | ', / / l .l
0455nobodyさん
04/05/01 01:10ID:fGFxpvHE,.．-──- ､
／. : : : : : : : : : ＼
冒 /.: : : : : : : : : : : : : : ヽ
ｌ ｌ ,!::: : : :,-…-…-ミ: : : : :',
./～ヽ{:: : : : :i '⌒' '⌒' i: : : : :} ＿＿＿＿＿＿＿
|＿＿| {:: : : :.| ｪｪ ｪｪ |: : : : :} ／
. .|| ㌧.|| { : : : :| ,.、 |:: : : :;! ＜ とんちゅーみねーりらろっとおブ
/| of||_.ヾ: :: :i r‐-ﾆ-┐| : : :ﾉ ＼
| ￣ -!、 ゞイ! ヽ 二ﾞノ ｲゞ‐′ ￣￣￣￣￣￣￣￣
| －! ＼` ｰ一'´丿 ＼
ﾉ ,二!＼ ＼___／ /｀丶､
/＼ ／ ＼ /~ﾄ､ ／ l ＼
/ 、 ｀ソ! ＼/l::::|ハ／ l-7 _ヽ
/＼ ,へi ⊂ﾆ''ー-ゝ_`ヽ、 |_厂 _ﾞ:、
∧ ￣ ,ﾄ｜ >‐-￣｀ ＼. | .r'´ ヽ、
,ﾍ ＼_,. ' | | 丁二＿ 7＼､|ｲ _／￣ ＼
i ＼ ハ∟ |::::|`''ｰ-､,_/ /＼＿ _／⌒ヽ
0456nobodyさん
04/05/01 01:11ID:fGFxpvHE●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●
●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●
●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●
●●●●●●●●●●●●●●●●死 ね●●●●●●●●●●●●●●●●●
●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●
●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●
●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●
●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●
●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●
0457nobodyさん
04/05/01 01:13ID:fGFxpvHEi1llllllii ,..-‐''"￣~ﾞ"￣￣ﾐヽ──ー,
;;ll,;:" i ヽ.､ヽ;=、／
,/ l ヽ ﾞi､ ﾞ､:､ﾞ､;;
/ :' l : i !. ﾞ､ !ｌ !,ﾞ, ﾞ:,
ｌ, ; . ; ｉ !i : :, }i!､ ', ! ｌ ｌ :!:.;:'; i ミィは最強なんだよっ♪
l.;.; : ;: l ｌｉヾ､ , .;}, Lj-ヾ ;.; ｌ ｌ :ｌ ;: : l
j!;.;; : ;: }:､ゝ､ヾ､ﾞ jリ.,. ..,,ヾj : .:rl ; : .!
!ｌ; ;; .; ; l. ,,,,、ヾ､ﾂﾚ' i;;';;;;ﾞjL; ﾞ:,ﾞ:, ; ; l
|,:l;, ':, ; ;l,,l!i';;ﾞ;, ヾ-'',j ; ;;' l.ﾞi､; l
| ;l;':,', ;, '!ヾ.`''' , ,ｫj,;:'' ; !l;:; l
| ;.!'l !ﾞ,ヾ:｢~;,､ ー ノi'' ;' ,ﾉ;; ,l
;ｌ.; i ;.!lﾞ;ヾ,ヽ､;, `''ｰ ..,,_,. ::'ﾉ;.},,. ､,;'"; ;:; ;l
;'ｉ ; ! ; i! ヾ; :､ﾘ,, -::''"::l::i!::/;'.j、ヽ､j:::::ブヽ､!
;' !,' ｉ ; ;; rヾ,:,ﾞ; l:::::::::::::ヽi!ﾌ;ﾉl'ヽ､,.ﾉ:;:" ヽ,
,:'.;',' j,.､!'ヾ‐- ゞ､;ﾞト､;::::::::::ｿ/::! .|:i ﾞ!,
,' ,'.;,rヾ .ヽ ヽ......:::ヽi!'::ﾞヾ-''ﾘ^7 l/-､ .jヽ
,' ;;'.;rﾞ､ ヾ､j ﾞ"::::::::;;:::l:::::::::;メ:::::!. i ﾞi ,;^ヾ;,
. ,' ,;',,'.;'i､'l'┘:::::::::::::::l':;:::!::::::::::::!::;' !. i!,.:;i ;, .lヾ:;,
,:' ,' //,! ﾞ':::::::::::::::::::::!ﾉ::::.!:::::::::::;,l. !. ,:';;::|, :;: 'l ﾞ;,ﾞ;
;' ,;:'/ ;'/ :::::::::::::::::::::ｉ"::::::.|:::::;,;;'ｲ ｌ , ':::::::|,: ; ! ヾ:.,
0458nobodyさん
04/05/01 01:13ID:fGFxpvHEi., ..;;;ヽ ヾ ,,;_ , /
ヾ_:::,:' -,ノ
ヾ;. , , ､;,
;; ● , ... ､,● ;:
`;. C) ,; ' うるせー！パンチ５分の２を教えろ！！
,;' '.､ -‐-ノ ,;'､
／ ） ＿ _
/ ,ｲ 、 ﾉ/ ∧ ∧―＝￣ ｀ヽ, ＿
/ / | （ 〈 ∵. ・（ミィ〈＿_ > ゛ 、＿―
｜ ! ヽ ｰ＝-￣￣＝_、 （／ , ´ノ
｜ | ｀iー＿＿＝―＿ ;, ／ ／ ／
!、ﾘ -=＿二＿＿￣_=;, ／ ／ ,'
/ / ／ ／| |
／ / !､＿／ / 〉
／ ＿/ |_／
ヽ､＿ヽ
0459nobodyさん
04/05/01 01:15ID:fGFxpvHE／ / λ ／ / λ
／ / λ ／ / λ
／ / /λ ／ / /λ
／ ￣￣￣ ＼
/ ／ ＼ ＼
/ ／ ＼ ＼
/ ／ ＼ 丶
| |
｜ |
｜ | ＰＥＲＬオタクを殺す会
｜ ＾――――――― /
| /
＼ ／
／―/ / / ＼／;;;;;;;＼／///////―＼
0460nobodyさん
04/05/01 01:16ID:fGFxpvHE....:::..∧Ｙ∧ .
.::::::::. ･ ･ ::ヽ
（ ）●（ ） このスレは終了しました
丶 ー /
l, j
i i .j
| 八 |
{ }
| i し " i '|
|ﾉ ( i i|
( '~ヽ ! ∥
│ i ∥
| ! ||
| │ |
| | | |
| | | |
| ! | |
0461nobodyさん
04/05/01 01:45ID:???＋
人
0462nobodyさん
04/05/01 08:27ID:???ただし、Internal Server Errorはさけたいと思っています。
つまり・・・
if (？？？？？){
print "flock 使用可能";
}
else{
print "flock 使用不可能"
}
とさせたいのですが。。。
よろしくお願いします。
0463nobodyさん
04/05/01 08:53ID:???0464nobodyさん
04/05/01 13:21ID:???sub new {
my $class = shift;
my %params = @_;
my $self = {
sex => male,
};
bless $self, $class;
$self->initialize();
return $self;
}
で、Bakerに、外部からアクセスできる変数$skill (パン屋の腕前)と、内部でのみ使用する変数
$east (イースト菌 $east = new East()とかやりたい)を持たせたい時、
どうするのが賢いやり方なのでしょうか？
$eastの方は、ブロックの一番外でmy $eastと宣言したのでいいのだろうか、と思うのですが、
$skillの方は、$self->{skill} = $skillとかやっても、Humanのnewでblessした後なので、
途中で勝手に$selfのキーを増やしたりできるんだろうか、と思いまして…。
0465nobodyさん
04/05/01 15:45ID:???関係ないっつーかそういう風に
継承でハマることを避けるために
newとinitializeをわけてるんじゃないの？
Bakerの
initializeでskillとeastのキーを増やしておく。
skillのアクセサを作る。
eastのアクセサを作らないもしくは内部使用に限定する。
$baker->skill;
$baker->_east;
0466nobodyさん
04/05/01 16:33ID:???initializeはblessした後に呼び出される訳ですよね？
blessした後に$selfのキー勝手に増やしても大丈夫なんでしょうか…。
■ このスレッドは過去ログ倉庫に格納されています