[NEWBEE] String nach Suchmuster in eine V.ariable - #66571 (Allgemeines zu Perl)

bloonix

2006-05-24 19:54

User since
2005-12-17
1615 Artikel
HausmeisterIn

[quote=Wlet,24.05.2006, 16:15]So gehts auch ;)[/quote]
Ne, so geht es halt nicht. Das ganze Konstrukt schaut etwas merkwürdig aus...

Code: (dl )

@recipients=split(/,/, $to);

steht ausserhalb der Schleife, also wird nur der letzte Treffer nach
@recipients gesplittet. Würde es in der Schleife stehen, dann würde
@recipients jedesmal überschrieben werden. Wenn du unbedingt auf
Arrays behaarst, dann eher so:

Code: (dl )

my @recipients;
foreach my $line (@mail) {
   next unless $line =~ /^To:\s*/;
   my $to = $';
   $File::Log::log->msg(4, "To Adressen: $to\n");
   push @recipients, [ split(/\s*,\s*/, $to) ];
}

Gruß,
opi

Edit: oder die push-Variante von Gwen und alle Adressen in einem Array.\n\n

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.