Revision 1963
Redoing grapher script...
trunk/code/projects/traffic_navigation/grapher.pl | ||
---|---|---|
1 |
#!/usr/bin/perl |
|
2 |
|
|
3 |
my $ifh = "derp.txt"; |
|
4 |
my $ofh = "graph.dot"; |
|
5 |
|
|
6 |
open $ifh, '<', $read_file or die ("WTF BEN!"); |
|
7 |
|
|
8 |
open $ofh, '>', $write_file or die ("Herp Derp"); |
|
9 |
|
|
10 |
|
|
11 |
|
|
12 | 0 |
Also available in: Unified diff