Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: compare two files and print the differences of file 2 in a third file

by dbander (Scribe)
on Jun 14, 2017 at 07:37 UTC ( #1192764=note: print w/replies, xml ) Need Help??


in reply to compare two files and print the differences of file 2 in a third file

Your problem is in this line:

while ( my $line = < GOODFILE> ) {

Try using printto see what you're getting in $line:

while ( my $line = < GOODFILE> ) { chomp $line; print "GOODFILE line: '$line'\n";

Your error should be clear to you if you do this.

Replies are listed 'Best First'.
Re^2: compare two files and print the differences of file 2 in a third file
by hopper (Novice) on Jun 15, 2017 at 20:45 UTC
    Thanks for taking time to take look at my code.
    I think you misunderstand my issues. The issues is that I have two files and each files has the multiple sections, and each section contents the description of it. The problem I am want to do is to compare two files and only print out the sections and subsection within that are not in file1 and save to the third file. So far, my code print out the diff(file2)of the sections that are not in file1 but it does not print out the subsections that belongs to the section.

    Please help me figure out what is the issues with my code.
    Thanks so much in advance.

      Your issue is that you are not reading GOODFILEproperly.

      You thanked me for taking the time to look at your code.
      I will now thank you to take the time to actually try the answer I gave you.

      Click on the spoiler link below to see what the problem is.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (6)
As of 2023-02-01 12:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I prefer not to run the latest version of Perl because:







    Results (3 votes). Check out past polls.

    Notices?