Re^2: Store and match

#!/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
[download]

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

Comment on Re^2: Store and match Download Code

Replies are listed 'Best First'.
Re^3: Store and match by prasadbabu (Prior) on Aug 11, 2009 at 07:07 UTC
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";` [download] Prasad	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: Store and match
by prasadbabu (Prior) on Aug 11, 2009 at 07:07 UTC

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";
[download]

Prasad

[reply]
[d/l]
[select]