Re^4: split function

[tcheungcm]

Thanks all. I think the problem is happened on the readline. After I add the line before the split

 print "Line just read is $_\n";

the output is

Line just read is 1;2;3;4;5;6;7;8;9;10;11;12;13;14;15;16;17;18;19;20;

Line just read is 21;22;23;24;25;26;27;28;29;30;31;32;33;34;35;36

I also checked the lenght of each line is limited 51. Anyone would have clue?

[rovf]

Did you hexdump your data file?

[Anonymous Monk]

Have a clue about what?

Hopefully you're sufficiently convinced split function isn't broken, so your question is?

[tcheungcm]

I don't think split function is an issue. it's something related when I tried to read a file. it only read the line up to length = 51 and then it will continue to read on the nextline. I already checked the file, there is no newline in the file.

[Anonymous Monk]

I don't think split function is an issue.

But you did, see split function.

it only read the line up to length = 51 and then it will continue to read on the nextline. I already checked the file, there is no newline in the file.

There is a saying about that #11943 Ah yes, and you are the first person to have noticed this bug since 1987. Sure.

It is not impossible to discover bugs in perl, I've seen it many times, but each time, it was by someone who provided a Short, Self Contained, Correct (Compilable), Example

We only have your word that there is no newline in your datafile, or that a problem exists at all. We need code that proves it :) see How do I post a question effectively?

[tcheungcm]

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