-
perl 时间处理
所属栏目：[大数据] 日期：2020-12-16 热度：89
#!/usr/bin/perl use POSIX qw(strftime); ? ? my $day_Ymd = strftime("%Y%m%d",localtime(time - 86400 * $days)); my $day_ymd = strftime("%y%m%d",localtime(time - 86400 * $days)); print $day_Ymd,"/n"; my $showdate=`date -d '$i days ago' +%d/%b[详细]
-
perl,shell中如何打印出处理sql语句变量的单引号
所属栏目：[大数据] 日期：2020-12-16 热度：60
今天早上有个小问题难住了，在sql中的insert语句中需要打印单引号。 awk '{print????"insert into webconfig (domain,webdir) values("$1","$2")"";"}' 因为需要打印出$1,$2变量而且需要单引号，试了很多种方法都不行，转义，双引号都已过了，都是不能输出。[详细]
-
perl php dump
所属栏目：[大数据] 日期：2020-12-16 热度：73
调试函数 比较 perl #!/usr/bin/perl use POSIX qw(strftime); use Data::Dump qw(dump ddx); my %MonthAbbr = ( "Jan"='01',"Feb"='02',"Mar"='03',"Apr"='04',"May"='05',"Jun"='06',"Jul"='07',"Aug"='08',"Sep"='09',"Oct"='10',"Nov"='11',"Dec"='12' )[详细]
-
perl读写文件和命令行解析
所属栏目：[大数据] 日期：2020-12-16 热度：97
perl读写文件和命令行解析 ? 一 读写文件 实例：?? use ?strict; use ?warnings; sub ?open_display_file { ?? # ?the?filename?should?be?passed?in?as?a?parameter ?? my ? $filename ? = ? shift ; ?? # ?open?file?to?the?handle?FILE ?? open (FILE , ?[详细]
-
my 和 our 变量申明的含义
所属栏目：[大数据] 日期：2020-12-16 热度：176
require?5.006 当版本号小于?5.006?的时候，会返回失败，从而导致模块加载失败。 所以它的作用就是保证模块调用环境的?Perl?版本。 our?和?my?一样，都是对变量的声明， 不过?our?声明的是包全局变量， 而?my?声明的是词法变量。 不过，经过?our?声明的变量[详细]
-
关于perl和shell的参数传递
所属栏目：[大数据] 日期：2020-12-16 热度：64
? Perl 1.命令行参数传递? *Perl **@ARGV $_ARGV[0] $#ARGV为参数的个数-1 ($#array 只适用于@array不适用%hash) *Shell $1 $2 参数个数$#(不用减1,是否可以用来判断是否有命令行参数？) 2.函数参数传递 *Perl **@_ 传递了所有的函数参数。如果是对象中的方[详细]
-
各种平台下Perl模块的安装方法
所属栏目：[大数据] 日期：2020-12-16 热度：99
Perl到了第五版增加了模块的概念，用来提供面向对象编程的能力。这是Perl语言发展史上的一个里程碑。此后，广大自由软件爱好者开发了大量功能强大、构思精巧的Perl模块，极大地扩展了Perl语言的功能。CPAN（Comprehensive Perl Archive Network）是internet[详细]
-
收集的Perl Debug方法
所属栏目：[大数据] 日期：2020-12-16 热度：190
Perl Debug The concepts of the perl debug are familiar to most programmers. Trace,breakpoint,and conditional breakpoint (watchpoint) are effective means with which to find problems in your perl script. Common errors in perl Check for these[详细]
-
Perl和OLEAutomation
所属栏目：[大数据] 日期：2020-12-16 热度：95
????OLE是一种基于COM的技术。OLE允许应用程式使用其他应用程式提供的通用接口来访问其组件和功能。而在Perl里使用Win32::OLE模块，来实现对OLE对象的支持。 ????实现Automation接口的应用程式（或DLL动态链接库）被称作 Automation Server。而创建并使用Aut[详细]
-
解决perl模块无法安装的问题
所属栏目：[大数据] 日期：2020-12-16 热度：98
rm /usr/lib/perl5/5.8.8/CPAN/Config.pm perl -MCPAN -e shell 在安装PERL模块的时候，遇到下面的问题导致无法安装perl模块，具体错误信息如下： cpan install Getopt::Long ......... ........... Going to read /root/.cpan/sources/modules/02packages.d[详细]
-
Perl-18---目录操作函数
所属栏目：[大数据] 日期：2020-12-16 热度：191
一、读取当前目录： NAME ??? Cwd - get pathname of current working directory SYNOPSIS ??????? use Cwd; ??????? my $dir = getcwd; ??????? use Cwd 'abs_path'; ??????? my $abs_path = abs_path($file); DESCRIPTION ??? This module provides functi[详细]
-
perl编码转换
所属栏目：[大数据] 日期：2020-12-16 热度：184
gb2312转Utf8的方法： use Encode; my $str = "中文"; $str_cnsoftware = encode("utf-8",decode("gb2312",$str)); ? Utf8转gb2312的方法： use Encode; my $str = "utf8中文"; $str_cnsoftware = encode("gb2312",decode("utf-8",$str); 或用 use Encode; ?[详细]
-
Perl Learning (4) —— 子程序
所属栏目：[大数据] 日期：2020-12-16 热度：111
2011-01-25 wcdj ? (1) 定义子程序和调用子程序 (2) 返回值 (3) 参数 (4) 子程序中的私有变量 (5) 长度可变的参数列表 (6) 关于词法（my）变量 (7) use strict编译命令 (8)? return操作符 (9) 省略“”与号 (10) 非标量返回值 —— 返回列表值 (11) 持久性私[详细]
-
perl中打印随机数
所属栏目：[大数据] 日期：2020-12-16 热度：191
打印出1-100之间的随机数，并且让用户输入，输入正确了退出，失败继续输入。当输入exit,quit,空行的时候打印出随机数字并且退出。 #!/usr/bin/perl my $rand = int (1+ rand 100); #print "this is $rand";???? #调试程序 while (1) {????????????#建立死循[详细]
-
perl 解析xml ,json文件及curl工具的使用
所属栏目：[大数据] 日期：2020-12-16 热度：79
1.解析xml ? 用到两个包： ? # use module use XML::Simple; use Data::Dumper; ? ? 过程： ? # create object $xml = new XML::Simple; #解析 $data = $xml-XMLin（xml文件名）； #取值 my $value=$data-{节点名字} 如果有子节点则为 ? my $value=$data-{节[详细]
-
Perl中的内置变量（默认变量）汇总
所属栏目：[大数据] 日期：2020-12-16 热度：165
Perl 内置变量表： $- 当前页可打印的行数,属于Perl格式系统的一部分 $! 根据上下文内容返回错误号或者错误串 $” 列表分隔符 $# 打印数字时默认的数字输出格式 $$ Perl解释器的进程ID $% 当前输出通道的当前页号 $ 与上个格式匹配的字符串 $( 当前进程的组I[详细]
-
Perl 程序在做多线程时async使用一定要谨慎
所属栏目：[大数据] 日期：2020-12-16 热度：100
????? 使用Perl开发Linux和Unix维护管理脚本是常用的手段，其中也会因为作业要求大量使用多线程技术。通常下我们使用threads::create()创建一个新的线程，这时候往往我们会创建一个$thr来保存线程ID，并在程序结束后由threads回收线程资源。但是threads还提[详细]
-
perl中如何将按hash的排序方法
所属栏目：[大数据] 日期：2020-12-16 热度：67
? 如果是按ASCII码排序，则代码如下： foreach my $key ( sort { $hash{$a} cmp $hash{$b} } keys %hash ) { my $value = $hash{$key};# do something with ($key,$value)} 如果是按数字小到大排列，则代码如下： foreach my $key ( sort { $hash{$a} = $has[详细]
-
又一道perl数据分析题
所属栏目：[大数据] 日期：2020-12-16 热度：117
一文件，类似以下格式 要求，利用你熟悉的语言取出其中对应的IP与其对应的掩码 perl code: 这个用了引用与解引用 运行结果[详细]
-
OLE打印PDF（Perl）
所属栏目：[大数据] 日期：2020-12-16 热度：74
跟ABAP没有什么关系。只是可以说明OLE提供了转PDF的处理方式。 Printing PDF files using Win32::OLE and Acrobat Exchange Posted by Domenico Discepola on July 15,2004,3:56 pm Hello.??My goal is to print Adobe PDF files from a Perl script without[详细]
-
Perl得到源文件的路径，使用shell变量
所属栏目：[大数据] 日期：2020-12-16 热度：170
? 为了保证平台兼容性,多使用Cwd取当前目录 use Cwd; my $dir = getcwd; 或者 my $dir = cwd; my $dir = fastgetcwd; 它们都返回程序运行的当前路径. use Cwd 'abs_path'; my $abs_path = abs_path($file); $abs_path = realpath($file); $abs_path= fast_ab[详细]
-
Perl 与MySQL交互示例代码
所属栏目：[大数据] 日期：2020-12-16 热度：105
示例代码（一） 示例代码（二） #!/bin/env?perl? ? use?strict;? use?Getopt::Std;? use?DBI;? ? my?%options;? ? getopts('u:p:d:h:help',%options); //冒号代表其后需要跟一个参数 ? if?(scalar(keys?%options)? ? 4 )?{? ????????printf?"USAGEn";? ??[详细]
-
收藏一perl进度条脚本
所属栏目：[大数据] 日期：2020-12-16 热度：181
收藏一perl进度条脚本 output:[详细]
-
利用perl输出文件时的注意事项
所属栏目：[大数据] 日期：2020-12-16 热度：68
声明一个字符串变量,如下 $txt = " xxxxxxxx yyyyyyyy @array " @array单独打印的时候没有问题，内嵌到$txt中时，回车换行符被解释为回车换行+空格。 例如 print ?FILE ? @array ===================== 第一行内容 第二行内容 第三行内容 ==================[详细]
-
Perl Learning (5) —— 输入与输出
所属栏目：[大数据] 日期：2020-12-16 热度：192
2011-01-31 wcdj ? (1) 读取标准输入 (2) 钻石操作符输入 (3) 调用参数 (4) 输出到标准输出 (5) 使用printf格式化输出 (6) 数组和printf (7) 文件句柄 (8) 打开和关闭文件句柄 (9) 用die处理严重错误 (10) 使用warn输出警告信息 (11) 使用文件句柄 (12) 改变[详细]
