🚀 go-pugleaf

W dniu 15.07.2010 13:19, jankes pisze:
> Witam, mam taki chyba dość dziwny przypadek:
>
> #! /usr/bin/perl
>
> use strict;
> use warnings;
> use Mail::POP3Client;
> use Mail::MboxParser::Mail;
>
> my $dir = "/usr/im/";
>
> # NIE DZIAŁA
> $/ = ";";
> open NAM, "email_info.txt" or die $!;
> my @namiary =<NAM>;
> my ($smtp_host, $pop_host, $user, $pass) = @namiary;
> chop $smtp_host; chop $pop_host; chop $user;
> close NAM;

Nie prościej tak (pomijając $/):

open NAM, "email_info.txt" or die $!;
chomp(my $namiary = <NAM>);
my ($smtp_host, $pop_host, $user, $pass) = split /;/, $namiary;
close NAM;

> # DZIAŁA
> #my $smtp_host = 'smtp.pl';
> #my $pop_host = 'pop3.pl';
> #my $user = 'user';
> #my $pass = 'password';
>
> print "$smtp_host, $pop_host, $user, $pass;\n";
> odbierz_email($dir);
>
> sub odbierz_email
> {
> my $pop = new Mail::POP3Client (USER     =>  $user,
>                                  PASSWORD =>  $pass,
>                                  HOST     =>  $pop_host);
>
> for my $i (1 .. $pop->Count)
> {
>      my $msg = Mail::MboxParser::Mail->new( [ $pop->Head($i) ],
>                                             [ $pop->Body($i) ]);
>      $msg->store_all_attachments( path =>  $_[0] );
>      $pop->Delete($i);
> }
> $pop->Close();
> }
>
> Plik w którym znajdują się namiary na serwer POP zawiera te informacje
> rozdzielone ; i są poprawne :) Zmienne przypisują się poprawnie, print
> "$smtp_host, $pop_host, $user, $pass;\n"; to potwierdza. Jednak
> połączenie z ich użyciem jest niemożliwe, dostaję błąd:
>
> Use of uninitialized value in pattern match (m//) at /usr/lib/perl5/
> site_perl/5.8.8/Mail/POP3Client.pm line 1029,<GEN0>  chunk 1.
>
> Z bezpośrednim przypisaniem zmiennych działa bez problemu. Co może być
> przyczyną ?
>
> Dzięki, pozdrowienia.


-- 
Pozdrawiam,
Tomasz "rocku" K.