Perl・CGI入門/パッケージを使う/ID Roll
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
|
ログイン
]
開始行:
''[[FrontPage]]''
* 自作サブルーチンのパッケージ化 [#pc1227f3]
自作cgi掲示板に使ったID⇔文字列対応関数を例にします。~
** 関連ページ [#c81b1112]
-[[Perl・CGI入門/配列要素のシャッフル]]
ファイル名: idroll.pl
#*******************************************************...
# ID Roll ...
#*******************************************************...
package idroll; ...
...
sub roll ...
{ ...
open (DECK, "<./deck.txt"); ...
flock (DECK, 1); ...
my $mssids = <DECK>; ...
my @mssids = split (',', $mssids); ...
return $mssids[$_[0]]; ...
} ...
...
1; ...
呼び出し例(ファイル名: write.cgi)
#!/usr/bin/perl -w
#perl bbs\write.cgi
require './jcode.pl'; ...
require './idroll.pl'; ...
# 途中省略
# Get ID ***********************************************...
if( $form{'mssid'} ne '****' ) ...
{ ...
$mssid = idroll::roll( $form{'mssid'} - 1 ); ...
} ...
else ...
{ ...
$mssid = '<b><font color="#00FF00">Hermit Webmas...
} ...
#/Get ID ***********************************************...
# 以下省略
参考までに(ファイル名: deck.txt)
Half-Titan Demonologist,Nibelung Druid,Sprite Geomancer,...
*** 参考ページ [#r02f770b]
http://perl.misty.ne.jp/19.html#b~
終了行:
''[[FrontPage]]''
* 自作サブルーチンのパッケージ化 [#pc1227f3]
自作cgi掲示板に使ったID⇔文字列対応関数を例にします。~
** 関連ページ [#c81b1112]
-[[Perl・CGI入門/配列要素のシャッフル]]
ファイル名: idroll.pl
#*******************************************************...
# ID Roll ...
#*******************************************************...
package idroll; ...
...
sub roll ...
{ ...
open (DECK, "<./deck.txt"); ...
flock (DECK, 1); ...
my $mssids = <DECK>; ...
my @mssids = split (',', $mssids); ...
return $mssids[$_[0]]; ...
} ...
...
1; ...
呼び出し例(ファイル名: write.cgi)
#!/usr/bin/perl -w
#perl bbs\write.cgi
require './jcode.pl'; ...
require './idroll.pl'; ...
# 途中省略
# Get ID ***********************************************...
if( $form{'mssid'} ne '****' ) ...
{ ...
$mssid = idroll::roll( $form{'mssid'} - 1 ); ...
} ...
else ...
{ ...
$mssid = '<b><font color="#00FF00">Hermit Webmas...
} ...
#/Get ID ***********************************************...
# 以下省略
参考までに(ファイル名: deck.txt)
Half-Titan Demonologist,Nibelung Druid,Sprite Geomancer,...
*** 参考ページ [#r02f770b]
http://perl.misty.ne.jp/19.html#b~
ページ名: