Perl - getrennte Variablennamen von Typ

Question

Ich habe diese Saiten:

int name 
const int level 
const char   * const     format 
(float) int promenna 
(char *) int jina 

Wie kann ich in Perl, die die Trennung des Namen von Variablen (Namen, Ebene, Format, ...) aus der Ruhe? Ich habe versucht, einige regulären Ausdruck als /((\.*\s*\w+)+)(\s+)(\w+)$/, aber ich bin nicht sehr gut darin und ich habe ein Problem mit meinem. Hat also jemand eine einfache Lösung? Und im dritten Beispiel gibt es viele Leerzeichen und Sie müssen damit rechnen, da könnte \ s * sein. Danke

Edit: Ich schlecht erklären, was ich will. Ich sagte, dass ich getrennten Namen will und ich bedeute, dass ich letztes Wort (Variablenname) von der Schnur entfernen muss. Ich bedaure Missverständnisse.

Answer 1

Ersetzen Sie einfach die letzte 'Wort' für nichts, mit

s/\w+$// 

zB:

#!perl 

my @strings = (
    'int name', 
    'const int level', 
    'const char   * const     format', 
    '(float) int promenna', 
    '(char *) int jina', 
    'char *a' 
); 

for my $string (@strings) { 
    $string =~ s/\w+$//; 
    $string =~ s/\s*$//; 
    $string =~ s/\s+/ /g; 
    print "$string\n"; 
} 

Ergebnisse in

int 
const int 
const char * const 
(float) int 
(char *) int 
char *