作为一名IT技术人员，我感觉到非常的失败。 在从业的两年内（很快就三年），一直做着网络管理员的工作，我不是特别的鄙视这个岗位，只是我的亲身经历让我为此而感到愧疚。从2010年的12月以来，一直没有去新的工作，整天呆在家里，也不知道在做些什么，于是干脆看了下Perl语言。 当然我也不是特别的想学编程，虽然之前学习过PHP或者C++之类的。但是总没有找到感觉，不是太复杂就是兴趣不大。但也知道有些时间

 我想要唠叨一下Perl的事情。 Perl作为一个脚本语言，它实在是太强大，出乎我的意料。虽然我和Perl之间相识才一个多月。 Perl的数据结构 程序的事情就是数据结构加算法，数据结构让你描述自己的数据，算法作为一个包装让这个“描述”更加的完善。于是程序就可以跑起来。Perl中的数据结构非常的简单，让我感觉它似乎就是那么一回事：标量，数组，散列。 Perl面向对象 从我对JAVA语言的基本了解来

本应用程序设计的几个基本理念是： 工具箱再利用： 尽可能利用已有的工具； 简化运行步骤； 不引入过多的业务逻辑，满足的需求越简单越好。 所以，我们定义了本应用程序依赖于以下几个工具的运行： ActivePerl-5.8.4.810-MSWin32-x86 Upload.pl Upload.config 我们将主要的执行逻辑都放在Perl源文件Upload.pl中了，配置文件为Upload.conf

根据合法ip规格，写了个检验程序： 合法ip:(1..255).(0..255).(0..255).(0..255)范畴 sub report{     print $_[0];     exit($_[1]); } sub check_ip{ if ($_[0] =~ /^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/){     if($1>0&&$1

 一直对网络编程怀着莫名的期待，从学习Perl编程之后，似乎我就是充着这个来的，以至于在一知半解之后，也想来沉淀沉淀。 网络编程涉及到很多的网络基础知识，我这个windows网管对这些自然也懂一些，但真正把它说清楚，怕是力不从心了。所以，这里就写点代码，以证明它确实是按照理论来进行的。这种理论就是一些基本知识。 在互联网上，为了实现通信，也就是主机上某个程序(进程)和另外某个进程(本地/远程)交换

 我们如何把域名翻译成IP地址呢，这个功能可以通过Perl的 gethostbyname函数来完成，虽然我不知道是否其它的办法，因为我使用这个方法一下子就完成了我脑海中想要完成的操作。 比如，我有一个文本文件，里面保存着一些网址，如下：   www.baidu.com www.qq.com www.163.com www.sina.com www.google.com.hk   我想把它们的IP地

 最近在做symbian^3的适配，因为我们的假面采用的都是系统控件，所以适配起来还是挺简单的。但是，在适配过程中也遇到了一些问题。  　　1、编译失败，很多头文件找不到  　　这是因为symbian^3将一些头文件放在了新的文件夹下面，只要将头文件所在的目录加到mmp中就可以了。当然，系统也提供了一个宏定义来方便我们的操作：APP_LAYER_SYSTEMINCLUDE。只要在mmp中嫁屉这个宏

perl对字符串的处理 当我们对字符串其中的某部分做截出，替换，删除（不包括搜索）。我们可以想到的用substr,unpack,regex这些方法来做。 如果搜索，那么让我们想到的是index,rindex. (1)截出 substr $str="I'm boy,and you?"; $sex=substr($str,4,3);#boy unpack $sex=unpack("x4A3",$str

1 00:00:09,855 --> 00:00:14,724 Britain was an object of desire. 2 00:00:26,295 --> 00:00:31,847 Tacitus declared it worth the conquest, 3 00:00:32,015 --> 00:00:35,803 the best compliment that could

  #!/usr/bin/perl -w # See copyright, etc in below POD section. ###################################################################### require 5.005; use FindBin qw($RealBin); # $RealBin

###################################################################### use FindBin qw($RealBin); use lib "$RealBin/blib/arch"; use lib "$RealBin/blib/lib"; use lib "$RealBin"; use Getopt::Lon

#!/usr/bin/perl package test; sub new() { my $ref = shift; my $class = ref($ref) || $ref; my $self = {}; bless($self, $class); return $self; } sub DESTROY() {

use File::Glob ':glob'; my $filepath=$ARGV[3]; my @fileList = bsd_glob($filepath);

#!/usr/bin/perl -w use DBI; use strict; my $dbh=DBI->connect("DBI:mysql:database=cacti;host=localhost","root","admin",{'RaiseError'=>1}); my $sql = $dbh->prepare("select * from settings"); $sql->execu

foreach my $file (glob "*.old") { my $newfile = $file; $newfile =~ //.old$//.new$/; if (-e $newfile) { warn "$newfile exists/n"; } elsif (rename $file $newfile

SPOJ Problem Set (classical) 694. Distinct Substrings Problem code: DISUBSTR   Given a string, we need to find the total number of its distinct substrings. Input T- number of test cases. T<=20; Each t

 乱码问题，总是个问题。 在上次为了用Perl读Excel文件，但是文件名是中文，而且内容也包括中文，结果读出来的是乱码，为了演示那个例子，当时创建了一个不包括中文的xls文件。但中文乱码问题一直没有去解决，虽然我知道这对于神奇的Perl来说，很容易。 下面就来初步的看看关于这个问题的解决方法。 1.全局统一编码 use utf8; use open FD,":encodeing(utf8)","

#!/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 h

尝试装了一下win32::ODBC模块。蛋疼从此开始了。 按网上“泛滥”的方法，安装win32::ODBC模块，要先装gcc编译器，一水儿的说装dev c++，结果我安装完了，让我装dmake.exe。就这个文件我下载了n次，才下了个能用的。结果用dmake/dmake install安装就是报错。一气之下将dev c删了，将以前用的MinGW装上了，竟然奇迹般的编译成功。perl makefil

解析 Excel 文件提出了一个无论怎样看都很困难的难题。直到去年，UNIX 模块还完全不可用，并且只能用 Win32::OLE 模块来检索来自 Windows Excel 文件的数据。但由于两位 Perl 高手和许多志愿者的帮助和奉献，情况最终得以改变！ Spreadsheet::WriteExcel 和 Spreadsheet::ParseExcel 在 2000 年，Takanori Kaw

use Encode;   use strict;   use warnings;      my $str='阿斯' ;   $str=~s/&#(/d+);/chr(($1 + 0 ))/eg;//之前的，好不容易才探索出之前的那个正确的方法   #$str=~s/&#(/d+);/pack('U' ,$ 1 )/eg;//后来的   print(encode('g

最近在看NetApp的SDK，想做Quota快满时发E-mail给NetApp管理员的这个功能。当然，这个功能只能在目前的autosupport里有体现，智能点的就需要自己来了。本人是Perl初哥，以下代码不是最佳的，只做参考而已。 环境： NetApp SDK 4.0 / OnTap 7.3.3 /Perl 5.8 大概的流程 1. 可以使用SDK里相关的API可以提取 Quota信息，导出的信

perl对中文的处理(encode,decode) 最近在处理中文时遇到乱码的问题，google了一下，发现下面这篇文章。茅塞顿开！ Perl从5.6开始已经开始在内部使用utf8编码来表示字符，也就是说对中文以及其他语言字符的处理应该是完全没有问题的。我们只需要利用好Encode这个模块便能充分发挥Perl的utf8字符的优势了。 下面就以中文文本的处理为例进行说明，比如有一个字符串"测试文本"

这几天使用了perl进行文本处理，感觉很方便。 下面是几点经验，以后可能用到，记载在这防止遗忘。 1.perl中匹配汉字（处理中文） 使用 [/x80-0xff]来匹配汉字。我用它来匹配的是GB18030 编码的汉字，不知道其他的编码像unicode,utf-8,utf-16等可不可以。 2.正则表达式的匹配 ".*?"为最小匹配 ".*"为最大匹配 使用'/'来进行转义 3.正则表达式 正则表达

线程概述 线程是一个单一的执行流程，它是所有程序执行过程中最小的控制单位，即能被 CPU 所调度的最小任务单元。线程与进程之间既有联系，又完全不同。简单地说，一个线程必然属于某一个进程，而一个进程包含至少一个或者多个线程。早期的计算机 系统一次只能运行一个程序，因此，当有多个程序需要执行的时候，唯一的办法就是让它们排成队，按顺序串行执行。进程的出现打破了这种格局，CPU 资源按时间片被分割开来，分

  在使用perl从地址中提取街道的时候遇到了个很诡异的问题 同样一个地址，连续进行两次匹配出来的结果居然不一样 一次是正常的，一次是乱码，搞了半天没弄明白是怎么回事 看来perl的中文处理能力还是有待加强 后来在进行正则匹配之前尝试用了use encoding "gbk";  还算运气不错，居然搞定了 use encoding "gbk";  $address=~/^(.*(市|区))?(.*?

【引自hoowa 的博客】似乎，我又谈回了开源。 我在Asterisk群和Perlchina的群中都不同程度的跟大家谈开源，通过交流我基本上感觉到了开源的身影，这个的说法看起来很有意思，也很让人无奈： 在校学生：我不能搞开源，我现在还没工作，先要找到工作。应该是有工作的人再搞开源。 有工作的人：我不能搞开源，我刚工作时间不长，应该是那些赚到钱，又不太累的人搞开源。 项目主管：我不能搞开源，我现在钱

最近要用到DBD::mysql，但mysql的配置有变动，mysql.sock的位置不在/var/lib/mysql中，在运行DBD::mysql时，会提示找不到mysql.sock，看来DBD::mysql默认使用的是Unix Socket的方式，解决方法最直接的是修改my.cnf把sock文件生成到默认路径下，另外，也可以在connect时，使用ip地址，取代localhost，让DBD使用T

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 q

================================================================================= From: http://forgerock.blog.163.com/blog/static/163139316201032815710595/ 這裡主要說明截取子字串、字串的長度、大小寫轉換、尋找某子字串等操作 子字串 比如：$st