regex statement to call variable value is not working??

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

Hi Monks..

Good day to all.....

Following perl code with regex statement is not working..i.e. regex statement written to call value from file inside file is not working..why is it so???

Have any one you also encountered the same problem??? Both of the following codes are not working....i.e. it is not printing the word "matched"...

use strict;
use warnings;

open (IN1, "<design_modify1.vhd") or die;
open (IN2, "<nets.txt") or die;
my @nets = <IN2>;
while (<IN1>) {
    foreach my $i (0..$#nets){
        print "matched" if m/$nets[$i]/;
        }        
}
[download]

use strict;
use warnings;

open (IN1, "<design_modify1.vhd") or die;
open (IN2, "<nets.txt") or die;
my @nets = <IN2>;
while (<IN1>) {
    foreach my $i (0..$#nets){
        my $var1= $nets[$i];
        print "matched" if m/$var1/;
        }        
}
[download]

For your reference, i am attaching other two files also here........

design_modify1.vhd has following lines of codes 

enable_pad : INBUF port map (PAD => enable, Y => enable_c);

    c_pad : INBUF port map(PAD => c, Y => c_c);
    
    b_pad : INBUF port map(PAD => b, Y => b_c);
    
    sum_pad : OUTBUF port map(D => sum_c, PAD => sum);
    
    VCC_i_0 : VCC port map(Y => VCC_0);
    
    VCC_i : VCC port map(Y => \VCC\);
    
    sum_1_SUM0_0 : XOR3 port map(A => b_c, B => a_c, C => c_c, Y => su
+m_c);
    
    carry_pad : OUTBUF port map(D => N_5, PAD => carry);
    
    a_pad : INBUF port map(PAD => a, Y => a_c);
    
    GND_i_0 : GND port map(Y => GND_0);
    
    GND_i : GND port map(Y => \GND\);
    
    sum_1_CO0_i : MAJ3 port map(A => a_c, B => c_c, C => b_c, Y => N_5
+);
[download]

nets.txt file has following codes...

a_c
b_c
c_c
[download]

Comment on regex statement to call variable value is not working?? Select or Download Code

Replies are listed 'Best First'.
Re: regex statement to call variable value is not working?? by Corion (Patriarch) on May 13, 2015 at 07:42 UTC
Each element of `@nets` contains a newline character, while your target strings don't contain the newline character. See chomp.	[reply] [d/l]
Re^2: regex statement to call variable value is not working?? by sumathigokul (Acolyte) on May 13, 2015 at 08:25 UTC
Thank you... Its working now....	[reply]
Re^3: regex statement to call variable value is not working?? by marto (Cardinal) on May 13, 2015 at 09:29 UTC
You've been told about chomp several times now, in relation to this one problem (as noted here). The purpose of this site is to help people learn, not to do work for them. Before posting again review the your existing threads.	[reply]
Re^3: regex statement to call variable value is not working?? by sumathigokul (Acolyte) on May 13, 2015 at 08:57 UTC
Hi Corion.. The code is working fine, but not does my intention function...i modified the code for my need based on your comments as followed... `use strict; use warnings; open (IN1, "<design_modify1.vhd") or die; open (OUT, ">output_file.vhd") or die; open (IN2, "<nets.txt") or die; open (IN3, "<enabled_nets.txt") or die; my @nets = <IN2>; my @enabled_nets = <IN3>; chomp @nets; chomp @enabled_nets; while (<IN1>) { print OUT; foreach my $i (0..$#nets){ print OUT if (s/\=\>\s+$nets[$i]\,/\=\> $enabled_nets[$i]\,/); #} } close (IN1); close (OUT); close (IN2); close (IN3);` [download] I want the output file as follows.. (shown only the modifiable lines) `VCC_i : VCC port map(Y => \VCC\); sum_1_SUM0_0 : XOR3 port map(A => b_e, B => a_e, C => c_e, Y => su +m_c); carry_pad : OUTBUF port map(D => N_5, PAD => carry); a_pad : INBUF port map(PAD => a, Y => a_c);` [download] but it is printing as follows.. I understood the mistake in the code that since i wrote the print statement inside for loop, it gets only one element of array at a time.. So, do you have any suggestions for this??? `VCC_i : VCC port map(Y => \VCC\); sum_1_SUM0_0 : XOR3 port map(A => b_c, B => a_c, C => c_c, Y => su +m_c); sum_1_SUM0_0 : XOR3 port map(A => b_c, B => a_e, C => c_c, Y => su +m_c); sum_1_SUM0_0 : XOR3 port map(A => b_e, B => a_e, C => c_c, Y => su +m_c); sum_1_SUM0_0 : XOR3 port map(A => b_e, B => a_e, C => c_e, Y => su +m_c); carry_pad : OUTBUF port map(D => N_5, PAD => carry); a_pad : INBUF port map(PAD => a, Y => a_c);` [download]	[reply] [d/l] [select]
Re^4: regex statement to call variable value is not working?? by Corion (Patriarch) on May 13, 2015 at 09:02 UTC
Re: regex statement to call variable value is not working?? by vinoth.ree (Monsignor) on May 13, 2015 at 08:43 UTC
Hi sumathigokil, As corion pointed out the problem, here I am just adding extra information for you. Three-argument open() There are two forms of the open() function in Perl 5. The modern version takes three arguments: the filehandle to open or vivify, the mode of the filehandle, and the name of the file. The legacy version has two arguments, only the filehandle and the name of the file. The mode of the file comes from the filename; if the filename starts (or ends) with any of several special characters, open() parses them off and uses them. If you accidentally use a filename with those special characters with the two-arg form of open(), your code will not behave as you expect. This is especially a problem if you're not careful about sanitizing user input, and if any user input ever becomes part of a filename. Consider: `open my $fh, ">$filename" # INSECURE CODE; do not use or die "Can't write to '$filename': $!\n";` [download] While this code appears to open $filename for writing, an insecure $filename could start with > to force appending mode, or - to open STDOUT (though I suspect you have to work really hard to force this). Likewise, code without any explicit mode in the second and final parameter is susceptible to any special mode characters. Extracting file modes into a separate parameter to this function prevents Perl from parsing the filename at all and removes the possibility for this unintentional behavior. As Damian Conway has mentioned, using a separate file mode parameter also makes the intention of the code clearer: `open my $fh, '>', $filename # safer and clearer or die "Can't write to '$filename': $!\n";` [download] The modern version of this code is safer and clearer, and it's been available since Perl 5.6.0 sourced from http://modernperlbooks.com/mt/2010/04/three-arg-open-migrating-to-modern-perl.html change the line `my @nets = <IN2>;` to `chomp (@nets = (<IN2>));` *All is well. I learn by answering your questions...*	[reply] [d/l] [select]
Re: regex statement to call variable value is not working?? by Anonymous Monk on May 13, 2015 at 08:35 UTC
Odd situation that you would forget about chomp You were told about chomp in Does problem is in the for loop???. You were told about chomp in How to read the regular expression from another file?. You even had included chomp chomp in How to insert a file with another file with comma separated??. What happened sumathigokul?	[reply]
Re^2: regex statement to call variable value is not working?? by afoken (Chancellor) on May 13, 2015 at 08:46 UTC
What happened sumathigokul? sumathigokul-- tries to abuse perlmonks as a code writing service, and he's at least partially successful. See Re: Please find out the mistake in substitution function in the code?? for a thread list. Alexander -- Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)	[reply]

Back to Seekers of Perl Wisdom