🚀 go-pugleaf

In article <CHRISB.95May9190513@stork.cssc-syd.tansu.com.au>, chrisb@stork.cssc-syd.tansu.com.au (Chris Bitmead) writes:
*In article <3o2k4j$sv7@pipe.pipex.net> tim@pipex.net (Tim Goodwin) writes:
*
*>In article <3nsibr$879@kimble.mistral.co.uk>,
*>Mark Sheppard <kimble@mistral.co.uk> wrote:
*>>>  # find first unused uid after 100, even with perl4
*>>>  perl -le '$i = 100; $i++ while ($x) = getpwuid($i); print $i'
*>>
*>>You can do this using gawk:
*>>
*>>gawk -F: '{u[$3]=$1;}END{for(i=100;u[i];i++);print(i);}' /etc/passwd
*ypcat passwd | gawk -F: '{u[$3]=$1;}END{for(i=100;u[i];i++);print(i);}'

This illustrates exactly the point I made in the Perl V Awk thread.
The perl version is portable, local files, NIS, NIS+, Hesiod.
The awk version is kludgy.

-- Rob

--------------------------------------------------------------------------------
    Casper Dik	-	"The only man who can possibly save Solaris"
--------------------------------------------------------------------------------