Help for this page

Select Code to Download


  1. or download this
    use v5.30.0;

...

my $last;
say ' (\'NAME\'=~/$last/i)=', 'NAME' =~ /$last/i ? 1 : 0;
  2. or download this
    D:\>surprise.pl
 ('NAME'=~/$last/i)=1
  3. or download this
    D:\>surprise.pl all
 ('NAME'=~/$last/i)=0