sxw (^_^)当前离线
少尉
use strict; use warnings; my %hash; while (<DATA>) { if (!$hash{$_}) { print; $hash{$_} += 1; } } __DATA__ aaa bbb aaa aaa ccc ddd bbb ddd 复制代码
aaa bbb ccc ddd ddd复制代码
TOP