open b,">b.txt";
print b "凤阁龙楼连霄汉，玉树琼枝作烟萝。";
open c,">c.txt";
print c "几曾识干戈？"; # 分别建立文本文件 a.txt、b.txt和c.txt，并执行写入操作
close a;
close b;
close c; # 关闭对应的文件句柄（filehandle）
open a,">>a.txt";
open b, "b.txt";
open c, "c.txt"; # 重新建立文件关联，其中 a.txt 执行附加写入操作，其它两个文件执行读文件操作
print a "n".<b>."n"; # 利用 . 进行字符串的连接，此操作符必须
print a <c>."n"; # <filehandle>表示读取文件句柄所链接的文本文件的内容
close a;
close b;
close c;
[code]
或者
[code]
#!perl
open a,">a.txt";
print a "四十年来家国，三千里地山河。n";
open b,">b.txt";
print b "凤阁龙楼连霄汉，玉树琼枝作烟萝。n"; # 生成文件并写入内容时，即执行换行操作，让光标留在下一行
open c,">c.txt";
print c "几曾识干戈？n"; # 分别建立文本文件 a.txt、b.txt和c.txt，并执行写入操作
close a;
close b;
close c; # 关闭对应的文件句柄（filehandle）
open a,">>a.txt";
open b, "b.txt";
open c, "c.txt"; # 重新建立文件关联，其中 a.txt 执行附加写入操作，其它两个文件执行读文件操作
print a <b>; # 利用 . 进行字符串的连接，此操作符必须
