Perl HELP!

[khlee]

how do i check if /blah/1/2/3/ exists in the current directory?

thanks!

 

[w0rmh0l3]

Is that literally how the filename looks?

 

[Barnaby W. Füi]

Well, err, that's an absolute filename, so it wouldn't really be in the current directory. I don't know perl really, but since it's a bastardized stew of shell syntax plus everything else, it should be this (which I got from man 1 test):

if(-f some_path) {
# it exists
}

 

[khlee]

Originally posted by: w0rmh0l3
Is that literally how the filename looks?

its a directory
i want to check if some directory has been created

 

[Barnaby W. Füi]

Then use -d instead of -f

 

[khlee]

hmm woldnt it be easier to open or die("error-not created")

 

[Barnaby W. Füi]

Well first of all, I doubt you can open a directory (but I don't know perl, so who knows). Even if it were a file, a failed opening doesn't necessarily tell you anything about the file existing - which is what you asked for. A failed open() could result from a few things.

 

[stndn]

if (-d $dirname)
{
# directory exists
}

you could open directory (use opendir), but unless you're going to access it, it's no use.
plus, opendir() may fail even if it exists if you have no permission to access it

 

[notfred]

if(-d "name"){
# Exists and is a directory
}

if(-f "name"){
# Exists and is a file
}

opendir HANDLE, "name"; # Opens the directory with handle "HANDLE"
closedir HANDLE; # Closes the thing from the previous line

File tests
Directory functions (and others)