Get last occurence of a character in a string

theroninwins has asked for the wisdom of the Perl Monks concerning the following question:

Here is the Problem:
I have somehting like:

c:\folder1\folder2\my_file_name.com
c:\folder\filename.bat
[download]

Those file names are stored in an array that is then used for some stuff like

 foreach $file (@file_list) {  # Nacheinander Öffnen der Dateien die Ü
+berprüft werden sollen
  print "$file\n";
      my $comment = 0;
      open(IN,"$file") || print "Can't open $file!\n\n";
      push (@include_temp, $file);

      while (<IN>) {

        ###Auskommentierte Zeilen überspringen###
        if (/\%\{.*/){
           if(/^@([A-Z][^T][^W][^(]+)\s*\(/i){ # Suche nach Funktionen
+ vor einem Kommentar in der gleichen Zeile
             $function = $1;
             $function =~ s/\s+$//;
             push(@function_temp, $function);
             $comment =1;
             next;
           }else {
             $comment =1;
           }
        }
[download]

this is just part of the code.... but here it comes:
the filenames are not shortened yet. I only want to have the filename itself not the folders and all that so

c:\folder1\filename.doc
should only be
filename.doc
[download]

I thought of just choping away everything from the last \ onwards but don't really know how to .
Any idea??
Thx

UPDATE:
Ok I got it to work with File::Spec

 foreach $file (@file_list) {  

  (my $volume,my $directories, my $filename) = File::Spec->splitpath( 
+$file );
  print "$filename\n";
[download]

Comment on Get last occurence of a character in a string Select or Download Code

Replies are listed 'Best First'.
Re: Get last occurence of a character in a string by Corion (Patriarch) on Aug 06, 2008 at 12:43 UTC
See File::Basename respectively File::Spec`->splitpath`.	[reply] [d/l]
Re: Get last occurence of a character in a string by Fletch (Bishop) on Aug 06, 2008 at 12:43 UTC
XY Problem. What you really want is File::Basename which will do this (in a platform independent fashion, even). The cake is a lie. The cake is a lie. The cake is a lie.	[reply]
Re: Get last occurence of a character in a string by FunkyMonk (Chancellor) on Aug 06, 2008 at 12:48 UTC
Please disregard. I misread the OPs question. This code does the opposite. `my $file = 'c:\folder1\filename.doc'; $file =~ s{ # Substitue... \\ # a backslash [^\\]* # zero or more not-backslashes $ # at the end of string } {}x; # with nothing # allow comments & spaces in search-pattern print $file; # c:\folder1` [download] Unless I state otherwise, all my code runs with strict and warnings	[reply] [d/l]
Re^2: Get last occurence of a character in a string by pjotrik (Friar) on Aug 06, 2008 at 13:16 UTC
You're giving the opposite of what was asked for, and you should escape your backslashes (in the assignment) `my $path = 'c:\\folder1\\filename.doc'; my ($file) = ($path =~ /([^\\])$/);` [download] (And yes, File::Basename is the way to go in this case) UPDATE: Corrected `/([^//])$/` to `/([^\\]*)$/`, thx FunkyMonk	[reply] [d/l] [select]
Re^3: Get last occurence of a character in a string by FunkyMonk (Chancellor) on Aug 06, 2008 at 13:23 UTC
You're giving the opposite of what was asked for Yes, you're right. I misread the OP's question. and you should escape your backslashes Sure? `my ($file) = ($path =~ /([^//]*)$/);` [download] Unmatched [ in regex; marked by <-- HERE in m/([ <-- HERE ^/	[reply] [d/l]
Re: Get last occurence of a character in a string by JadeNB (Chaplain) on Aug 06, 2008 at 19:32 UTC
Although, as mentioned, File::Basename or File::Spec is a better way to do this, it is easy to do what you want. Either `s/.*\\(?=[^\\]$)//;` [download] or `reverse; $_ = reverse substr($_, 0, index($_, '\\'));` [download] will work (assuming that you have a copy of the string of interest in $_, and don't mind that copy being overwritten). UPDATE: Oops, the rindex function, mentioned at Re: Index of the last occurence of a character inside a string, is much better than this reverse-based solution.	[reply] [d/l] [select]


Come for the quick hacks, stay for the epiphanies.
	PerlMonks