在Perl中:
my %words;
while (<>) {
map { $words{lc $_} = 1 } split /\s/);
}
print scalar keys %words, "\n";
Run Code Online (Sandbox Code Playgroud)
使用bash/UNIX命令:
sed -e 's/[[:space:]]\+/\n/g' $FILE | sort -fu | wc -l
Run Code Online (Sandbox Code Playgroud)
归档时间: |
|
查看次数: |
4603 次 |
最近记录: |