Perlコーディング初心者質問スレ Part 58

Perlコーディング初心 ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

113:nobodyさん
 08/09/02 17:20:16 
後者は以下と同じこと 
($hoge=gethostbyaddr(pack('C4',split/\./,$ENV{'REMOTE_ADDR'}),2)) or$ENV{'REMOTE_ADDR'};

114:nobodyさん
 08/09/02 17:30:48 
>>111 
confessじゃだめか

115:nobodyさん
 08/09/02 17:37:04 62/De0KZ
>>113 
そういうものなんですね。ありがとうございました。

116:nobodyさん
 08/09/02 17:44:36 
>>114 
confessも読んでいくと 
 
    my $pkg = caller(++$i); 
    unless(defined($pkg)) { 
 
みたいなことをしてループでネストの深さ調べてるから 
インクリメントしていると言える。 
 
見かけ上自分でインクリメントしなけりゃいいならこれで 
いいんだろうけどな。

117:nobodyさん
 08/09/02 17:52:27 IiWNBMxF
バイオインフォマティックスについて詳しい方いらっしゃいますか？

118:nobodyさん
 08/09/02 17:55:37 
>>114,116 
ありがとうございます 
 
> my $pkg = caller(++$i); 
> unless(defined($pkg)) { 
 
こんなこと出来るんですね… 
すみません調べが足りず、callerに対して無効な範囲の引数を渡したら 
落ちちゃうもんだとおもってました。 
 
目的としては、余計な引数のリレーとかグローバル変数とか使わずに 
エラーサブだけでツリー生成することでしたので、下記のような感じでテストしてみます。 
うまく行ったら〆報告します。 
 
sub err { 
　my ($sadd) = @_; 
　my @return; 
　my $i = 0; 
　while(1) { 
　　my $s = caller($i); 
　　if (defined $s) { 
　　　@return .= $s; 
　　} else { 
　　　last; 
　　} 
　　$i++; 
　} 
　print STDERR $sadd."\n".(join ' / ', reverse @return); 
}

次ページ