Perlコーディング初心 ..
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
587:nobodyさん 08/05/28 01:47:41 >>585 感動した ありがとう 588:576 08/05/28 01:58:37 >>586 サブルーチン冒頭にて、引数リスト ＞ デフォルト値（グローバル変数の値とか） の優先順でmy変数値を設定したいことはよくあるから、 perlなら… perlならきっとすごくスマートに書く方法があるに違いない… という夢を見たけど、幻だったみたいですね… 変数ひとつずつシコシコとunless definedを当てることにします。 589:nobodyさん 08/05/28 02:00:25 いや、日本語でおｋ お前の望むようなことは確実にできると思うんだけど、 なにぶん言いたいことがよく分からんｗ 590:nobodyさん 08/05/28 02:16:48 my $global_foo = my $foo = 1; my $global_bar = my $bar = 2; # @_ =( ); @_ =( 3, 4 ); { my $foo = defined( $_[0] ) ? $_[0] : $global_foo; my $bar = defined( $_[1] ) ? $_[1] : $global_bar; print "point 1: foo=$foo bar=$bar\n"; } print "point 2: foo=$foo bar=$bar\n"; 結局、最初に提案されてる回答をアレンジすれば、 >>582-584をシンプルかつ可読性も保ったまま実現できるんだが。 これじゃいかんの？
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
4961日前に更新/211 KB
担当:undef