Revision 1962
added grapher script
trunk/code/projects/traffic_navigation/update_linefollow.pl | ||
---|---|---|
1 | 1 |
#!/usr/bin/perl -W |
2 | 2 |
|
3 | 3 |
my $line; |
4 |
my $line2; |
|
4 | 5 |
|
5 | 6 |
$line = `pwd`; |
6 | 7 |
if($line =~ /linefollowing/igs) { |
... | ... | |
12 | 13 |
`cp ../linefollowing/lineDrive.* .`; |
13 | 14 |
} |
14 | 15 |
|
15 |
|
|
16 |
if($line =~ /traffic_navigation/igs) { |
|
17 |
while(</*>) { |
|
18 |
if(/(.*?test)\.c/) { |
|
19 |
`mv $1.c $1.bak`; |
|
20 |
} |
|
21 |
} |
|
22 |
} |
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 |
|
|
0 | 12 |
Also available in: Unified diff