perl_n00b has asked for the
wisdom of the Perl Monks concerning the following question:
So it's been quite a while since I've done anything in Perl and I was never good to begin with, so I am blanking on how to do this:
All I want is to rename photos with the caption as the file name. I can search for /<rdf:li xml:lang=\"x-default\">(.+?)<\/rdf:li>/ and $1 will be the caption. I could use the rename function to rename a single file 's/$filename/$1/'...if I could remember how to read-in the file name, but I don't, and I also forgot how to read-in a whole directory.
If someone could kindly post the tiny script necessary to do this I would be much obliged. And if you PM me your PayPal email addy I will send you $5 for your trouble, for the first one to do so obviously.
Thanks in advance!