Perl中open的用法总结

总的来说， 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  open (A, "a.txt")||die "$!/n"; open (B, ">>b.txt")|| die "$!/n"; @Acontent=<A>;#把 A 的内容写入 array @Acontent中。 print B @Acontent; close (A); close (B); 或者简单的写为： #!/usr/bin/perl -w  open (A, "a.txt")||die "$!/n"; open (B, ">>b.txt")|| die "$!/n"; print B <A>; close (A); close (B); 千万别忘了打开句柄后要 close 之。而且句柄一般用大写。