Warnung loswerden (Seite 2) (Allgemeines zu Perl)

[thread]6606[/thread]

Warnung loswerden (Seite 2)

betterworld

2004-12-31 20:31

User since
2003-08-21
2613 Artikel
ModeratorIn

user image

Code: (dl )

my @colors = split / /, q/#123456 #654321/;

Quote
Hab ich eigentlich einen Schaden, S[iy]lvester nach 18 Uhr noch zu programmieren?

Oh Gott, so spaet schon...

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class

Crian

2005-01-03 17:06

User since
2003-08-04
5866 Artikel
ModeratorIn

[quote=Taulmarill,31.12.2004, 19:00]die methode mit dem map gefällt mir, allerdings spare ich gerne zeilen wo es geht. das macht den code übersichtlicher[/quote]
Ja, ich spare normalerweise auch gern Zeilen, in diesem Fall werden die Farben aber genau so (bzw. einmal transponiert) in einem Rechteck angezeigt, deshalb ist es so zum Ändern der Farben übersichtlicher.

[quote=betterworld,31.12.2004, 19:31]

Code: (dl )

my @colors = split / /, q/#123456 #654321/;

Das produziert anscheinend keine Warnung. Und laut perldoc ist qw und split so ziemlich aequivalent, daher vermute ich, dass das Laufzeitverhalten gleich ist. Hoffentlich wird split beim Compilieren schon rausoptimiert.[/quote]
Schick =)
Ich hab jetzt zwar die map-Lösung genommen und bleib wohl auch bei der, da es an der Stelle (Usereingabe) eh nicht auf Speed ankommt, aber gut zu wissen, dass es diese Möglichkeit auch noch gibt.

[quote=betterworld,31.12.2004, 19:31]

Quote
Hab ich eigentlich einen Schaden, S[iy]lvester nach 18 Uhr noch zu programmieren?

Oh Gott, so spaet schon...[/quote]
erwischt ;-)\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

View all threads created 2004-12-31 17:54.