Rob, great ideas and worked like a charm. Thanks again, Overkill.
On 07/20/2011 01:42 PM, Rob Coops wrote:
On Wed, Jul 20, 2011 at 7:24 PM, Overkill<[email protected]> wrote:Greetings, I'm trying to increment the UID field of the unix password file from an csv file. I've tried to insert C style increment and it keeps bomping out. What would be the logic to increment the 5009 to increment by one? Thanks for any help. -Overkill #!/usr/bin/perl #use strict; #use warnings; while (<DATA>) { chomp; ($first, $last, $username) = split(","); print "$username:x:5009:4001:$first $last:/home/$username:/bin/** false\n"; } exit; __DATA__ "Bob","Ahrary","bahrary" "Jill","Anderson","janderson" -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected] http://learn.perl.org/ #!/usr/bin/perluse strict; use warnings; my $userid = 5009; while (<DATA>) { chomp; ($first, $last, $username) = split(","); print "$username:x:$userid:4001:$first $last:/home/$username:/bin/** false\n"; $userid++; } exit; __DATA__ "Bob","Ahrary","bahrary" "Jill","Anderson","janderson" That should do the trick... you could go for a: print "$username:x:" . $userid++ . ":4001:$first $last:/home/$username:/bin/**false\n"; as well if you like to keep it shorter. or change $userid++; to $userid +1; or even $userid = $userid +1; depending on your personal preference. The result is adding 1 to the $userid variable which is what you are looking to do :-) Regards, Rob
-- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected] http://learn.perl.org/
