Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Comment on

( #3333=superdoc: print w/ replies, xml ) Need Help??

In addition to reviewing the post and accompanying replies linked by davido, please consider the following code. As noted in the previous discussion, split cannot be made to throw an exception if it finds nothing on which to split. Validation of input must be done separately. If you want the process to actually abort on any of the invalid conditions in the code below, replace warn wherever it appears with die (and also remove the associated  and next LINE expressions, although leaving them in will make no difference; they are simply redundant when used with die).

>perl -wMstrict -le "my @lines = ( 'ABCD', 'A|B|C|D', 'A,B,C|D', 'A,B,C', 'A,B,C,D,E', 'A,B,C,D'); ;; LINE: for my $line (@lines) { print qq{processing '$line'}; ;; warn qq{'$line' has no comma} and next LINE if not $line =~ m{,}xms; warn qq{'$line' has nasty pipe} and next LINE if $line =~ m{ \| }xms; ;; warn qq{not exactly 4 fields in '$line'} and next LINE if 4 != (my ($s, $a, $c, $r) = split /,/, $line); ;; print qq{success: s '$s' a '$a' c '$c' r '$r'}; } " processing 'ABCD' 'ABCD' has no comma at -e line 1. processing 'A|B|C|D' 'A|B|C|D' has no comma at -e line 1. processing 'A,B,C|D' 'A,B,C|D' has nasty pipe at -e line 1. processing 'A,B,C' not exactly 4 fields in 'A,B,C' at -e line 1. processing 'A,B,C,D,E' not exactly 4 fields in 'A,B,C,D,E' at -e line 1. processing 'A,B,C,D' success: s 'A' a 'B' c 'C' r 'D'

In reply to Re: split function by AnomalousMonk
in thread split function by Rajsai2825

Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":

  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • Outside of code tags, you may need to use entities for some characters:
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.
  • Log In?

    What's my password?
    Create A New User
    and the web crawler heard nothing...

    How do I use this? | Other CB clients
    Other Users?
    Others taking refuge in the Monastery: (14)
    As of 2015-05-29 12:29 GMT
    Find Nodes?
      Voting Booth?

      In my home, the TV remote control is ...

      Results (583 votes), past polls