perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5374
davon online: 1
weitere User: 28
Click for quality!




08.02.2012 / 22:30

Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home


PERLscripts


PHPscripts


JAVAscripts


Hilfreiches


Links2www


Newscenter


Community


Interna




Community  »  Perl: Allgemeines Forum zur Themenübersicht Themensuche Themenansicht in Thread-Modus


BeitragParameterübergabe in Perl
Seitenanfang
Hallo,

ich bin in Perl noch ziemlicher Anfänger und komme eigentlich von PHP, wo ich solche Probleme, wie ich sie jetzt habe eigentlich nicht kenne.

Mein Problem ist folgendes: Ich übergebe einer Subroutine einen Hash und einen String.
Wie kann ich diese nun in der Funktion abrufen?

Probiert hab ichs mit

my (%hash,$str) = @_;

und mit
my %hash = shift;
my $str = shift;

funktioniert hat aber leider gar nix.

Kann mir jemand weiterhelfen?

Vielen Dank im voraus

Johannes

Datum: 28.04.2005-16:48

Beitragre: Parameterübergabe in Perl
Seitenanfang
Hallo,

die Übergabe von arrays oder hashs wird in Perl über _Referenzen_ gesteuert, weil perl alles was einer Funktion übergeben wird in eine Liste umwandelt, wodurch die Strukturen von hashs und arrays aufgelöst werden.


#!/perl/bin/perl

use strict;
use warnings;

my %hash = ('1'=>'das ', '2'=>'ist ', '3'=>'ein ', '4'=>'.');
my $string = "test";
my $ergebnis;

print &funktion(\%hash, $string);

sub funktion {
my ($hashref, $string) = @_;
my %hash = %$hashref;

return $hash{'1'},$hash{'2'},$hash{'3'},$string,$hash{'4'};
}

Ciao
Ingo

Datum: 29.04.2005-08:10

Beitragre: Parameterübergabe in Perl
Seitenanfang
Ok, so funktionierts. Vielen Dank!

Datum: 29.04.2005-09:01

-






-
-