程嶏清单11-5.txt

来自「< linux网络编程工具>>配套源码」· 文本 代码 · 共 14 行

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");
}
foreach (@ARGV) {
    print;
    print((-f) ? " -REGULAR\n" : " -SPECIAL\n")
}