perl文本处理.........................请教高手

harrymao18

请问各位大哥哥大姐姐, 删除如下图datafile.txt文本中每行以符号 > 开头的行，如何实现呀？

已经用数组读取了每行的数据，判断每行是不是以> 的那句怎么写啊？使用正则么

iamlimeng

print unless /^>/ foreach (@data);