Dateien durchsuchen

[Robert]

Hi Leute,

Ich suche ein Programm unter windows welches mir aus einer Vielzahl von dateien (txt) alle mail Adressen raussucht (also z.b. auch eine Suchprogramm was nach bestimmten strings sucht) ...

Jemand eine Idee ?

Viele Grüße
Robert

[#!/usr/bin/beer]

kling wie ein fall für agent ransack.

[Robert]

Hmm...

Also er macht das zwar, aber er soll mir eben die Ergebnisse also die mail Adressen dann alle in eine Datei oder ähnliches ausgeben.

Damit ich diese mails in eine DB oder so schreiben kann....

Das geht damit irgendwie nicht

[#!/usr/bin/beer]

auch auf die gefahr hin dass mir sat und sonders jetzt alle perl anhänger die scheiben kaputtwerfen hier ein schneller, seeeeeeehr schmutziger perl hack


#!/usr/local/bin/perl -w

###########################################
# hier wird das startverzeichnis festgelegt, ab dem gesucht werden soll.
$startverzeichnis= 'D:\tools\Perl';
# name der ergebnisdatei, in die die gefundenen adresen geschrieben werden sollen
# sie wird im verzeichnis, in der diese perl-datei gespeichert ist, erstellt
$schreibdatei = 'adressen.txt';
#
#$erweiterungen = '(txt|html|pm|pl|plx|cgi)';
#
###########################################

open(SCHREIBDATEI,">>$schreibdatei") || die "Fehler: $! !!";
treat_dir($startverzeichnis);

###########################################
sub treat_dir($)
###########################################
{
my($verzeichnis)=shift;
opendir(DIR,$verzeichnis);
my @files = sort readdir(DIR);
closedir(DIR);
my $no;
for ($no=0; $no < @files; ++$no){
if ($files[$no] ne '.' && $files[$no] ne '..'&& $files[$no] ne $schreibdatei ){
my $nm = "$verzeichnis/$files[$no]";
if (-d "$nm"){
treat_dir("$nm");
}
else{
if ($nm=~ /(\w+?\.(txt|html?))/){
extract_adresse($nm);
}
}
}
}
}

###########################################
sub extract_adresse()
###########################################
{
my($datei) = shift;
print "durchsuche\: $datei\n";
open(LESEDATEI,"<$datei");
while($zeile=<LESEDATEI>){
if ($zeile =~m/([A-Za-z0-9_.-]+@([A-Za-z0-9_]+\.)+[A-Za-z]{2,4})/gi){
print SCHREIBDATEI "$1\n";
print "\!gefunden\: $1\n";
}
}
}
close(SCHREIBDATEI);

[Robert]

hmm...
Also mir Perl habe ich ja noch nie gearbeitet ...
Gibt es sowas wie einen Perl Interpreter für windows ?

Ich habe doch nur blödes windows ...

hmm..
oder ich spiele die dateien auf einen Webserver und lasse das script dort laufen ?

[H3ck|0]

Versuchs mal mit Active Perl. Darüber haben wir früher auf LANs auch CS Statistiken (Psychostats) auf unserm Windoof Dedicated Server ausgewertet und per Apache Server verteilt.

http://www.activestate.com/Products/...ctivePerl&_x=1

[#!/usr/bin/beer]

guckst du hier !.
nix perl, aber shareware

[Peter Kalks]

Hi Robert,

hier sind einige Adressen (Freeware).

http://www.freewarepage.de/download/21.shtml

http://www.freewarepage.de/download/2518.shtml

http://www.freewarepage.de/download/2628.shtml

Auf Freewarepage wirst Du wahrscheinlich noch mehr finden.

Gruss...
Pitter