首页 | 新闻 | 新品 | 文库 | 方案 | 视频 | 下载 | 商城 | 开发板 | 数据中心 | 座谈新版 | 培训 | 工具 | 博客 | 论坛 | 百科 | GEC | 活动 | 主题月 | 电子展
返回列表 回复 发帖

perl读写txt

perl读写txt

perl写文件,源码示例:

open(FILE,">keyword.txt");  
syswrite(FILE,"This is my write file contents\n");  
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);
返回列表