Multiple File Rename

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!

Comment on Multiple File Rename

Replies are listed 'Best First'.
Re: Multiple File Rename by GrandFather (Saint) on Jul 10, 2011 at 20:50 UTC
Use `perldoc -f xxx` to see the docs for function xxx (perldoc -f rename for example). opendir, readdir and closedir are the directory scanning tools. Update: s/scandir/readdir/ - thanks kcott. True laziness is hard work	[reply] [d/l]
Re^2: Multiple File Rename by kcott (Archbishop) on Jul 11, 2011 at 07:19 UTC
Should that be readdir instead of scandir? -- Ken	[reply]
Re: Multiple File Rename by Anonymous Monk on Jul 10, 2011 at 20:59 UTC
Read perlintro for a refresher use File::Find::Rule to obtain a list of files use for to iterate over that list and extract caption use s/// to massage $Caption into an appropriate filename (no newlines, etc, etc, Regexp::English might help you compose a regex) combine caption with original filename ( DSC03753.JPG becomes DSC03753-NudeNodeReaper.JPG) DO NOT ATTEMPT RENAMING (How can I reliably rename a file?) until you're sure your caption is producing good filenames -- produce a rename script (of shell commands) first `rename "path/origfilename1" "path/newfilename1" rename "path/origfilename2" "path/newfilename2" ...` [download] then review it manually for mistakes Similar thread and example program at Re^2: Changing filenames rename 0.3 - now with two extra cupholders Super Search or site:perlmonks.org rename file site:perlmonks.org unicode filename Win32::Unicode	[reply] [d/l]
Re: Multiple File Rename by i5513 (Pilgrim) on Jul 10, 2011 at 20:42 UTC
Tell Larry Wall thank you ! You can use his rename program: `rename 'my $a=$_ ; open XML, "$a.xml"; while (my $l=<XML>) { if ($l =~ /<rdf:li xml:lang=\"x-default\">(.+?)<\/rdf:li>/) { $a=$1} } ; close XML; $_=$a' *` [download] This code suppose about if you have a file named "xx.png", then there are another file named "xx.png.xml" Regards,	[reply] [d/l]