in reply to Re: Using pattern match
in thread Using pattern match

 s/print sprintf/printf/

[download]

Replies are listed 'Best First'.
Re^3: Using pattern match
by tceng (Novice) on Aug 10, 2007 at 18:30 UTC
    Thank you for your contribute!
    Unfortunately the idea was to be able to process regular expressions with more than one matching patter and be able to print out something that involves those matching patterns.
    I think it would help if Perl generates a list whose elements are all the matching patterns in a s/// operation. Ie that list contains $1, $2, $3, and so on, and a foreach can be done on it, so that one can pick up all the defined variables in one go and then substitute them with the method I showed before (s/\$1/$1/g). Is there one such list, please?

    Cheers,

    tceng
[reply]
      you can capture the list yourself, and then do substitutions from it. 
      #!/usr/bin/perl -w

my %triggers = (
    'You are (\\w+).' => 'Your status is: $1',
);

my $buff = "You are fired!";

foreach my $trigger ( keys ( %triggers ) ) {
    if ( my @captures = $buff =~ /$trigger/ ) {
        # $1 == $captures[0], ..etc
        my $response = $triggers{$trigger};
        $response =~ s/\$([0-9]+)/$captures[$1-1]/g; 
        print $response;
    }
}
print "\n";

      [download]
[reply]
[d/l]
        Splendid!
[reply]

In Section Seekers of Perl Wisdom