Re^2: Merge the difference between two files

Hi NetWallah, I really like the code that you wrote. However It is not printout out the way I want.

Currently, it finds the line "NAME" if match then merge the content. however, I want to separate two files and just merge unmatched

line/content "NAME" that is in file 2 to file#1. If the line "NAME" match ignore the content of the lines. can I print the result to a

file and not on the display only?

For example:(ignore the content, if line "NAME, VAR1, VAR2" match)

File 1:
NAME, VAR1, VAR2
apple, mange

File 2:
NAME, VAR1, VAR2
jack fruit, banana
[download]

Comment on Re^2: Merge the difference between two files Download Code

Replies are listed 'Best First'.
Re^3: Merge the difference between two files by poj (Abbot) on Jun 16, 2017 at 19:36 UTC
Try this, still using hash-of-arrays #!/bin/perl -w use strict; use warnings; # input my %hash=(); my @filename = ('File1.txt','File2.txt'); for my $n (0..1){ parse($n,$filename[$n]); }; output('output.txt'); # parse sub parse { my ($n,$filename) = @_; open my $fh,'<',$filename or die "$!"; my $key; while (<$fh>){ if (/^NAME/){ $key = $_; $hash{$key}[$n] = ''; } else { $hash{$key}[$n] .= $_ if $key; } } close $fh; } # merge sub output { my ($filename) = @_; open my $fh,'>',$filename or die "$!"; for my $key (sort keys %hash){ if (defined $hash{$key}[0]){ print $fh $key.$hash{$key}[0]; } else { print $fh $key.$hash{$key}[1]; } } close $fh; } [download] poj	[reply] [d/l]
Re^3: Merge the difference between two files by NetWallah (Canon) on Jun 17, 2017 at 04:53 UTC
To achieve this, after the line `$currentheader = $line;` [download] add this: `if (exists $result{$currentheader}){ $currentheader="RECYCLE_BIN"; }` [download] I will leave it as an exercise for you to figure hou how to avoid printing the "RECYCLE_BIN" item. Once it hits the fan, the only rational choice is to sweep it up, package it, and sell it as fertilizer.	[reply] [d/l] [select]
Re^4: Merge the difference between two files by hopper (Novice) on Jun 22, 2017 at 21:12 UTC
I was able to print the unmatched contents to a file. could you please help me edit the code to do just compare the content of the line "NAME" and print out the header of the file A. Don't compare the headers. I tried to figure out but so far I have no luck. Thanks so much in advance	[reply]
Re^5: Merge the difference between two files by NetWallah (Canon) on Jun 23, 2017 at 19:21 UTC
Your second and third sentences contradict each other: `* edit the code to do just compare the content of the line "NAME" * Don't compare the headers` [download] So I'm having trouble understanding what you want. Sample data, and expected results would help. Once it hits the fan, the only rational choice is to sweep it up, package it, and sell it as fertilizer.	[reply] [d/l]
Re^3: Merge the difference between two files by huck (Prior) on Jun 16, 2017 at 18:40 UTC
can I print the result to a file and not on the display only? Did you even try to figure this out by yourself or are you just looking for someone to do all your work for you? https://perldoc.perl.org/functions/select.html select FILEHANDLE If FILEHANDLE is supplied, sets the new current default filehandle for output. ... , a write or a print without a filehandle default to this FILEHANDLE.	[reply]


XP is just a number
	PerlMonks