Skip to content

Instantly share code, notes, and snippets.

@MaximeD

MaximeD/encoding_test.pl

Created January 23, 2012 18:18
Show Gist options
  • Save MaximeD/1664630 to your computer and use it in GitHub Desktop.
Save MaximeD/1664630 to your computer and use it in GitHub Desktop.
Download ZIP
encoding testing
Raw
encoding_test.pl
#!/usr/bin/env perl
use warnings;
use strict;
use utf8;
# Try with and without the folowing
binmode(STDOUT, ":utf8");
use Cwd;
chdir $ARGV[0];
print cwd() . "\n";
print "Des caractères accentués !\n";
@oelmekki
Copy link

(j'ai viré le chdir(), je vois pas bienc e qu'il foutait là)

uncommented

kik@central ~/tmp/flash/éàù $ ./test.pl
/home/kik/tmp/flash/éàù
Des caractères accentués !

commented

kik@central ~/tmp/flash/éàù $ ./test.pl
/home/kik/tmp/flash/éàù
Des caractères accentués !

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment