File::Basename durch Reguläre Ausdrücke ersetzen - #171366 (Allgemeines zu Perl)

2013-10-21 14:11

User since
2003-08-04
12208 Artikel
Admin1

wäre noch die frage, warum du den fehler gerade bei File::Basename vermutest.
soweit ich weiss, greift das doch gar nicht auf die festplatte zu.
aber natürlich kannst du das zum testen relativ einfach ersetzen:

Code (perl): (dl )

1
2

my ($dirname) = $path =~ m/^(.*)\\/;
my ($basename) = $path =~ m/.*\\(.*)\.abc$/;

so in etwa (ungetestet)

edit: oder in einem abwasch:

Code (perl): (dl )

my ($dirname, $basename) = $path =~ m/^(.*)\\(.*)\.abc$/;

Last edited: 2013-10-21 14:19:19 +0200 (CEST)

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem