#!/usr/bin/perl #2011/02/24 #References(Pointer) $mytest1="abc1"; $mytest2="abc2"; print "$mytest1\n"; print "$mytest2\n"; print \$mytest1."\n"; print \$mytest2."\n";
output:abc1abc2SCALAR(0x6c5c90)SCALAR(0x6c5cd8)
output:
回覆刪除abc1
abc2
SCALAR(0x6c5c90)
SCALAR(0x6c5cd8)