我有一个Perl的一行代码,在命令行上可以很好地工作:
perl -nle 'm"\w+:x:\d+:\d+:\S+:/S+:(\S+)$" and $h{$1}++; END{ print "$_: $h{$_}" foreach sort { $h{$b} <=> $h{$a} } keys %h }' /etc/textfile
我已经将这段代码放入一个名为
shell.sh
的shell文件中,这样下一个人就不必复制/粘贴了,只需运行它即可。#!/bin/sh
perl -nle 'm"\w+:x:\d+:\d+:\S+:/S+:(\S+)$" and $h{$1}++; END{ print "$_: $h{$_}" foreach sort { $h{$b} <=> $h{$a} } keys %h }' /etc/textfile
我在命令行上运行此命令,但没有结果;它只是加载一个新的提示符而没有输出。有人看出我做错了什么吗?
以下是一些系统规格:
Linux版本2.6.32-220.13.1.el6.x86_64
(gcc版本4.4.6 20110731 (Red Hat 4.4.6-3)(GCC)
GNU bash版本4.1.2(1)-release (x86_64-redhat-linux-gnu)
这里是文本文件中的一小部分内容:
rfink:x:140:140:rat fink:/var/lib/rfink:/sbin/nologin
edible:x:16252:10001:eric idle:/users/eidle/:/bin/bash
tsawyer:x:30855:10001:tom sawyer:/users/tsawyer/:/bin/bash
karthur:x:30886:10001:King Arthur:/users/karthur/:/bin/bash
karthur:x:30886:10001:king arthur:/users/karthur/:/bin/bash
jcash:x:30887:10001:john cash:/users/jcash/:/bin/bash
hpotter:x:30887:10001:harry potter:/users/hpotter/:/bin/bash
triddle:x:30956:10001:tom riddle:/users/triddle/:/bin/bash