[ create a new paste ] login | about

Link: http://codepad.org/nDqBlOyt    [ raw code | output | fork ]

Perl, pasted on Jul 15:
1
2
3
4
5
6
7
8
9
use strict;

use utf8;
my $str1 = 'いろは';
print $str1 =~ /\w/ ? "True" : "False", $/;

no utf8;
my $str2 = 'いろは';
print $str2 =~ /\w/ ? "True" : "False";


Output:
1
2
True
False


Create a new paste based on this one


Comments: