Change to previous directory with glob

[widevision7]

I have a script where I am using glob to get a list of folders that end in "*import", but I am trying to change my directory to the previous one.

Here is what I have:

@directories = glob("*import");
@directories = sort { $b <=> $a } @files;

I can't figure out how to make glob go back one directory. I am looking for something similiar to the Unix "cd .." command.

I have tried glob("../*import") and dozens of variations, but nothing works.

Thanks

[miller]

How I would do it:

use File::Spec::Functions qw(updir);
 
use strict;
use warnings;
 
my @files = do {
    local *PARENTDIR;
    opendir(PARENTDIR, updir) or die "Can't open dir: $!";
    grep {/import$/} readdir(PARENTDIR);
};
 
print "@files";
 

Alternatively, just use chdir.

- Miller

[widevision7]

I am an idiot.

I was using this code (that I had used earlier):

@files = glob("*import");
@files = sort { $b <=> $a } @files;

when I decided to change the word "files" to directory - and so I did this:

@directory = glob("*import");
@directory = sort { $b <=> $a } @files;

As you can see, I did not change the third "@files" on the sort line. Once I changed it to "@directory", it worked.

I guess that I should quit programming at 2:00 a.m. - after that, I am not thinking clearly....

Thanks for your help.

[numberwhun]

Nah, I don't think you should quit the 2am suicide programming session(s), in fact I tend to get some really good work done during those weeeee morning hours. Instead, I would crank up the ol' tea pot and start steeping some tea (or whatever your beverage of choice is). Although the only issues I have truly had during those times are when I wake up with drool on the keyboard and an imprint of the keys on my cheek. Yeah, then you know you were up too long!

Glad you found your issue!

Regards,

Jeff

[miller]

As you can see, I did not change the third "@files" on the sort line. Once I changed it to "@directory", it worked.

I don't know for sure, but I suspect that you are probably not including "use strict;" in your scripts. Or at least not this script. If you had, then once you changed the original my definition from "my @files" to "my @directory", all other instances of @files would no longer work and you would have been alerted to the error.

This is just a suspicion. But if it's true, then I strongly encourage you to change your script to include "use strict;" at the top. It would have saved you this headache, and will definitely save you future headaches.

- Miller