通过Perl中的local()获得临时值