本月博客排行
-
第1名
龙儿筝 -
第2名
lerf -
第3名
fantaxy025025 - johnsmith9th
- xiangjie88
- zysnba
年度博客排行
-
第1名
青否云后端云 -
第2名
宏天软件 -
第3名
gashero - wy_19921005
- vipbooks
- benladeng5225
- e_e
- wallimn
- javashop
- ranbuijj
- fantaxy025025
- jickcai
- gengyun12
- zw7534313
- qepwqnp
- 解宜然
- ssydxa219
- zysnba
- sam123456gz
- sichunli_030
- arpenker
- tanling8334
- gaojingsong
- kaizi1992
- xpenxpen
- 龙儿筝
- jh108020
- wiseboyloves
- ganxueyun
- xyuma
- xiangjie88
- wangchen.ily
- Jameslyy
- luxurioust
- lemonhandsome
- mengjichen
- jbosscn
- zxq_2017
- lzyfn123
- nychen2000
- forestqqqq
- wjianwei666
- ajinn
- zhanjia
- Xeden
- hanbaohong
- java-007
- 喧嚣求静
- mwhgJava
- kingwell.leng
最新文章列表
Perl之POSIX
利用POSIX模块处理 向下/向上取整
use POSIX;
POSIX::ceil(3.14) => 4 #向上取整
POSIX::floor(3.14) => 3 # 向下取整, 等同于 int(3.14)
利用Math::Round 做四舍五入
use Math::Round;
my $num = 45.4;
my $round = Ma ...
Perl之stat()函数
转载:http://blog.chinaunix.net/uid-10449864-id-2956793.html
perl下的stat函数和shell下的stat命令的功能基本一致,也是取得文件的各类具体信息:stat()函数返回一个数组,下面是数组各个元素的含义:0 dev 设备号 驱动器号(C:通常是2,D:通常是3,等等)1 ino 索引节号 ...
SecureCRT 8.0激活
使用教程
破解步骤:
1.安装完crt
2进入crack 复制 SecureCRT
3.找到crt安装目录(应用程序中找到crt,右键显示包内容->Contents->MacOS)
4.把刚才复制的SecureCRT替换安装目录中的SecureCRT
5.打开SecureCRT,然后 点击Enter License Data..
6.找到crack中的SecureCRT-FX 8 SN ...
Perl之List::Util
#!/usr/bin/perl
use List::Util qw/max min sum maxstr minstr shuffle/;
利用 List::Util::shuffle创建一个随机排序的数组。
sub create_rand_array {
my ($min, $max)= @_;
my @a = ($min..$max);
@a = Li ...
Perl之Encode::Detect
以处理csv(内容含中文)为例,使用Encode 模块。因为csv如果包含中文,需要转码否则出现分割列的时候会出现错位。
use Encode qw /from_to/;
use Encode::Detect::CJK qw(detect);
sub test_csv {
my $file_name = $_[0];
my $table;
open(CSV, $file_ ...
Perl之Time::Local
use Time::Local;
my $now = time(); #取当前的unix时间戳
my ($sec,$min,$hour,$day,$month,$year,$wday,$yday,$isdst) = localtime();
$year = $year + 1900; #注意$year表示它表示从1900年开始的年份,要处理
$month = $month + ...
Perl之HTTP::Request
use URI::Escape;#URL编码
use JSON;
#发送GET请求
use LWP::Simple;
my $tmp = "您本次操作的验证码为:$code";
my $smsmsg = uri_escape_utf8($tmp); #URL编码
my $args="http://xxx?p=".$phone.&qu ...
60,000毫秒内对Linux的性能诊断效的方法
转载于:http://www.itxuexiwang.com/a/liunxjishu/2016/0225/168.html?1456484140
60,000 毫秒内对 Linux 的性能诊断
当你为了解决一个性能问题登录到一台 Linux 服务器:在第 ...
perl: warning: Please check that your locale settings:
$ sudo apt-get install wget
perl: warning: Setting locale failed.
perl: warning: Please check that your locale settings:
LANGUAGE = (unset),
LC_ALL = (unset),
LC_TIME = "zh_CN.UTF-8",
L ...
Perl正则表达式
首先我们应该知道 Perl 程序中,正则表达式有三种存在形式,他们分别是:
匹配:m/<regexp>;/ (还可以简写为 /<regexp>;/ ,略去 m)
替换:s/<pattern>;/<replacement>;/
转化:tr/<pattern>;/<replacemnt>;/
这三种形式一般都 ...
找了好久的perl在window上读excel的脚本
清单 1:安装 Excel 模块的 PPM 命令
ppm> install OLE::Storage_Lite
ppm> install Spreadsheet::ParseExcel
ppm> install Spreadsheet::WriteExcel
总是报一下错误!!
Can't locate Spreadsheet/Read.pm in @INC (you may ...
精通Perl(第2版)
精通Perl(第2版)(通往Perl大师之路必读经典书籍,体现了一种编程思维,能够帮你解决很多实际的问题)
【美】brian d foy(布瑞恩·D·福瓦)著
王兴宇 刘宸宇 译
ISBN 978-7-121-25419-2
2015
perl学习笔记(五)
#!/usr/bin/perl
use 5.010;
say "-----------FreezeThaw模块------------------------";
#将复杂结构编码成可以打印的ASCII字符串,使用者可以将编码后的字符串发送到文件、DBM文件、数据库。
#use FreezeThaw qw(freeze thaw);#加载freeze()和th ...
perl学习笔记(六)--正则
#!/usr/bin/perl
use 5.010;
=pod
perl中表达式三种形式:
1、匹配:m/<regexp>;/mosxg cg
2、替换:s/<pattern>;/<replacement>;/mosxge g表示全部替换,而不是只替换首次出现的;e表示把<replacement>;当做一个运算符;
3、 ...