Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Re: Using pragma utf8::all in processing non-utf data.

by remiah (Hermit)
on Sep 04, 2013 at 09:01 UTC ( #1052262=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    print "before shiftjis\n";
    open( my $fh, "<", "107.shiftjis.txt") or die $!;
    print join('', <$fh>);
    close $fh;
  2. or download this
    use warnings NONFATAL =>'utf8'; #disable 
    close $fh;
    "use warnings FATAL =>'utf8'"; #enable 

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1052262]
[Lady_Aleena]: You could quote it. <c>perl -e 'print "1.0"'>/c> returns 1.0
[Lady_Aleena]: perl -e 'my $var = "1.0"; print $var;' if it is in a variable also returns 1.0, though perl -e 'my $var = 1.0; print $var;' returns 1.
[1nickt]: In my case I can simply pass sprintf '%.1f', 1.0 (to Types::Standard:: Int), but what if you didn;t know the precision of the number you were working with? Seems I must be missing something. Oh well, my test list is complete, mooving on ...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (7)
As of 2017-05-24 18:49 GMT
Find Nodes?
    Voting Booth?