Re^7: 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

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;
  }
 }
[download]

However, the line get chop after the lengh is >= 51. Is there any workaround which can read the full line?

size 51

size 36

Comment on Re^7: split function Download Code

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)	[reply]
Re^8: split function by Anonymous Monk on Jan 26, 2012 at 09:14 UTC
http://perldoc.perl.org/perlvar.html#$INPUT_RECORD_SEPARATOR	[reply]
Re^8: split function by Marshall (Canon) 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.	[reply]