One of the many reasons you should always Use strict and warnings. Look closely at the variables in your loop: 

foreach $file (@TIFFfolder_list){
my $file = basename (@TIFFfolder_list, ".psd");
print "$file\n";
}

[download]

You've got two $file variables there: the package variable you're using as the loop variable, and the new lexical one you're declaring with my. But you're not passing either of those to the basename function...

BTW, the File::Basename doc says that fileparse is a bit safer - and where are you loading that module in the first place?

You're printing the filenames to standard output, but then you're using -body=>"$file", but the variable should be empty at that point. Perhaps you want to set up a new variable into which you concatenate your output via .= instead (or use the map/join solutions others have alluded to).

Also, note that the Mail::Sender docs say the module is deprecated, use Email::Sender instead.

In reply to Re: using basename on a list of filesnames by haukex
in thread using basename on a list of filesnames by flieckster

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.