-
perl操作二进制文件方法
所属栏目:[大数据] 日期:2020-12-16 热度:86
1. 打开句柄,设置为bin模式 open(GIF,$gifname)? ?? ?? ?or die "can't open $gifname: $!"; open(GIFOUT,"$gifOutname")? ?? ?? ?or die "can't open $gifOutname: $!"; binmode(GIF); binmode(GIFOUT); 2. 16机制,10机制,字符转换用 pack函数 3. 读写方[详细]
-
用Devel::NYTProf 优化perl脚本性能
所属栏目:[大数据] 日期:2020-12-16 热度:71
前几天发一下一个脚本运行非常慢,使用time只能知道总的时间,却无法确认原因,发现Devel::NYTProf是个很不错的工具。 如果你有root权限,则: perl -MCPAN -e shell installJSON::Any(不安这个东东,在nyt生成html的时候会报warning,不是必须的) install[详细]
-
Perl 二维数组教程
所属栏目:[大数据] 日期:2020-12-16 热度:85
? Perl?二维数组教程 【Perl 文档中文化计划】Perl 二维数组教程翻译完成。 [code]NAME ? ? perllol - 操作数组的数组(二维数组) 说明 ? ? 声明和访问数组的数组 ? ? 创建一个数组的数组(有时也可以叫“列表的列表”,不过不太准确)真是再简 ? ? 单也不[详细]
-
Perl之单行命令特技
所属栏目:[大数据] 日期:2020-12-16 热度:105
替换 将所有C程序中的foo替换成bar,旧文件备份成.bak perl -p -i.bak -e 's/bfoob/bar/g' *.c 很强大的功能,特别是在大程序中做重构。记得只有在UltraEdit用过。 如果你不想备份,就直接写成 perl -p -i -e 或者更简单 perl -pie, 恩,pie这个单词不错[详细]
-
perl中一些特殊符号用法 z
所属栏目:[大数据] 日期:2020-12-16 热度:107
$- 当前页可打印的行数,属于Perl格式系统的一部分? $! 根据上下文内容返回错误号或者错误串? $" 列表分隔符? $# 打印数字时默认的数字输出格式? $$ Perl解释器的进程ID? $% 当前输出通道的当前页号? $Content$amp; 与上个格式匹配的字符串? $( 当前进程的组I[详细]
-
Perl开发的学习-7
所属栏目:[大数据] 日期:2020-12-16 热度:190
?[详细]
-
Perl 开发的学习-1
所属栏目:[大数据] 日期:2020-12-16 热度:98
Perl: Practical Extraction and Report Language,现在的说法,但开始不是这样的。是由Larry Wall 在1987年12月18日发行了第一版。 现在最常见是第五版。 通常大部分UNIX/LINUX都预置了不同版本的Perl,有些特殊的软件如Apache/Oracle也预置了。 Perl目前的[详细]
-
Perl 正则表达式小结
所属栏目:[大数据] 日期:2020-12-16 热度:90
???????????????????????????????????????????????????????????????????????? ??? Perl 正则表达式小结 1. m定界符 “/ ****/”斜杠为默认定界符,若更改“/ ”,则须m定界符说明,m{****} 2. g 全局匹配 3. i 大小写不敏感 4. s用于替换操作 5. e求表达式值[详细]
-
perl笛卡尔积
所属栏目:[大数据] 日期:2020-12-16 热度:174
http://hi.baidu.com/dayouluo/blog/item/09ef2e730727ff0c8601b062.html 刚开始接触Perl,之前对脚本语言接触的也不多,php也只是略知一二。 最近使用了Perl中的glob函数,觉得真的很神奇。 之前我对于目录中的文件读取操作比较复杂,首先是用opendir打开目[详细]
-
s60 5版程序在symbian 3适配,升级,编译
所属栏目:[大数据] 日期:2020-12-16 热度:51
? 最近在做symbian^3的适配,因为我们的假面采用的都是系统控件,所以适配起来还是挺简单的。但是,在适配过程中也遇到了一些问题。? 1、编译失败,很多头文件找不到? 这是因为symbian^3将一些头文件放在了新的文件夹下面,只要将头文件所在的目录加到mmp中[详细]
-
perl docs:简简单单讲map
所属栏目:[大数据] 日期:2020-12-16 热度:93
? 是否对perl的map函数有点糊涂?看看这篇doc,希望对你有用哦。 简简单单讲map (一)map函数 map BLOCK LIST map EXPR,LIST map函数对LIST里的每个元素按BLOCK或EXPR进行计算,遍历LIST时,临时将LIST里的每个元素赋值给$_变量。map对每次的计算返回一个结[详细]
-
perl CGI::Session
所属栏目:[大数据] 日期:2020-12-16 热度:151
? 用于认证 eg: ligin ? my $session = new CGI::Session( "driver:File",$cgi,{ Directory = '/tmp' } ); #保存session print $session-header() #my $cookie = $cgi-cookie( CGISESSID = $session-id ); #print $cgi-header( -cookie = $cookie );; $sessi[详细]
-
info&man的基本使用
所属栏目:[大数据] 日期:2020-12-16 热度:179
1. “info” 是获得系统信息的最好的命令, 从下面开始 $ info coreutils (ps: 膜拜一下....) ??? info 中的快捷键:??????? 'q' exits. 'u' moves up to the table of contents of the current section. 'n' moves to the next chapter. 'p' moves to the p[详细]
-
log4perl 学习
所属栏目:[大数据] 日期:2020-12-16 热度:140
1. windows 安装方法如下 2. 测试 use Log::Log4perl qw(:easy); Log::Log4perl-easy_init($DEBUG); my $logger = get_logger("Twix::Bar"); $logger-debug("Watch me!");[详细]
-
使用Config::IniFiles来分析ini文件
所属栏目:[大数据] 日期:2020-12-16 热度:190
1. 安装方法 ppm install Config::IniFiles 2. 测试用例 #!perl -w #?? parse ini file using Config::IniFiles; # use strict; use Cwd; use Config::IniFiles; my $dir = getcwd; my $file = $dir . $ARGV[0]; my %ini; tie %ini,'Config::IniFiles',( -fi[详细]
-
MTK模拟器Could not run "cl.exe"错误
所属栏目:[大数据] 日期:2020-12-16 热度:140
?前段时间重新了一下系统,VC6没有安装在C盘,今天在公司拷了项目的代码,准备在家里弄一下,周一的时候把B7项目出版本,在编Modis的时候,报了如下错误: Could not run "cl.exe". Please check your PATH! 刚开始是怀疑环境变量的Path有问题,手动将cl.exe[详细]
-
perl 线程(2)
所属栏目:[大数据] 日期:2020-12-16 热度:104
=========================threads=========================== #!/usr/bin/perl use ? threads ( 'yield' , ???????????? 'stack_size' ? = 64*4096, 'exit' ? =? 'threads_only' 'stringify' ); ? sub ? start_thread { ??? my ? @args ? =? @_ ; ??? prin[详细]
-
CU perl精华区一些常用技巧总结
所属栏目:[大数据] 日期:2020-12-16 热度:111
转载http://www.linuxtone.org/thread-1600-1-1.html 1.查询系统已经安装的perl模块 find `perl -e 'print "@INC"'` -name '*.pm' -print 2.提取文件中连续的一段区域,且末行不显示 ??方法一:使用shell ??sed -n '/start/,/end/p' file | sed -n '$!p' ??[详细]
-
MTK模拟器Could not run "cl.exe"错误
所属栏目:[大数据] 日期:2020-12-16 热度:80
前段时间重新了一下系统,VC6没有安装在C盘,今天在公司拷了项目的代码,准备在家里弄一下,周一的时候把B7项目出版本,在编Modis的时候,报了如下错误: Could not run "cl.exe". Please check your PATH! 刚开始是怀疑环境变量的Path有问题,手动将cl.exe[详细]
-
perl 调用sql 2008
所属栏目:[大数据] 日期:2020-12-16 热度:93
一,安装 unixODBC 下载安装包. 在 RedHat 安装光盘上就有 unixODBC-2.2.11-1.RHEL4.1.i386.rpm unixODBC-devel-2.2.11-1.RHEL4.1.i386.rpm unixODBC-kde-2.2.11-1.RHEL4.1.i386.rpm 安装 rpm -Uvh unixODBC-2.2.11-1.RHEL4.1.i386.rpm ? rpm -Uvh unixODBC-d[详细]
-
查看cygwin的 版本
所属栏目:[大数据] 日期:2020-12-16 热度:113
cygcheck -c cygwin :查看cygwin当前的版本 cygcheck -c :检查所有安装软件的版本号 如果要查看某一个软件安装的版本,直接用cygcheck -c + 软件名称,如cygcheck -c gzip 另外uname -a 可以查看cygwin的版本和内核版本 $ uname -a CYGWIN_NT-5.2 NETQBB32[详细]
-
Perl调用shell命令
所属栏目:[大数据] 日期:2020-12-16 热度:62
? Perl调用shell命令 1. system(”command”); 使用该命令将开启一个子进程执行引号中的命令,父进程将等待子进程结束并继续执行下面的代码。 2. exec(”command”); 效果同system命令类似,区别是不会开启子进程,而是取代父进程,因此执行完引号中的命令后[详细]
-
用perl解决问题思路
所属栏目:[大数据] 日期:2020-12-16 热度:193
以下都是俺自己在学习中理解 重新认识到的,记录自己的点滴;? 1》 以前不会用perl,查某个字符出现次数,现在会了; 思路:正则 ? if ? ++? 2》 ?以前不会在某两个字符间添加字符,现在会了; 思路:if 正则 替换 ?捕获 ?$1 $2 ? ?/()()/$1()$2/g? 3》在看[详细]
-
使用Perl连接Mysql数据库
所属栏目:[大数据] 日期:2020-12-16 热度:137
通过DBI,Perl可以很容易的连接到数据库: #!/bin/perl use DBI; # Connect to target DB my $dbh = DBI-connect("DBI:mysql:database=eygle;host=localhost","username","password",{'RaiseError' = 1}); # Insert one row? my $rows = $dbh-do("INSERT INTO[详细]
-
perl 模块安装问题--could not make
所属栏目:[大数据] 日期:2020-12-16 热度:183
perl里面关于模块安装真的很郁闷,从各处了解到,模块安装也就三种(主要): 1,就是通过在cmd,然后用行 perl -MCPAN -e -shell ?然后 输入:install ?所要安装的模块,比如:我现在要安装Net::Pcap 模块,install Net::Pcap,便可以自动安装,但是问题很多[详细]
