总的来说, Perl 中的 Open 不仅仅是一个“打开”的功能,还是往文件写入的功能。 Open的格式都是 Open (句柄,文件名) 当你用 Open (ALLEN, "allen.txt")||die "$!"; 的时候,他就是打开。 如果增加一个>符号 Open (ALLEN, ">allen.txt")||die "$!"; 他就变成了覆盖式写入。 如果再增加一个>符号 Open (ALLEN, ">>allen.txt")||die "$!"; 它就变成了附加式 (append)写入。 当然,后面两个只是打凯乐 ALLEN 句柄,还没有真正的往里写东西。 写东西的话就用下面的格式。 print 句柄 内容 比如: Open (A, ">>a.txt")|| die "$!"; print A "good good study day day up"; 这个就把 good good study day day up 写入了 a.txt。 有时候我们希望先从 a.txt 中把内容导出来,然后写入 b.txt 中。也很简单。 #!/usr/bin/perl -w print B @Acontent; 或者简单的写为: #!/usr/bin/perl -w 千万别忘了打开句柄后要 close 之。而且句柄一般用大写。 |