split élément de tableau en perl

J'ai un tableau en Perl, où chaque élément contient le nom d'utilisateur et le mot de passe qui est séparé par un espace. I. e.

@listOfUser = {testuser password1, testuser2 password2, testuser3 password3};

Je veux parcourir le tableau et diviser chaque élément en deux chaînes. Par exemple, je veux prendre le premier élément du tableau et de l'affecter à une variable appelée nom d'utilisateur et le mot de passe approprié pour une variable appelée passwd.

Essentiellement ma question est que je veux diviser un élément de tableau en deux chaînes!

Je suis à l'aide de perl. Parlons en général. J'ai un tableau qui contient plusieurs éléments.

Chaque élément est de la forme: sometext mypassword
Fondamentalement, chaque élément contient un nom d'utilisateur suivi d'un espace et d'un mot de passe.

Je veux être en mesure de saisir chaque élément et de diviser l'élément de sorte que 

my $username = sometext
my $password = password

Je vais donc passer les deux chaînes en une fonction à l'aide d'une boucle foreach

  • Can't locate object method "testuser" via package "password1" (perhaps you forgot to load "password1"?) at - line 1. — ce code vous vraiment les utiliser?
  • Vous obtiendrez de meilleures réponses si vous publiez du code du travail (ou, au moins, le code qui compile).
InformationsquelleAutor microfly7 | 2010-11-06
  1. 7
    for my $elem (@listOfUser) {
    my ($username, $password) = split " ",$elem;
    # do something with $username and $password
}
    • merci!!!!!!!!
    • Si cela a aidé (correct), vous devez marquer correcte, pas juste remercier. Sur StackOverflow marquage quelque chose de correcte est la meilleure forme de flatterie. Même si, comme vous en apprendre davantage Perl, personnellement, je pense que Sinan réponse est un peu plus Perl-ish, mais ennuikiller est certainement est très bien.
    • Sinan réponse est certainement préférable, cependant, pour un novice (qui l'op est apparemment l'examen de la question) je pense que ma réponse est un peu plus facile à comprendre.
    • tout à fait d'accord. Juste en encourageant l'op pour marquer quelque chose de correct, pas juste dire merci.
    InformationsquelleAutor ennuikiller
  2. 5
    use strict; use warnings;
use YAML;

my @users = (
    'testuser password1',
    'testuser2 password2',
    'testuser3 password3',
);

@users = map { my ($u, $p) = split; { user => $u, pass => $p } } @users;

print Dump \@users;
    InformationsquelleAutor Sinan Ünür
  3. 0

    Outre les réponses déjà données: pourquoi utiliser un tableau? Un hash serait à mon humble avis être une meilleure solution:

    my %user_password = (
    user1 => 'pass1',
    user2 => 'pass2',
    ....
);

for my $user ( keys %user_password ) {
    print "username: $user, password: $user_password{$user}\n";
}

    Paul

    • Sans doute parce qu'il est déjà dans la forme, à partir d'un fichier ou d'une base de données ou une autre construction. Sinon un hachage est def le chemin à parcourir.
    InformationsquelleAutor pavel