Perl学习笔记

Perl学习笔记

1、读取文件里的内容并将其显示出来。

#!/usr/bin/perl

open TXT,"t1.txt" ;

print<TXT>;

close TXT;

2、改变已存在文件里的内容。

#!/urs/bin/perl -w

open TXT,">t2.txt";

print TXT "你还爱我吗?\n"; #如果文件t2.txt存在，将取代其内容。

print TXT "你是坏人。\n";#在文件的后面加此内容。

close TXT;

3、将信息存入一个不存在的文件中。

#!/urs/bin/perl -w

open TXT," >>t2.txt";

print TXT "你还爱我吗?\n"; #如果文件t2.txt存在，将取代其内容。

print TXT "你是坏人。\n";#在文件的后面加此内容。

close TXT;

4、向文件中添加数据。

#!/usr/bin/perl

open TXT,">>t2.txt";#向已存在的文件中添加数据。

print TXT "我好了";

close TXT;

5、更换文件名。

#!/usr/bin/perl

rename "t3.txt","t4.txt";#或者rename "t3.txt","t3.bat"

6、删除系统中某些文件。

#!/usr/bin/perl

my @files=<*.txt>;#或者my @files=glob"*.txt";

unlink @files;

或者

#!/usr/bin/perl

unlink glob"*.txt";

或者

#!/usr/bin/perl

unlink<*.txt>;

7、将多个文件里的内容放入一个文件里。

#!/usr/bin/perl

open TXT,">t3.txt";

print TXT "你好狠心啊，";