Chinaunix首页 | 论坛 | 博客
  • 博客访问: 87265
  • 博文数量: 38
  • 博客积分: 350
  • 博客等级: 一等列兵
  • 技术积分: 365
  • 用 户 组: 普通用户
  • 注册时间: 2010-10-30 09:14
个人简介

每一种技术都有其诱人之处。

文章分类

全部博文(38)

文章存档

2016年(2)

2014年(23)

2011年(13)

我的朋友

分类: PERL

2014-06-03 11:53:21

获取当期目录 :
use Cwd;
my $dir = getcwd;

数组操作:
1)push(@array,element);#在数组尾新添一个元素
2)$ele = pop(@array);#数组尾弹出一个元素
3)$ele = shift(@array);#数组开头弹出一个元素
4)unshift(@array,$element);#数组开头插入一个元素。

遍历文件夹:
opendir DH,$dir or die 'xxxx';
foreach(readdir(DH)){
    next if($_ eq '.' || $_ eq '..' || $_ eq '.svn');
    my $file = $dir . "/" . $_;
    if(!-l $file && -d _){
        xxxx;
     }
}

Preg 中插入变量
$a = "temp";
/^$a.*/  匹配以temp开头字符串

数组正则匹配操作
@list = grep(pattern,@input);#@list 为@input 中匹配patter 的元素集合

DATA:DUMPER 用法:

点击(此处)折叠或打开

  1. use Data::Dumper;
  2. print Dumper($var);

Perl get opt :

点击(此处)折叠或打开

  1. use Getopt::Long;
  2. use vars qw($opta $optb $optc);
  3. GetOptions(
  4.    "a=s" => \$opta,#'s' 表示字符串参数
  5.    "b|opt-b:i" => \$optb,#长短参数,'i'表示整数
  6.    "c" => \$optc #"-c" 为“0”or "1"参数
  7. )

UTF8 与GBK 转换

点击(此处)折叠或打开

  1. use Encode;

  2. my $gbk = encode("gb2312","sxfsfaf");#utf8 --> gbk

  3. my $utf = encode("utf-8",decode("gbk",$gbk));#gbk -> utf8

  4. $gbk = encode("gb2312",decode("utf8",$utf));#utf8 -> gbk
  5. $utf = encode_utf8(decode("gbk",$gbk));#gbk -> utf8

文件拷贝、移动、重命名

点击(此处)折叠或打开

  1. use File::Copy;

  2. copy($src,$des) or warn "Fail to copy : $!";

  3. move($src,$des_dir);

  4. rename($src,$des);

创建/删除路径:

点击(此处)折叠或打开

  1. use File::Path qw(make_path,remove_tree);

  2. make_path("xxxx");///just like "mkdir -p"
  3. remove_tree("xxxx");///just like "rm -r"



阅读(694) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~