User since
2005-01-17
14790
articles
Admin1
Dateipfade extrahierst du mit
File::Basename.
use File::Basename;
my($filename, $dir, $suffix) = fileparse($path);
Beispiel:
C:\>perl -MFile::Basename -e"my($filename, $dir, $suffix) = fileparse('C:\blah\blub\1\2\mytext
\t.txt');print $dir"
C:\blah\blub\1\2\mytext\
Last edited: 2013-03-04 18:06:01 +0100 (CET)