-
Notifications
You must be signed in to change notification settings - Fork 39
Expand file tree
/
Copy pathexecute_perl_scripts.pl
More file actions
66 lines (47 loc) · 1.3 KB
/
execute_perl_scripts.pl
File metadata and controls
66 lines (47 loc) · 1.3 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
#!/usr/bin/perl
# Author: Trizen
# Date: 25 June 2024
# https://github.com/trizen
# Execute a given list of Perl scripts given as command-line arguments.
use 5.036;
use File::Basename qw(basename);
use Getopt::Long qw(GetOptions);
my $arg = undef;
my $regex = undef;
sub usage($exit_code = 0) {
print <<"EOT";
usage: $0 [options] [Perl scripts]
options:
--regex=s : execute scripts matching a given regex (default: None)
--arg=s : an argument to be passed to each script (default: None)
--help : print this message and exit
examples:
perl $0 --arg=42 *.pl
perl $0 --arg=42 --regex='^\\w+\.pl\\z'
EOT
exit($exit_code);
}
GetOptions(
'arg=s' => \$arg,
'regex=s' => \$regex,
'h|help' => sub { usage(0) },
)
or die("Error in command line arguments\n");
my @files = @ARGV;
if (defined($regex)) {
my $re = qr{$regex};
foreach my $file (glob("*")) {
if (basename($file) =~ $re) {
push @files, $file;
}
}
}
@files || usage(2);
foreach my $script (@files) {
if (not -f $script) {
warn "[!] Not a file: $script\n. Skipping...";
}
warn ":: Executing: $script\n";
system($^X, $script, (defined($arg) ? $arg : ()));
$? == 0 or die "[!] Stopping... Exit code: $?\n";
}