> -Original Message-
> From: Jeff 'japhy' Pinyan [mailto:[EMAIL PROTECTED]
> Sent: Friday, July 22, 2005 11:44 AM
> To: Brian Volk
> Cc: Beginners (E-mail)
> Subject: Re: File::Find if match rename
>
>
> On Jul 22, Brian Volk said:
>
> > I
On Jul 22, Brian Volk said:
I have two text files and I have a directory of .pdf files that are named
00020.pdf 00035.pdf 00040.pdf 00067.pdf. ( same as records in file_2 ) What
I need to do is look at each record in file_2 and see if the .pdf file
exist.. if so copy that file to a new director
On Jul 22, 2005, at 17:16, Brian Volk wrote:
#!/usr/bin/perl -w
use strict;
use File::Find;
my $item_nums = 'c:/brian/spartan/hp_items.txt' ;
my $mfg_nums ='c:/brian/spartan/mfg_num.txt' ;
open(ITEM_NUMS, "<", $item_nums) or die "couldn't read item_nums: $!";
open(MFG_NUMS, "<", $mfg_nums) or
