2007-12-28

Perl初心者の戯言1

なんで $$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__
コメントを投稿