Как распечатать $ _

Question

Как я могу напечатать $ _ снаружи, используя grep?Я хочу напечатать данные внутри %try_1, если они совпадают с %try .........

#!/usr/bin/perl
use strict;
use warnings;
use Tie::Autotie 'Tie::IxHash';

tie my %try, 'Tie::IxHash';
$try{STRONG}{ALLIES}='A';
$try{AGILE}{BOBBY}='B';
$try{AGILE}{HOBBY}='B';
$try{SMART}{CAKRA}='C';
$try{SMART}{PHONE}='C';
$try{SMART}{PEOPLE}='C';
my %try_1;
$try_1{STRONGER}='A';
$try_1{AGILER}='B';
$try_1{SMARTER}='C';

foreach my $temp_0 (keys %try)
{
    print "\n".$_."\n" if (grep {$_ =~ /$temp_0/i} (keys %try_1));
 }

Answer 1

Ты почти у цели.Изменение:

print "\n".$_."\n" if (grep {$_ =~ /\Q$temp_0/i} (keys %try_1));

На:

print "\n".$_."\n" for grep {/\Q$temp_0/i} keys %try_1;

\Q обрабатывает любой специальный символ, который $temp_0 может содержать.