บันทึก Perl

เอา ^M ออกจาก file ที่เป็น DOS

$foo =~ s/\015//g;

เปลี่ยนเป็นตัวเล็กทั้งหมด

$foo =~ s/([^\W0-9_])/\l$1/g;

MD5 hash ในการสร้าง encrypted password เพื่อเก็บลงใน Database

use Digest::MD5;
sub GenPasswd {
$passwd = $_[0];
$md5 = Digest::MD5->new;
$md5->add('sugar'); # เติมน้ำตาลหน่อย :D
$md5->add($passwd);
$encrypted = $md5->->hexdigest;
return $encrypted;
}

Copy files

use File::Copy;
copy "$source", "$target";

สร้าง directory

use File::Path;
mkpath($dirname);