codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
use utf8; my $first_name = 'Éve'; my $last_name = 'Courneyer'; my %NEW = ( 'intid' => 2 ); $ID = lc(substr($first_name, 0, 1)) . lc(substr($last_name, 0, 1)) . $NEW{'intid'}; $ID =~ s/é/e/gi; $ID =~ s/ù/u/gi; $ID =~ s/è/e/gi; $ID =~ s/à/a/gi; $ID =~ s/â/a/gi; $ID =~ s/û/u/gi; $ID =~ s/ê/e/gi; $ID =~ s/î/i/gi; $ID =~ s/ô/o/gi; $ID =~ s/ç/c/gi; $ID =~ s/É/e/gi; $ID =~ s/Ù/u/gi; $ID =~ s/È/e/gi; $ID =~ s/À/a/gi; $ID =~ s/Â/a/gi; $ID =~ s/Û/u/gi; $ID =~ s/Ê/e/gi; $ID =~ s/Î/i/gi; $ID =~ s/Ô/o/gi; print $ID;
Private
[
?
]
Run code
Submit