Opened by zaja at 2011-01-28 14:37
User since
2003-08-04
12208 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
12208 Artikel
Admin1
am einfachsten mit 
File::Spec:
Last edited: 2011-01-28 15:03:06 +0100 (CET)
File::Spec:Code (perl): (dl
)
1 2 3 4 5
use File::Spec; my @dirs = File::Spec->splitdir($s); my $file = pop @dirs; # dateiname herausholen $#dirs -= 2 if @dirs > 2; # array @dirs um 2 elemente (verzeichnisse) kürzen my $new = File::Spec->catfile(@dirs, $file); # neu zusammensetzen
Last edited: 2011-01-28 15:03:06 +0100 (CET)
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:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
lesen:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem