Wie zum extrahieren von Verzeichnisnamen aus Pfad in Perl

Habe ich einen Weg, wie diese

/home/user/doc/loc

Möchte ich extrahieren, home, user, Dok, loc getrennt. Ich habe versucht split (////) und auch split("/")
aber keiner von Ihnen arbeitete. Bitte geben Sie mir ein Beispiel-Skript:

while (<EXPORT>) {
if (/^di/) { 
    ($key, $curdir) = split(/\t/); 
    printf "the current dir is %s\n", $curdir;
    printf("---------------------------------\n");
    ($home_dir, $user_dir, $doc_dir, $loc_dir) = split("/");    
  }
 }

Aber es funktionierte nicht, also bitte helfen Sie mir.

InformationsquelleAutor user954299 | 2013-02-09
  1. 4

    Gegeben $curdir mit einem Pfad sind, würden Sie wahrscheinlich verwenden:

    my(@names) = split m%/%, $curdir;

    auf einem Unix-ähnlichen system. Oder Sie verwenden würden, File::Spec und splitdir. Zum Beispiel:

    #!/usr/bin/env perl
use strict;
use warnings;
use File::Spec;

my $curdir = "/home/user/doc/loc";
my(@names) = split m%/%, $curdir;

foreach my $part (@names)
{
    print "$part\n";
}

print "File::Spec->splitdir()\n";
my(@dirs) = File::Spec->splitdir($curdir);

foreach my $part (@dirs)
{
    print "$part\n";
}

    Ausgang (inklusive einer führenden Leerzeile):

     

    home

    user

    doc

    loc

    File::Spec->splitdir()

     

    home

    user

    doc

    loc

    InformationsquelleAutor Jonathan Leffler
  2. -1

    split's erste Ergebnis wird die Zeichenfolge vor der ersten Instanz des regulären Ausdrucks übergeben werden. Da hast du ein führendes "/" hier erhalten Sie eine leere Zeichenfolge in $home_dir, 'Benutzer' $user_dir und so weiter. Hinzufügen undef auf der Liste Zuordnung ersten position oder alternativ schneiden Sie einen führenden Schrägstrich ersten.

    Außerdem bin ich nicht sicher, ob Sie anrufen können, split, ohne es $curdir hier. Versuchen:

    (undef, $home_dir, $user_dir, $doc_dir, $loc_dir) = split("/", $curdir);
    • Statt einer "Wegwerf-Wert", können Sie undef als lvalue genau für, die. Es sollte auch darauf hingewiesen werden, dass das erste argument zu split ist nicht eine Zeichenfolge, sondern ein regulärer!
    • Guter Punkt. Antwort aktualisiert. Ich dachte, dass ich es angeben?
    InformationsquelleAutor FoolishSeth
Schreibe einen Kommentar