乱读天书， 不求甚解
周祎骏的个人云笔记
Toggle navigation
乱读天书， 不求甚解
主页
Linux:系统配置
Linux:用户管理
Linux:优化排错
Linux:进程调度
Linux:文件系统
Linux:网络
Linux:系统服务
Linux:安全
Linux:内核
容器:Docker
容器:containerd
容器编排:Kubernetes
IAC:Terraform
大数据:Hadoop
大数据:Zookeeper
大数据:Hbase
消息队列:rsyslog
消息队列:kafka
数据库:MySQL
数据库:MongoDB
搜索引擎:Elasticsearch
时序数据库:OpenTSDB
网站服务:Nginx
编程:Bash
编程:Perl
编程:Python
编程:C
编程:JAVA
编程:Rust
版本控制:gitlab
知识管理:docusaurus
常用小工具
关于我
标签
perl 3.07 处理CSV 格式文件
2016-05-28 04:00:51
66
0
0
admin
>CSV 格式是用逗号分隔符的纯文本表格（有时也可以不是逗号分隔符），这里介绍如何用Text::CSV模块来处理这种数据。 文档：http://search.cpan.org/~makamaka/Text-CSV-1.33/lib/Text/CSV.pm ```perl #!/usr/bin/perl use warnings; use strict; use Data::Dumper; use Text::CSV; my @row; my $csv = Text::CSV->new ( { binary => 1 } ) #一般性都需要这个配置，这个配置允许csv 包含非ASCII or die "Cannot use CSV: ".Text::CSV->error_diag (); open my $fh, "<:encoding(utf8)", "a.csv" or die "a.csv: $!"; while ( my $the_line = $csv->getline( $fh ) ) { print Dumper $the_line; #每一行一个数组，每一列是数组的一个元素 } $csv->eof || $csv->error_diag(); #如果文件没有结束，则报错（文件类容应当已经被拿光了才对） close $fh; $csv->eol ("\n");#定义换行符 open $fh, ">:encoding(utf8)", "new.csv" or die "new.csv: $!"; my @array1 = qw ( lala haha wawa kaka); my @array2 = qw ( dada baba kaka); $csv->print ($fh, \@array1); #插入第一行 $csv->print ($fh, \@array2); #插入第二行 close $fh or die "new.csv: $!"; ```
上一篇:
perl 3.06 自动化交互
下一篇:
perl 3.08 根据模板生成文件
文档导航
admin
admin