中级Perl第二章习题

网中网

　　2. 4. 1. 习题1 [15 分钟]
写一个程序从命令行取一个文件清单, 然后用grep 把那些文件大小在1000   
字节以内的文件找出来。用map 把这个清单里的每个字串前加四个空格并在   
字串后面加上换行符。然后输出列表结果。



print map {"    $_\n" } grep { -s $_ < 1000 } @ARGV;
　　
　　2. 4. 2. 练习2 [25 分钟]
写一个程序要求用户输入一个正则表达式的模板。不要以命令行参数形式输入,
要从键盘读取。然后从一些目录中（可以是硬编码的, 如： "/etc" 或
'C:\\Windows' ）中读取符合模板的文件名。重复这个操作直到用户输入空串。
要屏蔽用户输入的正斜杠("/") , 因为那是Perl 里正则表达式的分隔符;输入的
模板用换行符为分隔。要保证不会因为用户输入了一个错误的正则表达式, 如
括号不匹配之类的, 而导致程序崩溃。
　　



chdir;
while(1){
print "Please enter a regular expression>";
chomp(my $regex = <STDIN>);
last unless ( defined $regex && length $regex ) ;
print map {"    $_\n"} grep {eval {/$regex/} } glob("*.*");

}