It's me again, still won't work. Here is the whole script:
Again, any help would be great.
Thanks.
chdir "/u131/tmp" or die $!;
opendir(HERE, '.');
@AllFiles = readdir(HERE);
foreach $Name (@AllFiles) {
if (-f $Name) {next}
if ((-d $Name) and ($Name =~ /^[A-Z]+$/)) {rmdir $Name
Hello Chris,
Tuesday, June 26, 2001, Porter, Chris <[EMAIL PROTECTED]> wrote:
PC> It's me again, still won't work. Here is the whole script:
PC> Again, any help would be great.
Well, script works correct now.
May be you try to rmdir not empty subdirs?
c:\>perldoc -f rmdir
rmdir FILENAME
-Original Message-
From: Porter, Chris
Sent: Wednesday, June 27, 2001 9:21 AM
To: 'Maxim Berlin'
Subject: RE: FW: rmdir
Hi,
It's working great. Thank you. But one more thing, it's removing all the
empty directories but what about directories with files in them.
> PC> chdir "/u131/tmp" or die $!;
> PC> opendir(HERE, '.');
> PC> @AllFiles = readdir(HERE);
> PC> foreach $Name (@AllFiles) {
> PC>if (-f $Name) {next}
> PC>if ((-d $Name) and ($Name =~ /^[A-Z]+$/)) {rmdir $Name}
> PC>if ((-d $Name)) {print "$Name\n"}
> PC>}
On Wed, Jun 27, 2001 at 03:51:43PM -0500, Me wrote:
> Basically, you have to write a sub that does the
> following sort of thing (ignoring your wrinkle that
> you don't want to delete all the files in the initial
> directory):
Or you could use File::Path::rmtree. I'm surprised no one has given t
EMAIL PROTECTED]
Subject: Re: FW: rmdir
On Wed, Jun 27, 2001 at 03:51:43PM -0500, Me wrote:
> Basically, you have to write a sub that does the
> following sort of thing (ignoring your wrinkle that
> you don't want to delete all the files in the initial
> directory):
Or you could
On Thu, Jun 28, 2001 at 09:49:32AM -0400, Porter, Chris wrote:
> Still unsure how to approach. Very new to perl and I don't want to screw
> this up. Any input from you would be great. Thank you.
>
> -Original Message-
> From: Michael Fowler [mailto:[EMAIL PROTECTED]]
>
> Or you could u
> On Thu, Jun 28, 2001 at 09:49:32AM -0400, Porter, Chris wrote:
> > Still unsure how to approach.
> > Or you could use File::Path::rmtree. I'm surprised no one has given
this
> > answer yet.
And, in case it makes you more comfortable with doing
this in any particular way, I wholeheartedly reco
Please remove me from the mailing list.
Thank you.
Chris
-Original Message-
From: Michael Fowler [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, June 27, 2001 5:27 PM
To: Me
Cc: Porter, Chris; [EMAIL PROTECTED]
Subject: Re: FW: rmdir
On Wed, Jun 27, 2001 at 03:51:43PM -0500, Me wrote
> From: Michael Fowler [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, June 27, 2001 5:27 PM
> To: Me
> Cc: Porter, Chris; [EMAIL PROTECTED]
> Subject: Re: FW: rmdir
>
> On Wed, Jun 27, 2001 at 03:51:43PM -0500, Me wrote:
> > Basically, you have to write a sub that does the
>
10 matches
Mail list logo