Perlコーディング初心 ..

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
583:576 08/05/28 01:32:06 $global_foo = $foo = 1; $global_bar = $bar = 2; @_ = (3,4); #@_に値あり { my $foo; my $bar; $foo = $_[0]; $bar = $_[1]; $foo = $global_foo unless defined $foo; $bar = $global_bar unless defined $bar; print "point 1: foo=$foo bar=$bar\n"; } print "point 2: foo=$foo bar=$bar\n"; 出力結果 point 1: foo=1 bar=2 point 2: foo=1 bar=2 ━━━━━━━━━━━━━━━━━━━━━━━ うん、欲しかった動作そのままだけど。 >>577-578が理解できず悩み中 584:nobodyさん 08/05/28 01:34:02 ぎゃー、>>583張り間違えた 【誤】@_ = (3,4); #@_に値あり 【正】@_ = (); #@_に値無し orz 120秒規制が若干きつい… 585:nobodyさん 08/05/28 01:35:51 Date::Calc 586:nobodyさん 08/05/28 01:46:51 >>576 目的が分からん。そもそも何がしたいの？ 説明する気あるのか？ my $foo = 1; my $bar = 2; print $foo = func( $foo ); print $bar = func( $bar ); print $foo = func( $foo, 3 ); print $bar = func( $bar, 4 ); exit; sub func { return defined( $_[1] ) ? $_[1] : $_[0]; }

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

4961日前に更新/211 KB
担当:undef