Perl sous-routine tableau et variable scalaire paramètres

Exactement comment puis-je passer les deux variables scalaires et les variables de tableau de données à un sous-programme en Perl?

 my $currVal = 1;
 my $currValTwo = 1;
 my @currArray = ('one','two','three');
 my @currArrayTwo =('one','two','three');

 &mysub($currVal, $currValTwo,\@currArray, \@currArrayTwo);

 sub mysub() {

     # That doesn't work for the array as I only get the first element of the array
     my($inVal, $inValTwo, @inArray, @inArrayTwo) = @_;
 }
La pile, vous êtes à l'aide de deux?
C'est arrivé avec les deux, mais Blagovest réponse fixe!
J'ai été à la recherche pour cette question, toute la journée. Merci de poser cette!!!

OriginalL'auteur user391986 | 2011-06-09

  1. 15

    Vous avez besoin de récupérer des références parce que vous avez déjà passé comme référence (à l'aide de la \ opérateur):

    my($inVal, $inValTwo, $inArray, $inArrayTwo) = @_;

    et ensuite utiliser les références sous la forme de tableaux:

    @{$inArray}

    OriginalL'auteur Blagovest Buyukliev

  2. 6

    Vous passe les arguments comme des références, si vous avez besoin de déréférencement à utiliser les valeurs. Soyez prudent si vous souhaitez modifier le tableau d'origine ou pas.

    sub mysub {
    my($inVal, $inValTwo, $inArray, $inArrayTwo) = @_;
    @{$inArrayTwo} = ('five','six','seven');
}

    Cela va changer l'original @currArrayTwo, ce qui pourrait ne pas être ce que vous voulez.

    sub mysub {
    my($inVal, $inValTwo, $inArray, $inArrayTwo) = @_;
    my @ATwo = @{$inArrayTwo};
    @ATwo = ('five','six','seven');
}

    Cela ne fera que copier les valeurs et laisse le tableau d'origine intact.

    Aussi, vous n'avez pas besoin de l'esperluette en face de la sous-nom, de perldoc perlsub:

    Si une sous-routine est appelée à l'aide de la &
    la forme, la liste d'arguments est facultatif,
    et si il est omis, pas @_ tableau est mis en place
    pour la sous-routine: le @_ tableau à
    l'heure de l'appel est visible à
    sous-routine à la place. C'est un
    l'efficacité du mécanisme que les nouveaux utilisateurs
    pouvez l'éviter.

    Vous n'avez pas besoin de vider les parenthèses après votre sous-déclaration. Ceux-ci sont utilisées pour définir les prototypes, ce qui est quelque chose que vous n'avez pas besoin de le faire, sauf si vous le voulez vraiment.

    Bonne explication merci!
    Vous êtes les bienvenus!
    Une idée de comment je peux passer un XML::Écrivain par référence"? Comment pourrais-je le déréférencement d'elle dans la sous-routine?
    Je ne suis pas familier avec ce module, mais je dirais que tout objet est transmis avec une valeur scalaire.

    OriginalL'auteur TLP

  3. 0

    Ainsi, par exemple: C'est à l'aide d'instruction à la recherche de quelque chose dans un tableau:

    use List::Util qw(first);

    C'est la sous-déclaration:

    sub GetIndex($$$);

    C'est l'appel à la sous (dernier paramètre: la valeur par Défaut valeur de l'indice de donner en retour si elle ne trouve pas)

    $searchedIndex = GetIndex(\@theArr, "valuesearched", 1);

    C'est la routine:

    sub GetIndex($$$)
{
    my $inArray=shift;
    my @theArray= @{$inArray};
    my $searchedTag= shift;
    my $defaultVal= shift;

    my $retVal = first { $theArray[$_] eq $searchedTag} 0 .. $#theArray;
    if ((! defined $retVal)|| ($retVal<0)||($retVal>@theArray))
    {
        $retVal = $defaultVal;
    }
    return $retVal;
}

    OriginalL'auteur Cesare Imperiali