-
Perl语言substr应用
所属栏目：[大数据] 日期：2020-12-16 热度：58
Perl语言substr应用 use Encode; ? $str=decode('gbk',"测试文本"); ? print encode('gbk',substr($str,1));? ============================================= 指令：substr 语法：substr($string,offset,length) ? ?offset代表起始字符的位置,length代表引[详细]
-
perl+SQlite
所属栏目：[大数据] 日期：2020-12-16 热度：158
1. Common Cmds Sqlite是一个小巧的嵌入式关系型数据库，几乎可以嵌入所有编程语言，特别是C，C++，PHP，Perl等。这里就介绍如何用Perl连接并操作Sqlite数据库。 use DBI; # perl用以操作sqlite的模块，有这一个模块就足够了use strict; # 初学必须加上这一[详细]
-
perl+SQlite模块
所属栏目：[大数据] 日期：2020-12-16 热度：65
在开发处理大量的数据，且数据随机性超强悍（比如网络数据）的系统时，我们总会面临对数据正性的验证的问题， 尤其是当这些系统并非基于数据库、但又具有大量的条件查询的时候，我们常常需要要原始的数据进行统计，再通 过与系统中的值进行比较，来难数据的[详细]
-
perl Summary
所属栏目：[大数据] 日期：2020-12-16 热度：138
perl summary 1. 脱引用(dereference)并不是只能用在引用上，返回引用的函数也能使用。如： sub foo { my $a = 10; return $a; } print ${foo()}; # 返回10 print “${foo()}”; # 甚至在字符串替换中也能用！ 2. 两个相邻的下标之间可以省去 - 。如： prin[详细]
-
perl formatting time
所属栏目：[大数据] 日期：2020-12-16 热度：158
Formatting Time ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 方法一： use POSIX qw(strftime);my $timeStr1 = strftime "%Y-%m-%d",localtime;my $timeStr2 = strftime "%Y-%m-%d",localtime(time-86400); （前一天）print "$timeStr[详细]
-
perl 统计字符串中特定字符出现的次数
所属栏目：[大数据] 日期：2020-12-16 热度：86
perl 统计字符串中特定字符出现的次数 ? ?最近写程序遇到如题问题，从网上搜了一些相关技巧，如下： ? ? ? ? ? ? （利用数组和哈希的方法就不再列出了） 法一： ? ?? #!/usr/bin/perl -w use strict; my $str = 'abcsfsaf#sdagasdga#sdgaghoiiopjh#dsfjkopah[详细]
-
Perl的die、warn、eval函数
所属栏目：[大数据] 日期：2020-12-16 热度：120
die函数? 18.4 错误处理? 在很多情况下，系统调用可能会失败；例如，尝试打开不存在的文件，或者删除某个仍含有文件的目录，或者 尝试读取没有读权限的文件。在前面的示例中，我们已经用到了die函数，本节将 详细讨论有关错误处理和错 误处理函数的相关内容[详细]
-
perl的包（package）和模块（PM）
所属栏目：[大数据] 日期：2020-12-16 热度：140
==================================包package=========================== package mypack; 包文件的其始语句 此语句定义一个名为mypack的包，从此以后定义的所有变量和sub的名字都存贮在该包关联的符号表中，直到遇到另一个package语句为止。 包文件――包[详细]
-
perl--require(@INC)
所属栏目：[大数据] 日期：2020-12-16 热度：149
perl的包含文件 require ("myfile.pl"); 基本的包含文件全过程 建立一个include文件，就按整个的perl script文件格式建立,文件中写sub.包或模块中，必须有reutrn 1; [macg@localhost perltest]$ vi file1.pl #!/usr/bin/perl sub gotest{ my(@tmp)=@_; open[详细]
-
Handy Notes for 2013 Beijing Perl Workshop
所属栏目：[大数据] 日期：2020-12-16 热度：88
2013 Beijing Perl Workshop Yesterday I joined Beijing Perl Workshop and met lots of friends again,Joe,Roger,Qiang .... Below are my casual notes for yesterday's sessions. Just put it at here for memory. Mojolicious Introduction - by 扶凯 B[详细]
-
perl typeglob使用
所属栏目：[大数据] 日期：2020-12-16 热度：171
#!/usr/bin/perl -l use strict; use warnings; my $var = "Hello Jason"; my @var = qw(aaa bbb ccc ddd eee fff); *var = "Hello World"; *var = @var; *var = sub{print "This is a sub"}; print ?${*var{SCALAR}}; map{print}@{*var{ARRAY}}; {*var{CO[详细]
-
perl的时间处理函数
所属栏目：[大数据] 日期：2020-12-16 热度：74
http://linux.chinaitlab.com/Perl/787576.html 涉及到的函数：localtime(),gmtime(),time() 涉及到的模板：Time::Local ? （提供的函数timelocal(),timegm()同localtime,gmtime） ? ? ? ? ? ? ?Date::Manip 和Date::Calc 也可作为参考，功能强大 使用： loc[详细]
-
Perl相关模板的安装（DBD::Oracle）
所属栏目：[大数据] 日期：2020-12-16 热度：70
针对Strawberry Perl，使用CPAN来安装： i /word/ ? ? ? ? ? ? ?查找相关的模块及具体名称 intall modulename ? ? 进行安装 （自动安装） DBI ? ? ? ? ? ? ? ? ? DBI是个抽象层 DBD::Oracle ? ? ? ? ? 安装这个，需要先装上DBI。即数据库驱动，不同数据库不[详细]
-
perl symbol table
所属栏目：[大数据] 日期：2020-12-16 热度：146
The contents of a package are collectively called a symbol table. Symbol tables are?stored in a hash whose name is the same as the package,but with two colons appended. The main symbol table’s name is thus %main::. Since main also happens[详细]
-
FAQ: Solaris系统下安装Perl模块可能出现的问题和解决方法
所属栏目：[大数据] 日期：2020-12-16 热度：188
发信人: springsun (小蒜头),信区: Perl? 标??题: FAQ: Solaris系统下安装Perl模块可能出现的问题和解决方法? 发信站: 水木社区 (Sat Sep 29 17:28:13 2007),转信? ?? 前日发了一帖 “Solaris系统下安装Perl模块遇到的问题”，抱怨了一下。 flw (梨花小蓓蕾)[详细]
-
perl模块的一些操作（删除已安装模块）
所属栏目：[大数据] 日期：2020-12-16 热度：115
关于模块的安装，包含自动/手动，自动使用的是CPAN，系统自动下载、编译、测试、安装，手动需要将安装包下载下来，再执行相关命令。基本原理一样 1、自动安装 ? ?在cmd中，cmdcpan modulename; ? cmdperl -MCPAN -e 'install module'; ? ?cpaninstall module[详细]
-
perl通过CPAN安装DBD::Oracle时出错（2）
所属栏目：[大数据] 日期：2020-12-16 热度：146
在上一篇中对相关情况进行了描述，通过CPAN自动安装模块DBD::Oracle时报错，无法正常安装，已找到解决方法，具体情况如下： 1、第一次安装时，根据错误提示，确认为ORACLE_HOME没有设置，导致在加载时随意设置了oracle的目录，导致相关东西找不到。 2、在系[详细]
-
perl函数使用文件句柄
所属栏目：[大数据] 日期：2020-12-16 热度：155
http://fhqdddddd.blog.163.com/blog/static/1869915420124141527335/ 在perl的函数定义中，如果使用文件句柄作为参数进行传递，请使用引用，而不要使用直接的变量赋值操作。原因是如果在其它包中引用这个函数，将导致文件句柄非法错误。 #!/usr/bin/perl us[详细]
-
Perl内置特殊变量
所属栏目：[大数据] 日期：2020-12-16 热度：121
一、 正则表达式 特殊 变量： 1、 $n ? :包含上次模式匹配的第n个子串 2、 $ :前一次成功模式匹配的字符串 3、 $` ? :前次匹配成功的子串之前的内容 4、 $’ :前次匹配成功的子串之后的内容 5、 $+ :前一次使用括号的模式匹配的字符串. 二、 文件句柄 特殊[详细]
-
关于perl遍历目录查找特定文件的事情
所属栏目：[大数据] 日期：2020-12-16 热度：148
关于perl遍历目录查找特定文件的事情 (2007-04-26 11:48:59) 转载 ▼ 标签： perl 分类： 技术文章 ? 早在99年的时候我就做过这个事情了，之后又遇到好多次这样的事情，但每次都是临时去写，没有做过记录，然后要测试，现在做个记录，下次就不必让别人重新写[详细]
-
用perl 从一个文件生成另一个文件（小case)
所属栏目：[大数据] 日期：2020-12-16 热度：128
有一个文件叫sections,?如下: hjj@ubuntu:~$?cat?sections? 0xe08d4000? 0xe08d642c 由sections?文件，欲生成debug-sections?文件，期待如下： hjj@ubuntu:~$?cat?debug-sections? add-symbol-file?uxfs.ko?0xe08d4000?-s?.exit.text?0xe08d642c 就是说从第[详细]
-
Script.NET Perl解释器代码已经在GitHub开源发布
所属栏目：[大数据] 日期：2020-12-16 热度：109
Script.NET Perl解释器的代码已经提交到GitHub网站。GitHub项目地址： https://github.com/blueantst/Script.NET Perl解释器代码在SrcInterpsPerl目录下，目前支持Perl5.10版本，后续会考虑支持Perl5.18版本。因为Perl的运行库比较大，没有提交到git库，可[详细]
-
Perl插入sqlserver数据库方法比较
所属栏目：[大数据] 日期：2020-12-16 热度：98
Perl插入sqlserver数据库方法比较分类： Python/Ruby1. 本文对三种插入数据库方法比较。a) 循环执行$sth-execute();并且自行控制$dbh-commit();b) $sth-bind_param_array()与$sth-execute_array()c) 利用sqlserver提供的bulkinsert与直接insert比较 2. 代码[详细]
-
Perl实现不同数据库结果比较 (mysql, oracle, sqlserver)
所属栏目：[大数据] 日期：2020-12-16 热度：120
# 1. sql.txt中有多条sql语句，如下： SELECT * FROM TESTA SELECT * FROM TESTB SELECT * FROM TESTCSELECT * FROM TESTD SELECT * FROM TESTE SELECT * FROM TESTF# 2. perl脚本如下，执行的结果会放在与表对应的csv文件中use strict;use warnings;use DBI[详细]
-
perl高水线算法
所属栏目：[大数据] 日期：2020-12-16 热度：56
案例；有5个数3 5 10 4 6 求出一个最大值； 代码如下： #!/usr/bin/perl$maximum=max(3,5,10,4,6);sub max { my ($max_so_far) = shift @_; foreach (@_) { if ($_ $max_so_far) { $max_so_far = $_; } } $max_so_far;}print "$maximumn"; 执行后 [root@cen[详细]
