Durchschnitt der Array Elemente (Allgemeines zu Perl)

Ronnie

2005-08-10 11:23

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

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

use List::Util qw/sum/;

my @list = (1, 2, 4, 2);
my $avg = avg(@list);
print $avg, "\n";
exit;

sub avg {
    my $sum = sum @_;
    my $len = scalar @_;
    return $sum/$len;
}

Gast Gast

2005-08-10 11:00

Hallo!
Ich will mir den Durchschnitt der Werte die in den Arrayelementen stehen berechnen.
z.B. ich habe ein Array @zahlen = (18, 19, 20, 23, 21, 19); und daraus möchte ich mir jetzt den Durchschnitt berechnen, also er soll $durchschnitt = (18 + 19 + 20 + 23 + 21 + 19)/@zahlen.length() rechnen.
Das Problem ist dass ich immer unterschiedlich lange arrays mit unterschiedlich vielen Elementen bekomme.
Ich wollte eine Funktion schreiben die als Parameter das array hat und dann den durchschnitt berechnet, aber ich schaffe es einfach nicht.
mfg Master7

renee

2005-08-10 12:26

User since
2003-08-04
14371 Artikel
ModeratorIn

*hat nix mit GUIs zu tun*

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/

J-jayz-Z

2005-08-10 13:08

User since
2005-04-13
625 Artikel
BenutzerIn

Code: (dl )

#!/usr/bin/perl
use strict;
use warnings;

my @zahlen =  qw/18 19 20 23 21 19/;
my $sum = 0;
my $zahlen = scalar @zahlen;

$sum += $_ for @zahlen;
print $sum/$zahlen . "\n";

\n\n

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de

pq

2005-08-10 15:34

User since
2003-08-04
12208 Artikel
Admin1

@J-jayz-Z: irreführende variablenbenennung. $avg sollte $sum heißen.

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

J-jayz-Z

2005-08-10 17:21

User since
2005-04-13
625 Artikel
BenutzerIn

done

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de