2012年8月15日 星期三

[Perl] Subroutines

順講檔案處理:
sub subroutine()
{
    die '[ERROR] &subroutine should get exactly one argument file' 
        if (@_ != 1);

    my $file = $_[0];
    die '[ERROR] File not found: '. $file unless (-f $file);
    
    open(FILE, '<' . $file);
    while (my $line = <FILE>) {
        chomp ($line);
        # ...
    }
    close(FILE);
}

網路上不乏優良文章。

為了避免寫爛CODE,盡早培養好習慣才是 ((請搜尋 good practice))

沒有留言:

張貼留言