perl 杂记Ⅲ

1.文件团

2.substr 函数

3.windows 命令行安装perl模块

==》1 文件团

文件团的两种表示方法：

文件团相当于shell中的文件通配符

如echo "*.txt" shell 会先将*.txt展开后给echo显示。perl中也有类似的功能 那就是文件团。glob 或者<> 返回一个文件列表。

code:
#!/usr/bin/perl
use strict;
use warnings;
my $dir="/root/shelllearn";
my @argv1=glob "*.txt *.bz2";#这是将glob用作操作符，中间的空格是有意义的返回以txt结尾和bz2结尾的文件列表赋给数组@argv1
print '@argv1:',"@argv1\n";
chdir or die "Can't change directory:$!\n";#chdir 相当于shell的cd 改变目录，不加任何参数，chdir改变目录的当前用户的家目录。
my @argv2=glob "*.cfg";
print '@argv2:',"@argv2\n";
chdir "/root/perllearn/" or die "Can't change directory:$!\n";
my @argv3=<*.txt>;#这是比较老的表示方法
print '@argv3:',"@argv3\n";
my @argv4=<$dir/*.pl>;#在里面可以进行变量替换（不推荐这种写法）
print '@argv4:',"@argv4\n";
my $file;
($file)=glob("$dir/*.pl");#同样可以进行变量替换，推荐这种写法，这里将glob当作函数使用。
print '$file:',"$file\n";
运行结果：
@argv1:money.txt products.txt perllearn.bz2
@argv2:anaconda-ks.cfg
@argv3:money.txt products.txt
@argv4:/root/shelllearn/test.pl /root/shelllearn/test1.pl
$file:/root/shelllearn/test.pl

可以通过文件团 该变匹配文件的权限

chmod 0644 <*.txt>; 

或者

chmod 0644 glob（"*.txt"）；

==》2.substr 函数

与awk中的substr用法相似

usage:
substr exp offset [length] [replacement]
substr 函数中0表示第一个字符 除非改变$[的值（但不要这样做）
code：
#!/usr/bin/perl
use strict;
use warnings;
       0123456789...
my $s="The black cat climbed the green tree";
my $color=substr $s,4,5;
#从4开始即第五个字符开始及后面五个字符即black
my $middle=substr $s,4,-11;
#从4开始截取到最后然后从最后往前截取11个字符
my $end=substr $s,14;
#从14开始一直截取到最后
my $tail=substr $s,-4;
#从-4个字符开始即倒数第四个字符截取到最后
my $z=substr $s,-4,2;
#倒数第四个开始截取两个字符 即tr
print '$color:',$color,"\n";
print '$middle:',$middle,"\n";
print '$end:',$end,"\n";
print '$tail:',$tail,"\n";
print '$z:',$z,"\n";
print "-" x 30,"\n";
my $s2 = "The black cat climbed the green tree";
my $z2 = substr $s, 14, 7, "jumped from";
#将第14开始后7个字符替换成replacement部分 这里是jumped from  返回被替换的部分。
print "\$s2 is: $s2\n";
print "\$z2 is: $z2\n";
运行结果：
$color:black
$middle:black cat climbed the
$end:climbed the green tree
$tail:tree
$z:tr
------------------------------
$s2 is: The black cat climbed the green tree
$z2 is: climbed

==》3.windows 命令行安装perl模块

==》4.