Daten an Array anhängen (Allgemeines zu Perl)

Crian

2004-12-16 15:14

User since
2003-08-04
5870 Artikel
ModeratorIn

Wenn ich ein Array erweitern will, geht das natürlich so:

Code: (dl )

1
2

my @a = 1..8;
@a = (@a, 9..20);

Gibt es auch irgendwie soetwas wie

Code: (dl )

1
2

my @a = 1..8;
@a .= (9..20);

das das gleiche liefert?

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

Relais

2004-12-16 15:20

User since
2003-08-06
2246 Artikel
ModeratorIn

Ja. Es heißt push .

Code: (dl )

push @a , (9..20);

Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop (Termin wird noch gesucht) 2025 in München.

Winter is Coming

Crian

2004-12-16 15:23

User since
2003-08-04
5870 Artikel
ModeratorIn

:blush: tröööööööööööööööööööööööööööööt :blush:

Ich hatte irgendwie schon ganz dunkel das Gefühl, da irgendwas total bekanntes übersehen zu haben. Aber in der Form eines irgendwas-gleich gibts das wohl nicht.

Und dabei stand 5 Zeilen weiter im Code schon ein push :lol:\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

Taulmarill

2004-12-16 15:53

User since
2004-02-19
1750 Artikel
BenutzerIn

user image

man könnte natürlich auch den .= operator überladen :D

$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B

ptk

2004-12-16 16:14

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Aber nur mit autobox, oder?

Crian

2004-12-16 17:18

User since
2003-08-04
5870 Artikel
ModeratorIn

oder @= ? ;-)
Den könnte man aber wohl nur mit Eingriff in die Perlquellen hinbiegen...

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-16 19:13

User since
2003-08-04
5246 Artikel
ModeratorIn

@Crian: sourcefilter.... perldoc Filter...

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