Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re: Merge the difference between two files

by marinersk (Priest)
on Jun 17, 2017 at 04:17 UTC ( [id://1193005]=note: print w/replies, xml ) Need Help??


in reply to Merge the difference between two files

Hello, lonnie.

I've made some changes to your code, similar to what dbander asked you to do in your previous and strikingly similar request for help.

I get the same output you do, so we're on the right track.

I will only comment on the things which prevent your code from working. There's a lot more we should discuss later.

Your main problem seems to be in this logic:

if ( $line =~ /^NAME/ ) { my ( $name, $variable1, $variable2 ) = split( ',', $line, 3 ); $results{$line} = 1; print " SET \$results[$line] = $results{$line}\n"; }

In regular English, this code:

  1. Reads each file
  2. Skips any line that doesn't start with "NAME"
  3. Saves all the lines which do start with "NAME" to a hash.

Then, at the end, you print out all the lines you saved -- which are the ones which start with "NAME".

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1193005]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others chilling in the Monastery: (5)
As of 2024-03-29 13:33 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found