blob: 83ed95db2299b13713efd213f6e45c66e1a768e1 (
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," sum");
system (@todo) # == 0 or die "Failed to Execute Artchecker Command !\n";
}
close(FILE_HANDLE);
|
