#!/usr/bin/perl -w
if ($ARGV[0] eq "") {print "Example: perl dump.pl Clients.sql"; exit;}
open (f1,$ARGV[0]) || die $!;
open (f2,">log") ||die $!;
if ($ARGV[1] eq "") {
  $s=<f1>;
  $s=~s/\'//g;
  @temp=split(",",$s);
  for ($i=0;$i<$#temp;$i++){
     print "$i-$temp[$i]\n"; } #for
   print "\nExample: perl dump.pl Clients.sql 4-6-15-20";
   exit;
  } #if
@temp = split("-",$ARGV[1]);
while (<f1>) {s/\'//g; #s/\s\'//g;
  (@temp2)=(split(",",$_))[@temp];
   print f2 join(":",@temp2). "\n";
 }  #while
close(f1);
close(f2);

#!/usr/bin/perl -w
if ($ARGV[0] eq "") {print 'sort.pl filename'; exit;}
open (f1,$ARGV[0]) || die $!;
open (f3,">sorted") ||die $!;
%seen=();
@uniq=grep {! $seen{$_} ++ } <f1>;
print f3 sort @uniq;
close(f1);
close(f3);