gpt4 book ai didi

perl处理csv文件的小例子

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 25 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章perl处理csv文件的小例子由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.

复制代码 代码如下

#!/usr/bin/perl #use strict; open(FILE1,"C:/Perl/BX/BX-Users.csv"); open(FILE2,"C:/Perl/BX/BX-Books.csv"); open(FILE3,"C:/Perl/BX/BX-Book-Ratings.csv"); open(result1,">C:/Perl/BX/BX-Users.txt"); my %table; my $record1; my $count1; #my $i=0; <FILE1>; while($_=<FILE1>) {     if($_ =~ /NULL$/){         next     }     else{     s/"//g;     my @list=split /;/,$_;     #print"@list";     push @{$table{$list[0]}},$list[2];     #print "$record1";     #$i++;     } } foreach my $userId(sort keys %table) {     my @AGE=@{$table{$userId}};     syswrite(result1,"$userId,@AGE");     $count1++; } print "$count1"; close(FILE1); close(result1); close(FILE2); close(FILE3),

最后此篇关于perl处理csv文件的小例子的文章就讲到这里了,如果你想了解更多关于perl处理csv文件的小例子的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com