Re: international case insensitive searched with Perl

In my Strawberry Perl 5, version 12, subversion 1 (v5.12.1), it works, but only if I use utf8;.

use Modern::Perl;
use utf8;

my $string = 'LÉGER';
print $string =~ /léger/i ? 'matched' : 'no match';
[download]

Prints "matched".

CountZero

A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James

Comment on Re: international case insensitive searched with Perl Select or Download Code

Replies are listed 'Best First'.
Re^2: international case insensitive searched with Perl by GrandFather (Saint) on Oct 04, 2011 at 06:02 UTC
In fact it works with 5.10 just using: `use strict; use warnings; use utf8; my $string = 'LÉGER'; print $string =~ /léger/i ? 'matched' : 'no match';` [download] Prints: `matched` [download] True laziness is hard work	[reply] [d/l] [select]