Perlコーディング初心 ..

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
571:nobodyさん 08/05/27 19:55:45 >>569-570 $foo eq undef もたいがいだが shift || $global_foo だと $_[0] が '0' の時に挙動変わるな。 572:nobodyさん 08/05/27 20:06:24 { my $global_foo = $foo; my $global_bar = $bar; $foo = defined( $_[0] ) ? $_[0] : $global_foo; $bar = defined( $_[1] ) ? $_[1] : $global_bar; } こうか？ 573:nobodyさん 08/05/27 20:06:58 あ、三項演算子逆だ。すまん。 574:nobodyさん 08/05/27 20:33:00 defined関数の存在が頭から抜けてたorz $foo = $global_foo if $foo eq undef; $bar = $global_foo if $bar eq undef; ではなく $foo = $global_foo unless defined $foo; $bar = $global_foo unless defined $bar; でお願いします。あと>>570-573サンクス、参考になります。 575:nobodyさん 08/05/27 20:38:51 つーか、>>569だとまともに動かんよ。 初期化するためにmy使っちゃってるように見えるけど、 この場合、ブロックスコープになるから、 ブロック内の$foo, $barと、グローバル変数$foo, $barは別物になる。

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

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