13 lines
182 B
Perl
13 lines
182 B
Perl
#!/usr/bin/perl
|
|
|
|
opendir(SCRIPTLINT, $ARGV[0]);
|
|
@lints = readdir(SCRIPTLINT);
|
|
|
|
foreach $lint (@lints)
|
|
{
|
|
if($lint =~ /.pl/)
|
|
{
|
|
system("perl $ARGV[0]/$lint $ARGV[1]");
|
|
}
|
|
}
|