File: extractNodeData.pl

package info (click to toggle)
radiant 2.7%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 1,048 kB
  • sloc: perl: 5,393; sh: 323; makefile: 35
file content (20 lines) | stat: -rwxr-xr-x 312 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
#!/usr/bin/env perl

while (my $line = <>)
{
	if ( $line =~ /<node/ )
	{
		my $name;
		my $magnitude;
		my $score;
		
		$line =~ /name=\"([^"]+)\"/;
		$name = $1;
		$line =~ /magnitude=\"([^"]+)\"/;
		$magnitude = $1;
		$line =~ /score=\"([^"]+)\"/;
		$score = $1;
		
		print "$name\t$magnitude\t$score\n";
	}
}