(c)  騭, ᪢

ZXNet : 500:95/462.53
E-mail: bestview@mtu-net.ru
WWW   : http://www.ivr.da.ru

       ⮬⨧  㬥⮢  㧥 Opera
       
                       Perl-ਯ
                     

(".  " 9/2005)

    -   뫮  ⠪ : ᯥ, ⮡
 㪠 ६ ⮬᪨ ᪠ 㧥 (Opera 5.12)
   뢠   㪠묨 㬥⠬ - ⠪, ⮡
᫥    뫠 㧠 ।񭭮
த⥫쭮. ᫥ ᫮ ⥬,  
६ ⨨ ᪮쪨 㬥⮢  㦠
ࠫ쭮, ⠪  ᪮ 㧪    
(    14400 /).    ࠧ 砫,  ⮬
 㬥 ⠪   㦠   (,
ࢥ, ⤠騩 㬥, 筮 ࠧ뢠 ᮥ). 
᫨ 㦠   ।,   ଠ쭮.
     ⮣  ᠫ ⮩ ਯ  Perl. , 
ਣ    襭 ⠪   宦 .
筮, 㦭 㤥   ਯ ᮮ⢥騥 ,
᫨     -- ⠪ ,   .
     ਯ ਢ .

#!/usr/bin/perl

$run_time_h='12'; # 㦭 ६ ᪠ ().
$run_time_m='00'; # 㦭 ६ ᪠ ().

@pages=(          # ᮪ ᮢ 뢠 ࠭.
'http://example1/',
'http://example2/',
'http://example3/'
);

# ஢ઠ:      ᨬ '"', ⠪  ⨬
# ᨬ  ࠭稢,  । ""
#   ப.

foreach $page (@pages)
{
 if ($page=~m'"') {die ("Error: found '\"' in \"$page\"!\n")}
}

#  㪠 ६ ᪠.

print ("Waiting run time ($run_time_h:$run_time_m)...\n");
while (@time=localtime,
       $time[2]*60+$time[1] != $run_time_h*60+$run_time_m)
{
 sleep (20); # ࢠ ( ᥪ㭤)  ஢ઠ ६.
}

# ᪠ ""   60 ᥪ㭤, ⮡  ᯥ
# 㧨.

print (scalar(localtime)."   Starting \"Opera\"...\n");
system ('start "C:\Program Files\Opera\Opera.exe"');
print ("Pause...\n");
sleep (60);

#  । 뢠 ᫥  ᯨ᪥ @pages ࠭.
# ᫥ । ""  ࠭  45 ᥪ㭤.

foreach $page (@pages)
{
 print (scalar(localtime)."   Opening page \"$page\"...\n");

 $page=~s'%'%%'g; #  "%"  , ⮡ 
                  #  Windows ⠫  ᨬ
                  #  ᨬ.

 system ('start "C:\Program Files\Opera\Opera.exe" "'.$page.'"');
 print ("Pause...\n");
 sleep (45);
}

    ६ ᪠ ""   ६ $run_time_h 
$run_time_m (ᮮ⢥⢥   ).  뢠
㬥⮢   ᯨ᪥ @pages.  ᮡ, ᮢ 
  ,   ਬ ਢ  ਯ,  ⮫쪮,
᪮쪮 㦭.  㪠뢠   窠 
 १ .
    ᫨  ,   ࠧ   㤮
      ⤥쭮 ப, 稢
  窨;  ﬨ   窠 ( Perl
  ᪫ ப).  ਬ:

' 1',
' 2 ( 1)'.
' 2 ( 2)'.
' 2 ( 3)',
' 3'

       ᮤঠ  祪 (⠪  ᠬ
 ࠭稢 )   祪 ( ᯮ
 ࠭⥫  ।  ""). - 窨
 ⠪  室  ᯨ᮪ ᨬ, ⨬  web-, 
 ,  , ᪠, ᪮  - ⥪
, ࠭祭 窠,  砩   ᮬ
᪮ 窨.
    ᫨     筠 窠, , ᪮॥
ᥣ,  ᪥ ਯ Perl 뤠 ᮮ饭  訡.
⢨  祪   ஢ ।⢥
 ਯ; ᫨   㦥, 믮 ਯ
४  뤠祩 ᮮ⢥饣 ᮮ饭.
    ᫥ ᪠ ਯ 뢮 ப  㪠 ६,
    ࠡ,   ⮣ ६. 
 㯨, ந室  "" ( :
 ਯ 㪠    ᯮ塞 䠩 ""; ᫨
    ⠪,   㪠  ਯ ᢮ ). ⥬
᫥ 60-ᥪ㭤 㧠, ⮡ "" ᯥ 㧨
(த⥫쭮 ⮩   室  ).
      横  । 뢠   㬥⠬.
⮡     㬥⮬  㧥 Opera 5.12,
筮    㧥, 㪠  
ப  ⮣ 㬥.   ⢨  믮
 ਯ.  ⮬  㤥 饭   㧥,
  㦥 饭 ஥    㪠 㬥⮬.
 , ⠪     ᥡ 㣨 㧥. ᫥
  ᫥ 45-ᥪ㭤 㧠 ( த⥫쭮
⠪  ).
      ࠡ ਯ 뢮 ଠ  ⮬, 
   ,   ਢ񭭮 ਬ.

Waiting run time (12:00)...
Mon Apr 25 12:00:11 2005   Starting "Opera"...
Pause...
Mon Apr 25 12:01:15 2005   Opening page "http://example1/"...
Pause...
Mon Apr 25 12:02:02 2005   Opening page "http://example2/"...
Pause...
Mon Apr 25 12:02:50 2005   Opening page "http://example3/"...
Pause...

    ᫨   ᯮ짮 ᠭ ਯ (,
   - ),  ४ ᭠砫
஢  (⠭   ६ ᪠, ᪠, १
 ᫥ ⥪饣 ६). , ᫨ ਯ 㤥 饭
 襭 񧭮 ,  ⮬  ,   
ࠡ⠫ ⠪,  㦭.

    ⠫ ᪠   ஡, 㦥
  ॣ୮ ᯮ짮  ਯ (
Windows 95 OSR 2.1 RUS;  Perl - ActivePerl 5.8.6.811).
    -, ᫨ -  ᮢ, 㪠  ᯨ᪥,
᫨誮 ,  ""  뢠   ᮮ⢥騬
㬥⮬ (뢠 ⮥ ). ,  易
 ࠭祭    ப  Windows.
ᯥਬ⠫쭮 뫮 ⠭,   뢠 㬥
 ᠬ  ਬ୮ 240 ᨬ.
    -, ᫨  ᪥ ਯ   
ப ">_䠩" (   砫 ਯ 
"open (STDOUT,'>','_䠩');"), ⮡ ७ࠢ 뢮
ਯ  䠩  㪠 ,   ⨨ 
㬥⮢,   ,  ਯ ᪠ "",
।    ப  㬥, 
 Windows 祬- 뤠 ᮮ饭:

⠫ ᪠  COMMAND  ୮
誮  ࠬ஢

    ᫥ ⮣    頥 ࠢ
ਯ, ⠪   ᫥騥 㬥 ⠪   .
 ஡ ,   ,  
㬥 ᮤন ᨬ "%" (,  ,  
ᮢ). ᫨ ⪠  ७ࠢ 뢮,  
 㬥 뢠 ଠ쭮.
    -, ᫨  ਯ  ᪥, , 
㯠 㪠 ६  ਯ ᪠ "", 祬-
ந室 饭  ᪥,  ᫨ ᪥ 
(ਬ,  ᫥ ᪠ ਯ),  "" 
.
    -, ᫨ ।騩 ᥠ ࠡ  "ன" 
 ४⭮ (ਬ, ⨥ Reset),   ᪥
"" 뢮   ᮮ饭: "।騩 ᥠ ࠡ
Opera  ࢠ" -  ,  짮⥫ 롥 
  ਠ⮢ த ࠡ ("த  
ࠧꥤ", "㧨 ࠭   ᪥", "
뢠   ᪥").  ᫨ 짮⥫  ( 
ਯ  ࠧ  ।祭   㬥⮢
 ⮬᪮ ०,   짮⥫), ,
⢥, "" ⠪  㤥 ,   㬥⮢
 ந.
    -,  ⨨ 讣 ᫠ 㬥⮢, ᮡ
ᮤঠ ࠦ,   墠 .  
⭮    ᮮ饭: "ணࠬ 믮
⨬   㤥 ". , , 
 㢨   "",    㬥⮢
㦥 - , , 㯭... , , -  㤠
  .




    㣨    㧥 Opera:

1. "㧥 Opera: ᪮쪮 ᮢ⮢". ".  "
   3/2003.

2. "㧥 Opera:  ᪮쪮 ᮢ⮢". ". 
   " 12/2003.
