> 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
>
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
> 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
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
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 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
> 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>}
-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.
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
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
10 matches
Mail list logo