       
     Perl ন  横 for,  while   do    -
訬 ⫨ﬨ   ॠ樨  몥 . ⢥ ⫨-
稥 㦨 ,   Perl ॡ ᯮ짮 権 -
, 祭묨  䨣 ᪮. ஬ ⮣,   -
 , , Perl   横,  6 ᯥ
   .  ᫥ ਬ 横 for, while 
do ࠡ  ࠧ  몠   Perl:

for($i = 0; $i< 100;$i++)
   {
printf("%d\n", $i) ;
           }
while ($i > 0)
   {
        printf("%d\n", $i-);
   }
do {
printf("%d\n", $i++);
      } while ($i < 0);

      横  몥  ⫨筠  樨  -
 Perl    ⮬,  Perl  ᮤন  break,  -
 continue 믮 ᮢ襭  㭪.  , Perl
ᯥ稢  ,     ⨢ -
 樨:

? last    室  横 (   break)
? next      (   continue)
? redo    ⥪ 

       権 横  몥 Perl,   室
ࠧ  ᯮ짮  continue.  ᬮਬ  ᫥-
騩 横 while,  ᮤন  continue:
        $i = 100;
while ($i > 0)
   {
print $i;
    } continue {$i-}

       ।⠢ ᥡ  continue   ࠦ-
  横 for,  ஥ 믮   樨.  -
 ࠧ Perl 믮  continue    -
樨.  ,    㧭 ,   continue  ᯥ稢
ਯ   ஫  ᮬ,    祬  ᯥ稢
横 for.  横  몥 Perl ᯮ  next, 
continue  ࠢ 믮, ᫨ ⮫쪮  .  -
 ᫨ 横 ᯮ  redo,   continue    ᯮ-
.

     
      ਯ Perl ⪨   ,    ᮮ⢥饥
   ਯ.   ⮪ 稢 -
稥 (ਬ,  outerloop:).  ᯮ  goto,  ਯ
 ⢫ 室  .   ⥫쭮    -
짮  last,  next  redo,   室  ⪥.
騩   ᯮ짮  last  -
室  :

outerloop: while ($i > 0)
        {
              while ($j > 0)
                {
                        # - 㣮 

                        if ($needToAboutLoop)
                        {
                                last outerloop;
                        }
                }
        }

      ⮬ 砥  ᮤন  last  室 
 outerloop  砭 믮 横.

      UNTIL
       樥 横    몥  Perl    横
until,    ⨢ 横 while.    
,   横 while 樨 믮   ,   
믮  ᫮.  横 until,  ⨢,  -
樨 믮   ,   㤥 믮 ᫮. -
ਬ,  ᬮਬ 横 while,  ⠪,      ᫥饩
࠭.

        while (!(expr))
                {
                        statement;
                }
     ᯮ 横 until,   ᮧ  横,  -
 :

        until (expr)
        {
                statement;
        }

       ࠧ  ᫥    do  while  -
  ᪮ 栭  ⮣,   ⮡  믮-
 横,   㫥 ࠦ  ⠭ ⨭:

do {
        statement;
} while (!(expr));

     ᯮ  do until,   ନ஢ -
 横  ᯮ짮 ᪮ 栭:

do
{
        statement;
} until (expr);

      FOR  FOREACH
     Perl ন 横 for ᮢ襭 筮  :

for (statement1; expression; statement2)
    {
        statement3;
     }

     ਬ, ᫥騩  ᯮ 横 for  ⮣,  ⮡
뢥 祭 ᥫ  0  100:

for ($digit = 0; $digit <=100; $digit++)
     {
        print $digit, ' ';
      }

     ⥫쭮 Perl ᮤন  横 foreach, -
  ਯ ࣠뢠 樨  ᯨ᪠   -
. ᬮਬ ਬ:

@list = ('a','b','c');

foreach $arg (@list)
    {
        print "List item: $arg\n";
     }

foreach $i (1..10)
     {
        print "iteration $i\n"
      }

      ࢮ 砥 横 foreach ⢫ ॡ 祭  
ᯨ筮 ६ @list.   ஬ ਬ    横  foreach
⢫ ॡ ᥫ    1  10.
      横 foreach  䨣஢ ᯨ᮪, 騩 
ࠫ,   ᨢ,   뫮 ந஢   ।饬
ਬ. ᫥ 믮  樨 横, ᯥ樠쭠 ᪠-
ୠ ६ {$arg  ࢮ 砥  $i    ஬  砥)
ਭ 祭   ᯨ᪠ ⮢.    -
 ⮩ ᪠୮ ६   横  foreach  ࠭稢
⥫ 横.  ⮬ ᪠ୠ ६ 横,  foreach  -
 䫨⮢    ६,    ।
 横.   ᫥饬  ६   $i  ᯮ
   横 foreach:

        $i = 1001;
        foreach $i (1..9)
            {
                print "$i\n";           # 横 뢥 123456789
             }

        print "$i\n";

       㢨  ⮣ ਬ,   ६  $i,    -
㥬  ࣠樨 権 横,  䫨  -
 $i, ।  横.
     ᮡ 横, foreach,    ਯ  -
짮,    䨪樨 ⮢  ᨢ.
( ஦  ॠ樨  ⮩  !)  ᬮਬ
᫥騩 横 foreach,     祭  10  
 ᨢ:

@list = 1..5;
foreach $i (@list)
      {
        $i += 10;
      }

$,  = ' ';
print @list;            # 뢥 11 12 13 14 15

      ᪮쪮 ⥫ 砭 ⭮⥫쭮 横-
 foreach.   몥 Perl  foreach  for ᬠਢ 
ᨭ. ⮬  ਯ  ᯮ짮   -
. Perl,  ᢮ ।, 㤥 । ⨯ 横,  ᭮-
   ⥪.

        GOTO
     Perl ন  ᫮ 室 goto, -
   ⠪   몠  ணࠬ஢-
 .   ਢ ਬ ᯮ짮  goto  -
 ᥫ  1  10:

$i = 1;
loop:
        print $i++, ' ';

        if ($i <=10)
                {
                        goto loop;
                }

      
      몥 Perl ᯮ ᯥ樠  樨  if,
unless, while  until,   ࠢ 室 ᫥-
.   ।    c樠  樨  
ᤥ       ⠥.  ⮣, ⮡ 
뫮        祢,   楫ᮮࠧ
롨 室騩 ଠ  .  ᬮਬ ᫥饥 -
, ᯮ饥 㭪 die  ⮣,  ⮡  믮-
 ਯ, ᫨ 祭 ६ $count  祬 10:

if  ($count < 10)
        {
                die;
        }

     ᫨ ᯮ 㭪 die । ஬ if,   -
 , ᫮ ப  㬥:

die if ($count < 10);

      ࠧ,    ᠬ ࠦ   -
ᠭ  ᫥饬 :

($count >= 10) || die;

       砥,  ᫨ ६ $count     ࠢ
10,  Perl ४頥 쭥襥 ᫥   ப  -
 die  믮   ⨢  砥,    ᫨  ६
$count  10, ᫥ ᫥ ࢮ  ࠦ  -
᪠ 㭪 die  ⥬ ᠬ 稢 믮 ਯ.
     ,     ᫥饬  ਬ  ᯮ짮  樨
unless ⠪  㬥 ᫮ ப  :

die unless ($count >= 10);

      ࠧ, ᫥騥 横 while  -
묨:

$i = 0;
while ($i < 10)
     {
        $i++;
      }

$i = 0;
$i++ while ($i < 10);

       , ᯮ 䨪 樨,  ਯ
 ᮪ ᫮ ப   横  .   -
 ࠧ, ᫥騥 横 until :

$i = 10;
until ($i >= 10)
     {
        $i++;
      };

$i = 10;
$i++   until ($i >=10);

ਬ砭:    ,  ᫨ ࠦ  -
 ᯮ ᫥ 樨  믮,  Perl ᭠-
  ᫮  ⮫쪮 ⮬ 믮 .

           EVAL
     ᪮ Perl  㥬 몮,  ਯ-
  ᯮ짮 Perl  ⮣,  ⮡ ஢   <
>,   ᪨,   ६ ᯮ ਯ.  
⠪ ࠡ⠥ ⫠稪 Perl ( ᠬ   Perl-ணࠬ
  Perldb.PL).  ஥ ਯ,    ᯮ짮
⠪ ᪨   ᮧ ᪨ ६  
  ஥ ᯥ樠 ணࠬ. Perl 業 -
᪨ ࠦ,  ᯮ 㭪 eval.   ᫥饬 ਬ
ᮧ ᪠  ⥬ ᢮  ६  
⢥ 祭 ⥪, , ᮡ⢥,  ᮤন ॡ-
  몠 Perl.  쭥訥 樨 ᯮ -
 eval  ⮣, ⮡ 믮  :

$perl_statement = 'print "Hello, world\n";';

eval $perl_statement;                   # 뢥 Hello, world
$i = 1001;
$varname = '$i';
print eval $varname;                    # 뢥 祭 $i

ਬ砭: ᯮ짮 ਯ⮬ 㭪樨 eval ⠨  ᥡ -
,   ᮡ,  ᫨ ਯ । 㭪樨 eval ,
祭  짮⥫. ᯮ 㭪 eval,  ਯ 
믮 ந  몠 Perl,     ⥬-
 .       짮⥫  ஫஢
ணࠬ,    ᮡ ᪮  ⥩ Internet
 Web.

     
        ஢ 모  ணࠬ஢,    Perl
ন ணࠬ.  ணࠬ   ।  
 祢 ᫮ sub,   :

sub demo_sub
      {
        print "demo_sub called\n";
       }

&demo_sub;                      # 맮 ணࠬ

       砥 樨 ࠧ ணࠬ,  
demo_sub.   맮 ணࠬ ਯ 頥  ᠭ-
 (&) ।  ணࠬ.   맮 ணࠬ  -
 Perl ᪮   饭.
       ࠧ ணࠬ  㣮  ।  -
室  ਯ,  ⮬  Perl ஠  室-
 ⥪ । ⥬,    믮 ਯ.   -
 ணࠬ  室  ࠧ ᫥ ࢮ ᯮ짮-
 ணࠬ (forward reference).  ணࠬ    
㬥   祭.  騩 ࠣ   ᮤ-
 ணࠬ   show_value,   뢮  祭,
祭 ணࠬ  ⢥ ࠬ:

        sub show_value
            {
                print 'The value id ', $_[0];
             }

        &show_value(1001);

     ଠ쭮 ணࠬ 몠 Perl      ६
 ࠭ 㬥⮢.   ⮣  ணࠬ  ।
६ ⨯ ᨢ   @_,  ᮤন 祭 -
ࠬ஢.   ᢮ ।,  ணࠬ 砥   -
 㬥⮢,  ᯮ ᫥騥 祭    ⮢
ᨢ: $_[0], $_[1],  . .  ⠪ ᯮᮡ । -
஢   ⠥ ,  ⮬ 設⢮ -
ணࠬ ᯮ ஢ 㬥⮢     ६-
.  筮 ।饬  ਬ,    ᫥  ணࠬ
show_fwo_values 뢮 祭  ࠬ஢:

sub show_two_values
        {
                print ' ࠬ ', $_[0], "\n";
                print 'ன ࠬ  ', $_[0], "\n";
        }

&show_two_values(1001, 2002);

     ,  ᫥ 㭪 show_all_values 뢮 祭
 ࠬ஢,   砥.  㭪 ᯮ ᨢ
 । ᫠ ࠬ஬:

sub show_all_values
        {
                for ($i = 0; $i < @_; $i++)
                     {
                        print 'Parametr ', $i, ' is ', $_[$i], "\n";
                     }
                }

& show_all_values(1001,2002,3003,4004);

      뫮 ᪠,  ணࠬ Perl   -
.   ⮣ ᯮ  return.    ⨢-
  ,  Perl  ॡ 易⥫쭮  ᯮ짮  -
樨 return. ᫨ ணࠬ  ᮤন  return,
  ⢥ 頥 祭 㤥   ᫥  -
 ࠦ.   ᫥饬 ਬ ᪫뢠  ࠬ
 頥 १:

sub add_values
    {
        return $_[0] + $_[1];
     }

print 'The result is: ', &add_values(1001,2002);

      
      ⨢  ,  Perl 䠪᪨    ন-
 楯 ⥪.   ,     堭,
騩 ਯ⠬ ᯮ짮 室   㣮  䠩.
ਬ, ।,    ࠭ ணࠬ add_valuesl 
䠩   addvalue.pl. ᯮ  require,  -
 ਯ  몥 Perl     ⮩  ணࠬ-
,   :

require "addvalue.pl";
print &add_values(10,11);

       ।⠢ ᥡ   require    
 #include ९ 몠 . ⮡  䠩 室-
 , Perl ᭠砫   ⠫,  ।  㬮-
  ⥪ 몠 Perl (஡  筨    -
樨  ⠫樨),  ⥬  ⥪饬 ⠫.   ⠪-
 ᯮ짮 ᮫  ⭮⥫ ,  ஬ -
  䠩.
     Perl ,   䠩  뫨  ॡ  ஬
require,   㦠  ⮫쪮  ࠧ   砥  -
 饭  ⨬ 䠩.   ⠭ -
⥪,    몠 Perl.   ᠬ -
 த  ⠫,   ஬ ࠭   䠩
몠 Perl, ⮡  ।⠢   ,  -
  ।.








                 A*.FRM                                        *.MAC                                                          <       