本月博客排行
-
第1名
龙儿筝 -
第2名
lerf -
第3名
fantaxy025025 - johnsmith9th
- zysnba
- xiangjie88
年度博客排行
-
第1名
青否云后端云 -
第2名
宏天软件 -
第3名
gashero - wy_19921005
- vipbooks
- benladeng5225
- e_e
- wallimn
- javashop
- ranbuijj
- fantaxy025025
- jickcai
- zw7534313
- qepwqnp
- 解宜然
- ssydxa219
- zysnba
- sichunli_030
- sam123456gz
- 龙儿筝
- arpenker
- tanling8334
- kaizi1992
- gaojingsong
- xpenxpen
- jh108020
- wiseboyloves
- ganxueyun
- xyuma
- xiangjie88
- wangchen.ily
- Jameslyy
- lemonhandsome
- luxurioust
- mengjichen
- jbosscn
- zxq_2017
- lzyfn123
- nychen2000
- forestqqqq
- wjianwei666
- ajinn
- zhanjia
- Xeden
- hanbaohong
- java-007
- 喧嚣求静
- kingwell.leng
- mwhgJava
- lich0079
最新文章列表
POSIX 风格和兼容 Perl 风格两种正则表达式主要函数的类比(preg_match, preg_replace, ereg, ereg_replace)
POSIX 风格和兼容 Perl 风格两种正则表达式主要函数的类比(preg_match, preg_replace, ereg, ereg_replace)
首先来看看 POSIX 风格正则表达式的两个主要函数:
ereg 函数:(正则表达式匹配)
格式:int ereg ( string pattern, string string [, array ®s] )
注意:使用 Perl ...
精通正则表达式(第3版)
《精通正则表达式(第3版)》基本信息作者: [美]Jeffrey E.F.Friedl 译者: 余晟 出版社:电子工业出版社 ISBN:9787121175015上架时间:2012-8-6出版日期:2012 年8 ...
perl发送http请求,easy之极
perl 发送http 非常之简单,发送get请求 只一行代码
use LWP::Simple;
$content = get('http://localhost:8080/webtest/a.jsp');
发送post,或者要发送请求头,cookie,则为以下代码,也不多
use LWP::UserAgent;
my $ua = LWP::UserAgent-& ...
perl windows readlink
在windows 下使用 readlink 读取符号链接,发现报如下错误:
Use of uninitialized value $where in print at C:\Do......,
解决办法是: readlink 依赖于symlink, 如果想在windows中使用symlink, 则需要下载模块 Win32:: Symlink, 同理,如果要想使用readlink, 同样需要在 ...
perl windows readlink
在windows 下使用 readlink 读取符号链接,发现报如下错误:
Use of uninitialized value $where in print at C:\Do......,
解决办法是: readlink 依赖于symlink, 如果想在windows中使用symlink, 则需要下载模块 Win32:: Symlink, 同理,如果要想使用readlink, 同样需要在 ...
Passing a regex pattern as a varaible in perl?
Look at this example: http://stackoverflow.com/questions/125171/passing-a-regex-substitution-as-a-variable-in-perl
Perl的列表上下文语境
以下代码会输出什么?
#!/usr/bin/perl -w
use strict;
my @ret = undef;
print "Hello\n" if @ret;
my $ret = undef;
print "World\n" if $ret;
hive中转义特殊字符
原SQL如下:
regexp_extract(lower(url), 'bookid\\=([^&$]+)', 1)
封装hive sql用的是perl,perl中用hive -e的方式将sql传给hive执行,上面的语句中perl经过转义,变成了
regexp_extract(lower(url), 'bookid=([^&5.008008+)', 1)
...
linux系统安装perl的DBI模块
检查perl版本:perl -v
查看DBI模块是否安装:perldoc DBI
安装模块到Linux系统上,使用CPAN shell,以root身份登陆,然后发出如下命令:
perl -MCPAN -e shell cpan>install DBI
同理:安装DBD:mysql——>cpan>install DBD::mysql ...
Perl获取和修改文件属性
use Win32::File;
$name="Test.txt";
$attr=0;
Win32::File::GetAttributes($name,$attr) or die "Can't get attributes for $name.";
print "File attributes:$attr\n";
...
安装Perl及Perl模块Net::SSH2
在各平台下安装ActivePerl
http://docs.activestate.com/activeperl/5.14/install.html
Linux下安装perl
到http://www.cpan.org/src/下载某个版本的perl,我这里下载的是perl-5.12.4.tar.gz
1. 解压:
tar -xzf perl-5.12.4.tar.gz
2. 进入 ...
打开到标量的文件句柄
As a special case the three-argument form with a read/write mode and the third argument being "undef":
open(my $tmp, "+>", undef) or die ...
...
Perl常用函数集
#!/usr/bin/perl -w
package Common;
use vars qw(@ISA @EXPORT @EXPORT_OK);
use Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
isScmDebug enableScmDebug debug info warn error fatal
isDefinedInE ...