Why does my Perl script fail on “~/” but works with “$ENV{HOME}”?

Question

I have been using this script of mine FOREVER and I have always been using \"~/\" to expand my home directory. I get into work today and it stopped working:

#if          


        

Answer 1

The tilde expansion is not done by perl, it is done by the shell.

You should instead use:

 use File::Spec::Functions qw( catfile );
 ...
 my $fn = catfile $ENV{HOME}, 'tmp', "find_$strings[0].rslt";
 ...
 open my $out, '>', $fn or die "Cannot open '$fn': $!";