http://qs321.pair.com?node_id=661100


in reply to Full path to the current file?

File::Spec, File::Basename 
use File::Spec;
use File::Basename;
my $f = '../blah.txt';
my $dir = dirname( File::Spec->rel2abs($f) );

[download]

In Section Seekers of Perl Wisdom