daten aus zwei files addieren? (Allgemeines zu Perl)

miki280

2006-01-17 14:23

User since
2005-12-07
18 Artikel
BenutzerIn
[default_avatar]

hallo leute,

hier mein Problem! ich habe 2 files mit dem namen:
04_05_rrc01.txt
04_05_rrc03.txt

inhalt vom 1. inhalt vom 2.
183 285
5 1 9 1
78 2 79 2
73 3 128 3
20 4 63 4
7 5 5 5
1 6

so zu lesen, datei 1:
es gibt 5 mal die 1, 78 mal die 2,....
(183 ist uninteressant)

ich möchte beide dateien öffnen und zusammenzählen wie oft es die 1,2,3,... insgesammt gibt!? die ausgabe sollte im gleichen format gespeichert werden!

ich hoffe es ist verständlich geschrieben!? wie kann ich das angehen? binn für alle vorschläge dankbar!!

mfg miki280!

Taulmarill

2006-01-17 15:20

User since
2004-02-19
1750 Artikel
BenutzerIn

user image

hast du bereits einen ansatz? ich würde die beiden dateien nacheinander öffnen und in einem array unter dem ensprechenden index die anzahl mit dem operator += addieren. in die ausgabedatei muss man dann nur doch den array ausgeben.

falls der "name" des "dings" (was auch immer da gezählt wird) auch buchstaben enthalten kann, dann nimm einen hash anstatt eines arrays.

$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B

miki280

2006-01-17 15:31

User since
2005-12-07
18 Artikel
BenutzerIn
[default_avatar]

einen ansatz hab ich nicht, um ehrlich zu sein bin ich was perl angeht ein ziemlicher anfänger!!
in den files sind nur zahlen und keine buchstaben!

Taulmarill

2006-01-17 15:42

User since
2004-02-19
1750 Artikel
BenutzerIn

user image

dann liess dir doch erst einmal eine gute einführung durch. bei OReilly gibt's die ersten sechs kapitel von "Einführung in Perl" kostenlos zu lesen. oder du schaust dir mal das perlintro in unserem Wiki an.\n\n

$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B

Strat

2006-01-17 16:10

User since
2003-08-04
5246 Artikel
ModeratorIn

auf meiner HP steht unter Vortraege auch meine "Einfuehrung in Perl"...

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

renee

2006-01-18 01:24

User since
2003-08-04
14371 Artikel
ModeratorIn

Neben den bisher genannten Sachen empfehle ich noch folgende Lektueren

perldoc -f open
perldoc -f split

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/

Ronnie

2006-01-18 21:09

User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]

Eine Schleife um die Dateien auszulesen musst du aber noch selbst drumstricken.

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my %stats;

while (<DATA>) {
  next unless /(\d+)\s+(\d+)/;
  $stats{$2} += $1;
}

print Dumper \%stats;

_ _DATA_ _                   
183                        
5      1                   
78    2                    
73    3                    
20    4                    
7      5                   
                                      
 285    
  9      1
 79     2
 128   3
 63     4
  5      5
   1      6