Erfahrungen mit IMAP? - #37669 (Netzwerkprogrammierung und Netzwerke mit Perl)

J-jayz-Z

2005-06-17 11:47

User since
2005-04-13
625 Artikel
BenutzerIn

Hmm, das sieht gut aus, thx! ! !
Aber eine Bitte hätte ich noch. Könntest du mir vielleicht die folgenden Zeilen erklären?

Code: (dl )

for my $folder($imap->messages()){
   my $hashref = $imap->parse_headers($folder,"From");
   my @from_addresses = Mail::Address->parse($hashref->{From}->[0]);
   my $address = $from_addresses[0]->address();
   push(@mail_addresses,$address);
 }
 return \@mail_addresses;

Da hab ich die Funktionsweise von parse_headers nicht ganz verstanden.
In der CPAN Doku steht nur als erstes Argument 1 drinne. Wieso bei dir $folder?
Was bewirkt das?
Also die Zeile extrahiert wohl den From Bereich aus dem Mail Header, oder?

Code: (dl )

my $hashref = $imap->parse_headers($folder,"From");

Was macht dann aber diese Zeile hier:

Code: (dl )

my @from_addresses = Mail::Address->parse($hashref->{From}->[0]);

Und das versteh ich auch nicht ganz:

Code: (dl )

my $address = $from_addresses[0]->address();

Könntest du mir das plz erklären???
Thx!

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de