Perl コーディング初心者質問コーナー Part34
■ このスレッドは過去ログ倉庫に格納されています
0001前スレの連投で気分崩したので後よろ
04/04/05 16:01ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこう言う事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
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のキー勝手に増やしても大丈夫なんでしょうか…。
0468nobodyさん
04/05/01 18:49ID:???いや、動くプログラムと良いプログラムは違うっていうか、
動くのは試したんですが、何らかの理由があって推奨されない方法なら
別のアプローチを探さないと、と思いまして。
普通に使われてる方法なら良いのですが…。
0469nobodyさん
04/05/01 19:03ID:???| ・・・・・・・・・・・・・・・
＼
￣￣￣￣V￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
（;;::::: ）
,／;/⌒/）
／/;: /;:: /./
(;::::|;:: （;: （/
＼);;:::.＼;＼
（;:: （ (<<<ヽ
.|;: |＼;::::＼
);:: | ）;:::: ）
_、_
（;;:::::,_ﾉ` ） 彡 マーシェーリィー… ！
,／;/⌒/）
／/;: /;:: /./
(;::::|;:: （;: （/
＼);;:::.＼;＼
（;:: （ (<<<ヽ
.|;: |＼;::::＼
);:: | ）;:::: ）
0470nobodyさん
04/05/01 19:04ID:???(／ "つ`..,：
：/ :::::i：
：i ─::!,,
ヽ.....::::::::: ::::ij(_::●
r " .r ミノ~
：|::| ::::| :::i ﾟ。 ・・・ﾄｩｰﾄｩｰﾄｩﾏｼｪﾘｰ・・・
：|::| ::::| :::|：
：`.| ::::| :::|_：
：.,' ::（ :::}：
：i `.-‐"
：ヽ__::',__ ::|：
：{ ::| ::|：
：| ::| ::|：
__ _,, -ー ,,
(／ `..,つ
/ ::::::', ﾏｰｼｪｰﾘｰ♪
i ● ●:!
ヽ... ( .● )::/ 彡くるっ
r ":::::::.... ,,_ ─:／
|::| ::::r￣:i
|::| ::::| :::|
`.| ::::| :::|_
.,' ::（ :::}
i `-‐"
ヽ__::',__ ::|
{ ::| ::|
0471nobodyさん
04/05/01 19:05ID:???／::::::::::::::::::::::::::::::::ﾞ:､
. /:::::::::::::::::::,ｒ-:::::::::::::::::ﾞ::､
.. ,l':::::::::::::::::::/-〃ﾞﾞ''''''ﾞ\:::::::ﾞ､
l:::::::::::::::::::,l' ll'l ﾞl;:::::::l,
,;:::::::::::::::::::l .ll.l.. l:::::::::l
,ィ:::::::::::::,ｒ-- '''''--=-'l''=-''り::::l
〃::::::::::::::l' ﾞ - ' ;. lﾞ - ' l::::::l ここのスレには…
ｿ::::::::::::::::l , ア__,.l,.('' .ｔ:::::j'
. l::ｒk:::::::::::::ﾞl ,..'ﾞ-､＝-:,.ﾞ t ﾞﾚ 書き込まないで…ほしいです…
ゝj:::::::,､::::::ﾞ､ ; -==ｦ'弋''''{ ﾞl,
,.-'::;==' ﾉ::::::::＞'~::::ﾞ=､_,l,.;'ﾞ^'''ﾞl. ﾞ､
....,.='' ,,〃'ﾍ:::/:::::::::::::::::ﾞl爪. l,
,.ｒ'',:,:,:,:,:,^~",:,:,:,:,:,:,:7'''',=';,''''ﾍ:ﾉ爻ﾞ､ ,.=''-､
k,:,\､,:,:,:,:,:,:,:,:,:,l,:,:,:,:/ (ふ勺 ,''l' j::l ﾞl,-='',:,:,:,:,:,:ﾞ､
,l',:,:,:,:ﾞ､,:,:,:,:,:,:,:,:l,:,:,:,:l---===,,'.j^~:::l ,-ﾞ,:,:,:,:,:,:,:,:,:,:,ﾞ､
/,:,:,:,:,:,:,ﾞ､,:,:,:,:,:,:j,:,:,:,:,:l l':::::ﾞｭ), l.,' ;::;,/,:,:,:,:,:,:,:,:,:,:,:,:,:,:,ﾍ
j,:,:,:,:,:,:,:,:,:,ﾞ､,:,:,:,:,l,:,:,:,:,:,k:::::::ﾋ＿l .;:::ll,:,:,:,:,:,:,l,:,:,:,:,:,:,:,:,:,:,ﾊ
,l,:,:,:,:,:,:,:,:,:,:,:,z,:,:,:,l,:,.,. '^.､::_:j':::::::::::::::::::l,:,:,:,:,:,:,:\,:,:,:,:,:,:,:,:,:,:,＼
0472nobodyさん
04/05/01 19:05ID:???／ ,,,z-──ｭ‐-､
／,,ミミミミ,,r-‐'' ﾘ ＼
//~ | ﾞi
i/ ┛┗ | |
f | ┓┏ ヽ |
| | ﾘ r-､
| | `ヽ/「ﾜ,| こんな感じで頼みます・・・
ﾘ ,,,r＝=､ ,,r＝＝=ｭ､ ┐ｿ
ﾞi -=◎=-ヽ i－я－- ` ン }
ﾞi ヽ--‐ .| l `'─‐'" ﾉ ト‐/
| /l l ､ ,／ ├‐'ﾞ
.|､ ノr' ﾚ ヽ￢､,,.... -‐ |
ﾞiヽ‐' ヽ,,,,,r''´ ﾉ |
ヽ ト‐＝＝─ｲ~､ / .ﾄ､
＼ ヽ ￣__:::‐' y ﾉ
＼ ｀ :: , '
`ｰ--──'"-'
0473nobodyさん
04/05/01 19:08ID:???/ /-‐=､''" ', ! ト -ヽ__ ヽl ＼ ヽ
, ' ,ｲ. ｼﾞ.l7! ﾞ､|ヽ | ,r.‐､!,.｀` ! , |､ ＼! ﾞ,
／ /! !. |':l ヽl l7l i | 'l ヽ !
／ / ｲ. ` , .l'ﾉ !. i i ＼ |
, ' / ! ／／／ < ／／／ ! | ﾞ､ ｀ヽ、 ,'
-="-ｧ i ヽ rｧ─- ､ _| / ﾞ､ ヽノ
i ! i ＼. .,,＿__,,.) ／ |/ ﾞ､
l , r | ｀ ､ _ ,. べ | ､ ヽ
ヽ/ヽ、 | .`l ""´ l . ヽ/ _,）｀`
ヽ.｣ ＿＿_,.／ ' ´ ＿＿_ `ｰ ､_ ／ ,ノレ'
,.r '´ ー-｀ '´ - ‐ ￣ ｀'ｰ ､
,/ _,. ヽ
,レ' ´ i l
／ , ,l l
｡'i ! r',ヽ l l l
,､r;, i'ﾞ ! ヾ'-' l. l l
_,r'´､l.ﾚ'､ '､ , '、 ,/ l ,.!v-､,_
l L.., } ! ハ､ , ‐' ヽ、 ノ /! /`,/_,l L,
lﾞl ﾍ｣/ l. / ｀''┬ ' ´ ｀'ｰ----- '´ ,／ l / !:ｲ､_ﾉ l、
アダルトとＰＥＲＬは禁止
0474nobodyさん
04/05/01 19:09ID:???/::::::／:::::::_,,,､---‐‐'''`~,､-''／::／ ／"`'ｰ-''`''-､これなんのＡＡ・・・？
/:::／:-‐''''"~~::::::::;;;;-､,,,,､-,,､-‐ヽ,,_ / ヽ
;/;;'`"~､-''''''~^'''''ｰ-､_,,i:i､ ヽ｀ヽ､;ヽ､,,,ノ. ／"´￣~''/ ::::ヽ
;;;／~":､---､___／´ ,,i:''' :: ヽ. ヽ.`'''"´ /´ :::./ :::::::i
;;;;;'''''^~~~~^'''''/ｰ- ';､ ::: ` ヽ`''ｰ-,,,i_ -‐''" ::::::::;/-､,
;;;､;;;`''ｰ-,,,,,,,,,,,,,,_,,,,,､_ '' ',:::: `'ｰ _､-'''~￣`''''''ｰ-､ :::::;／:: ヽ､
;;;ヽ､ｰ､;;ｰ-､,,,,,,,､-‐''" .;´￣`, ',::::,,,,､- /"'::;,:ヽ ､ ヽ.::::::: ''ｰ
:::::ｰ､ヽ､,,''ｰ-ヽ.''''",.,;' "^' 'ｰ-‐'' . _､-'''''"´ / ヽ,,,ノ ヽ| ヽ:::: ::
:::ヽ､`''ｰ-､ｰ-､'ヽ"､i;. ヽ ／" i::: i: '::: :::::
､::ヽ;;ヽ､:ｰ-､,,,,,､.ヽ ';'' ノﾉノ/;/ i:::::::::: υ " :::
ヽ,,_::''‐､,,,,''ｰ-''ｰ-"''／~'"''"／:/:: ::､:::i..:::::::::::::::::::::::::::::::::::: :::::::::
ヽｰ''"~´ ヽ､ "`'i::::::::i､:.. :~^ヽ:::::::::::::::::::::::::::::ノ:::::::::::::::i'/::::::::::::::::::::::
~´ ::: :::::::::;;;;;; ;;;;;;;;;;;_,,､--､_i.::::::'ﾉ:::::::: `''ｰ-､,,,,,,,,,,‐'":::::::::υ::::υ::::::::::::::::::::::
ヽ'''''''''''''' '' :::::;;;;;;;;;;;;;;;;`-､:::::::::::::::::iﾉ::::::::::: """`''ｰ､,,_;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0475nobodyさん
04/05/01 19:10ID:???i., ..;;;ヽ ヾ ,,;_ , /
ヾ_:::,:' -,ノ
ヾ;. , , ､;,
;; ● , ... ､,● ;:
`;. C) ,; ' うるせー！パンチ５分の２を教えろ！！
,;' '.､ -‐-ノ ,;'､
／ ） ＿ _
/ ,ｲ 、 ﾉ/ ∧ ∧―＝￣ ｀ヽ, ＿
/ / | （ 〈 ∵. ・（ミィ〈＿_ > ゛ 、＿―
｜ ! ヽ ｰ＝-￣￣＝_、 （／ , ´ノ
｜ | ｀iー＿＿＝―＿ ;, ／ ／ ／
!、ﾘ -=＿二＿＿￣_=;, ／ ／ ,'
/ / ／ ／| |
／ / !､＿／ / 〉
／ ＿/ |_／
ヽ､＿ヽ
0476nobodyさん
04/05/01 19:10ID:???....:::..∧Ｙ∧ .
.::::::::. ･ ･ ::ヽ
（ ）●（ ） このスレは終了しました
丶 ー /
l, j
i i .j
| 八 |
{ }
| i し " i '|
|ﾉ ( i i|
( '~ヽ ! ∥
│ i ∥
| ! ||
| │ |
| | | |
| | | |
| ! | |
0477nobodyさん
04/05/01 19:50ID:???「blessした後に$selfのキー勝手に増やしても大丈夫か否か」という
問いに対し「何故試さない?」という答えなんだが…。>>464 だけでは
君がどう実装しているか分かりかねるので、善し悪しを尋ねられても
誰も答えられんだろう。
OO 設計に関するノウハウを知りたければ、その手の本なりサイトを
一通り読んだ方が、こんな処で一問一答してるより早いんじゃないか?
もしくはこの板なら下のスレ辺りに動くコードを晒して揉んでもらう
事を勧める。
http://pc5.2ch.net/test/read.cgi/php/1049514428/
http://pc5.2ch.net/test/read.cgi/php/1016474386/
0478nobodyさん
04/05/01 21:32ID:???http://www.kt.rim.or.jp/~kbk/perl5.005/perlbot.html#INSTANCE_VARIABLE_INHERITANCE
0479nobodyさん
04/05/01 21:38ID:???>464
bless は単に型付けするだけだから、その後、キーを増やそうがその事自体に問題はない。
ただし、基底クラスで利用しているキーとぶつかったりしたら問題を引き起こす可能性はあるけどな。
ちなみに、一度 bless した後、別のクラスに bless し直すことだって可能なんで、bless を神聖視する
必要はない。
個人的には C++ 使いなので、派生クラスの new の中で基底クラスの new を呼ぶ方が好きだなぁ。
ttp://www.perldoc.com/perl5.8.0/pod/perltoot.html#Overridden-Methods
でも、この辺は Perl らしく TMTOWTDI なんで好みに合わせればいいと思う。
0481nobodyさん
04/05/02 15:15ID:???finishしないと まずかったりしますか？
今書いてるソース、すべてつけていないもので、、、
0482nobodyさん
04/05/02 15:20ID:???0483nobodyさん
04/05/02 20:05ID:???;;;;;;;/:::::::::::::::::::// ､,, /" ／;;;;-'" |:::::||;;;;;;/:::::::::::／ ﾚ'''" ／;;;;;;
;;;;;/::::::::::::::::::// ﾞ丶､. / ／;;;-'" ,,-､ |::::||ｌ;;;;/:::::::／ ｌ ／ヽ/ﾉ
;;;/::::::::::::::::::/｛､''''''‐-､, ﾞヽ, ／;／ .i' o=-‐'|;;;/:::::／ ┬-'' ､ /;;;
;;/:::::::::::::::::/;;;＼ヽ┬-､ﾞ'ヽ､ | ｌヽ,／／ヽ､,,-‐''~,-‐'''''|;;/:／ ／/ﾉ;; ｌ ﾄ, ヽ/;;;;
/::::::::::::::::/;;;;;;;;;;;＼ ＼＼ﾞ'ヽ､ｌ ヽ"ﾞ'" ﾞ-'",-''"~ |／ //" ｌ |ヽ /;;;;;;
:::::::::::::::::｛;;;;;;;;;;;;;;;;;＼ ＼＼（ oｌ|" "-'" " | ヽ /;;;;;;;;;;
::::::::::::::::::|;;;;;;;;;;;;;;;;;;;;;＼ ﾞ‐‐'''"~/ ／ﾞ''ヽ .| /;;;;;;;;;;;;;;
i,::::::::::::::::|;;;;／|;;;;;;;;;;;;;;ヽ'"~ / _ ／ヽ､ ＼ ﾉ /;;;;;;;;;;;;;;;;
;ﾞi:::::::::::::::|/ |;;;;;;;;;;;;;;;;;;ﾞ､. / ／/ ／ ／-ﾞi,. ヽ /./;;;;;;;;;;;;;;;;/::
;;;;i,::::::::::::| |;;;;;;;;;;;;;;;;;;;;;;ヽ ヽ､-'"'''"‐''",,-''",/ ﾞi, //;;;;;;;;;;;;;;;;/::::
;;;;ﾞi,:::::::::::| |;;;;;;;;;;;;;;;;;;;;;;;;;＼ ヽ＼'` _/~" ,ハ / /;;;;;;;;;;;;;;;;;|:::::
;;;;;;ﾞi,:::::::::|''" |;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;ﾞヽ､ ＼'｛,,,-‐'"__ノ / i;;;;;;;;;;;;;;;;;;;|:::::
;;;;;;;;;ﾞ､::::::| |;;;;;;;;;;;;;;;;;;;;;;;∧;;;;;;;;;;;;ﾞヽ､ ヽ-‐'"~ ,,, /ヽ､i';;;;;;;;;;;;;;;;;;;|::::::
0485nobodyさん
04/05/02 22:02ID:v1LUOZxNヒアドキュメント内で配列(@data)を出力したくて、そのまま@dataとヒアドキュメント内に書いたのですが
謎の半角スペースが要素の一番最初に付いてしまいます。
これじゃあな、と思いヒアドキュメント内に${ foreach my $data ( @data ) { print $data; }
と書いてみたのですがヒアドキュメントの一番最初に出力されてしまい上記コードを書いた場所に出力されません。。。
どなたかヒアドキュメント内で配列を出力する良い方法を知っていたら、ご指導して頂けると幸いです。
0486nobodyさん
04/05/02 22:05ID:???or
chomp(@data);
0487485
04/05/02 22:21ID:???なるほど、$"でスカラー変数出力時の区切り文字を変更できるんですね。
試してみたら奇麗に出力出来ました。本当にありがとうございました。。。
0488485
04/05/02 22:24ID:???今まで一々ヒアドキュメントを終了させてからforeachで出力していたので本当に助かりました。。。
0489nobodyさん
04/05/03 00:22ID:???0491nobodyさん
04/05/03 01:11ID:???＿ ／- イ､_
＿＿ ／: : : : : : : : : : : (
〈〈〈〈 ヽ /: : : : ::;:;: ;: ;:;: ; : : : ::ゝ
〈⊃ } {:: : : :ノ --‐' ､_＼: : ::｝
∩＿＿＿∩ | | {:: : :ノ ,_;:;:;ノ､ ェｪ ヾ: :::}
| ノ ヽ ! ! 、 ｌ: :ﾉ ／二―-､ |: ::ﾉ
/ ● ● | / ，,･_ | /／ |/ /::ノ
| ( _●_) ミ／ , ’,∴ ･ ¨ 〉(_二─-┘{／
彡､ |∪| ／ ､･∵ ’ ／､／/| ￣￣ヽ
/ ＿＿ ヽノ / ／ // |／／＼ 〉
(＿＿＿） / / // /＼ ／
/ / /
↑初心者 Ｐｅｒｌオタク↑
＼ ∩─ｰ､ ====
＼／ ● ､_ ｀ヽ ======
/ ＼( ● ● |つ
| X_入__ノ ミ Ｐｅｒｌオタクを！首吊って引き殺せ━━━━━！！
､ (＿／ ノ /⌒l
/＼＿＿＿ノﾞ＿/ / =====
〈 ＿_ノ ====
＼ ＼＿ ＼
＼＿__） ＼ ====== (´⌒
＼ ＿＿_ ＼＿＿ (´⌒;;(´⌒;;
＼＿＿＿）＿＿＿）(´;;⌒ (´⌒;; ズザザザ
ここは不親切な奴ばかりで死んでほしいね！初心者質問は禁止！！質問した者は
荒らしと同罪！！！＜終終終 了了了＞＜書き込み禁止＞
0492nobodyさん
04/05/03 01:12ID:???＿ ／- イ､_
＿＿ ／: : : : : : : : : : : (
〈〈〈〈 ヽ /: : : : ::;:;: ;: ;:;: ; : : : ::ゝ
〈⊃ } {:: : : :ノ --‐' ､_＼: : ::｝
∩＿＿＿∩ | | {:: : :ノ ,_;:;:;ノ､ ェｪ ヾ: :::}
| ノ ヽ ! ! 、 ｌ: :ﾉ ／二―-､ |: ::ﾉ
/ ● ● | / ，,･_ | /／ |/ /::ノ
| ( _●_) ミ／ , ’,∴ ･ ¨ 〉(_二─-┘{／
彡､ |∪| ／ ､･∵ ’ ／､／/| ￣￣ヽ
/ ＿＿ ヽノ / ／ // |／／＼ 〉
(＿＿＿） / / // /＼ ／
/ / /
↑初心者 Ｐｅｒｌオタク↑
＼ ∩─ｰ､ ====
＼／ ● ､_ ｀ヽ ======
/ ＼( ● ● |つ
| X_入__ノ ミ Ｐｅｒｌオタクを！首吊って引き殺せ━━━━━！！
､ (＿／ ノ /⌒l
/＼＿＿＿ノﾞ＿/ / =====
〈 ＿_ノ ====
＼ ＼＿ ＼
＼＿__） ＼ ====== (´⌒
＼ ＿＿_ ＼＿＿ (´⌒;;(´⌒;;
＼＿＿＿）＿＿＿）(´;;⌒ (´⌒;; ズザザザ
ここは不親切な奴ばかりで死んでほしいね！初心者質問は禁止！！質問した者は
荒らしと同罪！！！＜終終終 了了了＞＜書き込み禁止＞
0493nobodyさん
04/05/03 01:14ID:???＿ ／- イ､_
＿＿ ／: : : : : : : : : : : (
〈〈〈〈 ヽ /: : : : ::;:;: ;: ;:;: ; : : : ::ゝ
〈⊃ } {:: : : :ノ --‐' ､_＼: : ::｝
∩＿＿＿∩ | | {:: : :ノ ,_;:;:;ノ､ ェｪ ヾ: :::}
| ノ ヽ ! ! 、 ｌ: :ﾉ ／二―-､ |: ::ﾉ
/ ● ● | / ，,･_ | /／ |/ /::ノ
| ( _●_) ミ／ , ’,∴ ･ ¨ 〉(_二─-┘{／
彡､ |∪| ／ ､･∵ ’ ／､／/| ￣￣ヽ
/ ＿＿ ヽノ / ／ // |／／＼ 〉
(＿＿＿） / / // /＼ ／
/ / /
↑初心者 Ｐｅｒｌオタク↑
＼ ∩─ｰ､ ====
＼／ ● ､_ ｀ヽ ======
/ ＼( ● ● |つ
| X_入__ノ ミ Ｐｅｒｌオタクを！首吊って引き殺せ━━━━━！！
､ (＿／ ノ /⌒l
/＼＿＿＿ノﾞ＿/ / =====
〈 ＿_ノ ====
＼ ＼＿ ＼
＼＿__） ＼ ====== (´⌒
＼ ＿＿_ ＼＿＿ (´⌒;;(´⌒;;
＼＿＿＿）＿＿＿）(´;;⌒ (´⌒;; ズザザザ
ここは不親切な奴ばかりで死んでほしいね！初心者質問は禁止！！質問した者は
荒らしと同罪！！！＜終終終 了了了＞＜書き込み禁止＞
0494nobodyさん
04/05/03 01:14ID:???＿ ／- イ､_
＿＿ ／: : : : : : : : : : : (
〈〈〈〈 ヽ /: : : : ::;:;: ;: ;:;: ; : : : ::ゝ
〈⊃ } {:: : : :ノ --‐' ､_＼: : ::｝
∩＿＿＿∩ | | {:: : :ノ ,_;:;:;ノ､ ェｪ ヾ: :::}
| ノ ヽ ! ! 、 ｌ: :ﾉ ／二―-､ |: ::ﾉ
/ ● ● | / ，,･_ | /／ |/ /::ノ
| ( _●_) ミ／ , ’,∴ ･ ¨ 〉(_二─-┘{／
彡､ |∪| ／ ､･∵ ’ ／､／/| ￣￣ヽ
/ ＿＿ ヽノ / ／ // |／／＼ 〉
(＿＿＿） / / // /＼ ／
/ / /
↑初心者 Ｐｅｒｌオタク↑
＼ ∩─ｰ､ ====
＼／ ● ､_ ｀ヽ ======
/ ＼( ● ● |つ
| X_入__ノ ミ Ｐｅｒｌオタクを！首吊って引き殺せ━━━━━！！
､ (＿／ ノ /⌒l
/＼＿＿＿ノﾞ＿/ / =====
〈 ＿_ノ ====
＼ ＼＿ ＼
＼＿__） ＼ ====== (´⌒
＼ ＿＿_ ＼＿＿ (´⌒;;(´⌒;;
＼＿＿＿）＿＿＿）(´;;⌒ (´⌒;; ズザザザ
ここは不親切な奴ばかりで死んでほしいね！初心者質問は禁止！！質問した者は
荒らしと同罪！！！＜終終終 了了了＞＜書き込み禁止＞
0495nobodyさん
04/05/03 01:15ID:???＿ ／- イ､_
＿＿ ／: : : : : : : : : : : (
〈〈〈〈 ヽ /: : : : ::;:;: ;: ;:;: ; : : : ::ゝ
〈⊃ } {:: : : :ノ --‐' ､_＼: : ::｝
∩＿＿＿∩ | | {:: : :ノ ,_;:;:;ノ､ ェｪ ヾ: :::}
| ノ ヽ ! ! 、 ｌ: :ﾉ ／二―-､ |: ::ﾉ
/ ● ● | / ，,･_ | /＝^ |/ /::ャm
| ＝@ ( _●_) ミ／ , ’,∴ ･ ¨ 〉(_二─-┘{／
彡､ |∪| ／ ､･∵ ’ ／､／/| ￣￣ヽ
/ ＿＿ ヽノ / ／ // |／／＼ 〉
(＿＿＿） / / // /＼ ／
/ / /
↑初心者 Ｐｅｒｌオタク↑
＼ ∩─ｰ､ ====
＼／ ● ､_ ｀ヽ ======
/ ＼( ● ● |つ
| X_入__ノ ミ Ｐｅｒｌオタクを！首吊って引き殺せ━━━━━！！
､ (＿／ ノ /⌒l
/＼＿＿＿ノﾞ＿/ / =====
〈 ＿_ノ ====
＼ ＼＿ ＼
＼＿__） ＼ ====== (´⌒
＼ ＿＿_ ＼＿＿ (´⌒;;(´⌒;;
＼＿＿＿）＿＿＿）(´;;⌒ (´⌒;; ズザザザ
ここは不親切な奴ばかりで死んでほしいね！初心者質問は禁止！！質問した者は
荒らしと同罪！！！＜終終終 了了了＞＜書き込み禁止＞
0496nobodyさん
04/05/03 03:58ID:???0497nobodyさん
04/05/03 04:33ID:???0498nobodyさん
04/05/03 04:41ID:???0499nobodyさん
04/05/03 04:48ID:???て言うかこいつ一年くらい前からいるんですよ。
0500nobodyさん
04/05/03 05:18ID:???0501nobodyさん
04/05/03 05:29ID:???確か誰にも理解できない日本語で質問（っていうか書き込み）して、
無視した（っていうか何を答えたらよいか誰も分からなかった）ら、
「初心者には不親切だ」って勝手に切れて粘着してる。
ちゃんと質問すればちゃんと答えるのにねえ。
0502nobodyさん
04/05/03 12:58ID:???よく続くと関心するくらいだ
たしか格ゲースクリプトだっけな
0503nobodyさん
04/05/03 13:22ID:???punch *= 2.0/5.0;
終了
0504nobodyさん
04/05/03 14:42ID:???0505nobodyさん
04/05/03 14:45ID:???0506nobodyさん
04/05/03 20:26ID:???来てたのわからなかった。
0508nobodyさん
04/05/04 12:04ID:???たまにアク禁されるのかパタリと来なくなるんだよね。
でもそういう時、あいつどうしてるんだろう・・・とちょっとモヤモヤして気になるんだよ。
0509nobodyさん
04/05/04 16:43ID:???0510nobodyさん
04/05/04 18:59ID:???エラー表示されるまでに時間がかかります。
(ブラウザがアップロードに専念しているため)
つまりはブラウザのアップロード処理を中断させて、
即エラー表示させたいのですが、Perlで制御できますか？
0512nobodyさん
04/05/04 19:33ID:???ISDNのおじさんブチ切れますよ？
初めからファイル容量計算しろ
0513nobodyさん
04/05/04 19:49ID:???0514nobodyさん
04/05/04 19:55ID:???＿ ／- イ､_
＿＿ ／: : : : : : : : : : : (
〈〈〈〈 ヽ /: : : : ::;:;: ;: ;:;: ; : : : ::ゝ
〈⊃ } {:: : : :ノ --‐' ､_＼: : ::｝
∩＿＿＿∩ | | {:: : :ノ ,_;:;:;ノ､ ェｪ ヾ: :::}
| ノ ヽ ! ! 、 ｌ: :ﾉ ／二―-､ |: ::ﾉ
/ ● ● | / ，,･_ | /／ |/ /::ノ
| ( _●_) ミ／ , ’,∴ ･ ¨ 〉(_二─-┘{／
彡､ |∪| ／ ､･∵ ’ ／､／/| ￣￣ヽ
/ ＿＿ ヽノ / ／ // |／／＼ 〉
(＿＿＿） / / // /＼ ／
/ / /
↑初心者 Ｐｅｒｌオタク↑
＼ ∩─ｰ､ ====
＼／ ● ､_ ｀ヽ ======
/ ＼( ● ● |つ
| X_入__ノ ミ Ｐｅｒｌオタクを！首吊って引き殺せ━━━━━！！
､ (＿／ ノ /⌒l
/＼＿＿＿ノﾞ＿/ / =====
〈 ＿_ノ ====
＼ ＼＿ ＼
＼＿__） ＼ ====== (´⌒
＼ ＿＿_ ＼＿＿ (´⌒;;(´⌒;;
＼＿＿＿）＿＿＿）(´;;⌒ (´⌒;; ズザザザ
ここは不親切な奴ばかりで死んでほしいね！初心者質問は禁止！！質問した者は
荒らしと同罪！！！＜終終終 了了了＞＜書き込み禁止＞
0515nobodyさん
04/05/04 19:56ID:???＿ ／- イ､_
＿＿ ／: : : : : : : : : : : (
〈〈〈〈 ヽ /: : : : ::;:;: ;: ;:;: ; : : : ::ゝ
〈⊃ } {:: : : :ノ --‐' ､_＼: : ::｝
∩＿＿＿∩ | | {:: : :ノ ,_;:;:;ノ､ ェｪ ヾ: :::}
| ノ ヽ ! ! 、 ｌ: :ﾉ ／二―-､ |: ::ﾉ
/ ● ● | / ，,･_ | /／ |/ /::ノ
| ( _●_) ミ／ , ’,∴ ･ ¨ 〉(_二─-┘{／
彡､ |∪| ／ ､･∵ ’ ／､／/| ￣￣ヽ
/ ＿＿ ヽノ / ／ // |／／＼ 〉
(＿＿＿） / / // /＼ ／
/ / /
↑初心者 Ｐｅｒｌオタク↑
＼ ∩─ｰ､ ====
＼／ ● ､_ ｀ヽ ======
/ ＼( ● ● |つ
| X_入__ノ ミ Ｐｅｒｌオタクを！首吊って引き殺せ━━━━━！！
､ (＿／ ノ /⌒l
/＼＿＿＿ノﾞ＿/ / =====
〈 ＿_ノ ====
＼ ＼＿ ＼
＼＿__） ＼ ====== (´⌒
＼ ＿＿_ ＼＿＿ (´⌒;;(´⌒;;
＼＿＿＿）＿＿＿）(´;;⌒ (´⌒;; ズザザザ
ここは不親切な奴ばかりで死んでほしいね！初心者質問は禁止！！質問した者は
荒らしと同罪！！！＜終終終 了了了＞＜書き込み禁止＞
0516nobodyさん
04/05/04 19:57ID:???＿ ／- イ､_
＿＿ ／: : : : : : : : : : : (
〈〈〈〈 ヽ /: : : : ::;:;: ;: ;:;: ; : : : ::ゝ
〈⊃ } {:: : : :ノ --‐' ､_＼: : ::｝
∩＿＿＿∩ | | {:: : :ノ ,_;:;:;ノ､ ェｪ ヾ: :::}
| ノ ヽ ! ! 、 ｌ: :ﾉ ／二―-､ |: ::ﾉ
/ ● ● | / ，,･_ | /／ |/ /::ノ
| ( _●_) ミ／ , ’,∴ ･ ¨ 〉(_二─-┘{／
彡､ |∪| ／ ､･∵ ’ ／､／/| ￣￣ヽ
/ ＿＿ ヽノ / ／ // |／／＼ 〉
(＿＿＿） / / // /＼ ／
/ / /
↑初心者 Ｐｅｒｌオタク↑
＼ ∩─ｰ､ ====
＼／ ● ､_ ｀ヽ ======
/ ＼( ● ● |つ
| X_入__ノ ミ Ｐｅｒｌオタクを！首吊って引き殺せ━━━━━！！
､ (＿／ ノ /⌒l
/＼＿＿＿ノﾞ＿/ / =====
〈 ＿_ノ ====
＼ ＼＿ ＼
＼＿__） ＼ ====== (´⌒
＼ ＿＿_ ＼＿＿ (´⌒;;(´⌒;;
＼＿＿＿）＿＿＿）(´;;⌒ (´⌒;; ズザザザ
ここは不親切な奴ばかりで死んでほしいね！初心者質問は禁止！！質問した者は
荒らしと同罪！！！＜終終終 了了了＞＜書き込み禁止＞
0517nobodyさん
04/05/04 19:58ID:???／::::::::::::::::::::::::::::::::ﾞ:､
. /:::::::::::::::::::,ｒ-:::::::::::::::::ﾞ::､
.. ,l':::::::::::::::::::/-〃ﾞﾞ''''''ﾞ\:::::::ﾞ､
l:::::::::::::::::::,l' ll'l ﾞl;:::::::l,
,;:::::::::::::::::::l .ll.l.. l:::::::::l
,ィ:::::::::::::,ｒ-- '''''--=-'l''=-''り::::l
〃::::::::::::::l' ﾞ - ' ;. lﾞ - ' l::::::l ここのスレには…
ｿ::::::::::::::::l , ア__,.l,.('' .ｔ:::::j'
. l::ｒk:::::::::::::ﾞl ,..'ﾞ-､＝-:,.ﾞ t ﾞﾚ 書き込まないで…ほしいです…
ゝj:::::::,､::::::ﾞ､ ; -==ｦ'弋''''{ ﾞl,
,.-'::;==' ﾉ::::::::＞'~::::ﾞ=､_,l,.;'ﾞ^'''ﾞl. ﾞ､
....,.='' ,,〃'ﾍ:::/:::::::::::::::::ﾞl爪. l,
,.ｒ'',:,:,:,:,:,^~",:,:,:,:,:,:,:7'''',=';,''''ﾍ:ﾉ爻ﾞ､ ,.=''-､
k,:,\､,:,:,:,:,:,:,:,:,:,l,:,:,:,:/ (ふ勺 ,''l' j::l ﾞl,-='',:,:,:,:,:,:ﾞ､
,l',:,:,:,:ﾞ､,:,:,:,:,:,:,:,:l,:,:,:,:l---===,,'.j^~:::l ,-ﾞ,:,:,:,:,:,:,:,:,:,:,ﾞ､
/,:,:,:,:,:,:,ﾞ､,:,:,:,:,:,:j,:,:,:,:,:l l':::::ﾞｭ), l.,' ;::;,/,:,:,:,:,:,:,:,:,:,:,:,:,:,:,ﾍ
j,:,:,:,:,:,:,:,:,:,ﾞ､,:,:,:,:,l,:,:,:,:,:,k:::::::ﾋ＿l .;:::ll,:,:,:,:,:,:,l,:,:,:,:,:,:,:,:,:,:,ﾊ
,l,:,:,:,:,:,:,:,:,:,:,:,z,:,:,:,l,:,.,. '^.､::_:j':::::::::::::::::::l,:,:,:,:,:,:,:\,:,:,:,:,:,:,:,:,:,:,＼
0518512
04/05/04 19:58ID:???おじさんﾏｼﾞ切れますよ？I/Oの関数みろYO!!!
@stat=stat $file;
$size=$stat[7];
if(104857600<=$size) print "100MBより多いぞｺﾞﾙｧ";
0519nobodyさん
04/05/04 19:59ID:???....:::..∧Ｙ∧ .
.::::::::. ･ ･ ::ヽ
（ ）●（ ） 初心者書き込み禁止！！
丶 ー / BY PERLオタク
l, j
i i .j
| 八 |
{ }
| i し " i '|
|ﾉ ( i i|
( '~ヽ ! ∥
│ i ∥
| ! ||
| │ |
| | | |
| | | |
| ! | |
0520nobodyさん
04/05/04 20:01ID:???....:::..∧Ｙ∧ .
.::::::::. ･ ･ ::ヽ
（ ）●（ ） 初心者書き込み禁止！！
丶 ー / BY PERLオタク
l, j
i i .j
| 八 |
{ }
| i し " i '|
|ﾉ ( i i|
( '~ヽ ! ∥
│ i ∥
| ! ||
| │ |
| | | |
| | | |
| ! | |
0521nobodyさん
04/05/04 20:02ID:???....:::..∧Ｙ∧ .
.::::::::. ･ ･ ::ヽ
（ ）●（ ） 初心者書き込み禁止！！
丶 ー / BY PERLオタク
l, j
i i .j
| 八 |
{ }
| i し " i '|
|ﾉ ( i i|
( '~ヽ ! ∥
│ i ∥
| ! ||
| │ |
| | | |
| | | |
| ! | |
0522nobodyさん
04/05/04 20:02ID:???....:::..∧Ｙ∧ .
.::::::::. ･ ･ ::ヽ
（ ）●（ ） 初心者書き込み禁止！！
丶 ー / BY PERLオタク
l, j
i i .j
| 八 |
{ }
| i し " i '|
|ﾉ ( i i|
( '~ヽ ! ∥
│ i ∥
| ! ||
| │ |
| | | |
| | | |
| ! | |
0523nobodyさん
04/05/04 20:03ID:???....:::..∧Ｙ∧ .
.::::::::. ･ ･ ::ヽ
（ ）●（ ） 初心者書き込み禁止！！
丶 ー / BY PERLオタク
l, j
i i .j
| 八 |
{ }
| i し " i '|
|ﾉ ( i i|
( '~ヽ ! ∥
│ i ∥
| ! ||
| │ |
| | | |
| | | |
| ! | |
0524nobodyさん
04/05/04 20:05ID:???ゲームで、対戦で、攻撃はパンチとキック、どちらかは２分の１
パンチの場合は、５回に１回はダメージ低い。
さらに５分の２の確率でミスをする。
というのを、１ターンの各攻撃を下のスクリプトに書いたが動かない
誰かこの初心者を助けてください
0525ちょっと入れ子して綺麗にしてみた
04/05/04 20:11ID:???プレイヤー１は$play11の攻撃
プレイヤー２は$play22の攻撃
$play11 = $sentaku1 //Syntax Error
$play22 = $sentaku1 //Syntax Error
$kik = 60 //Syntax Error
$sentaku ={ //Syntax Error
$play1 = int(rand 2) //Syntax Error
if($play1 == 0) $kik //Syntax Error $kikって何だよオブジェクトか？で、メソッドは？
} //Syntax Error
else($play1 == 1) { //Syntax Error Elseに条件つけんなよｗ
$bougyo = int(rand 5) //Syntax Error だからセミコロン・・・
if($bougyo =< 1) 0;
else($bougyo >= 2) 1;
}
{ //Syntax Error ｴｴｴｴ・・・・ なにこの括弧
$panti = int(rand 5);
if($panti == 0) $panti1 = 10;
else($panti > 0) $panti2 = 20;
} //Syntax Error 括弧・・・
* $bougyo; //Syntax Error おい、オペランド足りんぞ
} //Syntax Error 括弧・・・
} //Syntax Error 括弧・・・
括弧の対応おかしいーーｗｗｗ
0526510
04/05/04 20:12ID:???念のためにファイル化した後もサイズチェック。
なにかしら処理途中でレスポンスヘッダを送信できれば、
アップロードに専念しているブラウザも止められるかなぁ？
・・・と、考えつつも案が浮かばず放置している状態なのです。
0527nobodyさん
04/05/04 20:13ID:???＞念のためにファイル化した後もサイズチェック。
だから、その行為がクライアントから見ると「アップロード」になるわけで・・・
CONTENT_LENGTHで判断するだけでいいだろ
0528nobodyさん
04/05/04 21:35ID:???http://httpd.apache.org/docs/mod/core.html#limitrequestbody
Apacheであれば、規定量を超えたら413(Request Entity Too Large)が
返るように設定できるけど、クライアントを止められるかどうかは不明。
同様の処理はmod_perlであればヘッダ解析フェーズで可能かも。
CGIレベルでは無いことは確か。
0529nobodyさん
04/05/04 21:56ID:???（´-｀）.｡oO(なんで鯖までいじらにゃならんのよ・・・)
0530510
04/05/04 22:00ID:???残念だけど諦めます。
> CONTENT_LENGTHで判断するだけでいいだろ
申し訳ない。今のロジックをみたらCONTENT_LENGTHのチェックと、
STDINからデータ取得時のチェックの二段階だけだった。
0531nobodyさん
04/05/04 22:02ID:???my @attack = (
sub {
my($damage, $rate) = (100, 10);
$damage *= 1 + ((1 / 2 <=> rand) * rand $rate) / 100;
$damage *= 1 / 3 unless int rand 5;
$damage = 0 if 2 > rand 5;
'パンチ', int $damage;
},
sub {
my($damage, $rate) = (200, 10);
$damage *= 1 + ((1 / 2 <=> rand) * rand $rate) / 100;
'キック', int $damage;
}
);
for (1..20) {
print $attack[rand 2]->(), "\n";
}
0532nobodyさん
04/05/05 13:19ID:???閉じたとき」にCookieをクリアするためにはexpiresを空に、
有効期限を決めるにはexpiresを設定すればいいだけのこと
ですが、この2種を同居させることは不可能でしょうか。
つまりやりたいことは、「有効期限を設定しておいても、ブラウザ
が閉じられればCookieはクリアされる」ということです。
うまくいかないので質問させていただきました。
宜しくお願い致します。
0536 ◆Emx7X7JtuI
04/05/05 21:16ID:jTThsR/v$day = "20040505";
の時、$dayから 2004、05、05を分けて取り出すには、
$yyyy = substr($day, 0, 4);
$mm = substr($day, 4, 2);
$dd = substr($day, 6, 2);
とするしかないでしょうか？
もう少し良い方法がありましたらご教授お願いします。
0538nobodyさん
04/05/05 21:40ID:???TMTOWTDI.
# substr
my($yyyy, $mm, $dd) = (substr($day, 0, 4), substr($day, 4, 2), substr($day, 6, 2));
# unpack
my($yyyy, $mm, $dd) = unpack 'A4A2A2', $day;
# パターンマッチ
my($yyyy, $mm, $dd) = $day =~ /^(\d{4})(\d\d)(\d\d)/;
# 回りくどい方法
my @tmp = split //, $day;
my $yyyy = join '', splice @tmp, 0, 4;
my $mm = join '', splice @tmp, 0, 2;
my $dd = join '', @tmp;
0539nobodyさん
04/05/05 21:45ID:???ありがとうございます！
umpackという手がありましたね。
これでいこうと思います。
>>538
>#バターンマッチ
この書き方がよく分かってないんですよ＜私
サンプルソースを写して、何となくうまくいってるって感じで(汗)
がんばって勉強します！
0541540 ◆Emx7X7JtuI
04/05/05 21:50ID:???0542nobodyさん
04/05/05 22:22ID:???.htaccessのファイルの内容を、指定したサーバーの順番に、Socketでデータと一緒にPOSTして、受け取ったCGIでそれを元の.htaccessと書き換えるという流れで逝きたいんですが、
一つのデータ送信＋ファイル更新用の親CGIと、受信＋ファイル更新用の子CGIという仕組みです。
私はPerl初心者で、今までソケットについては一切書いてないので知識が無いので、
最近ネットでPerlのSocket.pmについて調べてるんですが、どうもソケットについて詳しく解説してるサイトが無くて困ってます。
何方かSocketについての解説サイトをご教授してください。
0543nobodyさん
04/05/05 22:26ID:???0544nobodyさん
04/05/05 22:26ID:???0545542
04/05/05 22:29ID:???私自身、１０つのサーバーで複数のコンテンツを公開してるので。。。
アップロードファイルがこんがらがってるのでこういうCGIを実装したいのです。
0546nobodyさん
04/05/05 22:33ID:???0547nobodyさん
04/05/05 22:34ID:???0548nobodyさん
04/05/05 22:35ID:???0550nobodyさん
04/05/05 22:37ID:???この板だけじゃないけどすんなり書き込めななくなったな。
0551nobodyさん
04/05/05 22:49ID:???http://www.accesstrade.net/at/c.html?rk=010003h3000dcb
http://www.accesstrade.net/at/r.html?rk=010008la000dcb
0552nobodyさん
04/05/05 23:24ID:???Socket.pmが使えるということは、標準モジュールが使えるのだから、
IO::Socket::INETを使えばハンドル操作だけで楽になるよ。
さらにLWPモジュール群を使えば、ハンドル操作さえ不要に。
0553nobodyさん
04/05/06 02:57ID:???前のレベルに戻すまで１ヶ月はかかるからよ
∧＿∧
∧＿∧ （´<_｀ ） 今ちょうど
（ ´_ゝ`） / ⌒i 人生最大の危機に
／ ＼ | | 直面しているな
/ /￣￣￣￣/ |
＿_(__ﾆつ/ FMV / .| .|＿＿＿＿
＼/＿＿＿＿/ （u ⊃
0554nobodyさん
04/05/06 17:07ID:???0555nobodyさん
04/05/06 18:11ID:???0556nobodyさん
04/05/06 21:28ID:???---- xml2.xml ----------------------------------------
<?xml version="1.0" encoding="Shift_JIS"?>
<data>
<shop num="01">
<name val="a">AAAshop1</name>
<name val="b">AAAshop2</name>
<tel>012-345-6789</tel>
</shop>
<shop num="02">
<name>BBBshop</name>
<tel>098-765-4321</tel>
</shop>
</data>
------------------------------------------------------
0557続き
04/05/06 21:29ID:???------------------------------------------------------
#!/usr/local/bin/perl
use XML::DOM;
$xmlfile = "./xml2.xml";
my $parser = new XML::DOM::Parser;
my $doc = $parser->parsefile ("$xmlfile");
my $nodes = $doc->getElementsByTagName ("shop");
my $n = $nodes->getLength;
for (my $i = 0; $i < $n; $i++){
my $node = $nodes->item($i);
my $attr = $node->getAttribute("num");
print $attr."-attr\n";
my $child = $node->getElementsByTagName("name");
my $nn = $child->item(0);
my $val = $nn->getAttribute("val");
print $val."-val\n";
my @child_val = $node->getElementsByTagName("name");
my $child_val = $child_val[0];
print $child_val."-child_val\n";#●
}
------------------------------------------------------
0558続き２
04/05/06 21:29ID:???01-attr
a-val
XML::DOM::Element=ARRAY(0x843e234)-child_val
02-attr
-val
XML::DOM::Element=ARRAY(0x84406fc)-child_val
------------------------------------------------------
このような表示になります。
●の部分が「XML::DOM::Element=ARRAY(0x843e234)-child_val」こうなってしまいますが
「AAAshop1」や「AAAshop2」「BBBshop」を取得するにはどうすれば良いのでしょうか？
■ このスレッドは過去ログ倉庫に格納されています