RegEx, backslash im Pfad - #136032 (Allgemeines zu Perl)

bianca

2010-04-14 17:56

User since
2009-09-13
6977 Artikel
BenutzerIn

user image

Bekäme man das auch so erweitert, dass auch Linux-Pfade erkannt werden?
Laut Doku gibt man bei rindex nur einen String zur Suche an, oder?

Code (perl): (dl )

#!/usr/bin/perl -w
use strict;
use warnings;
foreach ('nur_datei_ohne_pfad.pdf','\\windows_pfad\\datei.pdf','linux_pfad/datei.pdf','') {
        print "\n\nBehandle $_ \n";
        print "rindex: " . (substr $_,rindex($_,'\\')+1) . "\n";
        (my $regex = $_) =~ s/^.*[\\\/]//g; 
        print "regex : $regex\n";
}

10 print "Hallo"
20 goto 10