|
adressen sammeln
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);
__________________
میں کانچ کھا سکتا ہوں اور مجھے تکلیف نہیں ہوتی.
நான் கண்ணாடி சாப்பிடுவேன், அதனால் எனக்கு ஒரு கேடும் வராது
Geändert von #!/usr/bin/beer (10.12.2003 um 22:47 Uhr).
|
