-
Perl中文乱码
所属栏目：[大数据] 日期：2020-12-16 热度：113
?乱码问题，总是个问题。 在上次为了用Perl读Excel文件，但是文件名是中文，而且内容也包括中文，结果读出来的是乱码，为了演示那个例子，当时创建了一个不包括中文的xls文件。但中文乱码问题一直没有去解决，虽然我知道这对于神奇的Perl来说，很容易。 下面[详细]
-
perl php根据hash值排序
所属栏目：[大数据] 日期：2020-12-16 热度：97
#!/usr/perl/bin use strict; use Data::Dumper; my %h=( "Alex"=24, "Sam"=25, "Bob"=30, "Andy"=11, "Wills"=35, "Mary"=16, "Helen"=24 ); ? my @keys = sort { $h{$b} = $h{$a} } keys %h; #sort the hash table for (@keys){print "$_ - $h{$_}n"} ? s[详细]
-
使用perl Win32::ODBC模块,让我蛋疼的经历。
所属栏目：[大数据] 日期：2020-12-16 热度：84
尝试装了一下win32::ODBC模块。蛋疼从此开始了。 按网上“泛滥”的方法，安装win32::ODBC模块，要先装gcc编译器，一水儿的说装dev c++，结果我安装完了，让我装dmake.exe。就这个文件我下载了n次，才下了个能用的。结果用dmake/dmake install安装就是报错。[详细]
-
how to use perl to operate excel
所属栏目：[大数据] 日期：2020-12-16 热度：164
解析 Excel 文件提出了一个无论怎样看都很困难的难题。直到去年，UNIX 模块还完全不可用，并且只能用 Win32::OLE 模块来检索来自 Windows Excel 文件的数据。但由于两位 Perl 高手和许多志愿者的帮助和奉献，情况最终得以改变！ Spreadsheet::WriteExcel 和[详细]
-
perl 中文 编码 uincode html 转换 中文
所属栏目：[大数据] 日期：2020-12-16 热度：77
use?Encode;?? use?strict;?? use?warnings;?? ?? my?$str= '#38463;#26031;' ;?? $str=~s/#(/d+);/chr(($ 1 + 0 ))/eg;//之前的，好不容易才探索出之前的那个正确的方法?? #$str=~s/#(/d+);/pack( 'U' ,$ 1 )/eg;//后来的?? print(encode( 'gbk' ,$str));?[详细]
-
NetApp SDK Perl 小测试
所属栏目：[大数据] 日期：2020-12-16 热度：199
最近在看NetApp的SDK，想做Quota快满时发E-mail给NetApp管理员的这个功能。当然，这个功能只能在目前的autosupport里有体现，智能点的就需要自己来了。本人是Perl初哥，以下代码不是最佳的，只做参考而已。 环境： NetApp SDK 4.0 / OnTap 7.3.3 /Perl 5.8[详细]
-
perl对于encode的用法
所属栏目：[大数据] 日期：2020-12-16 热度：117
perl对中文的处理(encode,decode) 最近在处理中文时遇到乱码的问题，google了一下，发现下面这篇文章。茅塞顿开！ Perl从5.6开始已经开始在内部使用utf8编码来表示字符，也就是说对中文以及其他语言字符的处理应该是完全没有问题的。我们只需要利用好Encode[详细]
-
Perl 的正则表达式中如果出现 ()
所属栏目：[大数据] 日期：2020-12-16 热度：155
这几天使用了perl进行文本处理，感觉很方便。 下面是几点经验，以后可能用到，记载在这防止遗忘。 1.perl中匹配汉字（处理中文） 使用 [/x80-0xff]来匹配汉字。我用它来匹配的是GB18030 编码的汉字，不知道其他的编码像unicode,utf-8,utf-16等可不可以。 2.[详细]
-
Perl 中的线程
所属栏目：[大数据] 日期：2020-12-16 热度：187
线程概述 线程是一个单一的执行流程，它是所有程序执行过程中最小的控制单位，即能被 CPU 所调度的最小任务单元。线程与进程之间既有联系，又完全不同。简单地说，一个线程必然属于某一个进程，而一个进程包含至少一个或者多个线程。早期的计算机 系统一次只[详细]
-
perl正则表达式中文问题
所属栏目：[大数据] 日期：2020-12-16 热度：121
? 在使用perl从地址中提取街道的时候遇到了个很诡异的问题 同样一个地址，连续进行两次匹配出来的结果居然不一样 一次是正常的，一次是乱码，搞了半天没弄明白是怎么回事 看来perl的中文处理能力还是有待加强 后来在进行正则匹配之前尝试用了use encoding "g[详细]
-
开源到底在中国能不能发展？
所属栏目：[大数据] 日期：2020-12-16 热度：70
【引自hoowa 的博客】似乎，我又谈回了开源。 我在Asterisk群和Perlchina的群中都不同程度的跟大家谈开源，通过交流我基本上感觉到了开源的身影，这个的说法看起来很有意思，也很让人无奈： 在校学生：我不能搞开源，我现在还没工作，先要找到工作。应该是有[详细]
-
Perl中DBD::Mysql访问数据库时，mysql.sock不在默认位置的解决方
所属栏目：[大数据] 日期：2020-12-16 热度：63
最近要用到DBD::mysql，但mysql的配置有变动，mysql.sock的位置不在/var/lib/mysql中，在运行DBD::mysql时，会提示找不到mysql.sock，看来DBD::mysql默认使用的是Unix Socket的方式，解决方法最直接的是修改my.cnf把sock文件生成到默认路径下，另外，也可以[详细]
-
perl模式匹配中用含特殊字符的变量?(using a variable as a patt
所属栏目：[大数据] 日期：2020-12-16 热度：182
We don't have to hard-code patterns into the match operator (or anything else that works with regular expressions). We can put the pattern in a variable for later use. The match operator is a double quote context,so you can interpolate you[详细]
-
perl 字符串处理函数
所属栏目：[大数据] 日期：2020-12-16 热度：199
================================================================================= From: http://forgerock.blog.163.com/blog/static/163139316201032815710595/ 這裡主要說明截取子字串、字串的長度、大小寫轉換、尋找某子字串等操作 子字串 比如：$st[详细]
-
perl 字符串处理函数
所属栏目：[大数据] 日期：2020-12-16 热度：97
================================================================================= From: http://forgerock.blog.163.com/blog/static/163139316201032815710595/ 這裡主要說明截取子字串、字串的長度、大小寫轉換、尋找某子字串等操作 子字串 比如：$st[详细]
-
用perl统计文件夹中文件个数，行数，文件大小，用作项目统计
所属栏目：[大数据] 日期：2020-12-16 热度：89
#! /usr/bin/perl #如果运行perlscript 必须要安装perl，不能用绿色的。 #perllib 环境变量加上d:/perl/lib use warnings; sub countFileLine; sub get_dir; $totallines = 0; $totalfiles = 0; $totaldirs = 0; my %filecatagorycount; my %filecatagorysiz[详细]
-
24学时搞定Perl 读书笔记（二）
所属栏目：[大数据] 日期：2020-12-16 热度：187
第9学时 其他函数与运算符 index函数： index string,substring; index string,substring,start_position; index函数从string的左边开始运行，并搜索substring。index返回找到substring时所在的位置，0是指最左边的字符。 如果没有找到substring，index便返[详细]
-
24学时搞定Perl 读书笔记（一）
所属栏目：[大数据] 日期：2020-12-16 热度：60
第一部分 Perl基础 1? 介绍 2? 数字和字符串 3? 控制程序流 4? 列表与数组 5? 文件操作 6? 正则表达式 7? 哈希结构 8? 函数 第二部分 高级特性 9? 其他函数和运算符 10 文件与目录 11 系统之间的互操作性 12 使用Perl的命令行工具 13 引用与结构 14 引用模块[详细]
-
被遗忘的perl语句（不断更新）
所属栏目：[大数据] 日期：2020-12-16 热度：75
1.perl块级注释 =comment@files=*print "@files";=cut[详细]
-
perl 读取oracle的clob类型字段不全的
所属栏目：[大数据] 日期：2020-12-16 热度：149
字段a为clob型，直接select a from tablename出来的a只有80个字符需: SELECT dbms_lob.substr( a,300,1) FROM tablename[详细]
-
perl 取出目录中的所有文件
所属栏目：[大数据] 日期：2020-12-16 热度：180
?通过perl 我们可把一个目录下的所有文件打印出来： ?#!/usr/bin/perl -wT use File::Copy; use strict; print "取文件,请输入文件路径:"; chomp(my $path = STDIN); opendir DIR,$path; my @dir = readdir DIR; closedir DIR; foreach my $file (@dir){ pri[详细]
-
perl 随机生成文件
所属栏目：[大数据] 日期：2020-12-16 热度：79
?同学叫我帮他写一个批量重命名文件的脚本，我是用shell写的，我想把它用perl改写一下，前提要有一些文件，就先生成一些文件： ? #!/usr/bin/perl -w while(1){ my $rand = int(99999+ rand(1000)); if ($rand 100899){ ?? ? ? ?$file = "$rand.jpeg"; ?? ?[详细]
-
perl 取出目录中的所有文件并存入文件中
所属栏目：[大数据] 日期：2020-12-16 热度：120
?我们可以把从目录中取出的所有文件打印到文件中： #!/usr/bin/perl -wT use File::Copy; use strict; print "取文件,请输入文件路径:"; chomp(my $path = STDIN); opendir DIR,$path; my @dir = readdir DIR; closedir DIR; foreach my $file (@dir){ open[详细]
-
Perl Telnet模块详解
所属栏目：[大数据] 日期：2020-12-16 热度：161
?Telnet是一个古老而又不安全的协议，用来实现远程登录。这种服务可以和基于客户机/服务器进行通信，也就是说把你的电脑虚拟成一个键盘（伪终端）来和远程的服务进行通信，而服务器以为输入来自它本地的键盘，我们在本地所执行的命令会发送到远程服务器执行[详细]
-
perl最佳实践(Perl Best Practices )重点摘要
所属栏目：[大数据] 日期：2020-12-16 热度：187
转载自： 扶凯 [http://www.php-oa.com] 对岸台湾的朋友写的perl最佳实践的重点.这本书可是不可多得的好书,无论是做为新手,还是老手都非常有用,做为团队开发更加是好得不得了. 如果每个写perl的人都能照这个要求写.perl就不会在被讲人讲成不可读的程序了. 原[详细]
