数组变量用@加变量名
普通变量用 $加变量名
undef没赋值的变量，用于条件判断，代替不关心的值
defined已赋值的变量，用于条件判断。数字初值为0，字符串初值为空串
如果有undef变量又不知道在哪，可加-w参数进行提示
#！/usr/bin/perl -w
-
$ cat test02.pl
-
#!/usr/bin/perl
-
$str="short";
-
$string="long";
-
print "match lognest $string\n";
-
print "match longest ${str}ing\n";
-
-
$ ./test02.pl
-
match lognest long
-
match longest shorting
将一个命令的输出放在一个数组，然后输出这个数组内容
-
$ cat test.pl
-
#!/usr/bin/perl
-
@lines= `ls -al`;
-
#print "@lines";
-
print $lines;
-
foreach(@lines){
-
#s/ \w<([^>]+)/\U$1/g;
-
print;
-
}
-
-
$ ./test.pl
-
总用量 1
-
drwxr-xr-x+ 1 Administrator None 0 八月 12 00:34 .
-
drwxrwxrwx+ 1 Administrator None 0 八月 11 23:30 ..
-
-rwxr-xr-x 1 Administrator None 114 八月 12 00:34 test.pl
阅读(2574) | 评论(0) | 转发(0) |
