How to get a password from a file?

Question

Perl

I use cmus player and libre.fm service. For scrobbling, I use the post-fm script . I also store my configs, including this script, in a public repository, so I would like to put my password in a separate file. I have tried the following construct:

open my $pass_file, 'password.lst';
my $pass = <$pass_file>;
close $pass_file;

# Globals. {{{
our %rc = (
        ...
  password => $pass,
        ...
);

For some reason this doesn't work, even though print "$rc{password}" returns the correct (seemingly) password to the terminal.
CHADNT?

Answer 1

In general, the problem was in the relative path of the file.

Answer 2

It is possible that line breaks are slipped into the password:

sub trim($) {
    my $t = shift;

    $t =~ s{^\s+}{}g;
    $t =~ s{\s+$}{}g;

    return $t;
}

$pass = trim $pass;