Perlコーディング初心者質問スレ Part 57

Perlコーディング初心 ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

576:nobodyさん
 08/05/27 20:54:18 
myの仕様間違えて覚えてたか… 
$global_foo = $foo; 
$global_bar = $bar; 
{ 
my $foo; 
my $bar; 
$foo = $_[0]; 
$bar = $_[1]; 
$foo = $global_foo unless defined $foo; 
$bar = $global_foo unless defined $bar; 
} 
欲しい動作はこうかな…

577:nobodyさん
 08/05/27 20:56:48 
いやいやいやいやｗ 
「perl スコープ 変数」でググっみ。

578:nobodyさん
 08/05/27 21:53:15 
全然わかってないわかってないｗｗｗ

579:nobodyさん
 08/05/27 22:34:53 
my $foo = 1; 
 
sub func { 
  my $temp = $_[0]; 
  return defined( $_[1] ) ? $_[1] : $temp; 
} 
 
 
ex : 
$foo = func( $foo, 10 ); # $foo = 10 
$foo = func( $foo ); $foo = 1

580:nobodyさん
 08/05/28 00:31:36 
早くdefined-or演算子実装されないかな…

581:nobodyさん
 08/05/28 01:24:48 
今日が今月の何週目か求めるにはどうしたらよいでしょうか

582:576
 08/05/28 01:29:54 
$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=3 bar=4 
point 2: foo=1 bar=2

次ページ