Chris,
You might want to start by reading the documentation for 'opendir' (perldoc -f
opendir) or view it online here:
http://www.perl.com/pub/doc/manual/html/pod/perlfunc/opendir.html
Now, you can then use a simple regexp (perldoc perlre) to see if you have any
all-uppercase characters in your file names
something like
if (/^[A-Z]+$/) {
do_your_stuff;
}
Try it out, see how far you get and feel free to ask if you get stuck!
Kind regards,
Jos Boumans
"Porter, Chris" wrote:
> Any ideas???????
>
> > -----Original Message-----
> > From: Porter, Chris
> > Sent: Tuesday, May 15, 2001 9:20 AM
> > To: '[EMAIL PROTECTED]'
> > Subject: delete files
> >
> > Hello,
> >
> > How are you? Sorry to bother. I am very new to perl so please bear with
> > me. I want to create a script that deletes uppercase words from a
> > directory using the unlink command. Probably a very simple thing to do
> > but unsure how to approach. I would like this script to be run once a day
> > (I'll take care of that by putting in the crontab). This particular
> > directory fills up with un-needed print files that have been getting
> > removed manually for a while. I want to simplify that. I hope I
> > described my problem okay. Actually, the files that are being deleted are
> > users last names, if that helps any.
> >
> > Thank you very much in advance. I hope you can help.
> >
> > Sincerely,
> >
> > Chris Porter
> > [EMAIL PROTECTED]