perl读写txt

perl写文件，源码示例：?

open(FILE,">keyword.txt");  
syswrite(FILE,"This is my write file contentsn");  
close(FILE); 

>为每次新建
>>为追加

perl读文件，源码示例（文件中只有一行文字，多行需要添加循环）：?

open(FILE,"keyword.txt");  
my $keyword=<FILE>;  
close(FILE);  

这里有一个 读写的例子 把A中的内容 写到B中:

#!/usr/bin/perl
use strict;
use warnings;

open A," A.txt" or die "A: $!";
open B,">B.txt" or die "B: $!";

while (<A>) {
   chomp;
   print B $_/10,"n";
}
close A;
close B;

读取txt放入数组中。

open IN,“<”,"data.txt" or die;my @a = <IN>;close IN;

chop--数组去尾 (chomp) ????chop的意义是去掉STDIN（键盘）输入字符串时最后一个字符--换行符。 而如果它作用到数组上，则将数组中每一个元素都做如此处理。 ????@list?=?("rabbit",?"12345","quartz") ; ????chop?(@list);?