1. 如何去重 #!/usr/bin/perl use strict; my %hash; while(<>){ chomp; print "$_n" unless

最近写了一个perl脚本，实现的功能是将表格中其中两列的数据进行拼凑，然后将拼凑后的数据用“|”连接在一起。表格内容如下： 员工号码员工姓名职位入职日期1001张三销售1980/12/17 0:00:

表的数据字典格式如下：如果手动写MySQL建表语句，确认麻烦，还不能保证书写一定正确。写了个Perl脚本，可快速构造MySQL脚本语句。脚本如下：#!/usr/bin/perluse strict;m

巡检类工作经常会出具日报，最近在原有日报的基础上又新增了一个表的数据量统计日报，主要是针对数据库中使用较频繁，数据量又较大的31张表。该日报有两个sheet组成，第一个sheet是数据填写，第二个sh

在实际生产环境中，常常需要从后台日志中截取报文，报文的形式类似于.........一个后台日志有多个报文，每个报文可由操作流水唯一确定。以前用AWK写过一个，程序如下：beginline=`awk &

最近写的一个perl程序，通过关键词匹配统计其出现的频率，让人领略到perl正则表达式的强大，程序如下：#!/usr/bin/perluse strict;my (%hash,%hash1,@arra

忍不住在 PerlChina 邮件列表中盘点了一下 Perl 里的 Web 应用框架（巧的是 PerlBuzz 最近也有一篇相关的讨论帖），于是乎，决定在我自己的 blog 上也贴一下 :) 原生 CGI/FastCGI 的 web app 对于较小的应用非常合适，但稍复杂一些就有些痛苦，但运行效率是最高的 ;) 如果是自己用 Perl 开发高性能的站，多推荐之。 Catalyst, CGI::A

bless有两个参数：对象的引用、类的名称。 类的名称是一个字符串，代表了类的类型信息，这是理解bless的关键。 所谓bless就是把 类型信息 赋予 实例变量。 程序包括5个文件： person.pm ：实现了person类 dog.pm ：实现了dog类 bless.pl ： 正确的使用bless bless.wrong.pl ： 错误的使用bless bless.cc ： 使用C++语言实

gb2312转Utf的方法： use Encode; my $str = "中文"; $str_cnsoftware = encode("utf-8", decode("gb2312", $str));   Utf转 gb2312的方法： use Encode; my $str = "utf8中文"; $str_cnsoftware = encode("gb2312", decode("utf-8

  perl 计算硬盘利用率， 以%来查看硬盘资源是否存在IO消耗cpu资源情况； 部份代码参考了iostat源码；     #!/usr/bin/perl use Time::HiRes qw(gettimeofday); use POSIX; $SLEEPTIME=3; sub getDiskUtl() { $clock_ticks = POSIX::sysconf( &POSIX::_SC_

1 简单变量 Perl 的 Hello World 是怎么写的呢？请看下面的程序： #!/usr/bin/perl print "Hello World" 这个程序和前面 BASH 的 Hello World 程序几乎相同，只是第一行换成了 #!/usr/bin/perl ，还有显示的时候用的是 print，而不是 echo。有了前面 BASH 基础和 C 语言的基础，许多 Perl 的知识可以很

本文介绍Perl的Perl的简单语法，包括基本输入输出、分支循环控制结构、函数、常用系统调用和文件操作，以及进程管理几部分。 1 基本输入输出 在 BASH 脚本程序中，我们用 read var 来实现从键盘的输入，用 echo $var 来实现输出。那么在 Perl 中将有一点变化。Perl 中将标准输入用关键词 表示；标准输出用 表示，标准错误输出用 表示。故而从标准输入读取数据可以写成： $

正则表达式是 Perl 语言的一大特色，也是 Perl 程序中的一点难点，不过如果大家能够很好的掌握他，就可以轻易地用正则表达式来完成字符串处理的任务，当然在 CGI 程序设计中就更能得心应手了。下面我们列出一些正则表达式书写时的一些基本语法规则。 1 正则表达式的三种形式 首先我们应该知道 Perl 程序中，正则表达式有三种存在形式，他们分别是： 匹配：m/<regexp>/ （还可以简写为 /

在学习Perl和Shell时，有很多人可能会问这样一个问题，到底先学习哪个或者学习哪个更好！ 每个人都有自己的想法，以下是个人愚见，请多多指教！ Perl是larry wall为解决日常工作中的一个编程问题而产生的，它最初的主要功能是用于分析基于文本的数据和生成这些数据的统计和结果；尽管初衷很简单，但是后来发展了很多特点： 1、Perl是一种借鉴了awk、C、sed、shell、C++、Java等

Perl 有很多命令行参数. 通过它, 我们有机会写出更简单的程序. 在这篇文章里我们来了解一些常用的参数. （重点提示：在window下执行命令行程序的方式为 ： perl -e "some code", 注意：是双引号啊，不是单引号，linux下执行时单引号） Safety Net Options 在使用 Perl 尝试一些聪明( 或 stupid) 的想法时, 错误难免会发生. 有经验的 P

转自： http://bbs.chinaunix.net/thread-1191868-1-1.html# 让你的perl代码看起来更像perl代码，而不是像C或者BASIC代码，最好的办法就是去了解perl的内置变量。perl可以通过这些内置变量可以控制程序运行时的诸多方面。 本文中，我们一起领略一下众多内置变量在文件的输入输出控制上的出色表现。 行计数 我决定写这篇文章的一个原因就是，当我发现

2009-02-02 13:07 #!/usr/bin/perl # D.O.M TEAM - 2007 # anonyph; arp; ka0x; xarnuz # 2005 - 2007 # BackConnectShell + Rootlab t00l # priv8! # 3sk0rbut0@gmail.com # # Backconnect by data cha0s (modifica

转自： http://bbs.chinaunix.net/thread-1191868-1-1.html# 让你的perl代码看起来更像perl代码，而不是像C或者BASIC代码，最好的办法就是去了解perl的内置变量。perl可以通过这些内置变量可以控制程序运行时的诸多方面。 本文中，我们一起领略一下众多内置变量在文件的输入输出控制上的出色表现。 行计数 我决定写这篇文章的一个原因就是，当我发现

黑莓 手机 屏幕发展历程对比 blackberry 各型号屏幕大小 　　黑莓手 机 一直在不断发展且新机型 也在不断上市. 因此，不同黑莓机型的屏幕分辨率也在不断变化着. 总的来说，屏幕分辨率一直在提高并且越来越清晰.我们对所有的黑莓 机型的屏幕分辨率做了个对比.~51blackberry ~com     可能大家特别感兴趣是新发布的黑莓机型，它的分辨率也是黑莓 机型中前所未有的. 　　黑莓 b

      公司里没有我用惯的UltraEdit的lisence了， 只能无奈转向开源的Notepad++， 找了半天才知道配置运行Perl的办法。         1,用Notepad++打开.pl文件，         2, F5或者Run->Run,打开运行窗口，在下面的框框里输入：Perl -w "$(FULL_CURRENT_PATH)"， 然后Save，保存成一个命令就行，名字比如叫R

使用reference的目的 1. 创建@_，会拷贝整个array或hash，浪费内存空间 2.@_在子程序中是传入数据的拷贝，无法对修改传入的数据 与C语言对比的话，Perl的reference更像指针，或者C++的引用   the backslash(/) character is also the "take a reference to" operator. 反斜线符号还是引用操作符  

#!/usr/bin/perl -w use strict; use Net::SMTP; use Authen::SASL;（在SMTP服务器上要求用户认证，必须的模块） BEGIN { push (@INC,'/usr/lib/perl5/5.8.8/Net/ '); } my $from = 'huashan125@huashan.peonymao.com'; my $to = 'peony

工作需要,经常要更新一些运行包,但是每次手工去ftp,既麻烦,还浪费时间.于是就用Perl写了一个通过配置文件来自动ftp的小工具.采用perl主要是考虑它的跨平台性,当然了用python等也可以. 在配置文件里边可以指定主机,用户名,密码,要传输的文件等等. 代码如下: #!/usr/bin/perl use Net::FTP; use Class::Struct; struct FtpInfo

在Perl中，使用模块Net::FTP来使用FTP服务， 一般的使用步骤如下： 1. 使用Net::FTP的new方法来创建一个新的FTP对象。 2. 使用login方法登录到FTP服务器。 3. 使用cwd方法来切换目录。 4. 使用get方法来获取文件。 5. 使用put方法来上传文件。 6. 使用quit方法退出。 下面是linux下perl编写的ftp程序连接非21端口的例子： [root

使用Net::SMTP_auth发邮件，首先要先安装Net::SMTP_auth模块。 1. Windows Operating System：如果是在windows操作系统使用的ActivePerl的话，则进入ActivePerl的安装目录的可执行程序目录，也就是bin目录。（例如：C:/Perl/bin）执行命令ppm-shell ，(PPM：Perl Package Manager Perl

RT，我下载了ActivePerl-5.10.1.1007-MSWin32-x86-291969.msi，且，自动加载了环境变量，但是在cmd里边输入perl回车，还是没反应啊，请高手指教！

MTK命令分析之resgen 以下是命令resgen的源码分析： resgen: ifeq ($(strip $(call Upper,$(LEVEL))),VENDOR)  @if exist $(MMIDIR)/VendorApp/DevResource/ResGenerator.bat /   ($(MMIDIR)/VendorApp/DevResource/ResGenerator.bat

用法： select FILEHANDLE 返回当前选择的文件句柄，可以把当前的文件句柄设置为默认的输出，此时1.没有指定句柄的“write”和“print”的默认输出为设置为FILEHANDLE 2.和输出相关的变量会使用设置的输出通道。   例如： open(FILE,">/abc/file"); $|=1; $f=select FILE; print "abc"; select $f

sub send_phone_msg { my $NOWTIME = `/bin/date +'%d %k:%M:%S'`; chomp($NOWTIME); my $A='$1'; my $B='$2'; my $IP=`/sbin/ifconfig |grep "inet addr" |grep -v 127.0.0 |awk -F "

转自：http://blog.sina.com.cn/s/blog_4af3f0d20100faph.html   方法一： perl -M  模块名 -e ''   如果没反应，表示有 方法二：使用perldoc相应文档，例如CGI.pl是随perl发布的一个模块 $  perldoc CGI 方法三：利用命令   #!/usr/bin/perl use strict; use ExtUti