代码之家  ›  专栏  ›  技术社区  ›  eswues

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

  •  0
  • eswues  · 技术社区  · 7 年前

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

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

    如果您能对Perl或awk这类任务有更好的看法,那就太好了。

    1 回复  |  直到 7 年前
        1
  •  1
  •   ikegami Gilles Quénot    7 年前

    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
    

    我没有看到 真实的 两者之间的差异。