Thanks. Here is my code

sub split_the_element{
my ($local_fh) = @_;
while (readline $local_fh) {
  #my @records = split(/;/);
  my ($var1, $var2, $var3, $var4, $var5, $var6, $var7, $var8, $var9, $
+var10, $var11, $var12,
      $var13, $var14, $var15, $var16, $var17, $var18, $var19, $var20, 
+$var21, $var22, $var23, $var24,
      $var25, $var26, $var27, $var28, $var29, $var30, $var31, $var32, 
+$var33, $var34, $var35, $var36) =split(/;/);
  print "1 element $var1\n";
  print "2 element $var2\n";
  print "3 element $var3\n";
  print "4 element $var4\n";
  print "5 element $var5\n";
  print "6 element $var6\n";
  print "7 element $var7\n";
  print "8 element $var8\n";
  print "9 element $var9\n";
  print "10 element $var10\n";
  print "11 element $var11\n";
  print "12 element $var12\n";
  print "13 element $var13\n";
  print "14 element $var14\n";
  print "15 element $var15\n";
  print "16 element $var16\n";
  print "17 element $var17\n";
  #my $i=0;
  #foreach($i=1; $i<=36; $++) {
  # print "$i element $var$i\n"
  #}
 }
}

[download]

Here is my data file 1;2;3;4;5;6;7;8;9;10;11;12;13;14;15;16;17;18;19;20;21;22;23;24;25;26;27;28;29;30;31;32;33;34;35;36

And the output:

1 element 1

2 element 2

3 element 3

4 element 4

5 element 5

6 element 6

7 element 7

8 element 8

9 element 9

10 element 10

11 element 11

12 element 12

13 element 13

14 element 14

15 element 15

16 element 16

17 element 17

1 element 21

2 element 22

3 element 23

4 element 24

5 element 25

6 element 26

7 element 27

8 element 28

9 element 29

10 element 30

11 element 31

12 element 32

13 element 33

14 element 34

15 element 35

16 element 36

It seems that data file can split up to 17th elements and then the rest will start to split on the next line.

In reply to Re^2: split function by tcheungcm
in thread split function by tcheungcm

Title:
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!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • 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, details, 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, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            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.