RegEx ne correspond pas à Perl: Pourquoi?

Question

J'ai ce (allemand) exemple chaîne

Gesundheit und einen besseren Fußball- u. Musikgeschmack!

Je veux faire correspondre les mots qui sont reliés par - u.

Dans ce cas, je veux la faire correspondre Fußball- u. Musikgeschmack j'ai écrit une expression RegEx qui fait exactement cela, mais il semble fonctionner différemment si je l'exécute dans le cadre d'un script Perl.

Mon RegEx est la suivante: [ |^]*([A-Za-zÄäÖöÜüß]+[\-\\][ ]*[u][\.][A-Za-zÄäÖöÜüß ]+) Selon ce site qui permet RegEx interactive tester sélectionne ce qu'il doit: https://regex101.com/r/tN6gB4/1

Qu'est-ce que perl me donne est ball- u. Musikgeschmack

J'ai le caractère spécial allemand ß dans la bloc qui correspond ball donc je ne comprends pas pourquoi il ne correspond pas Fußball

Answer 1

En effet, @stribizhev semble avoir raison, c'est use utf8; problème: ce pragma indique que les littéraux de chaîne dans le fichier source sont encodés en utf8 et permettent ainsi à Perl de les décoder en Unicode et de fonctionner correctement.

use utf8; 
binmode(STDOUT, ":utf8"); 

$s = "Gesundheit und einen besseren Fußball- u. Musikgeschmack!"; 

$s=~/[ |^]*([A-Za-zÄäÖöÜüß]+[\-\\][ ]*[u][\.][A-Za-zÄäÖöÜüß ]+)/; 
print($1) 

Sortie:

Fußball- u. Musikgeschmack 

Voir aussi perlunicode pour plus de détails.