Im doing some file renaming.

Im looking to subtitute all but the last . into _
        ie: filename.jpg.pgp   --> filename_jpg.pgp
        ie: filename.2.jpg.pgp --> filename_2_jpg.pgp
        ie: file....._.jpg.pgp --> file__________.pgp


Ive tried about 10 different expressions, but they've all failed.
The closest one I have is
        s/\.[^[\..+$]]/_/;

But I cant wrap my mind around the correct expression.  Help.


Thanks
 Birl

Please do not CC me responses to my own posts.
I'll read the responses on the list.

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to