hilfe um Array funktion?? (Seite 2) (Allgemeines zu Perl)

Linuxer

2008-03-27 16:27

User since
2006-01-27
3891 Artikel
HausmeisterIn

user image

Hi Gast,

von welchem Modul redest Du? Was sind "solche Infos"?

Wenn Du konkretere Angaben machen würdest und die Dinge beim Namen nennst, macht das die Antworten einfacher und es nutzt die Hühnerknochen nicht so ab [1].

Greetz,
Linuxer

[1]Die Glaskugel ist leider schon schwarz geworden... ;o))

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

renee

2008-03-27 16:36

User since
2003-08-04
14371 Artikel
ModeratorIn

@Gast: Beschreibe bitte mal ganz genau was Du machen willst. Wenn Du Sachen aus einer Excel-Datei lesen willst, wird das ohne Modul ziemlich schwierig (Du kannst Dir ja mal anschauen, wie ParseExcel das macht).

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/

Gast Gast

2008-03-27 16:56

sorry!!
linuxer--> Modul meine ich " cpan Spreadsheet::ParseExcel "
was ich gerne wissen möchte wäre, einfach die excel tabelle sieht so aus:das sind 50000 einträge in jeweils 2 kolumnen immer die 2 und 3.
2/1 (of XICs) ACCNumber
0.453 IPI-122
77.777 IPI-122
1.447 IPI-122
1.27 IPI-122

2/1 (of XICs) ACCNumber
1.452 IPI-123
1.582 IPI-123
1.98 IPI-123

2/1 (of XICs) ACCNumber
7.78 IPI-124
4.7 IPI-124
3.55 IPI-124

wie kann ich perl sagen; wenn eine leere zeile kommt dann berechne den mittelwert aus diesem Block von zahlen und speichere auch diese zugehörige IPI-nummer dazu und MACH weiter!!wo du aufgehört hast?? bin klar??hofff?
das ich am Ende, eine liste von" IPI-Number -->Mittelwert " habe
egal selbst mit modul auch.
danke an alle!

Gast Gast

2008-03-28 03:57

sorry die AccNumber spalte hat sich versetzt; das sind 2 separaten kolumnen.
ich würde gerne wissen wie ich den perl sage:
push in ein array und wenn eine leere zeile kommt berechne den mittelwert, und dazu die IPI-nummer speichen;und MACH weiter wo du aufgehört hast;
wäre echt cool brauchs näm. dringend.
greezzz

renee

2008-03-28 09:48

User since
2003-08-04
14371 Artikel
ModeratorIn

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;
use Spreadsheet::ParseExcel;

my $xls = 'acc.xls';
exit unless -e $xls;

my $parser = Spreadsheet::ParseExcel::Workbook->Parse( $xls );
my $sheet  = $parser->{Worksheet}->[0];
   $sheet->{MaxRow} ||= $sheet->{MinRow};

my %hash;
for my $row ( $sheet->{MinRow} .. $sheet->{MaxRow} ){
   my $acc = $sheet->{Cells}->[$row]->[1];
   if( $acc and $acc->Value ne 'ACCNumber' ){
      my $cell = $sheet->{Cells}->[$row]->[0];
      push @{ $hash{ $acc->Value } }, $cell->Value;
   }
}

for my $key ( sort keys %hash ){
   my $sum = 0;
   $sum   += $_ for @{ $hash{$key} };
   my $avg = $sum / scalar( @{ $hash{$key} } );
   print "Acc: $key -> $avg\n";
}

Funktioniert mit der Datei, die hier zu finden ist.

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/

Gast Gast

2008-03-28 19:26

vielen dank:-)
du hast zum zweiten Mal mein A... gerettet, und dabei viel gelernt habe ich
greezz und respekt