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";
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: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.