Perl/ActivePerl For UNIX/Linux/Windows
 
TryThe Homepage
ソスソスソス゚てゑソスCGI
CGI ソスソスソスソスソスソス
ソス_ソスCソスiソス~ソスbソスNCGI
ソス_ソスEソスソスソスソスソス[ソスh
ソスTソス[ソスrソスX
ソスTソス[ソスoソス\ソスz(Windows)
ソスfソス[ソス^ソスxソス[ソスXソスAソスNソスZソスX
ソスLソスソスソスTソス[ソスrソスX
FAQ
ソスソスソス竄「ソスソスソスせ
ソスソスソスフペソス[ソスWソスソスソスソスソス
ソスヨ暦ソスソスネサソスuソスソスソス[ソス`ソスソスソスヨ撰ソスソスW
  perl-lib.plソスフ暦ソスソスp
perl-libソスヘ、perlソスXソスNソスソスソスvソスgソスノ組ソスン搾ソスソズゑソスソスソスソスナ搾ソスソスxソスネ機ソス\ソスソスソスネ単ソスノ趣ソスソスソスソスソスソスソスト用ソスフ関撰ソスソスWソスナゑソスソスB
CGIソスヨの組ソスン搾ソスソスンは、
#!/usr/local/bin/perl

#ソスソスソス{ソスソスRソス[ソスhソスマ奇ソスソスソスソスWソスソスソス[ソスソス
require 'jcode.pl';
#ソスヨ撰ソスソスソスソスCソスuソスソスソスソスソスフ読み搾ソスソスソス
require 'perl-lib.pl';
ソスソスソス黷セソスソスソスナ、ソスソスソスCソスuソスソスソスソスソスソスソス供ゑソスソスソスSソストのサソスuソスソスソス[ソス`ソスソスソスAソスヨ撰ソスソスソスソスヌゑソスソスソスソスソスナゑソスソストび出ソスソスソスソスソスニゑソスソスナゑソスソスワゑソスソスB

ソス@ソス\ソスAソスbソスvソスフ為、ソス\ソスソスソスソスソスソスソスソスソスマゑソスソストゑソスソスワゑソスソスBソスソスソスソスIソスノダソスEソスソスソスソスソス[ソスhソスソスソストアソスbソスvソスOソスソスソス[ソスhソスソスソストゑソスソスソスソスソスソスソスソスB
  • ソスソスソス{ソス齦カソスソスソスソスヨ撰ソス4ソスソスソスヌ会ソス [2003/04/02]
  • i-Modeソスソスソス[ソスソスソスAソスhソスソスソスXソスノ対会ソス [2003/03/02]
  • GIFソス鞫懶ソスフサソスソスソスlソスCソスソスソスソスソスソスソスusumnailcopyソスvソスヨ撰ソスソスソスヌ会ソス [2003/03/01]
  • ASCIIソスソスソスソスソスソスソスソスソスノ暗搾ソスソスソスソスソスソスソスuascscrambleソスvソスヨ撰ソスソスソスヌ会ソス [2003/02/15]
ソス{ソスヘでは、ソスネ暦ソスソスナゑソスソスソスYソスソスソスソスソスソス[ ]ソスナ奇ソスソスソスソスト表ソスソスソスソスソストゑソスソスワゑソスソスB
  ソスヨ撰ソスソスソスソスtソス@ソスソスソスソスソスX
  • html_head
    html_head(bgcolor,text,link,vlink,alink[,background,topmargin,leftmargin,title])

    ソスルとゑソスヌゑソスCGIソスソスhtmlソスhソスLソスソスソスソスソスソスソスgソスソスヤゑソスソス謔、ソス成ソスソスソスソスワゑソスソスソスソスAhtml_headソスヨ撰ソスソスソスhtmlソスソスMimeソス^ソスCソスvソスフ宣言ソスニ、 htmlソスhソスLソスソスソスソスソスソスソスgソスフヘソスbソス_ソス[ソスソス骭セソスソスソスワゑソスソスB
    bgcolor=ソスwソスiソスF
    text=ソスソスソスソスソスF
    link=ソスソスソスソスソスNソスF
    vlink=ソスAソスNソスZソスXソスマみソスソスソスソスNソスF
    alink=ソスAソスNソスZソスXソスソスソスソスソスソスソスNソスF
    background=ソスwソスiソス鞫
    leftmargin=ソスソス]ソスソス
    bgcolor=ソスソスソス]ソスソス
    title=ソスyソス[ソスWソスフタソスCソスgソスソス

  • img_head
    img_head[(flag)]

    ソスAソスNソスZソスXソスJソスEソスソスソス^ソスソスAソスソスソスIソスノ画像ソスソスヤゑソスソスXソスNソスソスソスvソスgソスナは画像ソスソスMimeソス^ソスCソスvソスソス骭セソスソスソスソスKソスvソスソスソスLソスソスワゑソスソスB
    flag = gif/jpeg/png

  • comma
    comma(number)

    ソスソスソスlソスノ3ソスソスソスソスソスニのカソスソスソス}ソスu,ソスvソスソス}ソスソスソスソスソスワゑソスソスB
    number = ソスソスソスl

  • readparts
    readparts([Variable, Tag, Jcode])

    ソスtソスHソス[ソスソスソスソスソスソスフデソス[ソス^ソスソスソスwソス閧オソスソスソスzソスソスyソスム連ソスzソスzソスソスノ格ソス[ソスソスソスワゑソスソスB ソスtソスHソス[ソスソスソスソスソス}ソスソスソス`ソスpソス[ソスg(ENCTYPE=multipart/form-data)ソスナ托ソスソスMソスソスソス黷スソス鼾ソスヘ、 ソスwソス閧ウソス黷スソスtソス@ソスCソスソスソスソスソスAソスbソスvソスソスソス[ソスhソスソスソス驍アソスニゑソスソスナゑソスソスワゑソスソスB
    Variable=ソスiソス[ソスソスソスソスマ撰ソスソスソス
    ソスu%ソスvソス^ソスフ連ソスzソスzソスだゑソスソスナなゑソスソスAソスu@ソスvソス^ソスフ配ソスソスマ撰ソスソスソスソスgソスpソスソスソスソスワゑソスソスフで、 ソスソスソスソスソスナ指ソス閧オソスソスソスマ撰ソスソスソスソス他のソスソス[ソス`ソスソスソスナ使ソスpソスソスソス驍アソスニはでゑソスソスワゑソスソスソスB
    Tag=ソスソスソスソスソスノゑソスソス髟カソスソス
    Jcode=jis/sjis/euc
    ソスソスソスソスソスRソス[ソスhソスソスソスwソス閧オソスワゑソスソスB ソスソスソスフ茨ソスソスソスソスソスソスwソス閧オソスソスソス鼾ソスヘ、jcode.plソスソスソスCソスソスソスNソスソスソス[ソスhソスソスソスソストゑソスソスネゑソスソスソスホなゑソスワゑソスソスソスB
    #!/usr/local/bin/perl
    require 'jcode.pl';
    require 'perl-lib.pl';
    readparts('QUERY', '<>=', 'sjis');
    ソスソスソスフ暦ソスヘ、ソスtソスHソス[ソスソスソスソスソスソスフデソス[ソス^ソスソス%QUERYソスAソスzソスzソスソスソス@QUERYソスノ格ソス[ソスソスソスソスニ難ソスソスソスソスノ、 ソスSソストのタソスOソス無鯉ソスソスノゑソスソストゑソスソスワゑソスソスB

  • send_email
    send_email(sendmailpath,uuencodepath,subject,from,to,cc,bcc,body[,files,encoding])

    ソスzソス[ソスソスソスyソス[ソスWソスソスソス迺シソスレソスソス[ソスソスソス送信ソスソスソスワゑソスソスB ソスTソス[ソスoソスノ添ソスtソスソスソスソスtソス@ソスCソスソスソスソスソスソスソスンゑソスソスソスホ、ソスソスソスMソスソスソス驛ソス[ソスソスソスノフソス@ソスCソスソスソスソスYソスtソスソスソス驍アソスニゑソスソスナゑソスソスワゑソスソスB
    sendmailpath= UNIXソスソスsendmailソスソスソスCソスソスソスXソスgソス[ソスソスソスソスソスソストゑソスソスソスpソスX(/usr/lib/sendmail)
    uuencodepath= ソスoソスCソスiソスソスソスtソス@ソスCソスソスソスソスソスGソスソスソスRソス[ソスfソスBソスソスソスOソスソスソスソスuuencodeソスフパソスX(/usr/bin/uuencode)
    subject=ソスソスソス[ソスソスソスフ鯉ソスソスソス
    from=ソスソスソスMソスメのソスソス[ソスソスソスAソスhソスソスソスX
    to=ソスソスソスMソスソスフソスソス[ソスソスソスAソスhソスソスソスX
    cc= ソスJソス[ソス{ソスソスソスRソスsソス[ソスナ托ソスソスMソスソスソス驛ソス[ソスソスソスAソスhソスソスソスX
    bcc= ソスuソスソスソスCソスソスソスhソスJソス[ソス{ソスソスソスRソスsソス[ソスナ托ソスソスMソスソスソス驛ソス[ソスソスソスAソスhソスソスソスX
    body=ソスソスソス[ソスソスソス{ソスソス
    files=ソスYソスtソスソスソスソスtソス@ソスCソスソスソスフパソスX
    encoding= ソスGソスソスソスRソス[ソスfソスBソスソスソスOソスフ趣ソスソス
    (ソスoソスCソスiソスソスソスtソス@ソスCソスソス=uuencodeソス^ソスeソスLソスXソスgソスtソス@ソスCソスソス=text)
    #!/usr/local/bin/perl
    require 'jcode.pl';
    require 'perl-lib.pl';
    $sendmail = '/usr/lib/sendmail';
    $uuencode = '/usr/bin/uuencode';
    readparts('QUERY', '<>=', 'sjis');
    $subject = 'ソスソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスソス';
    $master = '[email protected]';
    $body = 'ソスソスソスoソス^ソスソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスソスソスB';
    $body .= 'ソスソスソスソスニゑソスソスソスしソスソスソスソスソス閧「ソスソスソスワゑソスソスB';
    &jcode'convert(*subject,'jis');
    &jcode'convert(*body,'jis');
    $err = (send_email($sendmail,$uuencode,$subject,$master,$QUERY{'email'},'','',$body,'',''));
    $err && &error_view($err);
    html_head('#FFFFFF','#000000','#FF0000','#0000FF','#00FF00','',0,0,'');
    print "<center>\n";
    print "<table border=1><tr><td bgxolor=#FFFFAA><font size=2>\n";
    print $body;
    print "</font></td></tr></table>\n";
    print "</center>\n";
    print "</body></html>\n";
    exit;
    sendmailソスソスソスgソスpソスツ能ソスネ環具ソスソスナは、ソスソスソス黷セソスソスソスナホソス[ソスソスソスyソス[ソスWソスソスソス辜ソス[ソスソスソス送信ソスソスソス驍アソスニゑソスソスナゑソスソスワゑソスソスB ソスソスソスTソスCソスgソスソスソスソスソスミ介すソスソスzソス[ソスソスソスTソス[ソスoソスフ構ソスzソスソスBlatjソスソスソスCソスソスソスXソスgソス[ソスソスソスソスソスソストゑソスソスソス鼾ソスヘ、 WindowsソスTソス[ソスoソスソスソスソスナゑソスソスソスソス[ソスソスソスソスソスソスソスMソスナゑソスソスワゑソスソスB

  • data_read
    data_read(data_path)

    data_pathソスノ指ソス閧オソスソスソスfソス[ソス^ソスtソス@ソスCソスソスソスソスヌみ搾ソスソスン、ソスzソスソスマ撰ソスソスノ格ソス[ソスソスソスワゑソスソスB
    data_path = ソスfソス[ソス^ソスtソス@ソスCソスソスソスフパソスX

  • data_save
    data_save(data_path, WRITE_DATA)

    WRITE_DATAソスzソスソスマ撰ソスソスフ難ソスソスeソスソスdata_pathソスノ指ソス閧オソスソスソスfソス[ソス^ソスtソス@ソスCソスソスソスノ保托ソスソスソスソスワゑソスソスB ソスニ趣ソスソスソスソスソスソスノゑソス驪ュソスヘなフソス@ソスCソスソスソスソスソスbソスNソスVソスXソスeソスソスソスナ托ソスリなデソス[ソス^ソスソスロ護しソスワゑソスソスB ソスロ托ソスソスノ撰ソスソスソスソスソスソスソスソス鼾ソスヘヌソスソスソスソスソスAソスソスソスsソスソスソスソスソス鼾ソスヘ趣ソスソスsソスソスソスソスソスソスソスソスソスソスヤゑソスソスワゑソスソスB
    data_path=ソスfソス[ソス^ソスtソス@ソスCソスソスソスフパソスX
    WRITE_DATA=ソスロ托ソスソスfソス[ソス^ソスソスソスiソス[ソスソスソス黷スソスzソスソスマ撰ソス
    #!/usr/local/bin/perl
    require 'perl-lib.pl';
    $err = data_save('log.txt', @DATA);
    $err && &error_view($err);
    ソスソスソスフ暦ソスナは、ソスzソスソス@DATAソスソスソスulog.txtソスvソスニゑソスソスソスソスtソス@ソスCソスソスソスソスソスナ保托ソスソスソスソストゑソスソスワゑソスソスB ソスソスソスsソスソスソスソスソス鼾ソスヘ、ソスGソスソスソス[ソスフ鯉ソスソスソスソスソスソス謫セソスソスソストエソスソスソス[ソスソスソスbソスZソス[ソスWソスソス\ソスソスソスソスソスワゑソスソスB

  • upload
    upload(autoname,filetype,format,dir,max,permission,mode[,variable])

    ソス}ソスソスソス`ソスpソス[ソスgソスノ対会ソスソスソスソスソスソスuソスソスソスEソスU(InternetExplorer4ソスANetscape3ソスネ擾ソス)ソスソスソスソス ソスソスソスレパソス\ソスRソスソスソスフフソス@ソスCソスソスソスソスソスTソス[ソスoソスノアソスbソスvソスソスソス[ソスhソスソスソスワゑソスソスB ソスeソスLソスXソスgソスソスソスソスソスヘゑソスソスソスソスソスソスAソス鞫懶ソスtソス@ソスCソスソスソスソスAソスソスソスkソスソスソス黷スソスソスソスノフソス@ソスCソスソスソスネどバソスCソスiソスソスソスtソス@ソスCソスソスソスソスソスAソスbソスvソスソスソス[ソスhソスナゑソスソスワゑソスソスB
    Autoname= 0:ソスソスソスフフソス@ソスCソスソスソスソスソスフまま保托ソスソスB ソスソスソスソスソスtソス@ソスCソスソスソスソスソスソスソスソスソスンゑソスソスソス鼾ソスヘ上書ソスソスソスソスソスソスソス
    1:ソスソスソスソスソスIソスノ重ソスソスソスソスソスネゑソスソスtソス@ソスCソスソスソスソスソスソスソス成ソスソスソスト保托ソス
    filetype= ソスAソスbソスvソスソスソス[ソスhソスソスソスソスソスツゑソスソスソスtソス@ソスCソスソスソスフ趣ソスソス
    ソスkソスソス('')ソスノ設定すソスソスニゑソスソスラてのフソス@ソスCソスソスソスA'image'ソスソスソスwソス閧キソスソスニ画像ソスtソス@ソスCソスソスソスノ鯉ソスソスソス
    format= ソスAソスbソスvソスソスソス[ソスhソスソスソスソスソスツゑソスソスソス鞫懶ソスtソス@ソスCソスソスソスフ趣ソスソス
    filetypeソスソス'image'ソスノ設定さソスソストゑソスソスソス鼾ソスノ有ソスソスソスナ、jpeg/gif/pngソスソスソスwソスソスナゑソスソスソス
    dir= ソスAソスbソスvソスソスソス[ソスhソスソスソス黷スソスtソス@ソスCソスソスソスソスロ托ソスソスソスソスソスfソスBソスソスソスNソスgソスソスソスフパソスX
    max= ソスAソスbソスvソスソスソス[ソスhソスソスソスソスソスツゑソスソスソスtソス@ソスCソスソスソスフ大きソスソス
    ソスソスソスソス超ゑソスソスソスtソス@ソスCソスソスソスヘアソスbソスvソスソスソス[ソスhソスナゑソスソスネゑソスソスBソスOソスソスソスwソス閧キソスソスニゑソスソスラてのサソスCソスY
    permission=ソスロ托ソスソスソスフフソス@ソスCソスソスソスソスソスソス
    mode= ソスeソスLソスXソスgソスtソス@ソスCソスソスソスニバソスCソスiソスソスソスtソス@ソスCソスソスソスフ会ソスソスsソスRソス[ソスhソスソスソスルなゑソスOS(Windows)ソスソスソスソスUNIXソスソスA Linuxソスフようソスネサソス[ソスoソスノテソスLソスXソスgソスtソス@ソスCソスソスソスソスソスAソスbソスvソスソスソス[ソスhソスソスソスソス鼾ソスヘ会ソスソスsソスRソス[ソスhソス揃ゑソスソスソスKソスvソスソスソスソスソスソスワゑソスソスB ソスソスソスフようソスネ場合ソスソスmodeソスソス'text'ソスソスソスwソス閧オソスワゑソスソスB Windows98,MeソスソスソスソスWindowsNT,Windows2000ソスソスソスフ難ソスソスソスnソスTソス[ソスoソスノアソスbソスvソスソスソス[ソスhソスソスソスソス鼾ソスヘ指ソス閧キソスソスKソスvソスヘゑソスソスソスワゑソスソスソスB ソスワゑソスソスALinuxソスソスソスソスUNIXソスフ場合ソスソスソスソスソスlソスナゑソスソスB
    variable= cgi-lib.plソスソスReadParseソスヨ撰ソスソスノ渡ソスソスソスソスソスマ撰ソスソスソス
    #!/usr/local/bin/perl
    require 'jcode.pl';
    require 'perl-lib.pl';

    readparts('QUERY', '<>=', 'sjis');
    @UPFILES = upload(1,'image','jpeg','./upload/',0,644,'','QUERY');
    @FILE = split(/\t/, $UPFILES[0]);
    foreach (@FILE) {
        ($key, $value) = split(/=/, $_);
        $FILE{$key} = $value;
    }
    $FILE{'err'} && &error_view($FILE{'err'});
    ソスソスソスフサソスソスソスvソスソスソスナは、ソスソスソスソスソスナフソス@ソスCソスソスソスソスソスソスソス成ソスソスソスA jpegソス`ソスソスソスフ画像ソスソスソスソスソスソスuploadソスニゑソスソスソスソスfソスBソスソスソスNソスgソスソスソスノフソス@ソスCソスソスソスフ大きソスソスソスソスソスソスソス閧オソスネゑソスソスナアソスbソスvソスソスソス[ソスhソスソスソスA ソスpソス[ソス~ソスbソスVソスソスソスソスソスソス644ソスノ設定しソストゑソスソスワゑソスソスB
    uploadソスヨ撰ソスソスヘ、ソスtソス@ソスCソスソスソスフアソスbソスvソスソスソス[ソスhソスノ関ゑソスソス驍ウソスワゑソスソスワな擾ソスソスソスヤゑソスソスワゑソスソスB
    name= ソスAソスbソスvソスソスソス[ソスhソスソスソス黷スソスtソスHソス[ソスソスソスフフソスBソス[ソスソスソスhソスソス
    local= ソスAソスbソスvソスソスソス[ソスhソスソスソス黷スソスtソス@ソスCソスソスソスフソスソス[ソスJソスソスソスpソスX
    filename=ソスロ托ソスソスソスソス黷スソスtソス@ソスCソスソスソスソス
    filetype=ソスtソス@ソスCソスソスソスフタソスCソスv
    format=ソス鞫懶ソスフ趣ソスソス
    err= ソスGソスソスソス[ソスソスソスbソスZソス[ソスW
    ソスAソスbソスvソスソスソス[ソスhソスソスソスソスtソス@ソスCソスソスソスソスソスネゑソスソス鼾ソスソス'UploadFile Not Select'ソスソスヤゑソス

  • tag_change
    tag_change(String)

    Stringソスノ指ソス閧オソスソスソスソスソスソスソス中で、ソスソスソスSソスネタソスO(ソスCソスソスソス[ソスW<img>ソスAソス{ソス[ソスソスソスh<b>ソスA ソスCソス^ソスソスソスbソスN<i>ソスAソスtソスHソスソスソスg<font>ソスAソスAソスソスソス_ソス[ソスソスソスCソスソス<u>)ソスソスソスソスソスソスLソスソスソスノゑソスソスワゑソスソスB ソスソスソスソスソスネ外ソスフタソスOソスヘゑソスソスフまま表ソスソスソスソスソスソスワゑソスソスB String = ソスマ奇ソスソスソスソス髟カソスソスソスソス
    StringソスソスソスフタソスOソスヘ、ソス\ソス゚厄ソスソスソスソスノ変奇ソスソスソスソスソストゑソスソスネゑソスソスソスホなゑソスワゑソスソスソスB
    $string =~ s/</&lt;/g;
    $string =~ s/>/&gt;/g;
    readparts('QUERY', '<>=', 'sjis');ソスナ取得ソスソスソスソスソスfソス[ソス^ソスヘ趣ソスソスソスソスIソスノ変奇ソスソスソスソスソストゑソスソスワゑソスソスB

  • tag_check
    tag_check(String, FREETAGS)

    Stringソスノ指ソス閧オソスソスソスソスソスソスソス中で、FREETAGSソスナ具ソスソスツゑソスソスソスソス^ソスOソスソスソスソスソスソスLソスソスソスノゑソスソスワゑソスソスB ソスソスソスソスソスネ外ソスフタソスOソスソスAソスu>ソスvソスナ閉ゑソスソスソスソストゑソスソスネゑソスソス^ソスOソスA ソスu</font>ソスvソスフようソスソス ソスツゑソスソス^ソスOソスフ必ソスvソスネタソスOソスナ閉ゑソスソス^ソスOソスソスソスソスソスツゑソスソスソスネゑソスソス鼾ソスヘ奇ソスソスSソスノ削除ソスソスソスソスワゑソスソスB
    String=ソスマ奇ソスソスソスソス髟カソスソスソスソス
    FREETAGS=ソスソスソスツゑソスソスソス^ソスOソスフソスソスXソスg
    #!/usr/local/bin/perl
    require 'jcode.pl';
    require 'perl-lib.pl';

    readparts('QUERY', '<>=', 'sjis');
    html_head ('#FFFFFF','#000000','#FF0000','#0000FF','#00FF00','',8,8,'');
    print "<form action=lib-test.cgi method=POST>\n";
    print "<textarea name=string cols=80 rows=10>$QUERY{'string'}</textarea>";
    print "<input type=submit value=ソスソスソスM>\n";
    print "</form>\n";
    print "<font size=2>\n";
    $QUERY{'string'} = tag_check($QUERY{'string'}, 'div', 'center', 'p','font','u','i','b', 'img');
    $QUERY{'string'} =~ s/\r/<br>/g;
    print "$QUERY{'string'}<hr>\n";
    print "</font>\n";
    print "</body></html>\n";
    exit;
    ソスソスソスフ暦ソスナゑソス 'div', 'center', 'p','font','u','i','b', 'img'ソスフタソスOソスソスソスソスソスツゑソスソスソスtag_checkソスヨ撰ソスソスソスソストび出ソスソスソストゑソスソスワゑソスソスB ソスソスソスソスソスネタソスOソスソスAソスツゑソスソスYソスソスソス黷スソス^ソスOソスヘソソス[ソスXソスソスソスソスソスソス除ソスソスソスソスワゑソスソスフで茨ソスソスSソスノ、 ソスソスソスソスソスソスソスソスソスソスソスノ難ソスソスさソスソスソス骼厄ソスソスソスナゑソスソスワゑソスソスB ソスMソスメのサソスCソスgソスフようソスソスCGIソスソスソスソスソスソスソスソスソスソスyソス[ソスWソスソスAソス^ソスOソスソスソスソスソスソスソスソスソスソスyソス[ソスWソスフサソス|ソス[ソスgソスpソスfソスソスソスツでは、 ソス^ソスOソスソス\ソスソスソスソスソスソスソスト、ソスホ擾ソスソス@ソスソスAソスAソスCソスfソスAソスソスソスソスソスソスソスソスソスKソスvソスソスソスソスソスソスワゑソスソスフで、 ソス^ソスOソスソスソスソスソスSソスノ削除ソスソスソスソスtag_checkソスヨ撰ソスソスナはなゑソスソスAソスソスソスソスソスノゑソスソス驍ェソス\ソスソスソスソスソスソスtag_changeソスヨ撰ソスソスソスソスgソスpソスソスソスソスKソスvソスソスソスソスソスソスワゑソスソスソスソスA ソスソスハ的ソスノ掲ソスソスソスツでは奇ソスソスSソスノ削除ソスソスソスト搾ソスソスソスソスノ難ソスソスすソスソスtag_checkソスヨ撰ソスソスソスソスソスソスEソス゚ゑソスソスワゑソスソスB

  • inline_link
    inline_link(String[, Changestring])

    Stringaソスノ指ソス閧オソスソスソスソスソスソスソス中で、ソスuhttp://ソスvソスソスAソスuftp://ソスvソスナ始ソスワゑソスCソスソスソス^ソス[ソスlソスbソスgソスソスURLソスワゑソスソスヘ、 ソスソスソス[ソスソスソスAソスhソスソスソスXソスノ趣ソスソスソスソスナソスソスソスソスNソスソスtソスソスソスワゑソスソスB
    String=ソスマ奇ソスソスソスソス髟カソスソスソスソス
    Changestring=ソスAソスhソスソスソスXソスソスuソスソスソスソスソスソスソス髟カソスソスソスソス

  • domain
    domain(Flag)

    CGIソスノアソスNソスZソスXソスソスソス黷スソスKソスソスメのホソスXソスgソスソスソスソスソス謫セソスソスソスワゑソスソスB
    Flag= 0:IPソスAソスhソスソスソスXソスソスソスワむフソスソスソスAソスhソスソスソスXソスソスソス謫セ
    1:IPソスAソスhソスソスソスXソスソスソス除ソスソスソスソスソスhソスソスソスCソスソスソスソスソスソスソス謫セ
    ソスfソスソスソスツなどでは、ソスtソスソスソスAソスhソスソスソスXソスソスソス謫セソスソスソス骼厄ソスナゑソスソスソスソスソスxソスツ人ソスソスソスソスソスナゑソスソスワゑソス (ソスvソスソスソスoソスCソス_ソスフ具ソスソスヘゑソスソスKソスv)ソスフで茨ソスソスYソスhソス~ソスノゑソスソスソスソスハゑソスソスLソスソスワゑソスソスソスソスA ソスvソスソスソスoソスCソス_ソスソスソスニの難ソスソスvソスソスソスソスソス鼾ソスソスIPソスAソスhソスソスソスXソスソスソスソスソスソスルなゑソスラ集ソスvソスソスソス骼厄ソスソスソスナゑソスソスワゑソスソスソスB ソスソスソスフようソスネ場合ソスヘ、Flagソスソス1ソスソスン定すソス骼厄ソスナサソス[ソスoソスAソスhソスソスソスCソスソスソスソスソスソスソスソスソスソスソス謫セソスソスソス骼厄ソスソスソスナゑソスソスワゑソスソスB

  • user_agent
    user_agent()

    CGIソスノアソスNソスZソスXソスソスソス黷スソスKソスソスメのブソスソスソスEソスUソスフ趣ソズゑソスソス謫セソスソスソスワゑソスソスB ソスソスソスソスソスIソスノブソスソスソスEソスUソスソスソス謫セソスソスソス骼厄ソスナ、ソスuソスソスソスEソスUソスフ機ソス\ソスノ搾ソスソスせソスソスソスyソス[ソスWソスソスソスソス骼厄ソスソスソスナゑソスソスワゑソスソスB
    ソスyソスソスネブソスソスソスEソスUソスz
    Internet Explorer= Mozilla/4.0 (compatible; MSIE 5.5; Windows 98) ソスソス
    Netscape Navigator= Mozilla/4.73 [ja] (Win95; U) ソスソス
    Docomo I-Mode= DoCoMo/1.0/SH821i/c10 ソスADoCoMo/1.0/N501i ソスソス
    j-sky= J-PHONE/3.0/J-D03 ソスソス

  • jst_time
    jst_time(SerialTime[,Flag])

    SerialTimeソスノ指ソス閧オソスソスソスVソスソスソスAソスソスソスlソスソスFlagソスフ様ソスソスソスナ難ソスソスtソスニ趣ソスソスソスソスフ包ソスソスソスソスソスノ変奇ソスソスソスソスワゑソスソスB
    Flag= 0:2001ソスN5ソスソス25ソスソス (ソスソス) 10:54:15
    1:2001ソスN5ソスソス25ソスソス (ソスソス)
    2:2001ソスN5ソスソス25ソスソス
    3:2001/5/25 (Friday) 10:54:15
    4:2001/5/25 (Friday)
    5:2001/05/25

  • progpass
    progpass()

    ソスWソスソスソスフソスソスソスソス_ソスソスソスネ英ソスソスソスソスソスフパソスXソスソスソス[ソスhソスソスソスソスソスソスソスソス成ソスソスソスワゑソスソスB
    @MEMBER = data_read('member.txt'); #ソスソスソスソスfソス[ソス^ソスフ読み搾ソスソスソス
    $pw = progpass; #ソスpソスXソスソスソス[ソスhソスソスソス成
    while (1) { #ソスソスソスソスソスpソスXソスソスソス[ソスhソスソスソスgソスソスソストゑソスソスネゑソスソスソスソス`ソスFソスbソスN
        #ソスgソスソスソストゑソスソスネゑソスソスソスホ鯉ソスソス閧オソストソスソス[ソスvソスソスソスソスEソスo
        if (!grep(/pw=$pw\t/, @MEMBER)) { last; }
        $pw = progpass; #ソスgソスソスソストゑソスソスソスホゑソスソスソスソスソスxソス成ソスソスソスソス
    }

  • scramble
    scramble(String,Flag[,Key])

    Stringソスノ指ソス閧オソスソスソスソスソスソスソスソスソスソステ搾ソスソスソスソスワゑソスソスヘ、ソステ搾ソスソスソスソスソスソス黷スソスソスソスソスソスソスソスソスソスソスノ戻ゑソスソスワゑソスソスB perlソスノゑソスソスAcrypt()ソスニゑソスソスソスソステ搾ソスソスソスソスヨ撰ソスソスソスソスpソスモゑソスソスソストゑソスソスワゑソスソスソスソスAソスLソス[ソスソスソスwソスソスナゑソスソスネゑソスソスラ、 ソスソスソスソスソスソスソスソスソスヘ厄ソスソス同ゑソスソスソスソスソスソスソスノ変奇ソスソスソスソスソスソスB ソスQソスoソスCソスgソスフ包ソスソスソスソスソスソスQソスOソスoソスCソスgソスノゑソスソス蛯ォソスソスソスネゑソスソストゑソスソスワゑソスソスB ソスソスソス{ソス黷ェソスソスソスソスソスソスソスソスソスソスソス竄キソスソスソスネど趣ソスソスpソスIソスナはゑソスソスソスワゑソスソスソスB Scrambleソスヨ撰ソスソスヘ開ソスソスソスメ厄ソスソスヘ、ソスgソスpソスメゑソスソスソスソスRソスノキソス[ソスソスン抵ソスナゑソスソスAソスソスソスフキソス[ソスソスソスgソスソスソスト、 ソスソスソスツでゑソスソスソスソスノ戻ゑソスソスソスソスソスソスナゑソスソスワゑソスソスBソスソスソスソスソスソスソスソスソス{ソスソスノゑソスソスホ会ソスソスソスソストゑソスソスワゑソスソスB
    String= ソスマ奇ソスソスソスソス髟カソスソスソスソス
    Flag= 1:ソステ搾ソスソスソス
    0:ソスソスソスノ戻ゑソス
    Key= ソステ搾ソスソスソスソスソスソスソスLソス[ソス数値ソスナ指ソス閧オソスワゑソスソスB
    ソスLソス[ソスヘ、ソスソスソスソスソスフ撰ソスソスソスソスナゑソスソスソスソスワゑソスソスワゑソスソスソスB Flagソスノ「0ソスvソスソスソスwソス閧オソスト暗搾ソスソスソスソスソスソス黷スソスソスソスソスソスソスソス゚ゑソスソス鼾ソスノ、 ソスソスソスフキソス[ソスソスソスソスvソスソスソスネゑソスソスソスホ、ソスソスソスソスソスソスソスソスソスソスノ戻ゑソスソスソスソスニはでゑソスソスワゑソスソスソスB
    #!/usr/local/bin/perl
    require 'jcode.pl';
    require 'perl-lib.pl';

    readparts('QUERY', '<>=', 'sjis');

    html_head ('#FFFFFF','#000000','#FF0000','#0000FF','#00FF00','',8,8,'');
    print "<form action=lib-test.cgi method=POST>\n";
    print "<textarea name=pass cols=80 rows=10>$QUERY{'pass'}</textarea>";
    print "<input type=submit value=ソスソスソスM>\n";
    print "</form>\n";
    print "<font size=2>\n";
    $scramble = scramble($QUERY{'pass'},1, 1024);
    print "$scramble<hr>\n";
    $scramble = scramble($scramble,0, 1024);
    $scramble =~ s/\r/<br>/g;
    print "$scramble<hr>\n";
    print "</font>\n";
    print "</body></html>\n";
    exit;
    ソスソスソスフ暦ソスナはフソスHソス[ソスソスソスノ難ソスソスヘゑソスソス黷スソスソスソスソスソスソスソスソスAソスLソス[ソスノ「1024ソスv ソスニゑソスソスソスソスlソスソスン定しソスト暗搾ソスソスソスソスソスソスAソスソスソスソスソスソスソスu1024ソスvソスフキソス[ソスナ鯉ソスソスノ戻ゑソスソストゑソスソスワゑソスソスB ソスソスソスソスソスソスソスソスソスソスナゑソスソスソスソスソスルなる文ソスソスソスノ変奇ソスソスソスソスソスワゑソスソスB

    ソスLソス[ソスヘ、ソスソスソスソスソスフ撰ソスソスlソスナゑソスソスン抵ソスツ能ソスナゑソスソスソスソスソスAソスfソス[ソス^ソスソスソスナ必ソスソスソスソスソスlソスソスソスiソス[ソスソスソスソスソスtソスBソス[ソスソスソスhソスソスソスLソス[ソスニゑソスソスト暗搾ソスソスソスソスソスソスソスニ、 1ソスソスソスソスソスニにキソス[ソスソスマ更ソスソスソス骼厄ソスソスソスナゑソスソスワゑソスソスB ソスワゑソスソスAソスソスxソステ搾ソスソスソスソスソスソスソスソスソスソスソスソスソスソスハのキソス[ソスナゑソスソスソスソスソスxソステ搾ソスソスソスソスソスソスソスホキソス[ソスフ趣ソズゑソス8649ソスソス8649ソスソスニなゑソスA ソスVソスソスソスwソスIソスソスソスlソスノなゑソスワゑソスソスB
    ソスソスソスフ暦ソスヘ、ソスソスソスソスoソス^ソスソスソスフ趣ソスソスソスソスフシソスソスソスAソスソスソスlソスソスソス迚コソスSソスソスソスソスソスソスソスoソスソスソスA ソスソスソスフ撰ソスソスlソスノ管暦ソスソスメの設定しソスソスソスLソス[ソスu1234ソスvソスソスソスvソスソスソスXソスソスソスソスソスLソス[ソスナパソスXソスソスソス[ソスhソスA ソスソスソスソスソスAソスdソスbソスヤ搾ソスソスAソスZソスソスソスAソスソスソス[ソスソスソスAソスhソスソスソスXソスソスソステ搾ソスソスソスソスソスソストゑソスソスワゑソスソスB ソスルとゑソスヌの場合ソスAソスoソス^ソスソスソスソスソスソスソスソスソスソスソスルなゑソスワゑソスソスフゑソス1ソスソスソスソスソスニにキソス[ソスヘ変更ソスソスソスソスワゑソスソスB
    $datenow = time + $timelag * 3600;
    $key = substr($datenow, 5, 4) + 1234;
    $value = join("\t",
        "code=$newcode",
        "date=$datenow",
        "pass=". scramble($pass, 1, $key),
        "name=". scramble($QUERY{'name'}, 1, $key),
        "tel=". scramble($QUERY{'tel'}, 1, $key),
        "addr=". scramble($QUERY{'addr'}, 1, $key),
        "email=". scramble($QUERY{'email'}, 1, $key),
        "\n"
    );
    push(@MEMBER, $value);
    ソスソスソスフようソスノゑソスソスト保托ソスソスソスソス黷スソスfソス[ソス^ソスヘ趣ソスソスフコソス[ソスhソスナ撰ソスソスmソスノ鯉ソスソスノ戻ゑソスソスソスソスソスソスナゑソスソスワゑソスソスB
    %FIELD = fields($MEMBER[1]);
    $key = substr($FIELD{'date'}, 5, 4) + 1234;
    $FIELD{'pass'} = scramble($FIELD{'pass'}, 0, $key);
    $FIELD{'name'} = scramble($FIELD{'name'}, 0, $key);
    $FIELD{'tel'} = scramble($FIELD{'tel'}, 0, $key);
    $FIELD{'addr'} = scramble($FIELD{'addr'}, 0, $key);
    $FIELD{'email'} = scramble($FIELD{'email'}, 0, $key);
    ソスソスperlソスフマソスjソスソスソスAソスソスcryptソスノゑソスソスuソスソスソスソスソスソスソスSソスフ趣ソスソスソスソス蛯セソスソスソスソスソスソスソスフ関撰ソスソスソスソスgソスpソスナゑソスソスソスv ソスニ記ソスレゑソスソスソストゑソスソスソスニゑソスソスソスAscrambleソスヨ撰ソスソスソスソスソスソスlソスナゑソスソスB ソスvソスソスソスOソスソスソスソスソスソスソスソスソスJソスソスソストゑソスソスソスフでゑソスソスソスソス轤ソスソスソスソスxソスvソスソスソスOソスソスソス~ソスソスソスOソスフ経ソスソスソスフゑソスソスソスソスソスフは会ソスヌゑソスソスツ能ソスニゑソスソスソスソスソスソスニでゑソスソスB ソスソスソスソスソスニゑソスソスA1ソスソスソスソスソスニにキソス[ソスソスソスマ更ソスソスソスソストゑソスソスソスホ会ソスヌゑソスソスソスモ欲ソス無ゑソスソスソスソストゑソスソスソスソスソスソスソスソス骼厄ソスソスソスソスソスメゑソスソスト鯉ソスソスJソスソスソスワゑソスソスソスソスB

  • ascscramble
    ascscramble(String,Flag[,Key])

    ソスgソスpソス@ソスソスscrambleソスヨ撰ソスソスニ全ソスソスソスソスソスソスソスナゑソスソスソスソスAソスソスソスソスソスソスソスソスソステ搾ソスソスソスASCIIソスソスソスソスソスソスソスソスソスナ構ソスソスソスソスソスソストゑソスソスワゑソスソスB ソスソスソスフ趣ソスソスノゑソスソスAソステ搾ソスソスソスソスソスソス黷スソスpソスXソスソスソス[ソスhソスソスAソスソスソス[ソスソスソスAソスhソスソスソスXソスソスgrepソスヨ撰ソスソスナ鯉ソスソスソスソスAソスソスソスoソスソスソス骼厄ソスソスソスツ能ソスノなゑソスワゑソスソスB ソスワゑソスソスAソスソスソス{ソスソスソスソステ搾ソスソスソスソスソスソスソスgrepソスナ鯉ソスソスソスソスナゑソスソスワゑソスソスB ソスwソスソスツ能ソスネキソス[ソスヘ、ソスOソス`ソスQソスOソスSソスWソスフ撰ソスソスソスソスナゑソスソスB ソスwソスソスナゑソスソスソスLソス[ソスヘ擾ソスソスネゑソスソスフでゑソスソスソスソスAソスソスソスフ暗搾ソスソス`ソスソスソスヘ暗搾ソスソスソスソスソスソス黷スソスTソス[ソスoソス[ソスナなゑソスソスソスホ包ソスソスソスソスソスソスナゑソスソスワゑソスソスソスB ソスソスソスソスソスソスソスソスソスト、ソスソスソスソスソス^ソスソスソスTソス[ソスoソス[ソスナ作成ソスソスソス黷スソステ搾ソスソスソスソスソスソス[ソスJソスソスソスTソス[ソスoソス[ソスネど、 ソスソスソスフサソス[ソスoソス[ソスナ包ソスソスソスソスソスソスナゑソスソスネゑソスソスニ鯉ソスソスソスソスソスソスニになゑソスワゑソスソスB ソスソスソスRソスAソスソスソス[ソスJソスソスソスTソス[ソスoソス[ソスナ作成ソスソスソスソスソスfソス[ソス^ソスソスソスソスソスソスソス^ソスソスソスTソス[ソスoソス[ソスノアソスbソスvソスソスソス[ソスhソスソスソストゑソスソスソスソスソスノ難ソスソスしソスワゑソスソスソスB ソスソスソスzソス[ソスソスソスyソス[ソスWソスフゑソスソスソスソスソスソスzソスソスソスソスソスソスソスソスソスツ能ソスソスソスソスソスLソスソス鼾ソスソスscrambleソスヨ撰ソスソスソスソスソスソスgソスpソスソスソスソスソスソスソスソスソスB

  • cookie_regist
    cookie_regist(Cookiename,Cookielist,Date)

    ソスKソスソスメゑソスソスニに異なゑソスソスソスソスソスNソスbソスLソス[ソスソスソスgソスソスソスト訪ソスソスメのブソスソスソスEソスUソスノ保托ソスソスソスソスワゑソスソスB
    Cookiename= ソスNソスbソスLソス[ソスフ厄ソスソスソス
    CGIソスソスソスニに変更ソスソスソスネゑソスソスソスホ誤動ソスすソスソス鼾ソスソスソスソスソスソスワゑソスソスB
    Cookielist= ソスロ托ソスソスソスソスソスLソス[ソスニ値ソスフソスソスXソスg
    Date=ソスロ托ソスソスソスソスソスソスソスソス(ソスナ抵ソスソスUソスOソスソスソスソスソスソスソスS)
    @MEMBER = data_read('member.txt'); #ソスソスソスソスfソス[ソス^ソスフ読み搾ソスソスソス
    $value = join("\t", #ソスソスソスソスtソスHソス[ソス}ソスbソスgソス整ゑソスソスソス
        "id=$id",
        "pw = $pw",
        "name=$QUERY{'name'}",
        "email=$QUERY{'email'}",
    );
    unshift(@MEMBER, $value); #ソスソスソスソスfソス[ソス^ソスノ追会ソス
    %Cook = cookie_regist('shop',"id=$id,pw=$pw", 30); #ソスNソスbソスLソス[ソスノ保托ソス
    ソスソスソスフ暦ソスナは、ソスソスソスソスRソス[ソスhidソスニ、ソスpソスXソスソスソス[ソスhpwソスソスソスRソスOソスソスソスヤの奇ソスソスソスソスソスtソスソスソスト保托ソスソスソスソストゑソスソスワゑソスソスB cookie_registソスヨ撰ソスソスヘ、ソスロ托ソスソスソスソスソスソスソスソスeソスソスAソスzソスzソスソスナ返ゑソスソスワゑソスソスB ソスソスソスソスソスソスソスソスソスト、ソスNソスbソスLソス[ソスノ保托ソスソスソスソス黷スソスfソス[ソス^ソスヘ、$Cook{'id'}ソスA$Cook{'pw'}ソスナ参ソスニでゑソスソスワゑソスソスB

  • cookie_read
    cookie_read(Cookiename)

    ソスKソスソスメのブソスソスソスEソスUソスノクソスbソスLソス[ソスナ保托ソスソスソスソスソストゑソスソスソスソスソスソスAソスzソスzソスソスノ取得ソスソスソスワゑソスソスB
    Cookiename=ソスロ托ソスソスソスソスソスソスソスソスニ難ソスソスソスソスNソスbソスLソス[ソスフ厄ソスソスソス
    %Cook = cookie_read('shop'); #ソスNソスbソスLソス[ソスソスソス謫セ
    ソスNソスbソスLソス[ソスノ保托ソスソスソスソスソストゑソスソスソスソスfソス[ソス^ソスヘ、$Cook{'id'}ソスA$Cook{'pw'}ソスナ参ソスニでゑソスソスワゑソスソスB

  • age
    age(BirthdayString, Timelag)

    ソスソスソスNソスソスソスソスソスソスソスwソス閧オソスト鯉ソスソスンの年ソスソスソスヤゑソスソスワゑソスソスB
    BirthdayString=ソスソスソスNソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソス(1958/02/17)
    Timelag=ソスソスソスEソスWソスソスソスソスソスニの趣ソスソスソス(ソスソスソス{ソスフ場合ソスソス9ソスソスソスソス)

  • kaconv
    kaconv(String)

    Stringソスノ指ソス閧オソスソスソスソスソスソスソス中で、ソスソスソスpソスソスソスソスソスノ変奇ソスソスツ能ソスネ全ソスpソスソスソスソスソス半角ソスノ変奇ソスソスソスソスト返ゑソスソスワゑソスソスB ソスソスソスzソスソスAソスソスソスNソスソスソスソスソスソスソスtソスHソス[ソスソスソスナ取得ソスソスソストゑソスソスSソスpソスソスソスソスソスナ記ソスソスソスソスソスソストゑソスソスソス鼾ソスヘ計ソスZソスソスソス骼 (ソスソスソスラて0ソスニ費ソスソスfソスソスソスソスソス)ソスソスソスナゑソスソスワゑソスソスソスB ソスワゑソスソスAソスソスソス[ソスソスソスAソスhソスソスソスXソスソスソスSソスpソスナはソスソス[ソスソスソス送信ソスナゑソスソスワゑソスソスソスB kaconvソスヨ撰ソスソスヘ撰ソスソスlソスソスAソスソスソスtソス@ソスxソスbソスgソスAソスLソスソスソスネど費ソスソスpソスノ変奇ソスソスツ能ソスネ包ソスソスソスソス半角ソスノ変奇ソスソスソスソスワゑソスソスB
    String = ソスマ奇ソスソスソスソス髟カソスソスソスソス

  • fields
    fields(fields[, Separator])

    Key=Valueソス`ソスソスソスソスSeparatorソスナ具ソスリゑソス黷ス1ソスソスソスフデソス[ソス^ソス分会ソスソスソスソストフソスBソス[ソスソスソスhソスソスソスニの連ソスzソスzソスソスノ変奇ソスソスソスソスト返ゑソスソスワゑソスソスB
    fields=ソスソスAソスフフソスBソス[ソスソスソスhソスfソス[ソス^
    Separator= ソスソスリり文ソスソス(ソスネ暦ソスソスソスソスソスニタソスu\tソスノなゑソス)
    @MEMBER = data_read('member.txt');
    $value = join("\t",
        "id=$id",
        "pw = $pw",
        "name=$QUERY{'name'}",
        "email=$QUERY{'email'}",
    );
    unshift(@MEMBER, $value);
    ソスソスソスフ形ソスソスソスナ保托ソスソスソスソスソストゑソスソスソスfソス[ソス^ソスtソス@ソスCソスソスソスヘ趣ソスソスフようソスノゑソスソストアソスNソスZソスXソスナゑソスソスワゑソスソスB
    @MEMBER = data_read('member.txt');
    @DUMMY = grep(/id=$QUERY{'id'}\t/, (@MEMBER);
    $match = 0;
    foreach (@DUMMY) {
        %MEMBER = fields($_);
        if ($MEMBER{'pw'} eq $QUERY{'pw'}) { $match = 1; last }
    }
    if ($match) {
        print "ソスソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスB
    ソスソスソスナに登ソス^ソスソスソスソストゑソスソスワゑソスソスB\n";
    } else {
        print "ソス\ソスソスソスあゑソスワゑソスソスソス
    ソスソスソスソスネ外ソスソスソスソスソスpソスソスソスソスソスソスソスソスソスワゑソスソスソスB\n";
    }

  • fcopy
    fcopy(Src,Des[,Permission])

    Src=ソスRソスsソス[ソスソスソスtソス@ソスCソスソスソスフパソスX
    Des=ソスRソスsソス[ソスソスtソス@ソスCソスソスソスフパソスX
    Permission= ソスRソスsソス[ソスソスフフソス@ソスCソスソスソスフ托ソスソスソス(ソスネ暦ソスソスソスソスソスソス644)

  • rgb
    rgb(Color)

    ソスFソスRソス[ソスhソスソスRGBソスノ包ソスソスソスソスソスソスソス10ソスiソスソスソスノ変奇ソスソスソスソスワゑソスソスB
    Color = ソスFソスRソス[ソスh

  • kindex
    kindex(String, Search)

    ソスソスソスソスソスソスソスワむ包ソスソスソスソスかゑソスwソス閧オソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスソスト最擾ソスソスノ鯉ソスソスツゑソスソスソスソスソスソスハ置ソスソスヤゑソスソスワゑソスソスB ソス謫ェソスフ包ソスソスソスソスソスソスOソスニゑソスソストカソスEソスソスソスgソスソスソスソスワゑソスソスB
    String=ソスソスソスソスソスソスソスワむ包ソスソスソスソスソス
    Search=ソスソスソスソスソスソスソス髟カソスソスソスソス

  • klength
    klength(String)

    ソスwソス閧オソスソスソスソスソスソスソスソスフ包ソスソスソスソスソスソスソスヤゑソスソスワゑソスソスBソスソスソスソスソスソス1ソスソスソスソスソスニゑソスソストカソスEソスソスソスgソスソスソスソスワゑソスソスB
    String = ソスソスソスソスソスソス

  • kreplace
    kreplace(String, Oldstr, Newstr)

    ソスソスソスソスソス中の指ソス閧オソスソスソスソスソスソスソスソス他の包ソスソスソスソスソスノゑソスソスラて変奇ソスソスソスソスワゑソスソスB ソス}ソスbソス`ソスソスソスZソスqソスナは不ソスツ能ソスネ奇ソスソスソスソスソスソスワむゑソスソスニゑソスソスナゑソスソスワゑソスソスB
    String=ソスソスソスソスソスソス
    Oldstr=ソスuソスソスソスソスソスソスソスソスソス髟カソスソスソスソス
    Newstr=ソスuソスソスソスソスソスソスソス髟カソスソスソスソス

  • ksubstr
    ksubstr(String, Start, Length)

    ソスソスソスソスソスソスフ指ソス閧オソスソスソスハ置ソスソスソスソスwソス閧オソスソスソスソスソスソスソスソスソスソスソスソスソスoソスソスソスワゑソスソスB perlソスソスsubstrソスヨ撰ソスソスニほぼ難ソスソスlソスネ難ソスソスソスソスソスソスソスワゑソスソスソスソスAソスソスソスソスソスソスソスワんだ包ソスソスソスソスソスソスソスソスソスソスソスナゑソスソスワゑソスソスB
    String=ソスソスソスソスソスソス
    Start= ソスJソスnソスハ置  ソスナ擾ソスソスフ包ソスソスソスソスソスソスOソスニゑソスソスソス
    Length= ソスソスソスoソスソスソスソスソスソスソスソス  ソスソスソスソスソスソス1ソスソスソスソスソスニカソスEソスソスソスg
    $str = 'ソスソスソスmソスソスソスソスソスmソスsソスソスソス{ソスソス1-2-3ソスヤ5ソスソス';
    $str = ksubstr($str, 5, 3);
    print $str;

  • deletedir
    deletedir(Dir)

    ソスwソス閧オソスソスソスfソスBソスソスソスNソスgソスソスソスニ、ソスfソスBソスソスソスNソスgソスソスソスソスソスフフソス@ソスCソスソスソスソスソスソスソスラて削除ソスソスソスワゑソスソスB
    Dir=ソス除ソスソスソスソスfソスBソスソスソスNソスgソスソスソスソス

  • weekday
    weekday(date, timelag, flag)

    ソスwソス閧オソスソスソスソスソスtソスフ曜ソスソスソスソスヤゑソスソスワゑソスソスB
    date= ソスソスソスtソスソスソスソスソスソス(2004/06/12)
    timelag=ソスソスソスソス
    flag= 1:ソスソスソス{ソスソス
    0:ソスソスソスl

  • get_url
    get_url(URL,Flag,Encode)

    ソスwソス閧オソスソスURLソスフドソスLソスソスソスソスソスソスソスgソスソスマ撰ソスソスノ取得ソスソスソスワゑソスソスB
    URL=ソスyソス[ソスWソスフアソスhソスソスソスX
    Flag= 0:ソスソスソスeソスソスマ撰ソスソスノ取得
    1:ソスyソス[ソスWソスフ托ソスソスンのみ確ソスF
    Encode= jis,sjis,euc ソスソスソスソスIソスソスソスソスソスwソスソス
    ソス謫セソスソスソスソスソスソスソスeソスヘ、ソスAソスzソスzソスソス$HTML{'Body'}ソスノ格ソス[ソスソスソスソストゑソスソスソス
    ソスGソスソスソス[ソスフ確ソスFソスヘ、$HTML{'Err'}ソスノ格ソス[ソスソスソスソストゑソスソスソス
Copyright 2004 Terra. All rights reserved. No reproduction or republication without written