root / trunk / code / projects / traffic_navigation / update_linefollow.pl @ 1934
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 |