scripts/shortcuts/run-there.pl

#!/usr/bin/perl

use strict;
use warnings;


use Data::Dumper;


my $where = shift;
print "chdir to: $where", "\n";
chdir $where;

my $args = [];
while (my $arg = shift) { push @$args, $arg; }
foreach my $arg ( @$args ) {
  print "running:  $arg", "\n";
  print qx( $arg );
}

1;
1	#!/usr/bin/perl
2
3	use strict;
4	use warnings;
5
6
7	use Data::Dumper;
8
9
10	my $where = shift;
11	print "chdir to: $where", "\n";
12	chdir $where;
13
14	my $args = [];
15	while (my $arg = shift) { push @$args, $arg; }
16	foreach my $arg ( @$args ) {
17	print "running: $arg", "\n";
18	print qx( $arg );
19	}
20
21	1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26