perl从/etc/passwd找出udi>500的用户

本文介绍使用Perl脚本从/etc/passwd文件中筛选UID大于500的用户的方法。提供了两种实现方式:一种通过解析字段并检查UID,另一种利用正则表达式进行匹配。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

用perl从/etc/passwd找出udi>500的用户
 cat pw.pl
#!/usr/bin/perl
$passwd="/etc/passwd";
open(PW,$passwd) || die "can't open $paswd:$!/n";
while (<PW>) {
($name,$passwd,$uid,$gid,$gcos,$dir,$shell)=split(/:/);
printf "$name/n" if($uid>500);
}
close(PW); 
##########################################3

另一种方法利用了正则表达式强大的搜索功能
#!/usr/bin/perl
use strict;
open (FILE,"/etc/passwd");
while(<FILE>) {
 if(/x:(/d+)/) {
printf "$1 /n"  if ($1 > 500) && (/(/w+):x/)   ;
}
}
close(FILE); 

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值