Perlコーディング初心者質問スレ Part 56

Perlコーディング初心 ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

772:nobodyさん
 08/01/19 17:54:09 
>>768 
極東連合乙

773:nobodyさん
 08/01/19 18:03:47 
>>768 
10000回だけ繰り返してみた。 
 
あたり＝3031 
はずれ＝6969

774:nobodyさん
 08/01/19 21:24:36 
>>771 
ありがとうございます。 
 
>>773 
実行有難うございます。 
私の方でもやってみましたが、平均値が30％になりました。 
安心しました。

775:nobodyさん
 08/01/19 23:16:40 
#!/usr/bin/env perl 
use strict; 
use CGI; 
use CGI::Carp qw(fatalsToBrowser); 
use POSIX qw(strftime); 
my $q = new CGI; 
print $q->header(), $q->start_html(); 
#print $q->dump; # for debug 
my $outputdir = "log";  # ファイルを置く先 (ディレクトリ) 
my $fh = $q->param('uploaded_file'); 
my ($ex) = ($fh =~ m|(\.[^./\\]+)$|); # 拡張子 
if ($fh ne "") { 
    my $timestamp = strftime "%y%m%d%H%M%S", localtime; 
    my $outputfn = "$outputdir/$timestamp$ex"; 
    open(F, "> $outputfn") or die; 
    flock(F, 2); 
    if (defined $fh) { 
 while (<$fh>) { 
     print F $_; 
 } 
    } 
    close F; 
    print qq{saved as <a href="$outputfn">$outputfn</a>}; 
} 
print $q->start_multipart_form(-name => 'myform'), 
    $q->filefield(-name => 'uploaded_file'), 
    $q->submit("OK"), 
    $q->endform, 
    $q->end_html(), "\n";

次ページ