perl regex style, mit m! $ Regex! gegen

Question

Quelle string:

1. Mandarin Chinesisch (1,1 Milliarden)
2. Hindi/Urdu (350 Millionen)
3. Spanisch (330 Mio.)
4. Englisch (300 Mio.)
5. Arabisch (200 Millionen)

Versuchen, nur den Sprachnamen zu extrahieren.

Ich habe diesen Code zur Zeit, die

if($line =~ m!\s(.*)\(!) 
    { 
     print $1 . "\n" ; 
    } 

funktioniert, aber ich versuche die quotemeta Funktion zu verwenden, um es zu tun, was ich kann nicht zu tun in der Lage sein scheint.

my $regex = quotemeta("\s(.*)\("); 
#Also tried as i suspect the \s is my problem. 
    my $regex = quotemeta("\\s(.*)\("); 


    if($line =~ m/$regex/) 
    { 
     print $1 . "\n" ; 
    } 

Wird jeder Stil gegenüber dem anderen bevorzugt?

Answer 1

Ich verstehe nicht, was Sie versuchen zu verwenden quotemeta für.

Wenn Sie tatsächliche Regex-Sprache haben, dann Sie nicht möchten, um es zu zitieren.

my $regex = qr/\s(.*)\(/; 
if ($line =~ /$regex/) ... 

Wenn Sie es zitieren wollen (Sie wollen \s(..*)\( die Zeichenfolge genau übereinstimmen), brauchen Sie nicht quotemeta explizit, aber das ist effektiv, was Sie jetzt tun.

my $str = '\s(.*)\('; 
if ($line =~ /\Q$str\E/) ... 

Answer 2

Ich stimme mit @ephemient überein, dass quotemeta hier nicht benötigt wird.

Ich würde verwenden, um die /x Modifikator die regexp besser lesbar zu machen:

if($line =~ m/ \s (.*) \(/x) 

und nehmen es Schritt weiter

if($line =~ m/ 
    \s  # space 
    (.*) # capture anything 
    \(  # up to and not including a (
    /x) 

Eine Verfeinerung. Momentan erfassen Sie den Raum nach English. Ich möchte hinzufügen,

if($line =~ m/ 
    \s  # space 
    (.*) # capture anythin 
    \s+ # up to and not including space 
    \(  # a (
    /x) 

Schließlich - und sehen, was Ihr Programm tut, wenn Sie geben ihm

1. English (GB) (300 million) 
2. Arabic (200 million (2005 value)) 

Ein Werk, das andere tut. Es könnte sein, warum verstehen!