Re: identifying dns zone filename

Use the on_error parameter:

foreach $filename (@files)
{
  $rr = Net::DNS::ZoneFile::Fast::parse(
    file=>$filename,
    on_error => sub {print "Error in $filename\n";}
  );
}
[download]

Comment on Re: identifying dns zone filename Download Code

Replies are listed 'Best First'.
Re^2: identifying dns zone filename by papai (Novice) on Oct 23, 2009 at 12:20 UTC
Yes that will print the filename, however now I do not get the line number? I need both. I also tried `foreach $filename (@files) { $rr = Net::DNS::ZoneFile::Fast::parse( file=>$filename, on_error => sub {print "Error in $filename on line: $ln\n";} ); }` [download] but that didn't work	[reply] [d/l]
Re^3: identifying dns zone filename by keszler (Priest) on Oct 23, 2009 at 12:54 UTC
According to Net::DNS::ZoneFile::Fast: on_error An optional parameter, user-defined error handler. If specified, it must be a subroutine reference, which will be called on any error. This subroutine will be passed two parameters: a line number in the zone, where the error occurred, and the error description. So: `foreach $filename (@files) { $rr = Net::DNS::ZoneFile::Fast::parse( file=>$filename, on_error => sub { my ($ln,$desc) = @_; print "Error in $filename on line: $ln\n"; print "Description: $desc\n\n"; } ); }` [download]	[reply] [d/l]
Re^4: identifying dns zone filename by papai (Novice) on Oct 23, 2009 at 14:29 UTC
Thanks, works like a charm....	[reply]