Perlコーディング初心 ..
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
119:nobodyさん 08/09/02 17:58:31 IiWNBMxF perlを使って突然変異前後における終止コドンのカウントをしたいんですが、初心者なのでまったく分かりません・・・（涙） 120:nobodyさん 08/09/02 18:34:27 >>114,116 抜粋ですが、下記でツリーというかパンくずリストというかそれっぽいものが出力できました。 ただ、ファイル名はrequireした元ではなく全て実行ファイル名になるようで、 あんまり意味無かったかも… ＞my $i = 0; ＞while (($package, ＞ $filename, ＞ $line, ＞ $subroutine, ＞ $hasargs, ＞ $wantarray, ＞ $evaltext, ＞ $is_require, ＞ $hints, ＞ $bitmask) = caller($i++)) { ＞ push @aTree, "$filename\($line\) $subroutine"; ＞} ＞my $sRev = join ' => ', (reverse @aTree); ＞print STDERR $sRev 以上、ありがとうございましたー >>118は無限ループっぽいのでご注意下さい 121:nobodyさん 08/09/02 18:54:50 ……(呆れている)
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
5390日前に更新/40 KB
担当:undef