root / trunk / code / projects / traffic_navigation / update_linefollow.pl @ 1937
History | View | Annotate | Download (267 Bytes)
| 1 | 1928 | josephle | #!/usr/bin/perl -W |
|---|---|---|---|
| 2 | |||
| 3 | my $line; |
||
| 4 | |||
| 5 | $line = `pwd`; |
||
| 6 | if($line =~ /linefollowing/igs) {
|
||
| 7 | print "Cannot modify linefollow code from linefollow\n"; |
||
| 8 | 1929 | josephle | } else {
|
| 9 | `rm lineFollow.*`; |
||
| 10 | 1934 | josephle | `rm lineDrive.*`; |
| 11 | 1929 | josephle | `cp ../linefollowing/lineFollow.* .`; |
| 12 | `cp ../linefollowing/lineDrive.* .`; |
||
| 13 | } |
||
| 14 | 1928 | josephle |