perl簡明教程 - 灑灑 - 博客園 - 博客園 - 開發者的網上家園
例: unless (open(INFILE, "infile")) { die ("Input file infile cannot be opened.\n"); } if (-e "outfile") { die ("Output file outfile already exists.\n"); } unless (open(OUTFILE, ">outfile")) { die ("Output file outfile cannot be opened.\n");...