EasyTool 1.0.7

EasyTool is the library of Perl Functions in Common Usage.

SYNOPSIS

use EasyTool;

if(defined(&EasyTool::foo)){
print "lib is included";
}else{
print "lib is not included";
}

print EasyTool::is_int(2147483647); #true
print EasyTool::is_int(-2147483648); #true
print EasyTool::is_int(2147483648); #false

print EasyTool::is_id(4294967295); #true
print EasyTool::is_id(4294967296); #false

print EasyTool::is_email("xxx.abc@test.com"); #true

print EasyTool::trim(" t testn "); #test

print EasyTool::in(a, {a => 1, b => 2}); #true
print EasyTool::in(undef, 1, undef); #true

print EasyTool::ifnull(undef, 1); #1

print EasyTool::read_file("file.in");
print EasyTool::write_file("file.out", "string");
print EasyTool::append_file("file.out", "string");
print EasyTool::delete_file("file.out");

$ra_array = EasyTool::csv_2_array("a.csv");
print EasyTool::array_2_csv("a.csv", $ra_array);

print EasyTool::md5_hex("test"); #098f6bcd4621d373cade4e832627b4f6

print EasyTool::crc32("test"); #3632233996

$str = &EasyTool::encode_hex("hello");
print EasyTool::decode_hex($str); #hello

$str = &EasyTool::encode_base64("hello");
print EasyTool::decode_base64($str); #hello

$str = &EasyTool::url_encode(<&%$/ |=+_]{>@^);
print EasyTool::url_decode($str); #<&%$/ |=+_]{>@^

$str = &EasyTool::html_encode(";<><"");
print EasyTool::html_decode($str); #;<><"

print EasyTool::qquote(n); #"n"
print EasyTool::qquote_bin(n); #"n"

print EasyTool::dump([1, {a => 1, b => 2}, undef]); #[1, {"a" => 1, "b" => 2}, ()]

print EasyTool::test_var(); #undef
print EasyTool::test_var(1); #1
print EasyTool::test_var(); #1

print EasyTool::time_2_str(1983-03-07 01:02:03,%yyyy-%MM-%%dd);
print EasyTool::time_2_str(1983-03-07 01:02:03);
print EasyTool::time_2_str(1983-03-07);
print EasyTool::time_2_str(2004-08-28T08:06:00);
print EasyTool::time_2_str(946656000);
print EasyTool::time_2_str( 1983-03-07 );
print EasyTool::time_2_str(1983-03-07T01:02:03);


print EasyTool::is_time(1983-03-07 01:02:03);
print EasyTool::time_2_timestamp(1983-03-07 01:02:03);
print EasyTool::hash_2_timestamp({year=>1983,month=>3,day=>7,hour=>1,min=>2,sec=>3});
$rh_time=EasyTool::time_2_hash(1983-03-07 01:02:03); #{year=>1983,month=>3,day=>7,hour=>1,min=>2,sec=>3}

print EasyTool::now();
print EasyTool::time();
print EasyTool::datetime_now();
print EasyTool::date_now();

print EasyTool::day_of_month(2000,2); #29
print EasyTool::day_of_week(2006-07-02); #0
print EasyTool::timestamp_set(1983-03-07 01:02:03,{year=>1984,month=>5,day=>10,hour=>5,min=>7,sec=>9});#maybe 453013629
print EasyTool::datetime_set(1983-03-07 01:02:03,{year=>1984,day=>10,min=>7});#1984-03-10 01:07:03
print EasyTool::date_set(1983-03-07 01:02:03,{month=>5,hour=>5,sec=>9});#1983-05-07

print EasyTool::timestamp_add(1983-03-07 01:02:03,{year=>1,month=>2,day=>3,hour=>4,min=>5,sec=>6});#maybe 453013629
$datetime=EasyTool::datetime_add(1983-03-07 01:02:03,{year=>1,day=>3,min=>5});#1984-03-10 01:07:03
$date=EasyTool::date_add(1983-03-07 01:02:03,{month=>2,hour=>4,sec=>6});#1983-05-07