Project

General

Profile

Revision 1962

added grapher script

View differences:

trunk/code/projects/traffic_navigation/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
}
trunk/code/projects/traffic_navigation/grapher.pl
1
#!/usr/bin/perl
2

  
3
my $ifh = "derp.txt";
4
my $ofh = "graph.dot";
5

  
6
open $ifh, '<', $read_file or die ("WTF BEN!");
7

  
8
open $ofh, '>', $write_file or die ("Herp Derp");
9

  
10

  
11

  
0 12

  

Also available in: Unified diff