roothausen

Entries tagged as perl

Email Adreesen extrahieren

14:42

Friday, May 2. 2008

Gestern hatte ein Bekannter von mir Probleme aus einer Textdatei oder Shell-Pipeline Email-Adressen zu extrahieren. Ich habe darauf hin ein kleines Perlscript dafuer angefertigt. Falls jemand so etwas brauchen kann, darf er es weiter verwenden.

#!/usr/bin/perl -w
use strict;
use IO::Handle;
my @linearr;
if ($ARGV[0]) {
my $infile = $ARGV[0];
open FILEIN, "< ", $infile or die $!;
@linearr = <FILEIN>;
close FILEIN;
} else {
@linearr = <STDIN>;
}
foreach my $line (@linearr) {
if ( $line =~ m/(\w[-.\w]+\@[-.\w]+\.\w{2,3})\W/) {
print("$1\n");
}
}

Man kann Script auf zwei Arten verwenden: Entweder man uebergibt eine Datei als Parameter "./emailscript.pl /pfad/zur/datei" oder man "piped" die Daten in das Script "cat /pfad/zur/datei | ./emailscript.pl".

Ich wuensche euch viel Spass damit

Posted by admin in computer | Comments (2) | Trackbacks (0)

Defined tags for this entry: linux&unix, opensource, perl, programming, regular expression, software

Related entries by tags:

(Page 1 of 1, totaling 1 entries)

«	February '12					»
Mo	Tu	We	Th	Fr	Sa	Su
		1	2	3	4	5
6	7	8	9	10	11	12
13	14	15	16	17	18	19
20	21	22	23	24	25	26
27	28	29

Entries tagged as perl

Entries tagged as perl

Email Adreesen extrahieren

Calendar

Quicksearch

Kategorien

Archiv

Feeds

Links

Tags

Lizenz