perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5374
davon online: 1
weitere User: 21
Click for quality!




12.02.2012 / 02:15

Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home


PERLscripts


PHPscripts


JAVAscripts


Hilfreiches


Links2www


Newscenter


Community


Interna




Community  »  Perl: Allgemeines Forum zur Themenübersicht Themensuche Themenansicht in Thread-Modus


BeitragPerl Einzeiler
Seitenanfang
Hello Leute

Ich bin auf die Idee gekommen eine Perleinzeiler zu schreiben der mir den Durchschnitt von seinen Aufrufe Argumenten ausgibt
Aber ich weiss nicht genau wie ich die Elemente des Arrays in einer Zeile summieren kann.
So sollte es aussehen:


perl -e " ???????? /@ARGV" 1 2 3 4 5 5 4 3 2 1

ich hoffe mir kann da wer helfen

Datum: 06.02.2008-20:02

Beitragre: Perl Einzeiler
Seitenanfang

perl -le '$sum += $_ for @ARGV; print $sum' -- 1 2 3 4 5 6 7 8 9 10

perl -le '$x+=$_ for@ARGV;print$x' -- 1 2 3 4 5 6 7 8 9 10

perl -le 'while($x=shift){$_+=$x}print' -- 1 2 3 4 5 6 7 8 9 10

perl -le '$"=q{+};s//"@ARGV"/ee;print' -- 1 2 3 4 5 6 7 8 9 10

Datum: 07.02.2008-15:07

Beitragre: Perl Einzeiler
Seitenanfang
Danke für die Antworten sind echt echt gute Lösungen

Datum: 07.02.2008-17:34

-






-
-