K
kquirici
if( ! open JOURNALTXT, $inputfilename) {
die "cannot open ".$inputfilename;
}
while (<JOURNALTXT>){
$journalin = $journalin . %_;
}
close JOURNALTXT;
$journal_txt_len = length($journalin);
print "journal length: " . $journal_txt_len;
-----------------
the last print statement returns 159 which is the number of lines; there are
actually around 8k chars.
At first I thought it was because I was using TextWrangler which uses unicode utf8, so I googled that and added all the stuff necessary for unicode on perl 5.whatever, but I still just got number of lines.
any help much appreciated.
Regards,
Ken Quirici
die "cannot open ".$inputfilename;
}
while (<JOURNALTXT>){
$journalin = $journalin . %_;
}
close JOURNALTXT;
$journal_txt_len = length($journalin);
print "journal length: " . $journal_txt_len;
-----------------
the last print statement returns 159 which is the number of lines; there are
actually around 8k chars.
At first I thought it was because I was using TextWrangler which uses unicode utf8, so I googled that and added all the stuff necessary for unicode on perl 5.whatever, but I still just got number of lines.
any help much appreciated.
Regards,
Ken Quirici