view release on metacpan or  search on metacpan

author/pod-stripper/scripts/pod_stripper.pl  view on Meta::CPAN

32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
say "Original module size: $original_bytes";
say "Stripped to: $final_bytes";
say sprintf "Won %0.02f%%", (1- ($final_bytes / $original_bytes)) * 100;
 
exit;
 
sub wanted {
    my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size);
 
    ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size) = lstat($_);
    $original_bytes += $size;
 
    if (-f $_ && /^.*\.pm\z/s) {
        dostrip($_);
    }
 
    if (-f _ && /^.*\.pod\z/s) {
        delete_pod($_);
    }

examples/cgi/WwwCounter/wwwcount.cgi  view on Meta::CPAN

493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
sub doLock {
        my($mtime);
 
        if ($g_lock_flag) {
                for (my $i = 1; $i <= 6; $i++) {
                        if (mkdir("$g_file_lock", 0755)) {
                                # ロック成功。次の処理へ。
                                last;
                        } elsif ($i == 1) {
                                # 10分以上古いロックファイルは削除する。
                                ($mtime) = (stat($g_file_lock))[9];
                                if ($mtime < time() - 600) {
                                        rmdir($g_file_lock);
                                }
                        } elsif ($i < 6) {
                                # ロック失敗。1秒待って再トライ。
                                sleep(1);
                        } else {
                                # 何度やってもロック失敗。あきらめる。
                                exit(1);
                        }