in reply to Re: Splitting 2 different patterns
in thread Splitting 2 different patterns

Perhaps a bit more "defensive": my @outputlist = $myint =~ m|(.+)-(.+)/(.+)/(.+)|;

Regards, Karl

«The Crux of the Biscuit is the Apostrophe»

Replies are listed 'Best First'.
Re^3: Splitting 2 different patterns
by AnomalousMonk (Archbishop) on Mar 17, 2015 at 12:18 UTC

    But  m|(.+)-(.+)/(.+)/(.+)| will also match  'xf-3/2/a' or even  '@-&-*&^-@#$/_)(/&^/%-$#?!' which seems less, not more, defensive.


    Give a man a fish:  <%-(-(-(-<

      It depends on what you're trying to defend: wrong data, or the maintainer?
      لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
      "...will also match 'xf-3/2/a' or even '@-&-*&^-@#$/_)(/&^/%-$#?!'"

      Sure, it will. But i have a strong faith in the good in people.

      But for peace in the monastry i eat humble pie - here the revised version (still 3 chars less to type):

      my @outputlist = $myint=~m|(\w+)-(\d+)/(\d+)/(\d+)|;

      Edit: Minor improvement of formatting.

      Best regards, Karl

      «The Crux of the Biscuit is the Apostrophe»