Revision 1962
added grapher script
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 |
} |
Also available in: Unified diff