概述[root@stationx perl]# cat check.pl #!/bin/perl unless($#ARGV == 0){die "Usage: $0 <argument>: $!";} open(PASSWD,"/etc/passwd")or die "cant open:$!"; $username=shift(@ARGV); print "$username.\n";(---改行
[root@stationx perl]# cat check.pl
#!/bin/perl
unless($#ARGV == 0){dIE "Usage: $0 <argument>: $!";}
open(PASSWD,"/etc/passwd")or dIE "cant open:$!";
$username=shift(@ARGV);
print "$username.\n";(---改行可以不要,当时是为了测试用的!)
while($pwline=<PASSWD>){
if($pwline =~/$username:/){print "$username is a system user here\n";last;}
else {dIE "$username is not a system user here\n";}
}
close PASSWD;
open(LOGGEDON,"who|")or dIE "cant open:$!";
while($logged=<LOGGEDON>){
if($logged =~ /$username/){$logged_on=1;last;}
}
close LOGGEDON;
dIE "$username is not logged on.\n" if !$logged_on;
print "$username is logged on and running these processed.\n";
open(PROC,"ps aux|") or dIE "cant open: $!";
while($line=<PROC>){
print "$line" if("$line" =~/^$username/);
}
close PROC;
print "so long.\n";
[root@stationx perl]#总结 以上是内存溢出为你收集整理的利用Perl检测系统中与系统用户相关的进程
全部内容,希望文章能够帮你解决利用Perl检测系统中与系统用户相关的进程所遇到的程序开发问题。
评论列表(0条)