Perlのサブルーチンの引数引継ぎ
- Perlのサブルーチンの引数引継ぎについて質問です。サンプルコードを使って、引数の渡し方と引継ぎの仕組みを解説します。
- Perlのサブルーチンで引数を渡すと、他の呼び出し先のサブルーチンにも引数が渡されることがあります。@_を使うと引数が渡され、@_[0]を使うと引数を受け取らずにすむことができます。
- なぜ引数が渡されてしまうのか、Perlの引数の引継ぎのルールについて詳しく解説します。サブルーチンの呼び出し方によって引数の渡し方が変わってくるので、注意が必要です。
- ベストアンサー
Perlのサブルーチンの引数引継ぎ？
こんにちは。 Perlの引数について質問です。 サブルーチンに引数を渡し、サブルーチンの中で他のサブルーチンをよんでいます。 すると引数を渡していないサブルーチンにまで引数が与えられてしまっているようです。 @_で受け取ると引数が渡されてしまい、$_[0]だと渡されずにすみます。 これはなぜなのでしょうか？Perlには引数を引き継ぐルールでもあるのでしょうか？ 以下、サンプルです。 -------------------------------- &test('引数です'); sub test { &test2; } sub test2 { (my $hoge) = @_; } -------------------------------- $hogeに「引数です」が入ります。 &test2;を&test2();とすると大丈夫です。
- investigate
- お礼率70% (12/17)
- Perl
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (1)
- Jit-007
- ベストアンサー率0% (0/1)
最初の人が答えておりますが、補足を少し。 &はどうしても必要なんですか？ Perlは、テレビの中を修理する手段や、 テレビをテレビじゃない物にしてみたり、 リモコンやボタンの定義や使い方を改造する手段がよくあります。 私はほとんどの状況で好ましいとは思いませんが、 その辺の再考が必要では。 回答については1の人のはマニュアルなのでそれでいいかと思います。 ちなみに、インストールしたPerl自体にも付属してますよー。
お礼
ありがとうございました。
関連するQ&A
- Perlのmyのサブルーチンの内外での宣言の違い
Perlでmyを使う場合、サブルーチンの内外での宣言の違いについて知りたいです。 私はよくある変数をそのプログラム内全体で使う時(カウントするだけの$iみたいなものや、DBのクエリなど)は、同じ変数名をサブルーチン内で毎回宣言するのが嫌（個人的に同じことを重複するプログラムが好きではないという主義）なので、サブルーチンの外でmyを宣言するのですが、myとかはサブルーチン外で宣言するとどんな問題が生じる可能性があるのでしょうか？ また毎回サブルーチン内で宣言するのと外部で宣言するのではどういった時に問題になるのでしょうか？もちろんサブルーチンの外でmy宣言した場合はサブルーチンにその変数が引き継がれることは知っています。 リファレンス部分で変わるような記述を見たことはあります。 さしあたって問題を感じでいないのです、ふと疑問に思ったのですが、どうもそれに書かれたソースが少ないので御存知の方がいればぜひ御教授願いたいです。 <例> my $hoge; sub hoge1 { $hoge = 1; } sub hoge2 { $hoge = 5; } と sub hoge1 { my $hoge = 1; } sub hoge2 { my $hoge = 5; }
- ベストアンサー
- Perl
- perlでサブルーチンへの複数の配列渡し
perlでサブルーチンに配列を渡しているのですが、 引数としている配列が１個の場合は問題ないのですが、 複数渡すと、第2引数以降が渡りません。 どの様にすれば上手くできますか。 例1 #!/usr/bin/perl @x1 = (14, 11, 5, 12, 8, 15); @x2 = (12, 10, 8, 9); print "main : @x1 \n"; &test(@x1); sub test { my (@arg1) = @_; print "sub : @arg1 \n"; } 結果 main : 14 11 5 12 8 15 sub : 14 11 5 12 8 15 例2 #!/usr/bin/perl @x1 = (14, 11, 5, 12, 8, 15); @x2 = (12, 10, 8, 9); print "main : @x1 \n"; print "main : @x2 \n"; &test(@x1, @x2); sub test { my (@arg1, @arg2) = @_; print "sub : @arg1 \n"; print "sub : @arg2 \n"; } 結果 main : 14 11 5 12 8 15 main : 12 10 8 9 sub : 14 11 5 12 8 15 12 10 8 9 sub : 引数1に全てが設定されて、引数2に設定されていない。
- ベストアンサー
- Perl
- Perlの関数の引数について詳細
perlで引数に関することでわからないことがあるのですが、以下の状態で、実行した際に、$aは1が入るのはわかりますが、$bには具体的にどんな値が入っているのでしょうか？ 引数が無い場合は、デフォルトで1をセットしたいです。 phpのvar_dump関数のようなものがPerlには存在すれば便利ですが、そういうものはあるのでしょうか？ sub test{ my ($a, $b, $c, $d) = @_; } &test(1); あと引数の数を２つは必須にして、残りの引数（３つ目はデフォルトで１つ目の引数と同じ値になり、４つ目以降はデフォルトで1となる 関数のプロトタイプを書きたいのですが、どうですればよいのでしょうか？ sub test($$;@ ？のようなものを見たことがあるのですが、どんな意味をしているのでしょうか？結構複雑な引数を持たせることができそうなのですが、詳しく書かれている本などご存知の方教えてください。
- ベストアンサー
- Perl
- サブルーチンに引数を２つ以上渡したい
Access2002、vba上で サブルーチンに引数を２つ指定したいのですが、 なぜか「コンパイルエラー 修正候補＝」 と出てしまいます。 引数を１つにするとうまく動作します。 どなたかお分かりの方いらっしゃいましたら教えて ください。 宜しくお願いします。 サンプルコード： -------------------------------- the_subroutine(a, b) ' ※ここでコンパイルエラー Sub the_subroutine(c As String, d As Object) End Sub -------------------------------
- ベストアンサー
- Visual Basic
- サブルーチンの中にサブルーチンが書ける？
どこかのサンプルでサブルーチンの中にサブルーチンが書いてあったのですが、 元々Perlではそういう書き方が出来たのでしょうか？ Perl4、Perl5、Perl5.6、Perl5.8 どれでも使えるものかどうか知りたいです。
- ベストアンサー
- Perl
- Ｐｅｒｌです。サブルーチンについて
以下の文はあっていますでしょうか。 # サブルーチンを呼び出して引数は 3 とする。 # そして返ってきた戻り値を変数$aに代入せよ。 $a=&a(3); # サブルーチン名aせよ。 sub a{ # $_[0]が引数 3 となりプラス1して変数$bに代入せよ。 $b=$_[0]+1; # 変数$bの内容を戻り値として返せ。 return $b; } # 変数$aの内容を表示せよ。 print "$a";
- ベストアンサー
- Perl
- サブルーチンの使い方
以下のプログラムを解読中ですが、いまいち理解できません。C言語の経験はあるのですが、Perl初心者のため、Perlの文法を中心に、以下のポイントについて教えてください。 (1)この関数で、引数が「&@」となっていますが、この＆の意味は「サブルーチン」ということですか？？ (2)２行目のmy ($block, @listin) = @_ で各$block, @listinに格納される値を教えてください。「@_」を調べてみたところ、「サブルーチンの引数を代入」とあるのですが、ここでは、map_block(&@)の&@が&blockと@litinに代入されるということですか？？そもそも&@とは何でしょうか？ (3)４行目のpush @listout, &$block() for (@listin) について、push関数を調べてみたところ、配列の最後尾に値を格納するということですが、&$block() for (@listin) の部分の意味がよくわかりません。どのような値が、配列listoutに格納されるのでしょうか？ （解読中のプログラム） １sub map_block (&@) { ２ my ($block, @listin) = @_; ３ my @listout = (); ４ push @listout, &$block() for (@listin); ５ return @listout; ６}
- ベストアンサー
- Perl
- Perlのサブルーチンについて
小さいプログラムで確かめたのですが、引数がないときは、 &test();としないと、 &test;では、$_[0]の値が正しくない というのは、Perlの仕様でしょうか？ Perlを本格的に始めようとしていますが、 このようにはまり易い事例はたくさんあるのでしょうか？
- ベストアンサー
- Perl
- Perlのサブルーチンで連想配列（ハッシュ）を渡す
Perlのサブルーチンで連想配列（ハッシュ）を渡す方法 -------------------------------------- $str=rep::replace(%A,$B,@C); -------------------------------------- sub refidrep ( \%\$\@ ){ my(%A,$B,@C)=(@_); } -------------------------------------- では、上手くいきませんでした。 どのようにしたら、連想配列をサブルーチンに渡せるのでしょうか？ 分かる方いらっしゃいましたらご教授ください。
- ベストアンサー
- Perl
- JavaScriptでPerlのサブルーチンを呼び出すには？
JavaScriptでPerlのサブルーチンを呼び出すことはできますか。 #Perl Sub Func_a(){ ... } この Func_a 関数をJavaScriptから呼び出したいのです。
- 締切済み
- JavaScript
お礼
ありがとうございました。