第17章课后题（高级Perl技巧）

theoforce

　　17.1 写一个程序，从文件中读取一组字符串（每行一个)，然后让用户键入模式以便进行字符串匹配。
对于每个模式，程序应该说明文件里共有多少字符串匹配成功，分别是哪些字符串。     
对于所键入的每个新模式，不应重新读取文件，应该把这些字符串存放在内存里。文件名可以直接写在程序里。



use 5.016;
use autodie;
my $file_name = 'sample.txt';
open my $fh ,'<',$file_name;
chomp (my @strings=<$fh>);
while(1) {
say 'Please enter a pattern:';
chomp(my $pattern =<STDIN>) ;
last if $pattern =~ /\A\s*\Z/;
my @matches = eval {grep /$pattern/,@strings};
if($@) {
print "Error: $@";
} else {
my $count = @matches;
say "There where $count matching strings:",
map "$_\n", @matches;;

}

}
　　
　　17.2 写一个程序，报告当前目录下所有文件的最后访问时间和最后修改时间，单位为秒，用stat取得文件的时间戳信息，利用切片的写法
提取这两个元素。



use 5.016;
use autodie;
foreach  (glob('*')) {
my($atime,$mtime) = (stat)[8,9];
printf "%-20s %10d %10d\n",$_,$atime,$mtime;
}
　　
　　17.3 修改上题程序，把时间格式改为YYYY-MM-DD的形式。用map逐个输出，并用localtime通过列表切片提取纪年时间的年，月，日子段。



use 5.016;
use autodie;
foreach my $file ( glob('*')) {
my($atime,$mtime) = map {
my($year,$month,$day) = (localtime($_))[5,4,3];
$year+=1900;$month +=1;
sprintf "%4d-%02d-%02d",$year,$month,$day;
} (stat $file)[8,9];
printf "%-20s %10d %10d\n",$file,$atime,$mtime;
}