Qu'est-ce qu'une bonne regex Perl pour effacer un chemin absolu ?

Modifier : L'utilisation de $ dans le modèle (comme je l'ai fait auparavant) n'est pas recommandée ici car elle peut correspondre à \n à la fin du nom de fichier. Utilisez \z à la place car il correspond sans ambiguïté à la fin de la chaîne.

Soyez aussi précis que possible dans ce que vous recherchez :

my $fn = '/public_html/mystuff/10000001/001/10/01.cnt';

if ( $fn =~ m!
    ^(
        /public_html
        /mystuff
        /[0-9]{8}
        /[0-9]{3}
        /[0-9]{2}
        /[0-9]{2}\.cnt
     )\z!x ) {
     print $1, "\n";
 }

Alternativement, vous pouvez réduire l'espace vertical pris par le code en mettant ce que je suppose être un préfixe commun '/public_html/mystuff' dans une variable et en combinant divers composants dans une construction qr// (voir perldoc perlop) puis utilisez l'opérateur conditionnel ?: :

#!/usr/bin/perl

use strict;
use warnings;

my $fn = '/public_html/mystuff/10000001/001/10/01.cnt';
my $prefix = '/public_html/mystuff';
my $re = qr!^($prefix/[0-9]{8}/[0-9]{3}/[0-9]{2}/[0-9]{2}\.cnt)\z!;

$fn = $fn =~ $re ? $1 : undef;

die "Filename did not match the requirements" unless defined $fn;
print $fn, "\n";

De plus, je ne peux pas réconcilier en utilisant un chemin relatif comme vous le faites dans

$ENV{PATH} = "bin:/usr/bin";

Avec l'utilisation du mode altération. Vouliez-vous dire

$ENV{PATH} = "/bin:/usr/bin";