$ fp = fopen ( " myfile.dat " , " r " ) ;
if ( ! $ Fp ) sterven ( " Kon bestand niet openen ! " ) ) ; kopen van 2
Initialiseer een array om het e-mailadres verwijderen uit elke snaar slaan . Initialiseren andere array door te geven als een parameter voor het vastleggen van het e-mailadres van elke individuele lijn . Stel een variabele gelijk aan de reguliere expressie string voor bijpassende e-mailadressen. Typ bijvoorbeeld : .
$ Email = ' /^ [ A - Z0 - 9._ % + - ] + @ [ . A - Z0 - 9 - ] + \\ [ AZ ] { 2,6 } $ /i ' ;
$ adressen = array ( ) ;
$ wedstrijden = array ( ) ;
Doorloop elke regel in 3 het bestand totdat er geen gegevens meer . Typ bijvoorbeeld :
while ( $ lijn = fgets ( $ fp ) ) op {
4
Match de lijn naar het e- reguliere expressie filter met behulp van de preg_match functie . Een array om de functie om het e-mailadres afgestemd op index 0 krijgt . Typ bijvoorbeeld :
if ( preg_match ( $ email , $ lijn , $ wedstrijden ) {
5
Ophalen het e-mailadres van reeksindex 0 van de parameter matrix u voorbij . . Sla het e-mailadres door aan de meester e -array geïnitialiseerd u aan het begin van het programma toe te voegen Typ bijvoorbeeld :
array_push
( $ adressen , $ wedstrijden [ 0 ] ) ;
6
Match de string naar de reguliere expressie opnieuw met preg_replace en vervang de gevonden e-mailadres met nultekens om deze uit de string te verwijderen Typ bijvoorbeeld : .
preg_replace
( $ email , " " , $ . lijn ) ;
}
}
7
Sluit het bestand en print de lijst met e-mailadressen verwijderd Typ bijvoorbeeld :
fclose ( $ fp ) ;
print_r
( $ adressen ) ; ?
>