in reply to Re: split function
in thread split function
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" #} } }
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.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^3: split function
by Marshall (Canon) on Jan 25, 2012 at 08:34 UTC | |
Re^3: split function
by Anonymous Monk on Jan 25, 2012 at 08:37 UTC | |
Re^3: split function
by rovf (Priest) on Jan 25, 2012 at 11:22 UTC | |
by tcheungcm (Novice) on Jan 26, 2012 at 08:20 UTC | |
by rovf (Priest) on Jan 26, 2012 at 09:21 UTC | |
by Anonymous Monk on Jan 26, 2012 at 08:31 UTC | |
by tcheungcm (Novice) on Jan 26, 2012 at 08:41 UTC | |
by Anonymous Monk on Jan 26, 2012 at 08:53 UTC | |
by tcheungcm (Novice) on Jan 26, 2012 at 08:55 UTC | |
|
In Section
Seekers of Perl Wisdom