🚀 go-pugleaf

On 15 Lip, 15:04, "Tomasz \"rocku\" K." <ro...@no.spam> wrote:
> 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.

Wygląda na to, że działa :)

Dzięki, pozdrowienia.