Shell Programming and Scripting

[root@tmp]# cat 1.txt
1 a
2 b
3 cc
4 d

[root@tmp]# cat 1.pl
#!/usr/bin/perl
use strict;
use warnings;

my $str="a,cc";

open(my $FA, "1.txt") or die "$!";
while(<$FA>) {
        my @tmp=split;
        chomp;
        if (index($str, $tmp[1]) ne -1) {
                print "@tmp\n";
        }
}

[root@tmp]# ./1.pl
1 a
3 cc
[root@tmp]#

awk '$2~/a|cc/' 1.txt
perl -ane 'print if $F[1]=~/a|cc/' 1.txt

awk -v a="a" -v b="cc" '$2 ~ /c/|| /a/{print}' file

[root@tmp]# cat 1.pl
#!/usr/bin/perl
use strict;
use warnings;

print if $F[1]=~/a|cc/ "1.txt";

[root@tmp]# ./1.pl
String found where operator expected at ./1.pl line 5, near "/a|cc/ "1.txt""
        (Missing operator before  "1.txt"?)
Global symbol "@F" requires explicit package name at ./1.pl line 5.
syntax error at ./1.pl line 5, near "/a|cc/ "1.txt""
Execution of ./1.pl aborted due to compilation errors.

[root@tmp]# perl -ane 'print if $F[1]=~/a|cc/' 1.txt
1 a
3 cc

#!/usr/bin/perl

use strict;
use warnings;
use Carp;

open my $FH, '<', '1.txt' or croak "Can't open 1.txt: $!";
print grep { local @_ = split; $_[1] =~ /a|cc/ } <$FH>;
close $FH;

#!/usr/bin/perl
use strict;
use warnings;

#!/usr/bin/perl -w
use strict;