Here is the Problem:
I have somehting like:
c:\folder1\folder2\my_file_name.com c:\folder\filename.bat
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; } }
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
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";

In reply to Get last occurence of a character in a string by theroninwins

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":



  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.