- 1 名前：nobodyさん mailto:sage [2008/02/25(月) 19:25:51 ID:???]
- Perlのコーディングで困ってる人のスレです。
【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
お勧めサイトは >2 以降
前スレ pc11.2ch.net/test/read.cgi/php/1189939783/
過去ログ倉庫 ttp://user.ftth100.com/mirrorhenkan/perl/
- 570 名前：nobodyさん mailto:sage [2008/05/27(火) 19:44:24 ID:???]
- {
my $global_foo = $foo;
my $global_bar = $bar;
$foo = shift || $global_foo;
$bar = shift || $global_bar;
}
- 571 名前：nobodyさん mailto:sage [2008/05/27(火) 19:55:45 ID:???]
- >>569-570
$foo eq undef もたいがいだが
shift || $global_foo だと $_[0] が '0' の時に挙動変わるな。
- 572 名前：nobodyさん mailto:sage [2008/05/27(火) 20:06:24 ID:???]
- {
my $global_foo = $foo;
my $global_bar = $bar;
$foo = defined( $_[0] ) ? $_[0] : $global_foo;
$bar = defined( $_[1] ) ? $_[1] : $global_bar;
}
こうか？
- 573 名前：nobodyさん mailto:sage [2008/05/27(火) 20:06:58 ID:???]
- あ、三項演算子逆だ。すまん。
|
 |
