Perl 5 | Perl 6 |
Код: [Выделить] next if $line =~ /static/ ; | Код: [Выделить] next if $line ~~ /static/ ; |
Код: [Выделить] $line =~ s/abc/123/; | Код: [Выделить] $line ~~ s/abc/123/; |
Код: [Выделить] /(.+)/ and print $1; | Код: [Выделить] /(.+)/ and print $0; |
Код: [Выделить] next if $line =~ /static/i; | Код: [Выделить] next if $line ~~ m:i/static/; |
Код: [Выделить] next if $line =~ m/[aeiou]/; | Код: [Выделить] next if $line ~~ m/<[aeiou]>/; |
Код: [Выделить] next if $line =~ m/[a-zA-Z]/; | Код: [Выделить] next if $line ~~ m/<[a..zA..Z]>/; |
Код: [Выделить] say $1 if 'abc' =~ /(?:a|b)(c)/; # OUTPUT: c | Код: [Выделить] say ~$0 if 'abc' ~~ / [a||b] (c) /; # OUTPUT: c |
Код: [Выделить] say 'abcdefg' =~ /\w{2,5}/; | Код: [Выделить] say 'abcdefg' ~~ /\w ** 2..5/; |
Код: [Выделить] say 1 if 'foobar' =~ /(?<=foo)bar/; | Код: [Выделить] say 1 if 'foobar' ~~ / <after foo> bar /; |
'abababa' ~~ /a .* a/ && say ~$/; # OUTPUT: «abababa»Скромное совпадение .*?
'abababa' ~~ /a .*? a/ && say ~$/; # OUTPUT: «aba»
say '/foo/o/bar/' ~~ /\/. ** 1..10 \//; # /foo/o/bar/
say '/foo/o/bar/' ~~ /\/.**!{1..10}\//; # /foo/o/bar/
say '/foo/o/bar/' ~~ /\/.**?{1..10}\//; # /foo/