wie funktioniert der Befehl push() (Allgemeines zu Perl)

#Kein Kommentar

2007-10-11 15:17

User since
2007-06-09
575 Artikel
HausmeisterIn
[default_avatar]

hi,

die überschrift sagt eigentlich schon alles.

Wie kann der push-befehl ein array verändern, obwohl doch garnicht die referenz des arrays, sondern nur der inhalt übergeben wird?

Code: (dl )

push (@array, $scalar);

@array is ja eindeutig keine referenz. Wie kann das dann funktionieren?

----
Modedit Gwendragon: Titel geändert
----

Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind

renee

2007-10-11 15:25

User since
2003-08-04
14371 Artikel
ModeratorIn

Mit Prototypen...

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

sub mypush(\@$);

my @array = (1..7);
mypush( @array, "Hallo");

print Dumper \@array;


sub mypush(\@$){
    my ($ar,$scalar) = @_;
    push @$ar, "Hinzugefuegt: $scalar";
}

Damit (\@) sagst Du, dass das Array als Arrayreferenz behandelt werden soll...

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/

pq

2007-10-11 16:59

User since
2003-08-04
12209 Artikel
Admin1

wobei die built-in funktionen speziell sind. z.b. lässt sich ein map() nicht so einfach
nachbauen, denn map lässt sich auf zwei arten aufrufen:

Code: (dl )

1
2

map { foo() } @a;
map foo(), @a;

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

RPerl

2007-10-11 21:59

User since
2006-11-26
384 Artikel
BenutzerIn

user image

Ich frage mich, warum renee kein

"Subroutine foo redefined".

bekommt.

Linuxer

2007-10-11 22:22

User since
2006-01-27
3891 Artikel
HausmeisterIn

user image

Warum sollte foo angemeckert werden? Er nennt sie doch mypush ;o)) SCNR

Code: (dl )

sub mypush(\@$);

ist die Deklaration für mypush(), also die reine Bekanntgabe. Das braucht es, wenn der eigentliche "Main"-Teil des Skriptes vor der Definition der Sub steht. Tut es das nicht, meldet Perl:

Quote
main::mypush() called too early to check prototype at prototype.pl line 9.
Can't use string ("1") as an ARRAY ref while "strict refs" in use at prototype.pl line 16.

Erst wenn Du die Definition der Sub *vor* das Main-Skript stellst, kannst Du Dir die explzite Deklaration vorher sparen:

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

# Deklaration + Definition
sub mypush(\@$){
    my ($ar,$scalar) = @_;
    push @$ar, "Hinzugefuegt: $scalar";
}

my @array = (1..7);
mypush( @array, "Hallo");

print Dumper \@array;

Das ist eigentlich das Verhalten, dass ich noch aus meinen C-Anlern-Zeiten und den entsprechenden Programmcodes kenne.

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

renee

2007-10-11 23:35

User since
2003-08-04
14371 Artikel
ModeratorIn

Ich habe die Subs aber lieber am Ende... Dann habe ich das "Hauptprogramm" gleich im Blick wenn ich die Datei öffne.

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/

Linuxer

2007-10-12 11:46

User since
2006-01-27
3891 Artikel
HausmeisterIn

user image

renee+2007-10-11 21:35:56--
Ich habe die Subs aber lieber am Ende... Dann habe ich das "Hauptprogramm" gleich im Blick wenn ich die Datei öffne.

Mach ich i.A. genauso.

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

lichtkind

2007-10-12 13:33

User since
2004-03-22
5730 Artikel
ModeratorIn + EditorIn

ich glaub die grdankenblockade von kein kommentar ist zu glauben das @ keine referenz anzeigt. natürliche ist zeigt das eine referenz an. nur halt eine spezialisierte referenz typ für arrays. ein $ fereferenziert ja auch skalarwerte, siehe $$var.

mein zeug:, Leute

Es beginnt immer mit einer Entscheidung.