Re: Store and match

[prasadbabu]

in reply to Store and match

The mistake you have done is you have not stored the current line in variable $x. Also \w+ will match only 'note_values' and not the remaining string 'note_values,notes_values2 ' as it contains ',' in between.

The below code will meet your requirement. Also refer perlre to learn how to store the matched value in variables.

while($x=<DATA>){

if ($x =~ /^\[Note\](.+)$/){
    
    $var = $1; #store in a variable
    print $var;
    
}

}

[Anonymous Monk]

#!/usr/bin/perl

while($x=<DATA>){

if ($x =~ /^\[Note\](.+)$/){

    $var = $1; #store in a variable
    print $var;

}

}


__DATA__
[Note]
note_values,notes_values2
[Book]
novels,magazines
[Note]
note_values,notes_values3

Hi, if the values are as above, then how to print the values of Note. If the values of Note has "note_values", then how to count the number of occurence

[prasadbabu]

I am not clear with your inputs because in your previous node you gave [Note] in same line and now in two lines. Any how the below code will work for your above input. It will also match note_values if more than one present in a single line.

use strict;
use warnings;

my $prev = 0;
my $total = 0;

while(my $x = <DATA>){

    $prev = 1 if ($x =~ /^\[Note\]$/);    
    my $count = 0;    
        
    if (($x =~ /note_values/) && $prev){                    
        $count = $x =~ s/(note_values)/$1/g; #if more than one note_va
+lues present in a line    
        $prev = 0;            
    }
    
    $total = $total + $count;    
}

print "Number of occurence: $total";