[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);
}

網路上不乏優良文章。

• http://www.perl.com/pub/2006/02/23/advanced_subroutines.html

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