Esteemed Monks,

I am writing a quick script to analyze a bunch of files using substr and sometimes I see "substr outside of string." If this happens once, I'd like to skip the entire file. This is where I am having trouble.

Ideally, I would like to see this:

Checking file_a...
Checking file_b...
Skipping file_c... (due to the substr message)

Currently I see this:

Checking file_a...
Checking file_b...
substr outside of string at ./script_name.pl line 35, <$fh> line 1.
substr outside of string at ./script_name.pl line 35, <$fh> line 2.
substr outside of string at ./script_name.pl line 35, <$fh> line 3.
(and so on until the end of the file...)

My first approach was using an eval block with $@ until I discovered (through perldiag) that the substr message is a warning, not an error. The only way I recall being able to handle warnings is via %SIG--is this correct?

I then tried using $SIG{__WARN__} and I was able to suppress the warning; however, I cannot get it to skip the rest of the file.

The relevant code looks like this:

use warnings;
use strict;
use File::Find;
# $data_dir is determined.
$SIG{__WARN__} = sub {
  print "Skipping...\n";
  # skip the rest of the loop for the file.
}
sub find_process {
  # open each file that meets the naming criteria.
  # begin looping through the file.
  # attempt to access the substr.
  # skip this file if there was a substr warning and report it.
}
find(\&find_process, $data_dir);
[download]

Thank You.