grep

2013-08-23 17:12

my @array = qw/6 -4 8 12 -22 19 -8 42/;  	# 指定一個串列給陣列 @array
my @positive = grep {$_ > 0} @array;    	# 把@array裡大於零的數字取出
print "$_\n" for @positive;    		        # 印出新的陣列 @positive