44 my $unpackeing;
45 my $arrow_notation = '';
46 print "Enter name to query, enter exit to exit:
";
47 $arrow_notation = ( chomp( $unpackeing = <STDIN>) );
48 print $arrow_notation." ".$unpackeing;
输入: exit
输出:1 exit
其中 $unpackeing 是键盘输入的值exit,$arrow_notation是调用chomp函数的返回值 1.