Hi, Am 08.06.2003 (21:34) schrieb David Haller:
Aeh, was soll das? Willst du denn die gesamten Header ausgeben?
Nein. Über formail wird nur die From Zeile reingeschmissen. Ist Teil eines Makros für Mutt.
Erstens verwendest du 'my' faslch. Entweder:
my $var = ""; ## scalar = scalar
oder:
my ( $var ) = ( "" ); ## array = array
Das Perl Tutorial habe ich gerade aus meinen Bookmarks gekilled ;)
[...] if(/^From: /) { my $var = ""; unless (/\) { $var .= $_; } else { if(/\<([^>]+)/) { $var = $1; } } print $var; } [...]
Habe mich für eine gewandelte Version dieser Hilfestellung entschieden. (Da nur die From Zeile reingeschmissen wird, ist das äußere if nicht notwendig)i Muß korrigiert heißen: $var =~ s/^\s+|\s+$//g; Dann habe ich noch die Leerzeichen entfernt und that's it. Danke für die Hilfestellungen. Auch an Andreas. Ciao Sascha -- sa at programmers-world dot com http://www.livingit.de Boomarks online: http://www.mobile-bookmarks.info Soon available in english Mail geschrieben: Sonntag, den 08. Juni 2003 um 21:49