Shell Programming and Scripting

$ head file?
==> file1 <==
1994
1995
1996
1997
1998
1999

==> file2 <==
1995, california, A3,B6
1999, vermont, A4,B9
$ join -t , -a 1 -o 1.1,2.2,2.3,2.4 file1 file2
1994,,,
1995, california, A3,B6
1996,,,
1997,,,
1998,,,
1999, vermont, A4,B9
$

#!/usr/bin/python
flag=0
for line in open("file1"):
    line = line.strip()
    for line2 in open("file2"):
        if line2.split(",")[0] == line:
            print line2.strip()
            flag=1
    if flag: 
        flag = 0
        continue
    else: print "%s,,," % line

# ./test.py
1994,,,
1995, california, A3,B6
1996,,,
1997,,,
1998,,,
1999, vermont, A4,B9

#! /opt/third-party/bin/perl

open(FILE, "<", "small") || die "Unable to open file small <$!>\n";

while(<FILE>) {
  chomp;
  $fileHash{$_} = $i++;
}

close(FILE);

open(FILE, "<", "index") || die "Unable to open file index <$!>\n";

while(<FILE>) {
  chomp;
  $set = 0;
  foreach my $v ( sort keys %fileHash ) {
    if ( $v =~ m/^$_/ ) {
      print $v . "\n";
      $set = 1;
      last;
    }
  }
  print "$_,,,\n" if ( $set == 0 );
}

close(FILE);

exit 0

 awk -F "," 'NR==FNR { 
			for(i=2;i<=NF;i++) a=a","$i 
			arr[$1]=a ; a="";next
		     }
		     {
		        length(arr[$1]) <=0 ? s = $1",,," : s = $1 "" arr[$1]
			print s	
		     } ' file2 file1

./test.sh
1994,,,
1995, california, A3,B6
1996,,,
1997,,,
1998,,,
1999, vermont, A4,B9