电子技术论坛_中国专业的电子工程师学习交流社区-中电网技术论坛

标题: perl读写txt [打印本页]

作者: look_w 时间: 2019-4-18 15:09 标题: 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);

欢迎光临电子技术论坛_中国专业的电子工程师学习交流社区-中电网技术论坛 (http://bbs.eccn.com/)