«

I am a few hours into my life after Perl.

I need to rename approximately 5000 .jpg files, which I think I have
figured out thanks to "Learning Perl" 3rd. Ed. (pg. 176).

Unlike that example, I would like to compare/match the file names to a
table/field in a csv file and once matched rename the file to the
second table/field in the csv file so that ABCDEFG.jpg becomes
1111111.jpg and ABCDEFH.jpg becomes 1111112.jpg and so on.

I've been searching my perldoc, comp.lang.perl.misc and "Learning Perl"
most of the day and haven't found anything that looks like what I want
to do, but I'm chalking that up to not knowing where to look.

Any suggestions of howto: or where to look would be greatly
appreciated.

Thank you

Terry

Terry wrote:
> I am a few hours into my life after Perl.
>
> I need to rename approximately 5000 .jpg files, which I think I have
> figured out thanks to "Learning Perl" 3rd. Ed. (pg. 176).
>
> Unlike that example, I would like to compare/match the file names to a
> table/field in a csv file and once matched rename the file to the
> second table/field in the csv file so that ABCDEFG.jpg becomes
> 1111111.jpg and ABCDEFH.jpg becomes 1111112.jpg and so on.
>
> I've been searching my perldoc, comp.lang.perl.misc and "Learning Perl"
> most of the day and haven't found anything that looks like what I want
> to do, but I'm chalking that up to not knowing where to look.
>
> Any suggestions of howto: or where to look would be greatly
> appreciated.

UNTESTED:


open my $csv, '<', 'csv_file' or die "Cannot open 'csv_file' $!";

while ( <$csv> ) {
chomp;
my ( $from, $to ) = split /,/;
if ( -e $from and not -e $to ) {
rename $from, $to or warn "Cannot rename '$from' $!";
}
}

close $csv;




John
--
use Perl;
program
fulfillment

Quoth "John W. Krahn" <>:
> Terry wrote:
> > I am a few hours into my life after Perl.
> >
> > I need to rename approximately 5000 .jpg files, which I think I have
> > figured out thanks to "Learning Perl" 3rd. Ed. (pg. 176).
> >
> > Unlike that example, I would like to compare/match the file names to a
> > table/field in a csv file and once matched rename the file to the
> > second table/field in the csv file so that ABCDEFG.jpg becomes
> > 1111111.jpg and ABCDEFH.jpg becomes 1111112.jpg and so on.
> >
> > I've been searching my perldoc, comp.lang.perl.misc and "Learning Perl"
> > most of the day and haven't found anything that looks like what I want
> > to do, but I'm chalking that up to not knowing where to look.
> >
> > Any suggestions of howto: or where to look would be greatly
> > appreciated.
>
> UNTESTED:

And wrong.

> open my $csv, '<', 'csv_file' or die "Cannot open 'csv_file' $!";
>
> while ( <$csv> ) {
> chomp;
> my ( $from, $to ) = split /,/;

CSV is actually quite complicated for such a simple format, and this is
not the right way to parse it. Use a module, such as Text::CSV_XS.

> if ( -e $from and not -e $to ) {
> rename $from, $to or warn "Cannot rename '$from' $!";
> }
> }
>
> close $csv;

If you're not going to check the return value, there's no point doing an
explicit close.

Ben

--
Heracles: Vulture! Here's a titbit for you / A few dried molecules of the gall
From the liver of a friend of yours. / Excuse the arrow but I have no spoon.
(Ted Hughes, [ Heracles shoots Vulture with arrow. Vulture bursts into ]
'Alcestis') [ flame, and falls out of sight. ]

Terry <> wrote:
> I am a few hours into my life after Perl.

> I need to rename approximately 5000 .jpg files, which I think I have
> figured out thanks to "Learning Perl" 3rd. Ed. (pg. 176).

> Unlike that example, I would like to compare/match the file names to a
> table/field in a csv file and once matched rename the file to the
> second table/field in the csv file so that ABCDEFG.jpg becomes
> 1111111.jpg and ABCDEFH.jpg becomes 1111112.jpg and so on.

> Any suggestions of howto: or where to look would be greatly
> appreciated.

If I understand correctly, you have a CSV file based on two filenames (and
maybe some extra fields?) and need to take your list of filenames, look
up and old name if if in the CSV list, rename it to a new name from the
same record in the CSV list.

Others have mentioned CPAN modules to handle CSV data. Although if
your data are simply filenames separated by a comma with no fields
specified in quotation marks, then it may be easier to simply split
the incoming records... but only if you are totally sure of your data
source.

Whichever method you choose, you can then create a hash based on a key
of the 'old' filename and value of the 'new' filename.

It is then trivial to check incoming filenames to see if they are in the
hash and perform any required renaming, logging and so on.

Axel

wrote:
> Terry <> wrote:
> > I am a few hours into my life after Perl.
>
> > I need to rename approximately 5000 .jpg files, which I think I have
> > figured out thanks to "Learning Perl" 3rd. Ed. (pg. 176).
>
> > Unlike that example, I would like to compare/match the file names to a
> > table/field in a csv file and once matched rename the file to the
> > second table/field in the csv file so that ABCDEFG.jpg becomes
> > 1111111.jpg and ABCDEFH.jpg becomes 1111112.jpg and so on.
>
> > Any suggestions of howto: or where to look would be greatly
> > appreciated.
>
> If I understand correctly, you have a CSV file based on two filenames (and
> maybe some extra fields?) and need to take your list of filenames, look
> up and old name if if in the CSV list, rename it to a new name from the
> same record in the CSV list.
>
> Others have mentioned CPAN modules to handle CSV data. Although if
> your data are simply filenames separated by a comma with no fields
> specified in quotation marks, then it may be easier to simply split
> the incoming records... but only if you are totally sure of your data
> source.
>
> Whichever method you choose, you can then create a hash based on a key
> of the 'old' filename and value of the 'new' filename.
>
> It is then trivial to check incoming filenames to see if they are in the
> hash and perform any required renaming, logging and so on.
>
> Axel

Axel,
You are correct understanding what I am saying.
My data file contains name, quasi-random letters (ROT'ed from the ID),
and an ID number.
If I understand you correctly, I should use split to read my file then
use a hash to rename my files? I will try it this way.

My appologies for the 5 days inbetween posts, but I went on vacation
and unplugged for a few days.

Thank you

Terry

Terry wrote:

> My appologies for the 5 days inbetween posts, but I went on vacation
> and unplugged for a few days.

As in "I'll post this question now, then go on a vacation. Let them sort
this out, discuss the pro's and con's and when I'm back, I can pick up a
solution, without having participated in the discussion, shown what I
tried and where it failed, rectified false assumptions"?

26 to 31 ist exactly 5 days.

--
Josef Möllers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize
-- T. Pratchett

Wrong.
I was not planning taking a long weekend before I posted, but that's
what ended up happening. I didn't have to mention it, but I felt that
I should in consideration of the people trying to help me.
Thanks for your help.

Terry

> As in "I'll post this question now, then go on a vacation. Let them sort
> this out, discuss the pro's and con's and when I'm back, I can pick up a
> solution, without having participated in the discussion, shown what I
> tried and where it failed, rectified false assumptions"?
>
> 26 to 31 ist exactly 5 days.
>
> --
> Josef Möllers (Pinguinpfleger bei FSC)
> If failure had no penalty success would not be a prize
> -- T. Pratchett

On 1 Aug 2006, wrote:

Terry wrote:
>
>> My appologies for the 5 days inbetween posts, but I went on vacation
>> and unplugged for a few days.
>
> As in "I'll post this question now, then go on a vacation. Let them
> sort this out, discuss the pro's and con's and when I'm back, I can
> pick up a solution, without having participated in the discussion,
> shown what I tried and where it failed, rectified false assumptions"?
>
> 26 to 31 ist exactly 5 days.

That was uncalled for, especially since Terry apologized.

Ted