in reply to Seeking help with split!

... split only by every 6 time the delimiting factor occur. [emphasis added] 
>perl -wMstrict -le
"my $data = 'A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z';
 ;;
 my @ra = split m{ (?: , [^,]+){5} \K , }xms, $data;
 ;;
 printf qq{'$_'  } for @ra;
"
'A,B,C,D,E,F'  'G,H,I,J,K,L'  'M,N,O,P,Q,R'  'S,T,U,V,W,X'  'Y,Z'

[download]

Or, alternatively (didn't read this far before posting the first solution), ...

... split only after 5 comas. ... output should be ... like ... "A,B,C,D,E" "F,G,H,I,J" & so on [emphasis added] 
>perl -wMstrict -le
"my $data = 'A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z';
 ;;
 my @ra = split m{ (?: , [^,]+){4} \K , }xms, $data;
 ;;
 printf qq{'$_'  } for @ra;
"
'A,B,C,D,E'  'F,G,H,I,J'  'K,L,M,N,O'  'P,Q,R,S,T'  'U,V,W,X,Y'  'Z'

[download]

\K is available with Perl version 5.10+. See discussion of  \K in Look-Around Assertions (sub-section on "(?<=pattern)" "\K") in perlre.

Replies are listed 'Best First'.
Re^2: Seeking help with split!
by Anonymous Monk on Jul 01, 2013 at 05:43 UTC

    Thanks AnomalousMonk.

    I have another doubt now. How can we split the below with the delimiter "','" with same 4 times?

    my $data = 'A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z';

    So that output will be like,

    'A','B','C','D','E'     'F','G','H','I','J'       'K','L','M','N','O'       'P','Q','R','S','T'  'U','V','W','X','Y'      'Z'

    I tried your code, but not working with "','"

[reply]
[d/l]
[select]

      nah, it is your code that's not working. You assign a list to a scalar (not meant to store a list, see perlintro) and perl, trying what's possible, takes the first scalar value off that list and stores it in $data. Check that variable:

      my $data = 'A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z'

       

          print $data;

A

      [download]

      See?
      So what was your intention? Use an array? Put quotation marks into a string? I cannot tell from your question.

      Cheers, Sören

      (hooked on the Perl Programming language)

[reply]
[d/l]

In Section Seekers of Perl Wisdom