Wie "leere" ich @Daten? (Seite 2) (Perl/CGI)

Crian

2004-12-09 18:19

User since
2003-08-04
5878 Artikel
ModeratorIn

[quote=oruebe,09.12.2004, 17:07]mit Deinem Code gehts :-)

Ich hatte es auch schon mit
$a=0;while ($a<24) {$STD[$a]=0;$a++}
probiert. Das hatte aber nicht geholfen...

Hat den Dein Code irgendwelche Nachteile?[/quote]
interessant :)

Nein, Nachteile hat der nicht. @STD == @stunden?

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

Crian

2004-12-09 18:23

User since
2003-08-04
5878 Artikel
ModeratorIn

btw dies hier:

Code: (dl )

print "Mo: $TAG[0]<BR>";
print "DI: $TAG[1]<BR>";
print "Mi: $TAG[2]<BR>";
print "Do: $TAG[3]<BR>";
print "Fr: $TAG[4]<BR>";
print "Sa: $TAG[5]<BR>";
print "So: $TAG[6]<BR>";

geht auch eleganter. Variante 1:

Code: (dl )

print "Mo: $TAG[0]<BR>",
      "DI: $TAG[1]<BR>",
      "Mi: $TAG[2]<BR>",
      "Do: $TAG[3]<BR>",
      "Fr: $TAG[4]<BR>",
      "Sa: $TAG[5]<BR>",
      "So: $TAG[6]<BR>";

Variante 2:

Code: (dl )

print +(qw/Mo Di Mi Do Fr Sa So/)[$_], ': ', $TAG[$_], '<BR>' for 0..6;

\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

oruebe

2004-12-09 18:27

User since
2004-07-09
46 Artikel
BenutzerIn
[default_avatar]

Ich lerne noch... :-)

Aber vielen Dank für Eure Hilfe (mal wieder)!!!!!

oruebe

2004-12-09 18:28

User since
2004-07-09
46 Artikel
BenutzerIn
[default_avatar]

Einen hätte ich noch: Wie bekomme ich raus, welcher $STD der Größte ist?

Crian

2004-12-09 18:34

User since
2003-08-04
5878 Artikel
ModeratorIn

Wenns nur wenige Elemente sind (und nicht zeitkritisch):

Code: (dl )

my $big = (sort {$a <=> $b} @STD)[-1];

Das sortiert aufsteigend numerisch und nimmt den letzten Wert. Oder willst Du wissen, zu welchem Index der größte Wert vorkommt?

Eigentlich ist der Ansatz aber blöd, weil das Sortieren ja gar nicht nötig ist. Einfacher aber länger:

Code: (dl )

my $index = 0;
my $big = $STD[0];
for my $i (1..$#STD) {
     if ($big < $STD[$i]) {
         $index = $i;
         $big = $STD[$i];
     }
}

In $big ist der größte Wert und in $index der Index dazu.\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

oruebe

2004-12-09 19:00

User since
2004-07-09
46 Artikel
BenutzerIn
[default_avatar]

VIELEN DANK!!!!!!

Crian

2004-12-09 19:40

User since
2003-08-04
5878 Artikel
ModeratorIn

[quote=oruebe,09.12.2004, 17:27]Ich lerne noch... :-)[/quote]

kein Problem, ich auch :D

[quote=oruebe,09.12.2004, 17:27]Aber vielen Dank für Eure Hilfe (mal wieder)!!!!![/quote]

bitte, immer wieder gern (endlich kann man hier mal wieder helfen =)

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

Strat

2004-12-09 22:58

User since
2003-08-04
5246 Artikel
ModeratorIn

[quote=Crian,09.12.2004, 17:34]Eigentlich ist der Ansatz aber blöd, weil das Sortieren ja gar nicht nötig ist. Einfacher aber länger:[/quote]
das kann man zwar mit einer index-schleife machen, aber vielleicht ist der folgende weg noch einfacher und schneller, trotz dem einmaligen unnoetigen schleifendurchlauf:

Code: (dl )

my $biggest = $STD[0];
foreach (@STD) {
  $biggest = $_ if $_ > $biggest;
}
print "Groesstes Element: $biggest\n";

Nebenbei: eine Liste kann man folgendermaszen leeren:

Code: (dl )

@liste = (); # zuweisung einer leeren liste
# oder:
$#liste = -1; # hoechsten index auf -1 setzen
# oder:
undef(@liste);

\n\n

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

Crian

2004-12-10 00:26

User since
2003-08-04
5878 Artikel
ModeratorIn

Jau, siehe Post zwei (Relais) ;)

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

Strat

2004-12-10 00:49

User since
2003-08-04
5246 Artikel
ModeratorIn

@Crian: aber $#liste = -1; hat Relais nicht geschrieben :P Die beiden anderen waren nur eine Vervollstaendigung... hmmm, da faellt mir noch eine "hoechst effiziente" Moeglichkeit ein:

Code: (dl )

1 while shift(@liste);

Muesste gerade bei grossen Listen viel Spass machen...

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