Hämta text ur textfiler

Jag skulle vilja ha ett litet script som hämtar rad 7 (det är en mailadress) ur varje fil med filändelsen .txt i samma katalog som scriptfilen.

Om någon har lust att visa hur man gör så vore jag tacksam..

Om denne någon visar sig vara överambitiös så skulle jag vilja skicka ett mail till varje adress. ;)

Tacksam för svar..

------------------
http://www.niklasson.net/

hallå?

------------------
http://www.niklasson.net/

Hallå hallå ;)

$directory='/path/to/directory';
opendir(DIR,$directory);
foreach $file (grep {/.txt$/} readdir(DIR)){
	open(DATA,$directory.'/'.$file);
	@file=<DATA>;
	chomp $file[6];
	push (@mailadresses,$file[6]);
	close(DATA);
}
closedir(DIR);

Nu finns mailadresserna sparade i hashen @mailadresses. Hur du sedan mailar dessa beror på vad du har tillgång till för funktioner på din server, men det vill jag mig minnas att du redan har script för?

------------------
/ J

hej Johan! :)

Det har jag säkert, men det var längesen jag sysslade med Perl-script nu. Använder mest PHP, men tyckte denna lilla funktion lämpade sig bäst med ett Perlscript..

En MAIL-funktion har jag ju nånstans, men jag antar att det behövs en foreach eller nåt för att loopa funktionen :q

------------------
http://www.niklasson.net/

Ja, det är rätt.

foreach $thismail (@mailadresses){
   # Här loopas alla mailadresser och hamnar i variabeln $thismail.
}

------------------
/ J

Tack för hjälpen.. :D

(Har postat en likadan fråga i PHP-forumet för att lära mig lite textfilshantering)

[Redigerat av Niklasson den 10 aug 2001]