Is this script safe?
- From: dermot@xxxxxxxxxxxxxxxx (Dermot Paikkos)
- Date: Thu, 27 Oct 2005 11:07:22 +0100
Hi,
I wanted a script that would rename files from lower to upper case. I
have something but I am a bit worried about going live with it as I
can imagine there is plenty of room for error and I really don't want
to knacker my filesystem.
Could I get any comments of suggestion on what I have. I want
something safe/secure.
I am not sure about what would happen if it was passed more than one
argument. Should I allow more than one argument?
Are the any gotcha's to watch out for?
Thanx,
Dp.
=============== upper.pl===============
#!/usr/bin/perl -Tw
# upper.pl
# Upper case all lowercase file in a given directory.
use File::Copy;
use strict;
my $dir = shift;
my $found = 0;
opendir(DIR,$dir) or die "Can't open $dir: $!\n";
foreach my $name (sort grep !/^\./, readdir DIR) { # Credit Randal L.
Schwartz
if ($name =~ /[a-z]/) { # Look for lc file. Wot about
files
# with numbers??
++$found;
if ($dir !~ /\/$/) { # Add a slash if there is'nt
one
$dir = "$dir"."/";
}
(my $new = $name) =~ tr/[a-z]/[A-Z]/; # trans the
name
$name = "$dir"."$name";
$new = "$dir"."$new";
#mv("$name","$new") or die "Can't upper $name: $!\n";
print "$name -> $new\n";
}
}
print "Found $found lowercase files\n"
.
- Follow-Ups:
- Module
- From: Swayam Panda
- Re: Is this script safe?
- From: John W. Krahn
- Re: Is this script safe?
- From: John Doe
- Re: Is this script safe?
- From: Paul Lalli
- Is this script safe?
- From: Mulander
- Module
- Prev by Date: Re: How to decode raw G3 data to plain txt file
- Next by Date: Perl - Add env,.variable?
- Previous by thread: How to decode raw G3 data to plain txt file
- Next by thread: Is this script safe?
- Index(es):
Relevant Pages
|
|
