Comment puis-je extraire un nom de fichier d'un chemin en utilisant Perl?

J'ai une variable Perl-je remplir à partir de la base de données. Son nom est $path. J'ai besoin d'obtenir une autre variable $file qui a juste le nom de fichier dans le chemin.

J'ai essayé:

$file = $path =~ s/.*\///;

Je suis très nouveau à Perl.

source d'informationauteur JUAN

  1. 26

    Pourquoi réinventer la roue? Utiliser le File::Basename module:

    use File::Basename;
...
$file = basename($path);

    Pourquoi $file=$path=~s/.*\///; pas de travail?

    =~ a plus la préséance que =

    Donc 

    $file = $path =~s/.*\///;

    est traitée comme:

    $file = ($path =~s/.*\///);

    qui ne le remplacement, dans $path et affecte 1 (en cas de remplacement) ou '' (si pas de remplacement se produit).

    Ce que vous voulez, c'est:

    ($file = $path) =~s/.*\///;

    qui affecte la valeur de $path à $file et puis ne le remplacement, dans $path.

    Mais il y a encore beaucoup de problèmes avec cette solution:

    1. Il est incorrect. Un nom de fichier dans Unix (pas sûr à propos de Windows) peut contenir de saut de ligne. Mais . par défaut ne correspond pas à un retour à la ligne. De sorte que vous aurez à utiliser un s modificateur de sorte que . correspond à un saut de ligne:

      ($file = $path) =~s/.*\///s;

    2. Plus important encore, il n'est pas portable, comme c'est en supposant que / est le séparateur de chemin qui n'est pas le cas avec certaines plates-formes comme Windows (qui utilise \), Mac (qui utilise :). Il faut donc utiliser le module et de le laisser gérer tous ces problèmes pour vous.

  2. 3
    use File::Basename

    Vérifier le lien ci-dessous pour une description détaillée sur la façon dont il fonctionne:

    http://p3rl.org/File::Basename

  3. 1

    Chemin D'Accès::Classe peut sembler excessif au premier abord—fabrication d'objets de fichier et de dir des chemins, mais il peut vraiment payer compliqué scripts et offre de nombreux bonus qui permettront de prévenir spaghetti lorsque vous obtenez soutenu dans un coin de portée fluage. File::Spec est utilisé dans le premier exemple pour le plaisir de résoudre chemin.

    use warnings;
use strict;
use Path::Class qw( file );
use File::Spec;

# Get the name of the current script with the procedural interface-
my $self_file = file( File::Spec->rel2abs(__FILE__) );
print
    " Full path: $self_file", $/,
    "Parent dir: ", $self_file->parent, $/,
    " Just name: ", $self_file->basename, $/;

# OO                                    
my $other = Path::Class::File->new("/tmp/some.weird/path-.unk#");
print "Other file: ", $other->basename, $/;
  4. 1

    Je pense que la meilleure façon de le faire, c'est -

    use File::Basename;

my $file_name = basename($0);

    Donc la variable $file_name aurez le nom de votre script

  5. 0
    $url=~/\/([^\/]+)$/;
print "Filename $1\n";