Question

perl从数组中删除指定元素

假设有一个数组@a和一个变量$b，变量$b中保存着数组@a的第一个元素，即@a[0]这个元素，怎样将数组@a中删除所有重复的$b的元素。求比较简洁的方法

Answer 1

@a=(1,2,1,4,5,6,7,1,2,5,7,1,10);
$b=1;
foreach(@a){
	if($_==$b){s/$_//g;} #如果是字符串就用eq
	print  "$_\n";
	}

Answer 2