[Perl] 常用语句

获取当期目录 ：
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. 
   
3. my $gbk = encode("gb2312","sxfsfaf");#utf8 --> gbk
   
4. 
   
5. my $utf = encode("utf-8",decode("gbk",$gbk));#gbk -> utf8
   
6. 
   
7. $gbk = encode("gb2312",decode("utf8",$utf));#utf8 -> gbk
   
8. $utf = encode_utf8(decode("gbk",$gbk));#gbk -> utf8

---

文件拷贝、移动、重命名

点击(此处)折叠或打开

1. use File::Copy;
   
2. 
   
3. copy($src,$des) or warn "Fail to copy : $!";
   
4. 
   
5. move($src,$des_dir);
   
6. 
   
7. rename($src,$des);

---

创建/删除路径:

点击(此处)折叠或打开

1. use File::Path qw(make_path,remove_tree);
   
2. 
   
3. make_path("xxxx");///just like "mkdir -p"
   
4. remove_tree("xxxx");///just like "rm -r"