Walter Blyss的部落格

What kind of world do you want?
Think Anything
Let's start at the start
Build a masterpiece
Be careful what you wish for
History starts now...

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
     " "
      ;}

 

Hello, everybody,
welcome to learning Perl , that is a very nice programming language.
And maybe you will say, what is Perl,
let me show you , see below:

自從退伍一年後，胖了20公斤，就一直瘦不回來了，鳴鳴~~~
好不容易瘦了10公斤了，但再瘦不下去了，哇哇~~
我的目標距離只差2公斤了，加油啊~~~~~~
哈哈^^

響應環保，
請大家告訴大家，為地球盡一分心力，please, thanks.

分享一下我的桌面