Help for this page

Select Code to Download


  1. or download this
    
Encode::decode(utf8 => $binary_data) # from binmode filehandle
  2. or download this
    
perl -MEncode -le 'open my $fh, "<", $^X; binmode $fh; local $/ = unde
+f; my $data = <$fh>; close $fh; $data = Encode::decode(utf8 => $data)
+; print $1 if $data =~ /(f)/i;'
  3. or download this
    
perl -MEncode -le 'open my $fh, "<", $^X; binmode $fh; local $/ = unde
+f; my $data = <$fh>; close $fh; $data = Encode::decode(utf8 => $data)
+; print $1 if $data =~ /(fu)/i;'
  4. or download this
    
perl -MEncode -le 'open my $fh, "<", $^X; binmode $fh; local $/ = unde
+f; my $data = <$fh>; close $fh; $data = Encode::decode(utf8 => $data)
+; print $1 if $data =~ /(fub)/i;'
  5. or download this
    
perl -MEncode -le 'open my $fh, "<", $^X; binmode $fh; local $/ = unde
+f; my $data = <$fh>; close $fh; $data = Encode::decode(utf8 => $data)
+; print $1 if $data =~ /(f)/i;'
  6. or download this
    
perl -MEncode -le 'open my $fh, "<", $^X; binmode $fh; local $/ = unde
+f; my $data = <$fh>; close $fh; $data = Encode::decode(utf8 => $data)
+; print $1 if $data =~ /(fu)/i;'
  7. or download this
    
perl -MEncode -le 'open my $fh, "<", $^X; binmode $fh; local $/ = unde
+f; my $data = <$fh>; close $fh; $data = Encode::decode(utf8 => $data)
+; print $1 if $data =~ /(fub)/i;'
  8. or download this
    
perl -MEncode -le 'open my $fh, "<", $^X; binmode $fh; local $/ = unde
+f; my $data = <$fh>; close $fh; $data = Encode::decode(utf8 => $data)
+; print $1 if $data =~ /(1)/i;'
  9. or download this
    perl -MEncode -le 'open my $fh, "<", $^X; binmode $fh; local $/ = unde
+f; my $data = <$fh>; close $fh; $data = Encode::decode(utf8 => $data)
+; print $1 if $data =~ /(666)/i;'