retrive data from a file

[Anon]

Hi!
I want to retrive data from my file, the file contains some DNS records like this:
$TTL 86400
$ORIGIN com.
ggggggghhhhhhhh IN SOA dns.domain.net. hostmaster.domain.net. (
200017306 86000 7200 3600000 600 )
IN NS dns.domain.net.
IN NS dns2.domain.net.

            IN      A       210.123.3.4
            IN      MX      10 mail.ggggggghhhhhhhh.com.

$ORIGIN ggggggghhhhhhhh.com.
mail IN A 210.123.3.4
ftp IN A 210.123.3.4
www IN A 210.123.3.4

======================
I want:
$domain= IP of Domain
$mail= IP of mail
$ftp= IP of ftp

What should I do ?

Thanks.

[Anon]

Try this. I'm not sure if the regexes will match with ereg - I normally use preg, but most people here seem to use ereg more often...:🤷:
This assumes one domain per file. I can modify it if there's more than one domain per file.

$fh = fopen("filename", "r");
while($fin = fgets($fh, 2048)) {
if(ereg("^{IN\sA\s((\d{1,3}.){3}\d{1,3})",} $fin, $reg))
$domain = $reg[1];
elseif(ereg("^{mail\sIN\sA\s((\d{1,3}.){3}\d{1,3})",} $fin, $reg))
$mail = $reg[1];
elseif(ereg("^{ftp\sIN\sA\s((\d{1,3}.){3}\d{1,3})",} $fin, $reg))
$ftp = $reg[1];
}
fclose($fh);