push auf anonymes array (Allgemeines zu Perl)

Froschpopo

2005-05-01 13:03

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

kann man auch irgendwie elemente zu einem anonymen array hinzufügen außerhalb des ersten aufrufs ? ([])\n\n

Ronnie

2005-05-01 13:23

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

Code: (dl )

1
2

my $arr_ref = [1, 2, 3];
push @$arr_ref, 7;

pq

2005-05-01 13:45

User since
2003-08-04
12208 Artikel
Admin1

[quote=Froschpopo,01.05.2005, 11:03]kann man auch irgendwie elemente zu einem anonymen array hinzufügen außerhalb des ersten aufrufs ? ([])[/quote]
ja, das steht u.a. in Wiki:

perldoc perlref

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

Froschpopo

2005-05-01 13:50

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

sowas meinte ich nicht...

ich hab z.b. nen sub-aufruf: func([1,2,3]);
kann man dort jetzt auch nen Index aufnehmen?
Ist ne reine Interessensfrage

Ishka

2005-05-01 14:03

User since
2003-08-04
771 Artikel
HausmeisterIn

meinst du sowas:
[@$ref,'hallo','welt']

sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}

pq

2005-05-01 15:02

User since
2003-08-04
12208 Artikel
Admin1

[quote=Froschpopo,01.05.2005, 11:50]ich hab z.b. nen sub-aufruf: func([1,2,3]);
kann man dort jetzt auch nen Index aufnehmen?
Ist ne reine Interessensfrage[/quote]
ich bin sicher, dass es geht - sobald du dich etwas genauer ausgedrückt
hast, was du eigentlich willst. was meinst du mit "index aufnehmen"?

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

Ronnie

2005-05-01 15:55

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

Wenn du es als anonymes Array an eine Funktion übergibts, kannst du immer noch problemlos im Funktionskörper darauf zugreifen:

Code: (dl )

1
2
3

my $arr = shift;
$$arr[3]=7;
#print Dumper $arr;

\n\n

Froschpopo

2005-05-02 07:17

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

Was ist an diesem Code hier undeutlich ?

Code: (dl )

funktion([1,2,3]);

Meine Frage war jetzt, wie man in die Arrayref ein element aufnehmen kann, ist das überhaupt möglich sowas bei einem anonymen array zu machen?
An der o.g. Funktion darf NICHTS verändert werden!

sri

2005-05-02 08:09

User since
2004-01-29
828 Artikel
BenutzerIn

[quote=Froschpopo,02.05.2005, 05:17]Was ist an diesem Code hier undeutlich ?

Code: (dl )

funktion([1,2,3]);

Meine Frage war jetzt, wie man in die Arrayref ein element aufnehmen kann, ist das überhaupt möglich sowas bei einem anonymen array zu machen?
An der o.g. Funktion darf NICHTS verändert werden![/quote]
Also "genau diese" arrayref aenderst du einfach so. :D

Code: (dl )

BEGIN{open 0;($_=join'',<0>)=~s/(funktion\(\[1,2,3)(\]\);)/$1,4$2/g;open 0,">$0";print{0}$_}

funktion([1,2,3]);

sub funktion {}

http://mojolicio.us/

renee

2005-05-02 09:45

User since
2003-08-04
14371 Artikel
ModeratorIn

Wann möchtest Du was in das Arrayref "aufnehmen"?? Ich kapier Deine Frage auch nicht so ganz...

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/