Perl初心者の戯言１

なんで $$ss = $$ss++; ってしたら変な値が入るのかわかんないわかんないわかんない...

#!/usr/bin/perl# perl 5.006001 (諸事情あり)use strict;use CGI;my $cgi = new CGI;print $cgi->header(-charset => 'euc-jp'); my $title = '参照渡しのテスト';print $cgi->start_html($title);print $cgi->h1($title);my $s = 15;print "\$s = $s \n";&test(\$s);print "\$s = $s \n";print $cgi->end_html();sub test{  my $ss = shift;  # $$ss = $ss + 1; # これはNG  # $$ss = $$ss++;  # これは値は返るけどへんてこりんな数値になる  $$ss = $$ss + 1;}1;__END__