How can I make perl recognize paths with '~' ?

Question

Possible Duplicate:
How do I find a user's home directory in Perl?

I'm running Ubuntu.

Whenever I pass a Perl script a path that starts with ~ (e.g. ~/Documents/file.txt) it fails finding it. I must pass the canonical path (e.g. /home/dave/Documents/file.txt).

Why is that?

Can I make perl recognize ~ paths?

UPDATE

All the suggested solutions include changing the code in the scripts. I would like for a solution that would not involve any changes to the scripts themselves (since not all of them are mine). Perhaps something in the way bash works?

UPDATE 2 The updated version of the question was posted at SU.

Answer 1

Try to replace ~ with $ENV{HOME}

Answer 2

See this answer: http://stackoverflow.com/questions/1475357/how-do-i-find-a-users-home-directory-in-perl

Answer 3

You can pass the path to glob to get it expanded.

Answer 4

The glob function understands standard Unix file globbing.

my $file = glob('~/Documents/file.txt');

Answer 5

Use angle-quotes not double-quotes:

open(my $fh, "< :crlf :encoding(cp1252)",
              <~/Documents/file.txt>)
    || die "couldn't open Winblose text file ~/Documents/file.txt: $!";

The <xxx> iteration operator, which people usually think of as syntactic sugar for the readline function, instead calls the glob function if there are shell metachars in xxx, and tilde count as one of those.

You might prefer an open mode of <:encoding(Latin1). Just depends on the file.

Answer 6

For a reliable (and easy) cross-platform method, try File::HomeDir:

use File::HomeDir;
print File::HomeDir->my_home;

Answer 7

From Bruno's comment, you could do it this way:

$path =~ s/^~(\w*)/ ( getpwnam( $1 || $ENV{USER} ))[7] /e;

The e flag replaces the expression with the result of executing or evaluating the replace expression.