in reply to searching for strings

What do you do when the pattern you search for is at a boundary, taking either increment or decrement out of range? In your example above, you match near 'AAA30'. Do you only look for 'AAA30' and 'AAA31'? Do you also look for 'AAA29'? If so, the hash-key idea won't work, because you're not only changing the last character. You could do something like this for each of pattern: 
my ($pat, $char) = $pattern =~ m/(.*)(.)$/;
my $char_up = $char;
my $char_down = $char;

++$char_up unless ($char =~ m/[9Z]/i);
--$char_down unless ($char =~ m/[0A]/i);

my $search = qr/$pat$char|$pat$char_up|$pat$char_down/;
print $search;

[download]
How many patterns do you have anyway? How many lines do you search?

Replies are listed 'Best First'.
Re^2: searching for strings
by CountZero (Bishop) on Aug 06, 2007 at 15:21 UTC
    the -- decrement operator is not magical for non-digits.

    CountZero

    A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James

[reply]
[d/l]
      Sorry! How strange of Perl to be asymmetric! Why is "--" not as magical as "++"? This will work instead... 
      $char_up =~ tr/A-Z0-9/B-ZZ1-99/;
$char_down =~ tr/A-Z0-9/AA-Y00-8/;

      [download]
[reply]
[d/l]
        cauz if so it wouldn't be symmetric :)

        suppose you have "A00", if you -- you'll get "99" and then if you ++ you'll get "100"

        Oha

[reply]

In Section Seekers of Perl Wisdom