SAK 図書館

SAK Streets メインストリート 図書館・カフェ 一覧 SAK Streets 検索
| VB | SQL | Perl | PHP | ASP | JSP | C | PC | HP | FAQ | フリーソフト |

CGI-Perl 基礎編 (その六) 数値関数、その他 srand、rand、int、sleep、$ENV

■数値関数

  srand       乱数初期化
  rand        乱数発生
  int         整数化
  sqrt        平方根

■srand (乱数初期化)

  【例】
  srand(time ^ ($$ + ($$ << 15)));

  ** 現在時間とプロセス ID で乱数ジェネレータを初期化する。

■rand (乱数発生)

  【例】
  $i = int(rand(100));

  ** $i には、0 〜 99 の乱数がセットされる。

■int (整数化)

  【例】
  $i = int(1.9);

  ** $i には、1 がセットされる。

■sqrt (平方根)

  【例】
  $i = sqrt(2);

  ** $i には、1.14... がセットされる。

■その他関数

  chmod       パーミション設定
  sleep       指定秒ウェイト

■chmod (パーミション設定)

  【例】
  chmod (0666, "path/filename");

  ** パーミッションを設定する。

■sleep (指定秒ウェイト)

  【例】
    sleep 10;

  ** 10 秒間 Perl の実行を休止する。
     (任意の時間実行を停止)

■環境変数

  $ip      = $ENV{'REMOTE_ADDR'};       #// リモート端末の IP アドレス
  $url     = $ENV{'HTTP_REFERER'};      #// リモート端末の直前の URL
  $blws    = $ENV{'HTTP_USER_AGENT'};   #// ブラウザ情報
  $path    = $ENV{'PATH_INFO'};         #// 現 CGI のパス情報

  $rtpc    = $ENV{'REMOTE_HOST'};       #// リモート端末のホスト名
  $svpc    = $ENV{'SERVER_NAME'};       #// サーバのホスト名
  $webs    = $ENV{'SERVER_SOFTWARE'};   #// ウェブサーバのソフト名と ver
  $wcgi    = $ENV{'GATEWAY_INTERFACE'}; #// ウェブサーバの CGI ver

■画像レスポンス

#// 準備
  $imgtype = 'gif';

#// 画像オープン
  open(IMG, "path/filename") or die;

#// イメージ表示
  binmode IMG;
  binmode STDOUT;
  print qq(Content-type: image/$imgtype\n\n);
  print while (<IMG>);

#// 画像クローズ
  close(IMG);

■リダイレクト

  print "Location: path/filename\n\n";
                   |_ http://sak-main/test.htm
                      ./w_test/test.cgi
                      a001.cgi?p1=a

  ** 他の HTML、CGI にリダイレクトする。

■CGI-Perl 基礎編資料
■CGI-Perl 基礎実地編資料
■CGI-Perl 応用実地編資料
■PHP 基礎編資料
■PHP + MySQL 編資料
| VB | SQL | Perl | PHP | ASP | JSP | C | PC | HP | FAQ | フリーソフト |

SAK Streets メインストリート 図書館・カフェ 一覧 SAK Streets 検索



Copyright (C) 1999-2017 Y.SAK