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);
|
