summaryrefslogtreecommitdiffstats
path: root/tools/ArtChecker/summaryall.pl
blob: e69e1314c1251fa77aaabd414a3c54c504a3fb61 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#!/usr/bin/perl

$filename=@ARGV[0];

############################################################################## 
#	MAIN
##############################################################################

#open file
open(FILE_HANDLE,$filename) || die "Could not open file ERROR: $filename!";


#while not EOF and read in string
while (<FILE_HANDLE>)
{
	$string = $_;
	chop($string);
	#print $string;	
	@todo =("artchecker ",$string);
	system (@todo) # == 0 or  die "Failed to Execute Artchecker Command !\n";
}

close(FILE_HANDLE);