level 5
mingtian5257
楼主
我以前学过些编程，学完不知道怎么用，就没有做过相关的工作，现在又开始学习PERL语言了，但还是不知道怎么用，求大神推荐些书籍，看哪些书能提高perl，如果在工作中如何使用，我现在做linux产品的测试工作。
我看的应该是小骆驼，个人觉得里面的知识点都掌握了，不过还不知道怎么用到工作中。
打个比方，说错别骂我，随便写一个关于文件的例子：
#! /usr/bin/perl -w
use strict;
use warnings;
opendir (OD,"<$ARGV[0]") or die "can't open $ARGV[0] :$!\n";
my @myfiles = glob("*");
my $count = @myfiles;
my $i;
for($i=0;$i<$count;$i++)
{
open(OP,"<$myfiles[$i]") or die ": $!\n";
my @file_line = $myfiles[$i];
foreach(@file_line)
{
if (/name/ig)
{
print"$_\n";
}
}
close OP;
}
closedir OD;
这段代码是随意写的，只希望把大部分知识点都写出来，也不知道对不对，比如就是打开一个目录下所有的文件，把带有name的字样行打印出来。这是打印就方便的，但没有什么意义，如果是修改内容也能写，不过写个程序的时间，我可以直接打开文件修改啊，就不用程序了，我想了解自动化测试（linux），请大神推荐书籍，感 谢！
2016年06月10日 19点06分
1
我看的应该是小骆驼，个人觉得里面的知识点都掌握了，不过还不知道怎么用到工作中。
打个比方，说错别骂我，随便写一个关于文件的例子：
#! /usr/bin/perl -w
use strict;
use warnings;
opendir (OD,"<$ARGV[0]") or die "can't open $ARGV[0] :$!\n";
my @myfiles = glob("*");
my $count = @myfiles;
my $i;
for($i=0;$i<$count;$i++)
{
open(OP,"<$myfiles[$i]") or die ": $!\n";
my @file_line = $myfiles[$i];
foreach(@file_line)
{
if (/name/ig)
{
print"$_\n";
}
}
close OP;
}
closedir OD;
这段代码是随意写的，只希望把大部分知识点都写出来，也不知道对不对，比如就是打开一个目录下所有的文件，把带有name的字样行打印出来。这是打印就方便的，但没有什么意义，如果是修改内容也能写，不过写个程序的时间，我可以直接打开文件修改啊，就不用程序了，我想了解自动化测试（linux），请大神推荐书籍，感 谢！
![[泪]](/static/emoticons/u6cea.png)
