Thread Dateien miteinander vergleichen über Hash`s ?
(2 answers)
Opened by tecker at 2008-02-26 14:27 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 $!; 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/ |