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");
}
}
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
Trackbacks
Trackback specific URI for this entry
No Trackbacks
Comments
Display comments as
(Linear | Threaded)
Das geht auch was kuerzer (und es gibt auch TLDs mit 4 Buchstaben)
Try this:
cat foo.mail|perl -nle'if(m/(\w[-.\w]+\@[-.\w]+.\w{2,4})/){print$1}'
