newrun-systest.pl from EmStar at Krugle
Show newrun-systest.pl syntax highlighted
#!/usr/bin/perl
my @explist = split('\n',`ls`);
my $item;
foreach $item (@explist) {
my @s = split('-', $item);
if (($s[0] eq "ar") && ($s[3] eq $s[4])) {
print("$s[3]\t$s[2]\t0\t0\t0\t20\t60\tOK\n");
}
}
See more files for this project here