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

Wlet

2006-05-24 17:52

User since
2006-05-24
15 Artikel
BenutzerIn
[default_avatar]

Hallo,

ich bin recht neu was Perl angeht, und bitte daher um Entschuldigung, wenn ich eine recht triviale Frage stelle:

Ich habe eine Array-Variable, die ein String-Element folgender Form hat:

Code: (dl )

"To: [EMAIL=termin@tor.example]termin@tor.example[/EMAIL], Hans Meier <hans@meier.example>, [EMAIL=foo@bar.example]foo@bar.example[/EMAIL]"

Also die typische To:-Zeile einer E-Mail.

Nun möchte ich die Zeile nach "To: " in ein Array packen, sodass:

Code: (dl )

1
2
3

$adressen[0] = [EMAIL=termin@tor.example]termin@tor.example[/EMAIL];
$adressen[1] = Hans Meier <hans@meier.example>;
$adressen[2] = [EMAIL=foo@bar.example]foo@bar.example[/EMAIL];

Irgendwie bekomme ich das aber nicht hin.

folgende Code habe ich bis jetzt:

Code: (dl )

#@mail beinhaltet zeilenweise die Mail incl. Header
foreach my $line (@mail)
{
  if ($line=~/^To:/)
  {
    $to = $line =~ m/(^To: .*)/si;
   $File::Log::log->msg(4, "To Adressen: $to\n");
  }
}

Aber schon hier haperts. in $to habe ich eine "1" drinstehen.

Wer kann mir helfen?

cu

Wlet

edit pq: email-adressen nach RFC 2606 geändert\n\n