随笔分类 -  Perl

摘要:^a 以a 为开头 [^a] 非a apple(|\t+)pear 中间出现一次以上空格,制表符或者两者混合的字符串 apple(+|\t+)pear 中间的分隔符全是空格或者全部制表符 (apple|pear) [a|b] [ab] 只匹配字符集中列出的任何一个 [^def] 匹配这三个字符以为的 阅读全文
posted @ 2017-04-26 14:22 白鸟li 阅读(1335) 评论(0) 推荐(0)
摘要:解决方法http://stackoverflow.com/questions/37020135/perl-floor-function-giving-error-undefined-subroutine-mainfloorsub floor { my ($n) = @_; my $int_n = i 阅读全文
posted @ 2017-04-06 15:55 白鸟li 阅读(1185) 评论(0) 推荐(0)
摘要:1, 去掉引号 $a=~s/"//g; 2 去前四个字符 substr($product,0,4) 多行注释: 最常用的方法是使用 POD(Plain Old Documentations) 来进行多行注释。方法如下: =pod codes to comment =cut sed -i '/^[0- 阅读全文
posted @ 2017-03-30 14:06 白鸟li 阅读(132) 评论(0) 推荐(0)
摘要:open READ,"<","G:/project-xiaomai/yourfile.txt"; readline READ; # skip the first line while (<READ>) { print $_; } close READ; 阅读全文
posted @ 2017-03-30 11:41 白鸟li 阅读(894) 评论(0) 推荐(0)
摘要: 阅读全文
posted @ 2017-03-30 11:38 白鸟li 阅读(222) 评论(0) 推荐(0)
摘要:my %hash = ("a"=>1, "b"=>2, "c"=>3); print my @k = keys %hash; print my @v = values %hash; my %hash = ("a"=>1, "b"=>2, "c"=&g 阅读全文
posted @ 2017-03-29 09:19 白鸟li 阅读(98) 评论(0) 推荐(0)
摘要:服务会阻塞等待直到锁被释放:flock(lockfd,LOCK_EX)服务会返回错误发现文件已经被锁住时:ret = flock(lockfd,LOCK_EX|LOCK_NB)同时ret = -1, errno = EWOULDBLOCK 阅读全文
posted @ 2017-03-14 11:20 白鸟li 阅读(174) 评论(0) 推荐(0)
摘要:输出结果: hello perl 这个用法太方便太perl了,以后再也不需要使用新建文件的笨方法了。 下面是解释: <IN>可以从打开的句柄IN中获得数据,<STDIN>可以从标准输入接收数据,类似地,<DATA> 文件句柄可以直接从执行它的脚本中获取数据,而不是从命令行或者从另一个文件里获取。<D 阅读全文
posted @ 2017-03-14 11:19 白鸟li 阅读(294) 评论(0) 推荐(0)