Thread Dateien miteinander vergleichen über Hash`s ? (2 answers)
Opened by tecker at 2008-02-26 14:27

renee
 2008-02-26 14:43
#106351 #106351
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
#!/usr/bin/perl

use strict;
use warnings;

my $file1 = '/pfad/datei1.txt';
my $file2 = '/pfad/dat2.txt';
my $file3 = '/pfad/dat3.txt';

my %hash;

for my $file( $file1, $file2 ){
    open my $in, '<', $file or die $!;
    while( my $line = <$in> ){
        chomp $line;
        my ($count,$url) = split /\s*:\s*/, $line;
        $hash{$url} += $count;
    }
    close $in;
}

open my $out, '>', $file3 or die $!;
for my $key ( keys %hash ){
    print $out $hash{$key},": ", $key, "\n" or die $!;
}
close $out or die $!;
(ungetestet)
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View full thread Dateien miteinander vergleichen über Hash`s ?