Daniel Falkenberg wrote:
>
> Curtis,
>
> Cheers for that that makes alot more sense now :). Yes your are correct
> about the /etc/passwd file. It's all well and good to be able to issue
> that command from a command line, but what if I wanted to issue the
> exact same code but from a script?
First a warning. If you mess with the /etc/passwd file in a multi-user
environment you could screw up your system.
#!/usr/bin/perl -w
use strict;
my $passwd = '/etc/passwd';
my $backup = '/etc/passwd-old';
rename $passwd, $backup or die "Cannot rename $passwd: $!";
open PWI, "< $backup" or die "Cannot open $backup: $!";
open PWO, "> $passwd" or die "Cannot open $passwd: $!";
while ( <PWI> ) {
next unless (split /:/)[3] == 45;
s/^/*/;
print PWO;
}
unlink $backup or warn "Cannot delete $backup: $!";
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
