intermediate-perl Chapter_2-习题

blackfur

2. 4. 1. 习题 1 [15 分钟]

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

use warnings;
use strict;

my $dir = "f:/work";
my $file;
my @dir;
$dir = shift;
chomp $dir;
opendir( DIR, $dir ) or die "can't open the directory!";
@dir = readdir DIR;

#print "@dir\n";
print map '    ' . $_ . "\n", @dir;
undef @dir;
close DIR;

2. 4. 2. 练习 2 [25 分钟]

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

#!/usr/bin/perl
use strict;
use warnings;
while (1) {
    print "please input a regular expression: ";
    my $exp = <stdin>;
    if ( $exp eq "\n" ) {
        exit 1;
    }

    chomp $exp;
    my @real_exp = grep $_ !~ /\//, ( split //, $exp );
    $exp = join '', @real_exp;
    print "please input a directory: ";
    my $dir = <stdin>;
    chomp $dir;
    opendir( DIR, $dir ) or die "can't open the directory!";
    my @dir = readdir DIR;
    my @array1 = grep /$exp/, @dir;
    print map '    ' . $_ . "\n", @array1;

    close $dir;
}

做得不好，烦请大家指正

rubyish

谢谢，学习了！{:3_188:}{:3_188:}

zhlong8

blackfur 发表于 2013-03-18 20:29
2. 4. 1. 习题 1 [15 分钟]

写一个程序从命令行取一个文件清单, 然后用 grep 把那些文件大小在 1000 字 ...

楼主精神很好，不过看清题目啊两个都不完全符合题目要求。第一题要求用 grep 把那些文件大小在 1000 字节以内的文件找出来。第二个 STDIN 写成小写了，也没有处理正则表达式错误的情况。

写完程序按题目的要求一条一条测试下，毕竟一个题目给十几二十分钟呢。

blackfur

回复 3# zhlong8


    谢谢指正，请教一下stdin的大小有何区别，平时都没留意到

zhlong8

回复 4# blackfur


    我看的所有文档都说的是 STDIN ，今天才头一次见识到 stdin 也能工作

zhlong8

perlop

The filehandles STDIN, STDOUT, and STDERR are predefined. (The filehandles stdin , stdout , and stderr will also work except in packages, where they would be interpreted as local identifiers rather than global.)

kk861123

谢谢，学习了！

mitiao

学习了。。。

blackfur

回复 6# zhlong8


    测试了一下，确实在包中不能用，谢谢
错误提示：
Name "hello_t::stdin" used only once: possible typo at hello_t.pm line 7.
readline() on unopened filehandle stdin at hello_t.pm line 7.