#!/usr/bin/perl -w

$filein = $ARGV[0];
$fileout = $ARGV[1];

open(IN, $filein)|| die "Need input and output file names as arguments";
@Lmatrix = <IN>;
close(IN);

foreach(@Lmatrix) {
        chomp($_);
     #  print "$_\n";
}

@array =();
foreach $data(@Lmatrix) {
      chomp($data);
      $data =~s/\s+$//g;
      $data =~s/^\s+//g;

      $docCtr++;
        print "doc $docCtr\n";
        $locn = $docCtr/10;
        $vertCtr++;
        $vertices = "$docCtr \"doc$docCtr\" $locn $locn $locn ic Green bc Brown";
#       print "$vertices\n";
        push(@vertices, $vertices);

      $lenrow = length($data);
      if ($lenrow eq 4) {
                $arc = "$docCtr $docCtr $data"; 
            push(@arcs, $arc);
        }else {
            @array = split("\\s", $data);
            for($i=1; $i<=$docCtr; $i++) {
                        $arc = "$i $docCtr $array[$i-1]";
                  push(@arcs, $arc);
                  $arc = "";
            }
        }
}

print "PRINTING\n";

open(OUT, ">$fileout");
print OUT"*Vertices $vertCtr\n";
foreach(@vertices){
        print OUT"$_\n";        
}
print OUT"*Arcs\n";
foreach(@arcs) {
        print OUT"$_\n";
}
close(OUT);

exit(0);