Reading the files into hashes is definitely the answer. If you need an example
look at section 5.11 of the Perl Cookbook.
-Bob
--- Eduard Grinvald <[EMAIL PROTECTED]> wrote:
> As suggested earlier for a similiar problem, dumping everything into a
> single hash as keys and then printing that out seems simple and
> efficient enough.
>
> __END__
> =sincerely, eduard grinvald
> =email: [EMAIL PROTECTED]
> =dev-email: [EMAIL PROTECTED]
> =dev-site: r-x-linux.sourceforge.net
> =icq: 114099136
> =PGP
> -----BEGIN PGP PUBLIC KEY BLOCK-----
> Version: PGPfreeware 6.5.8 for non-commercial use <http://www.pgp.com>
>
> mQGiBDr60ScRBADsdYfjVgLPiUU8kJvLx9rsONfx1K4wPAKLUCcFOyhmBvIT/EEY
> pE2PVoOjosUdlkGGGFo9BLUi7UHoTrL7NyupJ4yHCU8wQiSPYK2GuZn5+ishIUI3
> sDifAE4JKuLxtz2fdBcoimrFBfXQRwNrmIqFnA+ooP5GRrJxHpgAn6rvkwCg/0B8
> uIXmUlVF+nwVHS6T2fAjYrUEAIe8LmwDVOorcWDRtoUzzSToAhhMY5ZM02OoG464
> 2SJzBtDo8ABcWCdddRjeEV3Mt5ohDoLXzH9N2LuOx0AEaWcC94a3y8pcGoF1Mbpq
> UFQxUeh1TrKJlaTG0qSCb5euoIFPt5trob93CsHxVd69h6WKi3xOf1jXNbXsfWoj
> b56jBACC8Mfhcpjtiw0KZRfqdrb5w11HNb0kP1Ma5mEKqsOBh8MlR9EyBrCji98B
> pilGYsaW9PCxaFhJDPPbO6hcERup/O7787+LVc1ZYdlJFq/APcvNZZvbrHB7+uYW
> eTI/Vmi7rB2ljE2mpEtms6RoiXqNF32xHDx2pSdSla/kqhPy2rQfRWR1YXJkIEdy
> aW52YWxkIDxlZzM0NEBueXUuZWR1PokATgQQEQIADgUCOvrRJwQLAwIBAhkBAAoJ
> EDDNAitGCH7xrjMAniAtflvrVvGegFgBYWv9f3eYFTQnAKDPJbKEjt2sOdRV1Ey5
> Yah5ScFZEbkEDQQ6+tEnEBAA+RigfloGYXpDkJXcBWyHhuxh7M1FHw7Y4KN5xsnc
> egus5D/jRpS2MEpT13wCFkiAtRXlKZmpnwd00//jocWWIE6YZbjYDe4QXau2FxxR
> 2FDKIldDKb6V6FYrOHhcC9v4TE3V46pGzPvOF+gqnRRh44SpT9GDhKh5tu+Pp0NG
> CMbMHXdXJDhK4sTw6I4TZ5dOkhNh9tvrJQ4X/faY98h8ebByHTh1+/bBc8SDESYr
> Q2DD4+jWCv2hKCYLrqmus2UPogBTAaB81qujEh76DyrOH3SET8rzF/OkQOnX0ne2
> Qi0CNsEmy2henXyYCQqNfi3t5F159dSST5sYjvwqp0t8MvZCV7cIfwgXcqK61qlC
> 8wXo+VMROU+28W65Szgg2gGnVqMU6Y9AVfPQB8bLQ6mUrfdMZIZJ+AyDvWXpF9Sh
> 01D49Vlf3HZSTz09jdvOmeFXklnN/biudE/F/Ha8g8VHMGHOfMlm/xX5u/2RXscB
> qtNbno2gpXI61Brwv0YAWCvl9Ij9WE5J280gtJ3kkQc2azNsOA1FHQ98iLMcfFst
> jvbzySPAQ/ClWxiNjrtVjLhdONM0/XwXV0OjHRhs3jMhLLUq/zzhsSlAGBGNfISn
> CnLWhsQDGcgHKXrKlQzZlp+r0ApQmwJG0wg9ZqRdQZ+cfL2JSyIZJrqrol7DVes9
> 1hcAAgIQAO6f9QVuw3eFMDxx4kVmw9pXlMcPlZT0xfBrzLkHwjoA0wdLp2W/ZWEC
> FKQl7EV8yh3bqchlIIKRMLp05+5wgyS4GKsxRaRn1vUcKtPIe+mUojjvwkbdrLAM
> TdZDVCwm1pxZqncCKrasJ8jtRT8kf93x3o1m0grVeldGukCvFl91gKXUv4vRT0/8
> 12MzhrxTkycx+pmS95Ytv7zps827dm6pXtlsTw9L7XNXYVTzHRd9MlvQzSxYIh2w
> U0pwZfiNfYKKMOHjlQbHAjZtmuC7TpmOWaxDw0kqo7K6sYqo/bPs3dA5eA/0mfDl
> 7M2nwUjReCy1/O9B2Mf3QwjW712Rqyh2l+7Yp+GgIvHMHnIClZcNGjYh3jALUM3+
> OenmcZfBzf6uuw9yFt/3bhoK/YkJJ6BIxx4q04TY93x28IqTt3l17omX+oOaDGS3
> 7gNTE52LTMUUwD+ienXrsu5mPL8CzrhXQAMTekJhc/HpOhNGPsqIe9TbFuacxr7j
> OCJxPeeFGEO2NJ+ChCk0z3S1tWmDrM1gxdIxUbO1bp8hBm7LP9rKkMlEqpSJWdS8
> yJmv/9WtDUTZdEJzzFeF+rp2lZpYkI/+sqVJP884fJ9NTS0aXiO1GxQWOKoVE58H
> cyrO3hpYgMdC1oP4WZnEJwkLAN+4WnsF2DkKmkNvJRjAANSBTJF3iQBGBBgRAgAG
> BQI6+tEnAAoJEDDNAitGCH7xa7AAn0dybVrFf+QHtfgkAsRK3oXY+7gwAJ4sWtYC
> GuYw+8LgdC7Mp2ICim9MqA==
> =iAF5
> -----END PGP PUBLIC KEY BLOCK-----
> =cut
>
>
> ----- Original Message -----
> From: "Steve Whittle" <[EMAIL PROTECTED]>
> Date: Wednesday, June 6, 2001 11:46 am
> Subject: Comparing two files
>
> > Hi,
> >
> > I'm trying to write a script that removes duplicates between two
> > files and
> > writes the unique values to a new file. For example, have one file
> > with the
> > following file 1:
> >
> > red
> > green
> > blue
> > black
> > grey
> >
> > and another file 2:
> >
> > black
> > red
> >
> > and I want to create a new file that contains:
> >
> > green
> > blue
> > grey
> >
> > I have written a script that takes each entry in file 1 and then reads
> > through file 2 to see if it exists there, if not, it writes it to
> > a new
> > file. If there is a duplicate, nothing is written to the new file.
> > The real
> > file 1 I'm dealing with has more than 2 million rows and the real
> > file 2 has
> > more than 100,000 rows so I don't think my method is very
> > efficient. I've
> > looked through the web and perl references and can't find an
> > easier way. Am
> > I missing something? Any ideas?
> >
> > Thanks,
> >
> > Steve Whittle
> >
> >
>
__________________________________________________
Do You Yahoo!?
Get personalized email addresses from Yahoo! Mail - only $35
a year! http://personal.mail.yahoo.com/
