in reply to I humbly ask for your help with parsing

I can't get your code to run, and I don't think it's because I'm on a Windows system (but I could be wrong):

C:\Steve\Dev\PerlMonks\P-2013-10-30@1354-BaseDir>basedir.pl Global symbol "$lastdirectoryname" requires explicit package name at C:\Steve\Dev\PerlMonks\P-2013-10-30@1354-BaseDir\basedir.pl line 22. Execution of C:\Steve\Dev\PerlMonks\P-2013-10-30@1354-BaseDir\basedir. +pl aborted due to compilation errors.

Are you trying to extract the last directory name out of a full pathname? Example:

my $pathName = "/usr/tmp/booger/test.dat";
my $baseName = ExtractLastDir($pathName);
print "Result is $baseName\n";

And you would expect:

Result is booger

Is that your goal?

Replies are listed 'Best First'.
Re^2: I humbly ask for your help with parsing
by WxResearcher (Initiate) on Oct 30, 2013 at 20:22 UTC

    That is exactly my goal. Sorry I wasn't very clear. There are a series of dated subdirectories (i.e. "20120405") underneath the directory "METAR_files" that are searched for a string and printed when that string is found. I just need to take the directory that the script is found in and print it with the script. The path name is: /d2/aschwa/archive_project/METAR_data/ and the subdirectories are "20110101","20110102","20110103", etc. I want to get the subdirectory name. Thank you so much for your help.