亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標(biāo)題: 求助，怎樣多個文件對比合并出結(jié)果？ [打印本頁]

作者: lockeyou 時間: 2016-08-18 14:46
標(biāo)題: 求助，怎樣多個文件對比合并出結(jié)果？
本帖最后由 lockeyou 于 2016-08-18 14:47 編輯

txt1
13288888888,1
13288888889,7

txt2
13288888888,200
13288888890,5000

txt3
xa,1,張三,男,13288888888,0,0,0,0,,,,
sh,2,李四,男,13288888889,0,0,0,0,,,,
sh,3,王五,女,13288888890,0,0,0,0,,,,
bj,4,毛六,男,13288888891,0,0,0,0,,,,

txt4
xa,1,張三,男,13288888888,1,0,200,0,,,,
sh,2,李四,男,13288888889,7,0,0,0,,,,
sh,3,王五,女,13288888890,0,0,5000,0,,,,
bj,4,毛六,男,13288888891,0,0,0,0,,,,

PS:txt4就是想要的答案
另想請教一下大牛在linux環(huán)境下對excel某幾個單元格修改有沒有方法，tks
原因，原本是根據(jù)sql求出值寫到excel里，但是excel修改單元格貌似只有在win下才可以用，后決定先把結(jié)果寫到txt里面進行操作，操作完成后再創(chuàng)建對應(yīng)excel進行展示。

作者: stanley_tam 時間: 2016-08-18 14:46
這樣？

#!perl
use strict;
open my $fh1, '<', 'txt1';
my $data_href = +{};
while (defined (my $line = readline $fh1)) {
chomp $line;
my ($phone_number, $times) = split /,/, $line;
$data_href->{$phone_number}->{'times'} = $times;
}
close $fh1;
open my $fh2, '<', 'txt2';
while (defined (my $line = readline $fh2)) {
chomp $line;
my ($phone_number, $score) = split /,/, $line;
$data_href->{$phone_number}->{'score'} = $score;
}
close $fh2;
open my $fh3, '<', 'txt3';
open my $fh4, '>', 'txt4';
while (defined (my $line = readline $fh3)) {
chomp $line;
my @parts = split /,/, $line, 13;
my $phone_number = $parts[4];
$parts[5] = $data_href->{$phone_number}->{'times'} || 0;
$parts[7] = $data_href->{$phone_number}->{'score'} || 0;
my $new_line = join ',', @parts;
print {$fh4} "$new_line$/";
}
close $fh3;
close $fh4;
__END__

復(fù)制代碼

作者: sunzhiguolu 時間: 2016-08-18 20:01

#!/usr/bin/perl
use strict;
use warnings;
my ($first, %hData) = "";
while (<>){
chomp;
my @aList = split (/,/, $_, -1);
if (@ARGV){
$first = $ARGV if ($first eq "");
my @aT = ($aList[-1], 0);
if ($first eq $ARGV){
push (@{$hData{$aList[0]}}, @aT);
}else{
my $has = exists $hData{$aList[0]};
push (@{$hData{$aList[0]}}, $has ? @aT : (0, 0, @aT));
}
next;
}
if (exists $hData{$aList[4]}){
my @aT = @{$hData{$aList[4]}};
@aList[5 .. 8] = @aT > 2 ? @aT : (@aT, 0, 0);
}
print join (",", @aList), "\n";
}

復(fù)制代碼

perl abc.pl a b c
-------------------------------------------------------------------
xa,1,張三,男,13288888888,1,0,200,0,,,,
sh,2,李四,男,13288888889,7,0,0,0,,,,
sh,3,王五,女,13288888890,0,0,5000,0,,,,
bj,4,毛六,男,13288888891,0,0,0,0,,,,

作者: sunzhiguolu 時間: 2016-08-18 20:23
如果不是以編程的方式修改 MS Excel 單元格內(nèi)容的話, 可以使用 LibreOffice 辦公套件. 開源, 跨平臺.

作者: MMMIX 時間: 2016-08-18 23:42

#!/usr/bin/perl
use strict;
use warnings;
use v5.16;
use autodie;
use Data::Dumper;
sub load_data1 {
local @ARGV = @_;
my %records;
while (<>) {
chomp;
my ($k, $v) = split /\s*,\s*/;
$records{$k} = $v;
}
return wantarray ? %records : \%records;
}
sub load_data2 {
local @ARGV = @_;
my @records;
while (<>) {
chomp;
push @records, [split /\s*,\s*/, $_, -1];
}
return wantarray ? @records : \@records;
}
###
die "Usage: $0 txt1 txt2 txt3" unless @ARGV >= 3;
my $records1 = load_data1 $ARGV[0];
my $records2 = load_data1 $ARGV[1];
my $records3 = load_data2 $ARGV[2];
foreach (@$records3) {
my $id = $_->[4];
$_->[5] = $records1->{$id} if exists $records1->{$id};
$_->[7] = $records2->{$id} if exists $records2->{$id};
say join(',', @$_);
}

復(fù)制代碼

作者: lockeyou 時間: 2016-08-22 08:45
謝謝樓上各位大神的解決方案，好久沒寫代碼，都忘了sub了，哈哈

歡迎光臨 Chinaunix (http://72891.cn/)