Как забрать пароль из файла?

Question

[bergentroll]

Я пользуюсь плеером cmus и сервисом libre.fm. Для скробблинга я использую скрипт post-fm. Так же я храню свои конфиги, включая этот скрипт, в публичном репозитории, поэтому я бы хотел вынести свой пароль в отдельный файл. Я пробовал следующую конструкцию:

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

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

Почему-то это не работает, хотя print "$rc{password}" возвращает в терминал корректный (на вид) пароль.

ЧЯДНТ?

Answer 1

[bergentroll]

В общем, проблема была в относительном пути файла.

Answer 2

[targumon]

Возможно к паролю подсовываются переносы строк:

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

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

    return $t;
}

$pass = trim $pass;