        
     Perl ᯥ樠쭮 ࠧࠡ뢠  ⮣, ⮡ 㦨 -
 ।⢮  ⥭    ⥪⮢ 䠩.     
,    㧭 ,  Perl 믮 㭪樨    ந-
쭮   -뢮  䠩.  樨  -
  䠩 ॡ 㪠⥫ 䠩 (file handle),  -
 ६, ᮮ⢥饩 ⭮ 䠩.   㬮-
  ਯ  몥 Perl   ⠭  㪠⥫,
 Perl ⮬᪨ 뢠  ᪥ ਯ:  STDJN,
STDOUT,  STDERR.    ⠭ 㪠⥫ ⢥ ⠭-
 ⮪ STDIN, STDOUT, STDERR 몠 ணࠬ஢ . -
 ⮣,  ਯ 몠 Perl   ⥫ 㪠-
  㣨 ᯥ᪨ 䠩.

         
      ⮣ ⮡ ਯ ᯮ짮 䠩,      맢
㭪 open.   ᫥騩 :

open(FileHandle[, FileName])

      ⫨稥  㭪樨 open ⥪ ६ 믮 -
 ,  㭪 open 몠 Perl  ᮤন ࠬ mode  맮-
 㭪樨. Perl । ० (mode)  䠩,  ᭮-
   䠩.   12.3   ० -
 䠩   䠩.

 䠩       
<FILE>           䠩 ⮫쪮   ⥭  (筮
                <r>  㭪樨 fopen)

<<FILE>          䠩  ⥭ (  ᠬ,  <FILE>)
<>FILE>          䠩   ( <w> 㭪樨 fopen)
<>>FILE>         䠩      ( <+>
                㭪樨 fopen)
<+>FILE>         䠩  ⥭/ ( <rw> 㭪樨
                fopen)
<+<FILE>         䠩  ⥭/ ( <rw+> 㭪樨
                fopen)
<| CMD>            , ᯮ饣 
                <CMD>
<CMD |>           , ᯮ饬  <CMD>

. 12.3.  襭    ० 㯠 䠩  몠
Perl

ਬ砭:  쭮 (pipe) ⮪  ⢮  
  ⥬.

     ᫨  맮 㭪樨 open 饭  䠩,  Perl -
㬥,       䠩  ᮤন    ப  ६
$FileHandle.  ਯ 訫 ᯮ짮 䠩,  -
 , ᯮ 㭪 close,   :

        close(FileHandle);

ࠣ ணࠬ    ᯮ짮  㭪権  open  
close:

   open(InFile, "test.dat") || die;     # 뢠  ⥭
                                        # test.dat

   open(OutFile, ">test.dat") || die;   # ᮧ test.dat

   $AuxFile = ">>test.dat";
   open(Aux, $AuxFile) || die;          # 뢠  
                                        # test.dat

   close(InFile);
   close(OutFile);
   close(Aux);

      ,  㪠⥫ 䠩    -
ᨬ 䨪ᮢ.   㧭 ,  ਯ 몠 Perl
 ࠭  㪠⥫   ப ᪠  ६
 । 㪠⥫  㭪樨,     ࠡ-
.  室 Perl 믮  祭.
      樮 ⥬  MS-DOS  Perl  ন  -
⥫ 㭪,   뢠 hinmode   䠩-
 /뢮 ४  ⥪⮢    ०-
.   設⢥  ⥬ ࠧ稥  ⥪⮢   
०   祭.        樮  ⥬
MS-DOS ᨬ  ப ।⠢ ᮡ  ᫥⥫쭮
  ᨬ (CR+LF).  ᪮ 設⢮ ணࠬ  -
   ᨬ   ப,  ⥬ /뢮-
  믮 ८ࠧ.  ⮣ ⮡  뫮 -
짮 㭪 binmode,  ᮮ⢥騩 㪠⥫  
. 㭪 binmode  ᫥騩 ଠ:

binmode(FileHandle);

         
     ⥩訬 ᯮᮡ  ⥭ ਯ⮬ ப  䠩 -
 ᯮ짮  <FILEHANDLE'>.   몥  Perl  㪠-
⥫ 䠩,  㦥 㣮묨 ᪮,  ⠭ ᨬ-
  (input-symbol). ਬ,  ᫥騩 ࠣ ணࠬ
 ᯮ짮 ᨬ   ⥭   뢮  
࠭ ᮤন 䠩 Test.dat.

open(InFile, "Test.dat") || die;
while ($line = <InFile>)
        {
                print $line;            # 뢥 ப  䠩
        }
close(InFile);

      ᨬ  ⨣  䠩,  頥 -
祭 false,  ஥   砥 稢 믮 横-
 while.   ᯥ樠 (⮩) ᨬ ,  -
砥 <>,   쬠 ᯥ樠쭮,   ਬ-
.    ࠧ,   ਯ ᯮ ⮩ ᨬ  
<>,   㬥  ப.  ᫨ ப @ARGV
 ⮩,  室 ᨬ <> ⠥  STDIN. ᫨ -
 ⮣ @ARGV  ,  Perl 뢠   䠩,  㪠-
  ६ @ARGV,  ⠥ ᮤন 䠩.   Perl
稢 ࠡ  䠩,   㯠   ᫥饬.
᫥ ⮣  ਯ ⠫  䠩,  ᨬ  <>  頥
祭 false.
     ਯ 몠 Perl ⠪  ᯮ짮 ᨬ  
⥭ ᥣ ᮤন 䠩  ᨢ ⠪,      ப
䠩 ⠭ ⮬ ᨢ. ਬ,  ᫥ -
 ⠥  䠩 STDIN  ᨢ @lines:

@lines = <STDIN>;

        䠩 ⠪ 筮 .  ᪨ 
  直 ࠧ,   ᯮ짮 㭪 print.  
ଠ 㭪樨 print  ᫥騩 :

        print [FileHandle]       List;

     ᫨ 㭪 print  砥  ⢥ 㬥 㪠-
 䠩,    뫠 뢮  STDOUT.    騩  ࠣ
ணࠬ  ᯮ짮 㭪樨 print    -
   室 䠩:

        open(LogFile, '>>logfile.dat') || die;

        ##############

        ($m, $d, $y) = (localtime(time)) [4,3,5];

        print LogFile "Captain's log, Stardate ++m$/$d/$y\n";
        close(LogFile);

ਬ砭: ⥫ 䠩  室 ᯨ᮪  ࠧ  -
⮩.

         
     ணࠬ  ᬠਢ ⥪⮢ 䠩  ⥪-
 ⮪  ⮬,    ᨬ ᫥   㣨  
થ  䠩. ᫨ ਯ  ࠡ  䠩,  -
 ਥ஢  ࠡ  ,    ⮪,    ਯ
 ᯮ짮 㭪樨 sysread  syswrite  ࠡ⪨  䨪-
஢  .  㭪樨 sysread  syswrite   ᫥-
騥 ଠ:

$result = sysread(FileHandle, $Var, Length[, Offset]);
$result = syswrite(FileHandle, $Var, Length[, Offset]);

     ᫨  맮 㭪権  㪠뢠  ᤢ    砫  䠩
(Offset),  㭪樨 믮  ,   ண  
樨 /뢮.  㭪樨 sysread  syswrite    ।
,  ᯮ ᪠ ६ ப  ⨯.    -
 㭪樨 ࠡ뢠 䨪஢  ,    -
  ᮤঠ  祭,    㫨    થ
 䠩.  ᫨  맮 㭪樨 㪠뢠 ᤢ    砫
䠩 (Offset),  㭪 믮    䠩,  -
ண 稭 믮 樨 /뢮.
     ᫨  ࠡ⠥   ,   ਯ   ⠪
ᯮ짮 ᫥騥 㭪樨 /뢮:

$result = seek(FileHandle, Position, Base);
$result = tell(FileHandle);
$result = eof(FileHandle);

     㭪 seek ࠡ⠥  筮 ⠪ ,   fseek  -  -
 ⥪ ६ 믮 몠 . ࠬ Position -
  ⭮⥫쭮 砫 ,    ᢮ ।
 ࠬ஬ Base ᫥騬 ࠧ:

? 0     砫 䠩
? 1     ⥪饩 樨
? 2      䠩

     㭪 tell 몠 Perl ࠡ⠥  筮 ⠪ ,  䨪-
 ftell ⥪ ६ 믮 몠 .  㭪 -
頥 ⥪   䠩,   ன 믮  樨
⥭  .  ,  㭪 eof,  ⠪     㭪
feof 몠 ,  頥 祭 <⨭>  <>,  -
஥ ਯ  ᯮ짮   ।  ⨦  
䠩.

       
      Perl ਥ஢   ।  ࠡ ⥪,
 ⠪  ࠡ뢠  .  ਯ  -
   ﬨ, ᯮ ப ६, 
믮 ⮢  樨  /뢮,    ᯮ  㭪樨
sysread  syswrite.    ⮣,  ⮡ 믮 -
<>  묨,  ਯ 㦤  ஢    
᢮ <த> ᪠ ଠ.

       
      ਯ  몥 Perl ⠥   ,  -
 㭪 sysread,   頥      ᪠-
 ப ६. Perl    ⮬,    
,  ᮤঠ     㫨    祭,      騥
ASCII-ᨬ.  । ᨬ쭮 ப Perl ਭ -
  .   ⫨稥  몠 ,  Perl   ᯮ  ப,
稢 -ᨬ.  ᫨  ᮮ⢥  
⠡ ASCII,  ਯ   ࠡ뢠,    ⥪.
 ᫨  ।⠢ ᮡ  稭,     ਯ
易 ᯠ  । ⥬,   Perl ᬮ ࠡ  
.

            PERL
      ⮣ ⮡ ਯ 稫    ,   
 ᯠ ,  ३  ᢮ ᪠ ଠ.  ਯ
Perl ᯠ뢠 ,  ᯮ 㭪  unpack,    
 ᫥騩 ଠ:

$result = unpack(Template, Expression);

     Expression  筮 ப ६,    
ᮤন  , ⠭ 㭪樥 sysread,   
 ⠪ ࠦ,  ஥ 室  ஢  
ப.  Template ।⠢  ᮡ  ᨬ  ப-蠡,
뢠,  ஢ 祭  ࠭ Expression.
騩 ࠣ ணࠬ   ᯮ짮  㭪樨
unpack:

($r, $g, $b) = unpack("C3", $color);# ᯠ  3 ᨬ

@longwords = unpack("L*", $data);   #  ᯠ  ᯨ᮪ 
#  ᫮
@stuff = unpack("S2L", $bin);       # ᯠ  2 shorts  long

      ᨬ 蠡  ᮯ஢ ᫮, 㪠뢠-
騬,  ᪮쪮 ࠧ ᯮ짮  ᨬ.   ᫨    ᫠
⮨ 窠 (*),    㤥 믮    -
   ப. ᫨ ᫮  ⠢,   믮-
 ⭮.  ਯ     ᫮  ᨬ
蠡  ப Template.   ⠡ 12.4  ᨬ,
室騥  ப ࠬ Template    ᠭ  -
     믮 㭪樨 unpack.

 蠡  ᠭ
a               ப ASCII  㫥 ᨬ
               ப ASCII  㫥 ᨬ
b               ⮢ ப (訩   )
               ⮢ ப (訩   )
               ⮢ ᨬ  
               ⮢ ᨬ  
d               祭  饩 ⮩,  筮
f               祭  饩 ⮩, ୮ 筮
                蠡
h               ப ⭠ 祭 (訥 ࠧ
                 묨)
               ப ⭠ 祭 (訥 ࠧ
                 묨)
i                 
I                 
l                  ⨯ long
L                , ⮫쪮  
n               ⪮ 楫
N                楫
p               ⥫  ப
s               ⪮ 楫  
S               ⪮ 楫  
u               ᪮஢ ப
v               ⪮ 楫
V                楫
               ய ।  
               ய   
@               ३  㪠   ப
     . 12.4.  蠡

         
      뢮   ਯ    ᪠-
 稭  ப  ᨬ.   ⮣  ᯮ
㭪 pack, ଠ ன 㪠 :

$result = pack(Template, List);

     騩 ࠣ ணࠬ  ᯮ짮 -
樨 pack:

$color = pack("C3", $r, $g, $b);
$data = pack("L*", @longword);
$bin = pack("S2L", @stuff);

     㭪 pack ᯮ   ᠬ ᨬ 蠡,    
㭪 unpack,  ᪫祭 ᨬ . , , , X, @.

       
     Perl ।⠢  ⮫쪮 ப  㭪権  -
⪨ 䠩,  ⠪ ᪮쪮 祭 㤮 㭪権  ᪠-
஢ ⠫.   ᫥ ࠧ  ᬮਬ  
 ᭮ 㭪権  ࠡ  ⠫  ⠫.

     ,    
     ਯ  몥 Perl  뢠    ᮤন-
 䠩.  筮 ⠪   ਯ 뢠 ⠫  
 ᮤঠ   ᫠.    ⠫  ਯ
ᯮ 㭪 opendir, । 㪠⥫ ⠫   
.  ⥭ ᯨ᪠ 䠩,  ᮤঠ  ⠫,  ਯ
ᯮ 㭪 readdir.  ,    ⠫  -
 㭪 closedir.  騩 ࠣ ணࠬ -
 ᯮ짮 㭪樨 readdir  ⮣,  ⮡ 뢥 
࠭ ᯨ᮪ 䠩  ⥪饬 ⠫:

opendir(Dir, $INC[2]) || die;

while ($file = readdir(Dir))
        {
                print "$file \n"
        }

closedir(Dir);

      ⮬ ࠣ ᯮ ६ $INC[2J   -
  ⥪饬 ⠫.  $INC[2]  $ARGV[0], ਯ 뢮-
  ࠭ ᯨ᮪ 䠩,  ᮤঠ  ⠫,   
㪠   ப.     㭪  ࠡ 
⠫,   뫨 ᬮ७ ,  Perl ।  
 䨪権,    樮஢  ⥪騩  㪠-
⥫  ᯨ᪥ ⠫:

$result = rewinddir(DirHandle);
$result = telldir(DirHandle);
$result = seekdir(DirHandle, Position);

      
      ⮩     ᪮쪨 ᯮᮡ ଠ-
஢ 室  ਯ   㭪樨 print. -
筮  ,  Perl ⠪ ন 㭪樨 printf  sprintf.
  Perl ⠪ ন   ⮢    ଥ
⮫殢, ᯮ 蠡 .

       PRINT
      ⮩  ਯ ப ᯮ짮 㭪 print. -
 ⮣, Perl ᯥ稢 ᯥ樠 ६,  
 ࠡ 㭪樨 print.   ⠡ 12.5  ⪮  ࠪਧ
 ᯥ樠 ६.

६   祭
$,           ⥫  ⮢ 
$"           ⥫ ⮢ ᯨ᪠  ௮樨 ப
$\           ⥫  室 ᥩ
$#           ଠ஢ ᫮ 室 ( 㬮砭 '%.20g
             ')

. 12.5.  樠 ६,   ࠢ  㭪樥


      ᯮ짮    ᯥ樠  ६  筮
 ᢮  祭,   . ਬ,  ᫥-
饬 ࠣ ணࠬ ᯮ ६  $    ⮣,
⮡  ᥯  ⠬ :

$, = '*';
@list = 1..10;
print @list;            # 뢥 1*2*3*4*5*6*7*8*9*10

     뢠,   ६ $  ᠬ   
 ப,   ⮫쪮  ,  뢮  . -
  ᥣ  㤥 ᯮ짮   ⮣,  ⮡ 
祭, 뢮 㭪樥 print.

         PRINTF
     Perl  㭪樨 printf  sprintf,  祭 宦 
ᮮ⢥騥 㭪樨 ⥪ ६  믮  몠  .
  ᫥騩 ଠ:

$result = printf([FileHandle] Format, List);
$result = sprintf(Format, List);

      㬮砭 㭪 printf 뫠  ଠ஢  室
 ⠭ 室 STDIO,  㭪 sprintf 頥 ଠ-
஢ ப.     ଠ ப    祭
㭪 몠 ,  ᪫ ⮫쪮 ⢨ প 㭪ﬨ
몠 Perl ᯥ䨪  (*).  騩 ࠣ ணࠬ
 ᯮ짮 㭪権 printf  sprintf.

$precision = 2;
$pi = 3.1415;
printf("%.2f\n", $pi);                  # 뢥 3.14
printf("%.${precision}f", $pi); # 뢥 3.14

            PERL
       ⭮ ᫥  ਯ⮢ shell, Perl -
稢 প ⥬ ⢨,  맮 -
 ணࠬ.  ᫥ ࠧ ᬠਢ ᪮쪮 ᯮ-
ᮡ 맮 譨 ணࠬ  ਯ⮢ Perl. , , 
,    ਯ⠬ 믮 ⥬ ,   ⥬
ᠬ 뢠   ⥬ ᭮ 襣 㧫.   -
ন 饣 ࠢ  믮 譨   ਯ-
  몥 Perl.   , ᫨  㦤 믮 -
   ਯ,    ᯮ짮      楫
஥ 㭪樨 system, exec  fork.

      
      殮 ⮩      ਬࠬ  -
権  ࠡ⪨ ப.    ᭮  楯樨 -
 ࠦ.     ᫥ ࠧ,  ਯ
몠 Perl ப ᯮ ॣ ࠦ    ࠡ⪨
⥪. ᫨ ॣ ࠦ   ,    ᯮ-
.   ⪮ ६ ᫥ ⮣,      
᪮쪨 ࠧ ⮩ , ॣ ࠦ ⠭ 
   .

       
      ࠦ  㤫 ନ,  -
訬  ୮ 㪥  㦠騬  祭 ࠧ, -
饣  ᨬ.  ਯ  몥 Perl ᯮ ᨬ
ࠧ   ⮣,  ⮡ ஢   室  ,
饯   .   ਯ  ஠஢ 室-
 , ᭮뢠  ஡, ,  ᨬ ⠡樨
 㣨 ࠧ⥫.      室      ந-
 ଠ   ᥣ  ⠪ 祩  ࠢ  ॣ-
 ࠦ.

       
      ᮪饭 ࠧ஢  ॣ  ࠦ,    Perl  -
 ᯥ樠 ᨬ.   12.6 ᮤন ᯨ᮪ -
  ᨬ,  ᯮ㥬 ਯ⠬ 몠 Perl   ॣ-
 ࠦ.

          ᠭ
.               ⢥  ᨬ ( ᪫祭
                ᨬ  ப)
(..)            㯯 ᫥⥫쭮 ⮢
+               ⢮ ।饬 ࠧ  
                襥 ⢮ ࠧ
?               ⢮ ࠧ    ࠧ
*               ⢥ ࠧ    ࠧ
[...]           ⢥ ᨬ   ⢠
[^...]          ⢥ ᨬ  ⢠, 祭
栭
(...|...|...)   ⢥   ୠ⨢
^               ⢥ 砫 ப
$               ⢥ ࠧ   ப
{n, m}          ⢥ ࠧ  n  m ࠧ
{n}             ⢥ ࠧ 筮 n ࠧ
{n,}            ⢥ ࠧ  n ࠧ
\n\t etc.       ⢥   , ᨬ
                ⠡樨  . .
\b              ⢥  ࠭ ᫮
\              ⢥  ࠭ ᫮
\d              ⢥ 
\D              ⢥  
\s              ⢥ ஡
\S              ⢥  ஡
\w              ⢥ 㪢  
\W              ⢥ ᨬ,  饬  㪢,
                 ன

. 12.6. , ᯮ㥬  ॣ ࠦ

     Perl 頥 ॣ ࠦ (ࠧ, 蠡)  -
, . .   窨, ਬ,   /pattern/.  -
騩 ࠣ ணࠬ  ॣ ࠦ  -
 Perl:

# the following regular expressions are true if:
/ig/                    # string contains 'ig'
/(b|d|f)ig/             # string contains 'big', 'dig' or 'fig'
/[0-9]+/                # string contains a number
/[A-Za-z][A-Za-a0-9_]*/ # string contains an identifier

     ᫨  ࠦ   ᫥묨,   ᯮ-
.   ⮩   ᮡࠥ ᬮ ᪮쪮  ॣ-
 ࠦ.    ,   Perl 頥 ॣ-
 ࠦ   묨 ⠬-蠬,   -
 .

              

     ਯ 몠 Perl ᯮ ॣ ࠦ  ⮣,
⮡  ࠢ ப.  ⮣ ⮡ ஢, ᮤ-
  ப  ࠧ,  ਯ  ᯮ짮  ॣ-
 ࠦ ᫥騬 ࠧ:

        if ($str =~ /pattern/)

       砥 ॣ ࠦ ਭ 祭 <-
⨭>,  ᫨ ࠧ   ப ($str).  ᫨ ப  -
ন ࠧ,  ࠦ 頥 祭 <>.  -
, ᫥饥 ࠦ ஢,  ᮤন  ப ⥪ Web
Programming:

if ($str =~ /Web Programming/)

      ⮣, ⮡ ஢  ᮢ,  ࠦ -
 ਢ易 ࠢ  砫   ப.  ਬ,  ᫥-
饥 ࠦ  祭  稭  <⨭>,    ᫨  
⮫쪮 ᫨ ६ $str  ਭ        祭:
<banana>, <bananana>) <banananana>:

        ($str =~ /^ba(na) {2,4}$/)

      ࠧ,  ᫥饥 ࠦ  ⨭  ⮣  
⮫쪮 ⮣,  ६ $str ᮤন ᫮ <the>   -
  㣮 ᫮, ⠪  <their>.

($str =~ /\bthe\b/)

           
       ᫮  ਯ⮢ Perl    -
砥,    㧭 , 祬  ஢, ᮢ-
  ࠧ  ப  .  ਬ,    ॡ-
,    ⮡  ਯ    ।  祭  ப.
ᯮ ᨬ 㯯஢ ()    ॣ୮  ࠦ,
ਯ   ᮮ⢥騥 ࠧ 祭  ப 
ନ஢   ᯨ᮪. ਬ, ᫥騩 ࠣ ணࠬ-
 ᯮ ॣ ࠦ  ⮣,  ⮡  -
,     ᯨ᪠:

$str = " January 1, 1997, ";
($m, $d, $y) = $str =~ /\s*(\S*)\s + (\d+)\D + (\d{4})/;

      ⮬ 砥   ॣ  ࠦ  ᫥-
騬 ࠧ:

? ய 砫  ᯥ樠 ᨬ;
?    ᨬ,  騥 ᯥ樠묨,  ६ $m
(६  祭 楢);
? ய ᯥ樠 ᨬ;
?     ६ $d (६   );
? ய  ,  騥 ࠬ;
?     ६ $ (६  祭 ).

     Perl ন ⠪   ࠢ    ࠧ殬,
ᯮ  (=~),   栭 १-
:  (!~).        ⥭    ࠦ    !($str
=~/pattern/).

           
         ᯮ짮 ,  ஢騥   ᮮ-
⢨ ࠧ. 뢠, Perl ন  㣨 ॣ-
 ࠦ,    ஢塞 ப -
६.   ᠭ   樨  Perl  頥  
ப,  ᮮ⢥ ࠧ,   ப:

        $str =~ s/pattern/replacement/;

     ਬ,  ᫥    ᫮  <colour>  
<color>:

$str =~ s/\bcolour\b/color/;

      䨪    ᫮  <colour>
 <color>:

$str =~ s/\bcolour\b/color/g;

       砥 g   ࠦ 㪠뢠  Perl  
室 쭮 ⠭.

     ᯮ 䨪 i,    믮 ᪠   -
⮬ ॣ.   ⨢ ⮩ ஢થ    ᮮ⢥-
⢨ ࠧ, ᫥饥 ࠦ ⢫ ⠪  :

$str =~ tr/SearchList/ReplacementList/;

     ਬ,   ᨬ  ॣ ⥬  ᨬ-
 孥 ॣ   ⢫ ⠪ ࠧ:

$str =~ tr/a-z/A-Z/;    #  ॣ,    孨

     ஠ ᠬ ᫥騩 ਬ:

$letters = "abcde";
print "$letters\n"                      # 뢥 abcde
$letters =~ tr/a-z/A-Z/;
print "$letters\n"                      # 뢥 ABCDE

     
      ⮩  ᬮ७   ணࠬ஢  -
 Perl.  ᯮ ᬮ७  楯樨,    
᫮ ਯ CGI  몥 Perl.     -
  祭 몮  ᮧ CGI-ਯ⮢   몥  Perl,
    ᮡ⢥ ࢥ. ० 祬 ᫥-
 ,  㤮⮢,     ᫥騥 祢
楯樨:

? Perl ।⠢ ᮡ 㥬  ணࠬ஢,
 ᯮ ணࠬ⠬   ᠭ  ਯ⮢  
Web  Internet.

?  樨 몠 Perl   ⭮襭   -
 樨 몠 ,  Perl ।  -
⥫ ⥩,  ᮡ  ࠡ⪨ ப  䠩,
 㤭 ᪠  몥 .

?  Perl  ᭮ 몮  ᠭ  CGI-ணࠬ  
Web  Internet,    ।  ᢮ ,  -
⭮ ⨫  ᯥ祭 ᮪ ᭮.

      WEB-    PERL
     騥 㧫 Web  ᪠ ଠ  -
  ⠫ ⭮⥫쭮 몠 Pcrl, ਯ⮢  ,   ⠪-
 ᯥ樠쭮 ଠ樨   몠 Perl 5   -
.  ᯮ  Web-㧫  ⢥ ࠢ 窨  襣
᪠.

http://www.shareware.com/top/Source-Code-table.html - SHAREWARE.COM
       - ᠬ  䠩   ணࠬ.

http://www.inxpress.net:80/~moewes/computer/perl95.html - Perl 
       Windows 95.

http://www.mit.edu:8001/perl/perlapi.html - PERLAPI

http://www.genome.wi.mit.edu:80/ftp/pub/software/WWW/cgi_docs.html  -
       CGI.pm - ⥪ Perl5.CGI

http://www.metronet.com/0/perlinfo/perl5/manual/perl.html - PERL

http://www.teleport.com/~rootbeer/perl.html - 뫪  
       Perl
                 A*.FRM                                        *.MAC                                                          <       