我想扫描passwd文件并将评论字段中的单词顺序从firstname lastname更改为lastname firstname，并将姓氏强制为大写。
所以，改变每一行：
jbloggs:x:9999:99:Joe Bloggs:/home/jbloggs:/bin/ksh
到：
jbloggs:x:9999:99:BLOGGS Joe:/home/jbloggs:/bin/ksh
我是 Perl 新手，我在 awk 中遇到了不同字段分隔符的问题。 感谢任何帮助。
【问题讨论】：
【讨论】：
$ awk -v FS=":" '{split($5, a, " "); name = toupper(a[2]) " " a[1]; gsub($5, name); print $0}' passwd
不过，如果你有中间名，那就不行了。
编辑：更易于阅读的版本
awk -v FS=":" '
{
split($5, name_parts, " ")
name = toupper(name_parts[2]) " " name_parts[1]
gsub($5, name)
print $0
}' passwd
【讨论】：
$5 = name 工作得很好，不需要gsub。另外，我想你也想要一个-v OFS=:。 print 没有参数打印 $0，但我想这是一个品味问题。
$5 = name 没有-v OFS=: 将无法工作。如果您不包括两者，您将获得以空格分隔的字段。 gsub() 用结果替换了$0 的内容，所以在我的脚本中我不需要担心OFS。
$5 = "." 怎么办？危险。
独立示例：
use strict;
use warnings;
my $s = 'jbloggs:x:9999:99:Joe Bloggs:/home/jbloggs:/bin/ksh';
my @tokens = split /:/, $s;
my ($first, $last) = split /\s+/, $tokens[4];
$tokens[4] = uc($last) . " $first";
print join(':', @tokens), "\n";
__END__
jbloggs:x:9999:99:BLOGGS Joe:/home/jbloggs:/bin/ksh
作为脚本（输出到 STDOUT；必须将输出重定向到文件）：
use strict;
use warnings;
while (<>) {
chomp;
my @tokens = split /:/;
my ($first, $last) = split /\s+/, $tokens[4];
$tokens[4] = uc($last) . " $first";
print join(':', @tokens), "\n";
}
【讨论】：
这将在您读取文件时对其进行处理，并将新格式条目放入数组@newEntries。
open PASSWD, "/etc/passwd";
while(<PASSWD>) {
@fields = split /:/;
($first, $last) = split (/\s/, $fields[4]);
$last = uc $last;
$fields[4] = "$last $first";
push @newEntries, join(':', @fields);
}
【讨论】：
$fields[4] = "\U$last\E $first";，跳过手册uc。好吧，无论如何它是等价的......
$ awk -F":" ' { split($5,a," ");$5=toupper(a[2])" "a[1] } 1 ' OFS=":" /etc/passwd
jbloggs:x:9999:99:BLOGGS Joe:/home/jbloggs:/bin/ksh
【讨论】：
$ perl -pe 's/^((.*:){4})(\S+)\s+(\S+?):/$1\U$4\E, $3:/' \
/etc/passwd >/tmp/newpasswd
要根据lastlog仅重写过去六十天内登录的用户，您可以使用
#! /usr/bin/perl -n
use warnings;
use strict;
use Date::Parse;
my($user) = /^([^:]+):/;
die "$0: $ARGV:$.: no user\n" unless defined $user;
if ($user eq "+") {
next;
}
my $lastlog = (split " ", `lastlog -u "$user" | sed 1d`, 4)[-1];
die "$0: $ARGV:$.: lastlog -u $user failed\n"
unless defined $lastlog;
my $time_t = str2time $lastlog;
# rewrites users who've never logged in
#next if defined $time_t && $time_t < ($^T - 60 * 24 * 60 * 60);
# users who have logged in within the last sixty days
next unless defined $time_t && $time_t >= ($^T - 60 * 24 * 60 * 60);
s/^((.*:){4})(\S+)\s+(\S+?):/$1\U$4\E, $3:/;
print;
如
$ ./fixusers /etc/passwd >/tmp/fixedusers
【讨论】：