perl - regex Hilfe mulitple Werte in Einzelsaite

Question

Die meisten der Regex Beispiele für: Ich bin Mit ist ein Spiel $line=~ m/dog/, aber sobald ich eine Übereinstimmung finden, wie entpacke ich diesen Wert nur in einer Variablen zu speichern?

/home/test/dog/.last_file_sent.yahoo@jedi.ucsb.edu 

Ich möchte nach /home/test/dog oder einen 3-Buchstaben-Wort übereinstimmen und setzte sich in einer Variablen. Dann auf der gleichen Zeichenfolge einen bestimmten Namen wie ucsb und Platzieren Sie das in einer anderen Variablen, damit ich sie ausdrucken kann. Vielen Dank.

Answer 1

Verwenden Sie zwei Paare einfangender Klammern.

my $pattern = qr{/home/test/(\w{3}).*[.](\w+)[.]edu}; 

while (my $line = <>) { 
    my ($three_letter_word, $school) = $line=~/$pattern/; 
    print "$three_letter_word | $school\n"; 
} 

Answer 2

Werfen Sie einen Blick auf File::Basename - Dateipfade in das Verzeichnis, Dateinamen und Suffix Parse. zum Beispiel:

use strict; 
use File::Basename; 
my $file = '/home/test/dog/.last_file_sent.yahoo@jedi.ucsb.edu'; 
my($filename, $directories) = fileparse($file); 

Dateiname Sie geben .last_file_sent.yahoo@jedi.ucsb.edu und Verzeichnisse geben Ihnen /home/test/dog/

Wert zu extrahieren oder einen Wert zu erfassen, können Sie wie

eine runde Klammer um Ihre regex zu setzen haben

$directories =~ m/(dog)/; 
my $extract_value = $1; 

Extracting matches siehe für weitere Einzelheiten, wie Teile einer Zeichenkette zu extrahieren, die abgestimmt.