#!/bin/perl
# File: splitter

# Typical passwd line:
# bhi:x:200:1:bhi:/home/bhi:/bin/ksh

@ARGV != 1 && die "Usage: splitter id\n";
open (PASSWD, "/etc/passwd");
while (<PASSWD>) {
   if (/^$ARGV[0]/) {
      ($name, $passwd, $uid, $gid, $comment, $dir, $shell) = split(':');
      print "$name $uid $dir\n";
   }
}
