perl localとmyの違い2
#localで定義した変数が別のサブルーチンで変更できることを確認する &modify_local(); #サブルーチン本体 sub modify_local{ #ローカルで定義 local($local_value) = "元のテキスト"; #ローカルで定義 my($my_value) = "元のテキスト"; print "[実行前]\n"; print "local:\t$local_value\n"; print "my:\t$my_value\n"; &change_local(); print "[実行後]\n"; print "local:\t$local_value\n"; print "my:\t$my_value\n"; } sub change_local{ $local_value = "変更しました"; $my_value = "変更しました"; } #実行結果 # [実行前] # local: 元のテキスト # my: 元のテキスト # [実行後] # local: 変更しました # my: 元のテキスト
- 作者: Randal L. Schwartz,brian d foy,Tom Phoenix,近藤嘉雪
- 出版社/メーカー: オライリージャパン
- 発売日: 2012/07/25
- メディア: 大型本
- 購入: 7人 クリック: 22回
- この商品を含むブログ (17件) を見る