Revision 1962 trunk/code/projects/traffic_navigation/update_linefollow.pl

View differences:

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