银子 ’s 博客

<?php
function make_semiangle($str)   
{   
    $arr = array('０' => '0', '１' => '1', '２' => '2', '３' => '3', '４' => '4',   
                 '５' => '5', '６' => '6', '７' => '7', '８' => '8', '９' => '9',   
                 'Ａ' => 'A', 'Ｂ' => 'B', 'Ｃ' => 'C', 'Ｄ' => 'D', 'Ｅ' => 'E',   
                 'Ｆ' => 'F', 'Ｇ' => 'G', 'Ｈ' => 'H', 'Ｉ' => 'I', 'Ｊ' => 'J',   
                 'Ｋ' => 'K', 'Ｌ' => 'L', 'Ｍ' => 'M', 'Ｎ' => 'N', 'Ｏ' => 'O',   
                 'Ｐ' => 'P', 'Ｑ' => 'Q', 'Ｒ' => 'R', 'Ｓ' => 'S', 'Ｔ' => 'T',   
                 'Ｕ' => 'U', 'Ｖ' => 'V', 'Ｗ' => 'W', 'Ｘ' => 'X', 'Ｙ' => 'Y',   
                 'Ｚ' => 'Z', 'ａ' => 'a', 'ｂ' => 'b', 'ｃ' => 'c', 'ｄ' => 'd',   
                 'ｅ' => 'e', 'ｆ' => 'f', 'ｇ' => 'g', 'ｈ' => 'h', 'ｉ' => 'i',   
                 'ｊ' => 'j', 'ｋ' => 'k', 'ｌ' => 'l', 'ｍ' => 'm', 'ｎ' => 'n',   
                 'ｏ' => 'o', 'ｐ' => 'p', 'ｑ' => 'q', 'ｒ' => 'r', 'ｓ' => 's',   
                 'ｔ' => 't', 'ｕ' => 'u', 'ｖ' => 'v', 'ｗ' => 'w', 'ｘ' => 'x',   
                 'ｙ' => 'y', 'ｚ' => 'z',   
                 '（' => '(', '）' => ')', '〔' => '[', '〕' => ']', '【' => '[',   
                 '】' => ']', '〖' => '[', '〗' => ']', '“' => '[', '”' => ']',   
                 '‘' => '[', '’' => ']', '｛' => '{', '｝' => '}', '《' => '<',   
                 '》' => '>',   
                 '％' => '%', '＋' => '+', '—' => '-', '－' => '-', '～' => '-',   
                 '：' => ':', '。' => '.', '、' => ',', '，' => '.', '、' => '.',   
                 '；' => ',', '？' => '?', '！' => '!', '…' => '-', '‖' => '|',   
                 '”' => '"', '’' => '`', '‘' => '`', '｜' => '|', '〃' => '"',   
                 '　' => ' ' );   
 
    return strtr($str, $arr);   
}
?>

<input type="file" value="" onchange="alert(this.value);" />

 
function ubb2html($str)
{
    $str = htmlspecialchars(stripslashes($str));
    // 字体颜色
    $str = preg_replace("#\[color\=([^\]]*)\]([^\[]*)#i","<span style='color:$1'>$2",$str);
    $str = preg_replace("#\[\/color\]#i","</span>",$str);
    // 字体大小
    $str = preg_replace("#\[size\=(\d)\]([^\[]*)#i","<font size='$1'>$2",$str);
    $str = preg_replace("#\[\/size\]#i","</font>",$str);
    // 超链接
    $str = preg_replace("#\[url\=([^\]]*)\]([^\[]*)#i","<a href='$1' target='_blank'>$2",$str);
    $str = preg_replace("#\[\/url\]#i","</a>",$str);
    // 图片
    $str = preg_replace("#\[img\]([^\[]*)\[\/img\]#i","<img src='$1' />",$str);
    // 其它
    $str = preg_replace("#\[([\/]?)b\]#i","<$1strong>",$str);
    $str = preg_replace("#\[([\/]?)i\]#i","<$1i>",$str);
    $str = preg_replace("#\[([\/]?)em\]#i","<$1em>",$str);
    $str = preg_replace("#\[([\/]?)u\]#i","<$1u>",$str);
    return nl2br($str);
}

#!/usr/bin/perl
 
#---------------------------------------------------------
use strict;
my $dir = "dirname/";
opendir DH, $dir or die "cannot chdir to $dir : $!";
for my $file (readdir DH)
{
    ($file eq '.') and next;
    ($file eq '..') and next;
    if (time() - (stat($dir.$file))[9] > (60*60))
    {
        unlink $dir.$file;
    }
    print $dir.$file."\n";
}
closedir DH;