in reply to Re^2: How to best filter/direct data based on input structure?
in thread How to best filter/direct data based on input structure?

You're most welcome, Chris! Am glad it worked for you.

My mind sometimes has a hard time sorting out the easy stuff -- it tends to make it really complicated.

Well, then, we have one more thing in common--besides Perl...

  • Comment on Re^3: How to best filter/direct data based on input structure?

Replies are listed 'Best First'.
Re^4: How to best filter/direct data based on input structure?
by taint (Chaplain) on Nov 02, 2013 at 04:42 UTC
    LOL! That's refreshing to hear. I'm glad to know I'm not the only one. :)

    --Chris

    #!/usr/bin/perl -Tw
use perl::always;
my $perl_version = "5.12.5";
print $perl_version;
[reply]
      FWIW for other onlookers that this thread might attract...
      It should be noted that, in order filter out only valid IP addresses;
      one needs to modify the RE above: 
      # FROM
my $results = ( $input =~ /$RE{net}{IPv4}/ or is_domain($input) ) ? $i
+nput : $form;

# TO
my $results = ( $input =~ /^$RE{net}{IPv4}$/ or is_domain($input) ) ? 
+$input : $form;

      [download]
      Take note of the additional anchor(s) in the second line.
      Difference being; in the first line, the filter is an RE for any-and-all-digits && only-digits-3-or-less-in-length. While the second filters for: <=3-in-length && <=255-in-size.

      HTH

      --Chris

      #!/usr/bin/perl -Tw
use perl::always;
my $perl_version = "5.12.5";
print $perl_version;
[reply]
[d/l]

In Section Seekers of Perl Wisdom