Perl regex thay thế trong cùng một trường hợp

Question

Nếu bạn có một regex đơn giản thay thế trong perl như sau:

($line =~ s/JAM/AAA/g){ 

thế nào tôi sẽ sửa đổi nó để nó nhìn vào trận đấu và làm cho việc thay thế các trường hợp tương tự như trận đấu ví dụ:

'JAM' sẽ trở thành 'AAA' và 'mứt' sẽ trở thành 'aaa'

Answer 1

$line =~ s/JAM/{$& eq 'jam' ? 'aaa' : 'AAA'}/gie; 

Answer 2

Cái gì đó như có lẽ đây?

http://perldoc.perl.org/perlfaq6.html#How-do-I-substitute-case-insensitively-on-the-LHS-while-preserving-case-on-the-RHS%3f

Làm nó trong hai bước có lẽ a/ý tưởng đơn giản tốt hơn ...

Sử dụng sức mạnh của google tôi thấy this

The :samecase modifier, short :ii (since it's a variant of :i) preserve case. 

    my $x = 'Abcd'; 
    $x ~~ s:ii/^../foo/; 
    say $x;      # Foocd 
    $x = 'ABC' 
    $x ~~ s:ii/^../foo/; 
    say $x      # FOO 

This is very useful if you want to globally rename your module Foo, to Bar, 
but for example in environment variables it is written as all uppercase. 
With the :ii modifier the case is automatically preserved. 

Answer 3

Unicode-based giải pháp:

use Unicode::UCD qw(charinfo); 
my %category_mapping = (
    Lu # upper-case Letter 
     => 'A', 
    Ll # lower-case Letter 
     => 'a', 
); 

join q(), map { $category_mapping{charinfo(ord $_)->{category}} } split //, 'jam'; 
# returns aaa 

join q(), map { $category_mapping{charinfo(ord $_)->{category}} } split //, 'JAM'; 
# returns AAA 

Ở đây, các ký tự chưa được phân loại resp. danh mục của họ dễ nhìn hơn một chút so với các câu trả lời khác.

Answer 4

Trong Perl 5 bạn có thể làm một cái gì đó như:

$line =~ s/JAM/$_=$&; tr!A-Z!A!; tr!a-z!a!; $_/gie; 

Nó xử lý tất cả các trường hợp khác nhau của JAM, như Jam, và thật dễ dàng để thêm Nói cách khác, ví dụ:

$line =~ s/JAM|SPAM/$_=$&; tr!A-Z!A!; tr!a-z!a!; $_/gie;