JDBな人生  専門的なことから日常的なことまで~ まぁ自由きままに書いていきます。
2017年10月 / 09月<< 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 >>11月

アクセスランキング

[ジャンルランキング]
コンピュータ
329位
アクセスランキングを見る>>

[サブジャンルランキング]
プログラミング
50位
アクセスランキングを見る>>

暇なCGI

昨日、排他処理を書いていたんですが、ふとこんなCGIを思いつきました。


#!/usr/bin/perl

use CGI;
my $cgi = new CGI;

my $sec = 60 * 60 * 24;

open(file,">free.txt");
print file "意外と暇なんですね。";
close(file);

sleep $sec;

print $cgi->redirect('free.txt');
print "Content-type:text/html\n\n";
exit;



実際にこのCGIを動かすと、24時間分の時間が無駄になるか、ブラウザがタイムアウトでエラーになります。

「24時間後に、「意外と暇なんですね。」と表示する」機能だけしかついていません。


この、sleep関数は指定した秒数だけ実行が休止(?)されます。

まあ、暇な方はこれをC&Pして実行してみてください。

C&P…Copy & Paste


では。


 


 
   Perl    TB(0)    CM(0)    EDIT    ページ↑

コメント投稿


 管理者だけに表示

コメント

トラックバック

この記事へのトラックバック:

プロフィール

JDB Luigi

Author:JDB Luigi
どこにでもいるようなありふれた人間・・・という訳でもなく、かと言って怪しい宗教を信仰する変人という訳でも無い。

基本的に掲載しているコード等は煮ていただいても焼いていただいても結構ですが、利用は自己責任にてお願いいします。
また、バグ・アドバイス等もしあればよろしくお願いします。

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。