Perl读取文件,从列中打印唯一值

Question

我是perl的新手,我想用perl实现以下功能.

我有一个包含以下数据的文件:

/dev/hda1 /boot ext3 rw 0 0
/dev/hda1 /boot ext3 rw 0 0

我想从文件中提取第二个字段并仅打印唯一值.我希望这个例子的输出是,程序应该打印:

ext3

如果我有几个不同的文件系统,它应该打印在同一行.

我尝试了很多代码但是我被困了.

谢谢

Answer 1

如果您愿意awk:

$ cat file
/dev/hda1 /boot ext3 rw 0 0
/dev/hda1 /boot ext3 rw 0 0

$ awk '!seen[$3]++{print $3}' file
ext3

或者,使用cut:

$ cut -d" " -f3 file  | sort | uniq      # or use just sort -u if your version supports it
ext3

这是perl解决方案:

$ perl -lane 'print $F[2] unless $seen{$F[2]}++' file
ext3

这是perl命令行选项说明(from perl -h):

l: enable line ending processing, specifies line terminator
a: autosplit mode with -n or -p (splits $_ into @F)
n: assume "while (<>) { ... }" loop around program
e: one line of program (several -e's allowed, omit programfile)

有关这些选项的更好解释,请参阅:https://blogs.oracle.com/ksplice/entry/the_top_10_tricks_of