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	root	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