Join us @ Walter Blyss的部落格

my $b1 = qq(2 1 2 6
3
3
3
4
6
4
2
4 2); my $a1 = qq( s
                   u
                   n
                   i
                   o
                   j
                   o
                   t
                   e
m o c y l i s a e l
r                  e
p                  e
s                  u
n                  a
c                  u
o                  y
r                  e
t                  l
a                  w
m                  a
i i h); my @a2=split
(
" ",
$a1
);
my
@b2
=
split
(
" "
,
$b1
)
;
LOOP:for(my $i = $#a2
,                  my
$z                = 0
;                  $i
>=                  0
;                $z++
)                   {
for                 (
my                 $j
=                 $b2
[                  $z
]                   ;
$j                  >
0;               $j--
, $i-- ){ last LOOP
           if
        ($i   ==
       -1)       ;
      unless ($j ==
    $b2          [$z])
{print            $a2
[$i]                  ;}
   else         {print
     uc         ($a2
      [$i])    ;}}
        print " "
            ;}

my $b1 = qq(2 1 2
6
3
3 3 4 6 4 2 4 2);
               my
               $a1
               =
qq(s u n i o j o
t e
    m o
      c y
        l i
          s a
            e l
            r e
          p e
        s u
      n a
    c u
o y
r e t l a w m a
i
i
    h
     )
      ;
       my
         @a2
           =
            split
              (
                " ",
                $a1
                  );
my @b2 = split(" ",
               $b1);
            LOOP:
         for
      (my
    $i =
$#a2,
my
$z
    =
      0;
        $i
          >=
             0;
               $z++)
{ for (my $j = $b2[$z]
;         $j
>      0;
    $j--,
    $i--
    ){
   last
LOOP   if
(        $i
==        -1);
print $a2[$i];
    } print
     " "
      ;}