#! /usr/bin/perl -w
use strict;
use Carp;
print <<EOT;
プロトタイプもよくわからん。
少しはまった
EOT
sub test{
print shift,"\t";
print shift,"\n";
}
sub proto($$){
print shift,"\t";
print shift,"\n";
}
&test('proto');
&proto('proto');
&proto('proto','type');
print <<EOT;
プロトタイプが働いてない気がするのだが。。。
ググった。
&付けて呼出しするとダメよ!とのこと。
なんじゃそれ。
あと呼出し前にプロトタイプ宣言しとけってさ
EOT
test('proto');
proto('proto','type');
print <<EOT;
で(\$)とか
受け取った物を強制でリファレンスにするって事か?
EOT
sub proto2(\$){
print shift,"\n";
}
my $sc = 'proto';
proto2($sc);
my $scref = [1,3,4];
proto2($scref);
print <<EOT;
/$はリファレンスの中身が$って意味で、
サブルーチンの中身にはリファレンス値が渡されるって事かしら
かしら。
ある程度引数をチェック出来るのかもねぇ。。。
ここいらで溜飲下げとこ
あー、彼女欲しいなちくしょー!
EOT