Community  »  Perl: Allgemeines Forum

string aus array in datei kopieren	Seitenanfang
Hallo, ich komme bei meinem programm nicht weiter, vielleicht kann mir jemand helfen. ich habe ein array @mail, dort stehen in jedem element eine zeile in der art: blablablalblalblalb <neu@test.de>; jetzt will ich die email-adresse aus jeder dieser zeilen in eine datei schreiben (ggf. doppelte ausführungen nur 1mal schreiben) hab schon versucht mit substr zurechtzukommen, da ich aber ein blutiger anfänger bin komm ich leider nicht auf das gewünschte ergebnis. hat jemand einen tip für mich oder die exakte syntax damit ich nur den bereich mit der emailadresse speichern kann? mfg Chris Datum: 25.04.2006-14:18
re: string aus array in datei kopieren	Seitenanfang
Versuch es mal mit einer Regular expression: #/usr/bin/perl use Data::Dumper; use strict; my @arr = ('asdfaea <test@mail.com>', 'asdfaea <test22@mail.com>', ); my @res = map {/.*<(.*)>.*/; $1} @arr; print Dumper(\@res); # Jetzt noch datei öffnen und @res reinschreiben! /chris perldoc perlre Datum: 25.04.2006-21:49