Re: how to comment the lines if found a match


Pathologically Eclectic Rubbish Lister
	PerlMonks

Re: how to comment the lines if found a match

by lostjimmy (Chaplain)

on Dec 05, 2008 at 18:55 UTC ( #728347=note: print w/replies, xml )

Need Help??

in reply to how to comment the lines if found a match

Since you haven't provided any code, how about some pseudocode to get you started?

OPEN file1
READ contents of file1 into array @words

OPEN file2
FOR line in file 2
    IF line contains any of @words
        PRINT "#" + line
    ELSE
        PRINT line
[download]

You might want to check out the documentation for open and perlretut.

Comment on Re: how to comment the lines if found a match Download Code

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://728347]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others having an uproarious good time at the Monastery: (5)

As of 2023-12-10 09:54 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

Notices^?