Re^2: identifying dns zone filename

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

Comment on Re^2: identifying dns zone filename Download Code

Replies are listed 'Best First'.
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]