Please find out the mistake in substitution function in the code??

http://www.perlmonks.org?node_id=1126313

sumathigokul has asked for the wisdom of the Perl Monks concerning the following question:

This node falls below the community's threshold of quality. You may see it by logging in.

Comment on Please find out the mistake in substitution function in the code?? Select or Download Code

Replies are listed 'Best First'.
Re: Please find out the mistake in substitution function in the code?? by afoken (Chancellor) on May 11, 2015 at 13:51 UTC
Yet another thread? Really? So I ask again: How is this problem different from your other threads? How to insert a file with another file with comma separated?? Perl script to find particular string and save those lines in another file? Find maximum number in text file and copying its full statement in new text file? How to read the regular expression from another file? How to insert the content of a file into another file before/after a pattern match? Please correct the mistakes in the code.. You seem to think of perlmonks as a code writing service. It isn't. You were told how perl helps you finding bugs: Basic debugging checklist, Re: How to insert the content of a file into another file before/after a pattern match? Alexander -- Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)	[reply]
Re: Please find out the mistake in substitution function in the code?? by GotToBTru (Prior) on May 11, 2015 at 15:42 UTC
Your print OUT if (...) needs something to print. You should work out how you would do this manually in order to form your algorithm. I would suggest building a hash where the values from file2 are the keys, and the corresponding strings from file3 are the values. Then, for each line in file1, loop over the hash keys and replace with hash value if key is found in line. Dum Spiro Spero	[reply]
Re^2: Please find out the mistake in substitution function in the code?? by AnomalousMonk (Archbishop) on May 11, 2015 at 17:40 UTC
Your print OUT if (...) needs something to print. print will output the value of `$_` localized in the enclosing `while (<IN1>) { ... }` loop. Give a man a fish: `<%-(-(-(-<`	[reply] [d/l] [select]
Re^3: Please find out the mistake in substitution function in the code?? by GotToBTru (Prior) on May 11, 2015 at 19:17 UTC
I had to look at that again; of course you're right. But only lines for which the substitution is performed will print. I think that is not exactly what is wanted. Perhaps more like: `while(...) { s/.../.../; print OUT; }` [download] The lines with recognized codes will be corrected; lines without codes will still be copied to the output. Dum Spiro Spero	[reply] [d/l]
Re^2: Please find out the mistake in substitution function in the code?? by sumathigokul (Acolyte) on May 12, 2015 at 05:12 UTC
Hi GotToBTru... Since i want to automate this process and nets.txt and enabled_nets.txt files are all generated automatically, every time I will not know the contents of those files, in such case,. how can i make it as hash.... Do you find any mistake in this code??	[reply]
Re^3: Please find out the mistake in substitution function in the code?? by GotToBTru (Prior) on May 12, 2015 at 13:47 UTC
Using the arrays you have already loaded: `%hash = map { $nets[$_] => $enabled_nets[$_] } 0..$#nets;` [download] Dum Spiro Spero	[reply] [d/l]

Back to Seekers of Perl Wisdom