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/02pack

一、读取当前目录： 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  

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-

2011-01-25 wcdj   (1) 定义子程序和调用子程序 (2) 返回值 (3) 参数 (4) 子程序中的私有变量 (5) 长度可变的参数列表 (6) 关于词法（my）变量 (7) use strict编译命令 (8)  return操作符 (9) 省略“&”与号 (10) 非标量返回值 —— 返回列表值 (11) 持久性私有变量 —— 作用类似C中的static关键字 Perl也可以创

打印出1-100之间的随机数，并且让用户输入，输入正确了退出，失败继续输入。当输入exit,quit,空行的时候打印出随机数字并且退出。 #!/usr/bin/perl my $rand = int (1+ rand 100); #print "this is $rand";     #调试程序 while (1) {            #建立死循环 print "Please this 1

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=$

Perl 内置变量表： $- 当前页可打印的行数,属于Perl格式系统的一部分 $! 根据上下文内容返回错误号或者错误串 $” 列表分隔符 $# 打印数字时默认的数字输出格式 $$ Perl解释器的进程ID $% 当前输出通道的当前页号 $& 与上个格式匹配的字符串 $( 当前进程的组ID $) 当前进程的有效组ID $* 设置1表示处理多行格式.现在多以/s和/m修饰符取代之. $, 当前输出字

      使用Perl开发Linux和Unix维护管理脚本是常用的手段，其中也会因为作业要求大量使用多线程技术。通常下我们使用threads::create()创建一个新的线程，这时候往往我们会创建一个$thr来保存线程ID，并在程序结束后由threads回收线程资源。但是threads还提供了一个叫做async的函数，这个函数提供程序块（BLOCK）的方式创建匿名线程。这个函数帮助我们解决多线

  如果是按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 {

一文件，类似以下格式 要求，利用你熟悉的语言取出其中对应的IP与其对应的掩码 perl code: 这个用了引用与解引用 运行结果

跟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 Pe

  为了保证平台兼容性,多使用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= f

示例代码（一） 示例代码（二） #!/bin/env perl    use strict;  use Getopt::Std;  use DBI;    my %options;    getopts('u:p:d:h:help',\%options); //冒号代表其后需要跟一个参数

收藏一perl进度条脚本 output:

声明一个字符串变量, 如下 $txt = " xxxxxxxx yyyyyyyy @array " @array单独打印的时候没有问题，内嵌到$txt中时，回车换行符被解释为回车换行+空格。 例如 print  FILE   @array ===================== 第一行内容 第二行内容 第三行内容 ===================== print FILE $txt ==

2011-01-31 wcdj   (1) 读取标准输入 (2) 钻石操作符输入 (3) 调用参数 (4) 输出到标准输出 (5) 使用printf格式化输出 (6) 数组和printf (7) 文件句柄 (8) 打开和关闭文件句柄 (9) 用die处理严重错误 (10) 使用warn输出警告信息 (11) 使用文件句柄 (12) 改变默认的文件输出句柄 (13) 使用say来输出 (1) 读取标

map函数将数组中的每个值映射到表达式或块中，映射的结果返回另一个数组。  使用方法如下：     1. map EXPR,LIST;     2. map {BLOCK}LIST; 方法1举例： 方法2举例：  

2011-02-07 wcdj   (1) 什么是哈希？ (2) 为什么使用哈希？ (3) 访问哈希元素 (4) 访问整个哈希 (5) 哈希赋值 (6) 胖箭头 (7) 哈希函数 (1) 什么是哈希？ 哈希是一种数据结构。以前叫它关联数组（associative array），由于太啰嗦，于是改名为哈希（hash）。 数组和哈希的区别： 相同点：可以容纳很多值（没有上限），并能随机存取。 不同点：

1. use vs require     1.1 两者都从@INC目录找指定文件           但跟require不同的是，use只能用于模块的包含，也就是.pm文件。 而Require可导入pl文件。     1.2 use语句是编译时引入的，require是运行时引入的，因此推荐用use，用use能在编译时就发现问题，用use是未来的趋势。     1.3 use引入模块的同时，也引入

  Perl引用学习 一个引用就是创建一个硬链接，一个引用只有在对它的所有引用都消失之后才会被摧毁 创建的引用只是一个标量，对这个标量进行解引用意味着我们使用这个引用访问引用物 创建引用的方法： 反斜杠： 对任何命名变量，数值，匿名标量值，对一列表用反斜杠，会得到一组引用 匿名数组组合器，使用方括号创建一个指向匿名数组的引用 匿名散列组合器，使用花括号创建一个指向匿名散列的引用 匿名子过程组合器，

      在我以前写的博文[脚本与批处理合二为一-----(1)JaveScript篇]中实现Javascript与批处理的混搭,但很多TX可能更喜欢用PERL,其实用相同的原理也可以将PERL和批处理进行融合:使用PERL和批处理都能接受的语句将代码分流.       请看下面的代码(扩展名为bat),关键在前三行,对于这三行对于perl来说是一个数组定义,而对于批处理来说是两个注释语句和一个

use strict; my $values ; open(OUTFILE,"file.txt") or die("Can't find file.txt:$!") ; while(defined($values= <OUTFILE>)){ # print $values ; if($values =~ /.*User Name:(.*);(.*)/ms){

用排序数字值作为数组的索引，其值来表示此数排序后的位置，perl代码如下：   #!perl -w use strict; sub ProduceSortNumRecord {    my @SortNumRecord;  my $EachNum;  my $Index;  foreach $EachNum (@_)  {      if (defined($SortNumRecord[$Each

      ppencode/rrencode/jjencode/aaencode是Perl、Ruby、Javascript的小工具，可以将各自的代码进行混淆，转换成特殊字符，甚至还可以转换成有意思的表情。 ppencode-Perl     台湾的Perl达人唐鳳在YAPC曾经介绍过ppencode，它可以把Perl代码转换成只有英文字母的字符串。     下面是转换示例：      Demo的

优先级precedence 当一个表达式中出现几种不同的运算符,哪个先计算,哪个后计算 $condvar==43?$var1:$var2=14; $x=$a==$b; $x==0||$y/$x>5; $result=11*2+6**2<<2; 一般:自增自减最高,单操作数高于多操作数,数字运算>比较运算>位运算>赋值运算>逻辑运算 数字运算:幂>*/>+- 比较运算:<>高于== != 结合性  

$- 当前页可打印的行数,属于Perl格式系统的一部分 $! 根据上下文内容返回错误号或者错误串 $” 列表分隔符 $# 打印数字时默认的数字输出格式 $$ Perl解释器的进程ID $% 当前输出通道的当前页号 $& 与上个格式匹配的字符串 $( 当前进程的组ID $) 当前进程的有效组ID $* 设置1表示处理多行格式.现在多以/s和/m修饰符取代之. $, 当前输出字段分隔符 $. 上次阅读

#!/usr/bin/perl my $Date=`date +%s`; $Date -= 17*86400; ($sec,$min,$hour,$mday,$mon,$year_off,$wday,$yday,$isdat) = localtime($Date); my $year_tmp = $year_off + 1900; my $month_tmp = $mon+1; ( $

目录 一、MogileFS 介绍 1.1、环境 二、MogileFS 安装 2.1、Mysql安装 2.2、安装MogileFS 相关Perl模块 2.3、MogileFS Server 安装 2.4、MogileFS Storage 存储节点安装 三、MogileFS 配置 3.1、mysql数据库设置 3.2、创建mysql连接 3.3、创建Tracker配置文件 3.4、MogileFS 启

2011-02-11 wcdj   (1) 什么是正则表达式？ (2) 使用简易模式 (3) 关于元字符 (4) 简易量词 (1) 什么是正则表达式？ 正则表达式，在Perl中常常叫做 —— 模式，是一个匹配（或不匹配）某字符串的 —— 模版。 正则表达式是一种小程序，它们说简单的方言。这个程序的任务很简单：查看一个字符串，然后决定匹配或不匹配 —— 这就是它生活的全部。 注意：不要把正则表达式和

学习HTML::TokeParser，此模块比HTML:arser简单很多。 看代码： #! /usr/local/bin/perl use LWP::Simple; use Data::Dumper; use HTML::TokeParser; use Encode; my $content = get("http://www.sina.com.cn/"); Encode::_utf8_off(