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__