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