从/ etc / shadow获取密码 - awk vs Perl

Question

我想知道如何在Perl中实现此功能

cat /etc/shadow | awk -F ":" '/root/{print $2}'

如果你的意见对于这类任务更好，那将会很高兴：Perl或awk。

Answer 1

Perl有一个开关-F来定义一个分隔符并打开自动分裂到数组@F。因此：

perl -F: -le 'print $F[1] if /root/' /etc/shadow     # Perl 5.20+

和

perl -anF: -le 'print $F[1] if /root/' /etc/shadow

将与

相同

awk -F: '/root/ {print $1}' /etc/shadow

我之间没有看到真正的区别。