"John W. Krahn" wrote:
>
> 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;
Oops, change the previous three lines to:
s/^/*/ if (split /:/)[3] == 45;
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]
