How to compare two files and update to second file

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.

--===============0394833663==
Content-Type: multipart/alternative;
boundary="----_=_NextPart_001_01C759A2.21ED6AE2"

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.

------_=_NextPart_001_01C759A2.21ED6AE2
Content-Type: text/plain

Hi,
I have to compare files, If second file is not have correct date I should
update second file. Please provide a sample for this problem.


Regards
Karunakar Reddy B.V.


------_=_NextPart_001_01C759A2.21ED6AE2
Content-Type: text/html

RE: How to compare two files and update to second file

From: activeperl-bounces@listserv.ActiveState.com
[mailto:activeperl-bounces@listserv.ActiveState.com] On Behalf Of Beri
Veera-ext, Reddy
Sent: 26 February 2007 12:32
To: ActivePerl
Subject: How to compare two files and update to second file

> Hi,
> I have to compare files, If second file is not have correct date I
should update second file. Please provide > a sample for this problem.

You haven't given use enough information to even guess what your real
problem is. This link may help:

http://www.catb.org/~esr/faqs/smart-questions.html

HTH

-- =

Brian Raven =


==================== =====3D=
================
Atos Euronext Market Solutions Disclaimer
==================== =====3D=
================

The information contained in this e-mail is confidential and solely for the=
intended addressee(s). Unauthorised reproduction, disclosure, modification=
, and/or distribution of this email may be unlawful.
If you have received this email in error, please notify the sender immediat=
ely and delete it from your system. The views expressed in this message do =
not necessarily reflect those of Atos Euronext Market Solutions.

Atos Euronext Market Solutions Limited - Registered in England & Wales with=
registration no. 3962327. Registered office address at 25 Bank Street Lon=
don E14 5NQ United Kingdom. =

Atos Euronext Market Solutions SAS - Registered in France with registration=
no. 425 100 294. Registered office address at 6/8 Boulevard Haussmann 750=
09 Paris France.

L'information contenue dans cet e-mail est confidentielle et uniquement des=
tinee a la (aux) personnes a laquelle (auxquelle(s)) elle est adressee. Tou=
te copie, publication ou diffusion de cet email est interdite. Si cet e-mai=
l vous parvient par erreur, nous vous prions de bien vouloir prevenir l'exp=
editeur immediatement et d'effacer le e-mail et annexes jointes de votre sy=
steme. Le contenu de ce message electronique ne represente pas necessaireme=
nt la position ou le point de vue d'Atos Euronext Market Solutions.
Atos Euronext Market Solutions Limited Soci=E9t=E9 de droit anglais, enregi=
str=E9e au Royaume Uni sous le num=E9ro 3962327, dont le si=E8ge social se =
situe 25 Bank Street E14 5NQ Londres Royaume Uni.

Atos Euronext Market Solutions SAS, soci=E9t=E9 par actions simplifi=E9e, e=
nregistr=E9 au registre dui commerce et des soci=E9t=E9s sous le num=E9ro 4=
25 100 294 RCS Paris et dont le si=E8ge social se situe 6/8 Boulevard Hauss=
mann 75009 Paris France.
==================== =====3D=
================

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: How to compare two files and update to second file

Hi,
I am using Perl. =

I have to compare INPUT text file and OUTPUT text file.
If OUTPUT file is not have some text which is there in INPUT file. I need
to write that text to OUTPUT file. =

Ex:
INPUT file has (CADITEM, BSHITEM, ToolItem )
OUTPUT file has (CADITEM, ToolItem) =

I need to compare to files and write BSHITEM to OUTPUT file.
My problem: I am not able read two file at same time. I am getting only from
one file.

Please help me how to read two files and compare.

Thanks and Regards
Karunakara Reddy

-----Original Message-----
From: activeperl-bounces@listserv.ActiveState.com
[mailto:activeperl-bounces@listserv.ActiveState.com] On Behalf Of Brian
Raven
Sent: 26 February 2007 13:56
To: ActivePerl
Subject: RE: How to compare two files and update to second file

From: activeperl-bounces@listserv.ActiveState.com
[mailto:activeperl-bounces@listserv.ActiveState.com] On Behalf Of Beri
Veera-ext, Reddy
Sent: 26 February 2007 12:32
To: ActivePerl
Subject: How to compare two files and update to second file

> Hi,
> I have to compare files, If second file is not have correct date I
should update second file. Please provide > a sample for this problem.

You haven't given use enough information to even guess what your real
problem is. This link may help:

http://www.catb.org/~esr/faqs/smart-questions.html

HTH

-- =

Brian Raven =


==================== =====3D=
================
Atos Euronext Market Solutions Disclaimer
==================== =====3D=
================

The information contained in this e-mail is confidential and solely for the
intended addressee(s). Unauthorised reproduction, disclosure, modification,
and/or distribution of this email may be unlawful.
If you have received this email in error, please notify the sender
immediately and delete it from your system. The views expressed in this
message do not necessarily reflect those of Atos Euronext Market Solutions.

Atos Euronext Market Solutions Limited - Registered in England & Wales with
registration no. 3962327. Registered office address at 25 Bank Street
London E14 5NQ United Kingdom. =

Atos Euronext Market Solutions SAS - Registered in France with registration
no. 425 100 294. Registered office address at 6/8 Boulevard Haussmann 75009
Paris France.

L'information contenue dans cet e-mail est confidentielle et uniquement
destinee a la (aux) personnes a laquelle (auxquelle(s)) elle est adressee.
Toute copie, publication ou diffusion de cet email est interdite. Si cet
e-mail vous parvient par erreur, nous vous prions de bien vouloir prevenir
l'expediteur immediatement et d'effacer le e-mail et annexes jointes de
votre systeme. Le contenu de ce message electronique ne represente pas
necessairement la position ou le point de vue d'Atos Euronext Market
Solutions.
Atos Euronext Market Solutions Limited Soci=E9t=E9 de droit anglais, enregi=
str=E9e
au Royaume Uni sous le num=E9ro 3962327, dont le si=E8ge social se situe 25=
Bank
Street E14 5NQ Londres Royaume Uni.

Atos Euronext Market Solutions SAS, soci=E9t=E9 par actions simplifi=E9e,
enregistr=E9 au registre dui commerce et des soci=E9t=E9s sous le num=E9ro =
425 100
294 RCS Paris et dont le si=E8ge social se situe 6/8 Boulevard Haussmann 75=
009
Paris France.
==================== =====3D=
================

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

This is a test

This is a test ...
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: How to compare two files and update to second file

Why compare? Why not just copy the input to the output each time?

Eric

-----Original Message-----
From: activeperl-bounces@listserv.ActiveState.com
[mailto:activeperl-bounces@listserv.ActiveState.com] On Behalf Of Beri
Veera-ext, Reddy
Sent: Monday, February 26, 2007 10:05 AM
To: Brian Raven; ActivePerl
Subject: RE: How to compare two files and update to second file

Hi,
I am using Perl.
I have to compare INPUT text file and OUTPUT text file.
If OUTPUT file is not have some text which is there in INPUT file. I
need to write that text to OUTPUT file.
Ex:
INPUT file has (CADITEM, BSHITEM, ToolItem ) OUTPUT file has (CADITEM,
ToolItem)
I need to compare to files and write BSHITEM to OUTPUT file.
My problem: I am not able read two file at same time. I am getting only
from one file.

Please help me how to read two files and compare.

Thanks and Regards
Karunakara Reddy
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: How to compare two files and update to second file

Hi,
Thanks for your information. Output file has some additional data.
OUTPUT file should have INPUT FILE data but INPUT file need be have all
data of OUTPUT.

Thanks and Regards
Reddy

-----Original Message-----
From: activeperl-bounces@listserv.ActiveState.com
[mailto:activeperl-bounces@listserv.ActiveState.com] On Behalf Of Roode,
Eric
Sent: 26 February 2007 16:08
To: ActivePerl
Subject: RE: How to compare two files and update to second file

Why compare? Why not just copy the input to the output each time?

Eric

-----Original Message-----
From: activeperl-bounces@listserv.ActiveState.com
[mailto:activeperl-bounces@listserv.ActiveState.com] On Behalf Of Beri
Veera-ext, Reddy
Sent: Monday, February 26, 2007 10:05 AM
To: Brian Raven; ActivePerl
Subject: RE: How to compare two files and update to second file

Hi,
I am using Perl.
I have to compare INPUT text file and OUTPUT text file.
If OUTPUT file is not have some text which is there in INPUT file. I
need to write that text to OUTPUT file.
Ex:
INPUT file has (CADITEM, BSHITEM, ToolItem ) OUTPUT file has (CADITEM,
ToolItem)
I need to compare to files and write BSHITEM to OUTPUT file.
My problem: I am not able read two file at same time. I am getting only
from one file.

Please help me how to read two files and compare.

Thanks and Regards
Karunakara Reddy
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: How to compare two files and update to second file

Beri Veera-ext, Reddy wrote:
> Hi,
> I am using Perl.
> I have to compare INPUT text file and OUTPUT text file.
> If OUTPUT file is not have some text which is there in INPUT file.
> I need to write that text to OUTPUT file. Ex:
> INPUT file has (CADITEM, BSHITEM, ToolItem ) OUTPUT file has
> (CADITEM, ToolItem) I need to compare to files and write BSHITEM to
> OUTPUT file. =


Given the limited information provided so far, simply copying the first
file over the top of the second would seem to do the trick. No need to
compare files at all.

> My problem: I am not able read two file at same time. I am getting
> only from one file. =


I don't understand. What is stopping you from reading two files at the
same time? It seems fairly straightforward.

> =

> Please help me how to read two files and compare.

You are still a bit short on useful information. Please provide a short,
working example that demonstrates your problem, and what you have tried
so far. So that would be two short input data files and the resulting
output file, and one short Perl script that we can cut and paste, and
execute for ourselves, if we are so inclined. With emphasis on short.

HTH

-- =

Brian Raven =


==================== =====3D=
================
Atos Euronext Market Solutions Disclaimer
==================== =====3D=
================

The information contained in this e-mail is confidential and solely for the=
intended addressee(s). Unauthorised reproduction, disclosure, modification=
, and/or distribution of this email may be unlawful.
If you have received this email in error, please notify the sender immediat=
ely and delete it from your system. The views expressed in this message do =
not necessarily reflect those of Atos Euronext Market Solutions.

Atos Euronext Market Solutions Limited - Registered in England & Wales with=
registration no. 3962327. Registered office address at 25 Bank Street Lon=
don E14 5NQ United Kingdom. =

Atos Euronext Market Solutions SAS - Registered in France with registration=
no. 425 100 294. Registered office address at 6/8 Boulevard Haussmann 750=
09 Paris France.

L'information contenue dans cet e-mail est confidentielle et uniquement des=
tinee a la (aux) personnes a laquelle (auxquelle(s)) elle est adressee. Tou=
te copie, publication ou diffusion de cet email est interdite. Si cet e-mai=
l vous parvient par erreur, nous vous prions de bien vouloir prevenir l'exp=
editeur immediatement et d'effacer le e-mail et annexes jointes de votre sy=
steme. Le contenu de ce message electronique ne represente pas necessaireme=
nt la position ou le point de vue d'Atos Euronext Market Solutions.
Atos Euronext Market Solutions Limited Soci=E9t=E9 de droit anglais, enregi=
str=E9e au Royaume Uni sous le num=E9ro 3962327, dont le si=E8ge social se =
situe 25 Bank Street E14 5NQ Londres Royaume Uni.

Atos Euronext Market Solutions SAS, soci=E9t=E9 par actions simplifi=E9e, e=
nregistr=E9 au registre dui commerce et des soci=E9t=E9s sous le num=E9ro 4=
25 100 294 RCS Paris et dont le si=E8ge social se situe 6/8 Boulevard Hauss=
mann 75009 Paris France.
==================== =====3D=
================

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: How to compare two files and update to second file

You need to read the output file, and separate it into the parts (lines?
strings? keywords?) that you are working with.
Then you need to store those parts, so that you can tell which ones are
there and which aren't. A hash is probably the best way to store those
items.
Then you need to read the input file, separate it into similar parts,
and check whether all of those parts exist in the output file.
If not, then you need to merge the input file into the output file,
somehow.

I'm sorry that my advice is so vague, but your description of what you
need is very vague.


Eric


-----Original Message-----
From: Beri Veera-ext, Reddy [mailto:Reddy.Beri-Veera-ext@bshg.com]
Sent: Monday, February 26, 2007 10:15 AM
To: Roode, Eric; ActivePerl
Subject: RE: How to compare two files and update to second file

Hi,
Thanks for your information. Output file has some additional data.
OUTPUT file should have INPUT FILE data but INPUT file need be have all
data of OUTPUT.

Thanks and Regards
Reddy

-----Original Message-----
From: activeperl-bounces@listserv.ActiveState.com
[mailto:activeperl-bounces@listserv.ActiveState.com] On Behalf Of Roode,
Eric
Sent: 26 February 2007 16:08
To: ActivePerl
Subject: RE: How to compare two files and update to second file

Why compare? Why not just copy the input to the output each time?

Eric

-----Original Message-----
From: activeperl-bounces@listserv.ActiveState.com
[mailto:activeperl-bounces@listserv.ActiveState.com] On Behalf Of Beri
Veera-ext, Reddy
Sent: Monday, February 26, 2007 10:05 AM
To: Brian Raven; ActivePerl
Subject: RE: How to compare two files and update to second file

Hi,
I am using Perl.
I have to compare INPUT text file and OUTPUT text file.
If OUTPUT file is not have some text which is there in INPUT file. I
need to write that text to OUTPUT file.
Ex:
INPUT file has (CADITEM, BSHITEM, ToolItem ) OUTPUT file has (CADITEM,
ToolItem)
I need to compare to files and write BSHITEM to OUTPUT file.
My problem: I am not able read two file at same time. I am getting only
from one file.

Please help me how to read two files and compare.

Thanks and Regards
Karunakara Reddy
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: How to compare two files and update to second file

I guess the OP doesn't know the open command, only how to use <>.
Hey Reddy, read `perldoc -f open` and `perldoc FileHandle`

- - Martin


Beri Veera-ext, Reddy wrote:
> My problem: I am not able read two file at same time. I am getting
> only from one file.

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: How to compare two files and update to second file

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.

------_=_NextPart_000_01C759BB.CC8E3EB5
Content-Type: text/plain

Hi
Thanks for your information. Please get my sample from attachment. Please
tell me if it is wrong and guide me how to solve.
Thanks and Regards
Reddy

-----Original Message-----
From: activeperl-bounces@listserv.ActiveState.com
[mailto:activeperl-bounces@listserv.ActiveState.com] On Behalf Of Thurn,
Martin
Sent: 26 February 2007 16:23
To: Brian Raven; ActivePerl
Subject: RE: How to compare two files and update to second file

I guess the OP doesn't know the open command, only how to use <>.
Hey Reddy, read `perldoc -f open` and `perldoc FileHandle`

- - Martin


Beri Veera-ext, Reddy wrote:
> My problem: I am not able read two file at same time. I am getting
> only from one file.

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


------_=_NextPart_000_01C759BB.CC8E3EB5
Content-Type: application/octet-stream;
name="sample.pl"
Content-Disposition: attachment;
filename="sample.pl"


open(OUTPUT,">$output") || die "failed to read from $item_list \n" ;

if(open (INPUT ,"<$Iinputfile"))
{
while()
{
chomp;
print "$_\n";
if ( $_ !~ /Referenced Item Revisions/ )
{
next ;
}
$_ = ;
chomp;
#while ( $_ =~ /^(\s*)BSHItem/)
while ( $_ !~ /^$/)
{
#print "$_\n";
($item_type,$item_id,$item_revision,$relation,$datsettype,$d ataset) = split /;/;
$input_string = $item_id.";".$item_revision;
while(

)
{
chomp;

print "the $input_string and $_\n";
if($_ eq $input_string )
{
$not_existing = 1;
}
}
if($not_existing != 1)
{
printf OUTPUT "$input_string\n";
}
close(OUTPUT);

$_ = ;
chomp;
}
close(INPUT)
}

------_=_NextPart_000_01C759BB.CC8E3EB5
Content-Type: text/plain;
name="input.txt"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment;
filename="input.txt"

#
# BSH Export Server Job File
# created with stylesheet version 1.0.2
#
BSH Export Server Job File
version=3D1.0.2

PLMEJob
item_id=3D001802
item_uid=3DgxORd0yFxtPOrC
workflow_uid=3D

PLMEJob Master
master_form_uid=3Dg1BRd0yFxtPOrC
plme_m_job_d_01=3D
plme_m_job_d_02=3D
plme_m_job_d_03=3D
plme_m_job_i_01=3D0
plme_m_job_i_02=3D0
plme_m_job_i_03=3D1
plme_m_job_l_01=3D
plme_m_job_l_02=3D
plme_m_job_s_01=3D
plme_m_job_s_02=3D
plme_m_job_s_03=3D
plme_m_job_s_04=3DBSH Export
plme_m_job_s_05=3D
plme_m_job_s_06=3D
plme_m_job_s_07=3D
plme_m_job_s_08=3D
plme_m_job_s_09=3D
plme_m_job_s_10=3D
plme_m_job_s_11=3DTo Transfer Multisite
plme_m_job_s_12=3D
plme_m_job_s_13=3D

PLMEJob Revision
item_revision_id=3DA
item_revision_uid=3Dg1HRd0yFxtPOrC

Referenced Item Revisions
CADItem;56500000001295;A4;IMAN_specification;TIFFDrawing;565 00000001295_=
dr01;tif;56500000001295_dr01.tif
CADItem;56500000001295;A4;IMAN_specification;UGMASTER;565000 00001295-A1;=
qaf;images_preview.qaf
CADItem;56500000001295;A4;IMAN_specification;UGMASTER;565000 00001295-A1;=
qaf;qafmetadata.qaf
CADItem;56500000001295;A4;IMAN_specification;UGMASTER;565000 00001295-A1;=
prt;56500000059898_A1.prt
CADItem;56500000001295;A4;IMAN_specification;UGPART;56500000 001295_dr01;=
qaf;dwg_sht1.qaf
CADItem;56500000001295;A4;IMAN_specification;UGPART;56500000 001295_dr01;=
qaf;qafmetadata.qaf
CADItem;56500000001295;A4;IMAN_specification;UGPART;56500000 001295_dr01;=
prt;56500000001295_dr01.prt
CADItem;56500000001295;A2;IMAN_specification;TIFFDrawing;565 00000001295_=
dr01;tif;56500000001295_dr01.tif
CADItem;56500000001295;A2;IMAN_specification;UGMASTER;565000 00001295-A1;=
qaf;images_preview.qaf
CADItem;56500000001295;A2;IMAN_specification;UGMASTER;565000 00001295-A1;=
qaf;qafmetadata.qaf
CADItem;56500000001295;A2;IMAN_specification;UGMASTER;565000 00001295-A1;=
prt;56500000059898_A1.prt
CADItem;56500000001295;A2;IMAN_specification;UGPART;56500000 001295_dr01;=
qaf;dwg_sht1.qaf
CADItem;56500000001295;A2;IMAN_specification;UGPART;56500000 001295_dr01;=
qaf;qafmetadata.qaf
CADItem;56500000001295;A2;IMAN_specification;UGPART;56500000 001295_dr01;=
prt;56500000001295_dr01.prt
CADItem;56500000001295;A5;IMAN_specification;TIFFDrawing;565 00000001295_=
dr01;tif;56500000001295_dr01.tif
CADItem;56500000001295;A5;IMAN_specification;UGMASTER;565000 00001295-A1;=
qaf;images_preview.qaf
CADItem;56500000001295;A5;IMAN_specification;UGMASTER;565000 00001295-A1;=
qaf;qafmetadata.qaf
CADItem;56500000001295;A5;IMAN_specification;UGMASTER;565000 00001295-A1;=
prt;56500000059898_A1.prt
CADItem;56500000001295;A5;IMAN_specification;UGPART;56500000 001295_dr01;=
qaf;dwg_sht1.qaf
CADItem;56500000001295;A5;IMAN_specification;UGPART;56500000 001295_dr01;=
qaf;qafmetadata.qaf
CADItem;56500000001295;A5;IMAN_specification;UGPART;56500000 001295_dr01;=
prt;56500000001295_dr01.prt
CADItem;56500000001295;A3;IMAN_specification;TIFFDrawing;565 00000001295_=
dr01;tif;56500000001295_dr01.tif
CADItem;56500000001295;A3;IMAN_specification;UGMASTER;565000 00001295-A1;=
qaf;images_preview.qaf
CADItem;56500000001295;A3;IMAN_specification;UGMASTER;565000 00001295-A1;=
qaf;qafmetadata.qaf
CADItem;56500000001295;A3;IMAN_specification;UGMASTER;565000 00001295-A1;=
prt;56500000059898_A1.prt
CADItem;56500000001295;A3;IMAN_specification;UGPART;56500000 001295_dr01;=
qaf;dwg_sht1.qaf
CADItem;56500000001295;A3;IMAN_specification;UGPART;56500000 001295_dr01;=
qaf;qafmetadata.qaf
CADItem;56500000001295;A3;IMAN_specification;UGPART;56500000 001295_dr01;=
prt;56500000001295_dr01.prt
CADItem;56500000001295;A1;previous_TIFF;TIFFDrawing;56500000 001295_dr01;=
tif;56500000001295_dr01.tif
CADItem;56500000001295;A1;IMAN_specification;TIFFDrawing;565 00000001295_=
dr01;tif;56500000001295_dr01.tif
CADItem;56500000001295;A1;IMAN_specification;UGMASTER;565000 00001295-A1;=
qaf;images_preview.qaf
CADItem;56500000001295;A1;IMAN_specification;UGMASTER;565000 00001295-A1;=
qaf;qafmetadata.qaf
CADItem;56500000001295;A1;IMAN_specification;UGMASTER;565000 00001295-A1;=
prt;56500000059898_A1.prt
CADItem;56500000001295;A1;IMAN_specification;UGPART;56500000 001295_dr01;=
qaf;dwg_sht1.qaf
CADItem;56500000001295;A1;IMAN_specification;UGPART;56500000 001295_dr01;=
qaf;qafmetadata.qaf
CADItem;56500000001295;A1;IMAN_specification;UGPART;56500000 001295_dr01;=
prt;56500000001295_dr01.prt
CADItem;56500000001295;A6;IMAN_specification;TIFFDrawing;565 00000001295_=
dr01;tif;56500000001295_dr01.tif
CADItem;56500000001295;A6;IMAN_specification;UGMASTER;565000 00001295-A1;=
qaf;images_preview.qaf
CADItem;56500000001295;A6;IMAN_specification;UGMASTER;565000 00001295-A1;=
qaf;qafmetadata.qaf
CADItem;56500000001295;A6;IMAN_specification;UGMASTER;565000 00001295-A1;=
prt;56500000059898_A1.prt
CADItem;56500000001295;A6;IMAN_specification;UGPART;56500000 001295_dr01;=
qaf;dwg_sht1.qaf
CADItem;56500000001295;A6;IMAN_specification;UGPART;56500000 001295_dr01;=
qaf;qafmetadata.qaf
CADItem;56500000001295;A6;IMAN_specification;UGPART;56500000 001295_dr01;=
prt;56500000001295_dr01.prt
CADItem;56500000001295;A6;IMAN_specification;TIFFDrawing;565 00000001295_=
dr01;tif;56500000001295_dr01.tif
CADItem;56500000001295;A6;IMAN_specification;TIFFDrawing;565 00000001295_=
dr01;tif;56500000001295_dr01.tif
CADItem;56500000001295;A6;IMAN_specification;TIFFDrawing;565 00000001295_=
dr01;tif;56500000001295_dr01.tif
CADItem;56500000001295;A6;IMAN_specification;TIFFDrawing;565 00000001295_=
dr01;tif;56500000001295_dr01.tif
CADItem;56500000001295;A6;IMAN_specification;TIFFDrawing;565 00000001295_=
dr01;tif;56500000001295_dr01.tif
CADItem;56500000001295;A6;IMAN_specification;TIFFDrawing;565 00000001295_=
dr01;tif;56500000001295_dr01.tif
CADItem;56500000001295;A6;IMAN_specification;TIFFDrawing;565 00000001295_=
dr01;tif;56500000001295_dr01.tif
CADItem;56500000001295;A7;IMAN_specification;UGMASTER;565000 00001295-A1;=
qaf;images_preview.qaf
CADItem;56500000001295;A7;IMAN_specification;UGMASTER;565000 00001295-A1;=
qaf;qafmetadata.qaf
CADItem;56500000001295;A7;IMAN_specification;UGMASTER;565000 00001295-A1;=
prt;56500000059898_A1.prt
CADItem;56500000001295;A7;IMAN_specification;UGPART;56500000 001295_dr01;=
qaf;dwg_sht1.qaf
CADItem;56500000001295;A7;IMAN_specification;UGPART;56500000 001295_dr01;=
qaf;qafmetadata.qaf
CADItem;56500000001295;A7;IMAN_specification;UGPART;56500000 001295_dr01;=
prt;56500000001295_dr01.prt
CADItem;56500000001295;A8;IMAN_specification;TIFFDrawing;565 00000001295_=
dr01;tif;56500000001295_dr01.tif
CADItem;56500000001295;A8;IMAN_specification;UGMASTER;565000 00001295-A1;=
qaf;images_preview.qaf
CADItem;56500000001295;A8;IMAN_specification;UGMASTER;565000 00001295-A1;=
qaf;dwg_sht1.qaf
CADItem;56500000001295;A8;IMAN_specification;UGMASTER;565000 00001295-A1;=
qaf;qafmetadata.qaf
CADItem;56500000001295;A8;IMAN_specification;UGMASTER;565000 00001295-A1;=
prt;56500000001295_A1.prt
CADItem;56500000001295;A8;IMAN_specification;UGPART;56500000 001295_dr01;=
qaf;dwg_sht1.qaf
CADItem;56500000001295;A8;IMAN_specification;UGPART;56500000 001295_dr01;=
qaf;qafmetadata.qaf
CADItem;56500000001295;A8;IMAN_specification;UGPART;56500000 001295_dr01;=
prt;56500000001295_dr01.prt
CADItem;56500000001295;A9;IMAN_Rendering;DirectModel;5650000 0001295-A1;j=
t;None$.jt
CADItem;56500000001295;A9;IMAN_specification;UGMASTER;565000 00001295-A1;=
qaf;images_preview.qaf
CADItem;56500000001295;A9;IMAN_specification;UGMASTER;565000 00001295-A1;=
qaf;dwg_sht1.qaf
CADItem;56500000001295;A9;IMAN_specification;UGMASTER;565000 00001295-A1;=
qaf;qafmetadata.qaf
CADItem;56500000001295;A9;IMAN_specification;UGMASTER;565000 00001295-A1;=
prt;56500000001295_A1.prt
CADItem;56500000001295;A9;IMAN_specification;UGPART;56500000 001295_dr01;=
qaf;dwg_sht1.qaf
CADItem;56500000001295;A9;IMAN_specification;UGPART;56500000 001295_dr01;=
qaf;qafmetadata.qaf
CADItem;56500000001295;A9;IMAN_specification;UGPART;56500000 001295_dr01;=
prt;56500000001295_dr01.prt

PLMEJob Referenced Datasets

PLMEJob Revision Referenced Datasets
IMAN_specification;Text;report;txt;report.txt
------_=_NextPart_000_01C759BB.CC8E3EB5
Content-Type: text/plain;
name="output.txt"
Content-Disposition: attachment;
filename="output.txt"

56500000001295;A9
56500000001295;A4
56500000001295;A2
56500000001295;A3
56500000001295;A6
56500000001295;A7
56500000001295;A8
------_=_NextPart_000_01C759BB.CC8E3EB5
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
------_=_NextPart_000_01C759BB.CC8E3EB5--

Re: How to compare two files and update to second file

Beri Veera-ext, Reddy wrote:
> Hi
> Thanks for your information. Please get my sample from attachment. Please
> tell me if it is wrong and guide me how to solve.
> Thanks and Regards
> Reddy
>

Could you also provide what you hope to see in your final merged file?

Are you simply trying to find the occurrence of things like
"56500000001295;A9" obtained from the "output.txt" file in the
"input.txt" file and copy the whole line containing "56500000001295;A9"
from "input.txt" over the whole line in "output.txt"?

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs