Perl语言入门--3--文件读取与写入

现有文件test.txt,内容为："123\n456"

1,打开文本test.txt

#!/usr/bin/perl

open d,"test.txt";

d 为文件句柄，指向打开的文件

2，逐行读取文本test.txt

#!/usr/bin/perl

open d,"< test.txt";

while(<d>){

print $_;

}

close d;

结果：123

456

或者：print <d>;

结果：同上

<> 为取行操作符

3，向test111.txt中写入内容

#!/usr/bin/perl

open d,">test111.txt";

print f "hello,world\nsee you\n";

close d;

如果test111.txt原本有内容，则原内容将会被擦除，test111.txt的内容为

hello,world

see you

4,向test111.txt中追加内容

#!/usr/bin/perl

open d,">>test111.txt";

print d "thank you\n";

close d;

test111.txt的内容为

hello,world

see you

thank you

print 相当于写命令，别丢了语句结尾的 “;"