blob: 9cf59e4586d89d447ac0cb255216e29fad5455e6 (
plain)
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
|
#!/usr/bin/perl
my $DIR, $PREFIX;
my $BIN_MV = "/bin/mv";
usage() unless scalar(@ARGV);
foreach my $arg (@ARGV)
{
if (-d $arg && ! $DIR)
{
$DIR = $arg;
}
else
{
$PREFIX = $arg;
}
}
$DIR ||= ".";
opendir DIR, $DIR || die $!;
my @files = ();
while (my $file = readdir DIR)
{
next if $file =~ /^\./;
push @files, $file;
}
closedir DIR;
foreach my $file (@files)
{
system($BIN_MV, "$DIR/$file", "$DIR/$PREFIX-$file");
}
sub usage
{
print "$ ./.prefix.pl DIR/ prefix\n";
}
|
