### Re^7: split function

by tcheungcm (Novice)
 on Jan 26, 2012 at 08:55 UTC ( #950045=note: print w/replies, xml ) Need Help??

in reply to Re^6: split function

The datafile

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

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

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

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

```sub split_the_element{
my (\$local_fh) = @_;
while (<\$local_fh>) {
chomp;
my \$size = length \$_;
print "size \$size\n";
foreach my \$element (split ';', \$_) {
printf \$fhout "%s,\n", \$element;
}
}
However, the line get chop after the lengh is >= 51. Is there any workaround which can read the full line?

size 51

size 51

size 51

size 51

size 51

size 51

size 51

size 51

size 51

size 36

Replies are listed 'Best First'.
Re^8: split function
by Anonymous Monk on Jan 26, 2012 at 09:00 UTC

The data file is not in code tags

The code doesn't do anything (it doesn't run)

Re^8: split function
by Anonymous Monk on Jan 26, 2012 at 09:14 UTC
Re^8: split function
by Marshall (Abbot) on Jan 27, 2012 at 04:20 UTC
Your data file has some "hidden control characters" that mess up the line by line reading. The data lines that you present are not what the actual data is. Its just that simple.

Create this data file yourself by manually typing it in with vi or notepad or whatever plain text editor that you normally use and you will see that the code works. Don't use copy-and-paste as that would copy these "invisible" wrong characters.

Create A New User
Node Status?
node history
Node Type: note [id://950045]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (3)
As of 2017-11-25 07:54 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
In order to be able to say "I know Perl", you must have:

Results (355 votes). Check out past polls.

Notices?