Shell Programming and Scripting

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

my @test=("a","b","c","d");
print @test;

[root@]# ./1.pl
abcd

#!/usr/bin/perl
@test = qw/a b c d/;
print "@test\n";
@sorted = map { $_->[0] }
  sort { $a->[1] cmp $b->[1] }
  map { $a = $_; $a =~ tr/abcd/4213/; [ $_, $a ] } @test;
print "@sorted\n";

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

my @test = qw/aaa bb 44 BB9/;
my @new;
foreach (@test) {
        if ($_ =~ m/^(BB9)/i ) {
                $new[0] = $_;
        } elsif ($_ =~ m/^(bb)/i ) {
                $new[1] = $_;
        } elsif ($_ =~ m/^(aaa)/i ) {
                $new[2] = $_;
        } elsif ($_ =~ m/^(44)/i ) {
                $new[3] = $_;
        }
}
print @new;

exit;
#my @sorted = map { $_->[0] } sort { $a->[1] cmp $b->[1] } map { $a = $_; $a = splice(@test,0,4,'4','3','2','1'); [ $_, $a ] } @test;
#print "@sorted\n";

[root@P1Portal ]# ./1.pl
BB9bbaaa44