Comment puis-je créer un tableau à deux dimensions en Perl?

Je suis en train d'essayer de transmettre un fichier de matrice de 32 de 48 à un tableau multidimensionnel en Perl. Je suis en mesure d'accéder à toutes les valeurs, mais elle éprouve des difficultés d'accès à une valeur spécifique. Toute aide serait grandement appréciée. J'ai mis un lien vers l'ensemble de données ainsi que le code que j'ai ci-dessous.

Voici un lien vers l'ensemble de données:
http://paste-it.net/public/x1d5301/

Voici ce que j'ai pour le code de la droite maintenant. 

#!/usr/bin/perl

open FILE, "testset.txt" or die $!;
my @lines = <FILE>;

my $size = scalar @lines;

my @matrix = (1 .. 32);
my $i = 0;
my $j = 0;
my @micro;

foreach ($matrix)
{

foreach ($lines)
{
    push @{ $micro[$matrix]}, $lines;
}
}
  • lol pour use English;
  • juste se poser la question et coupé de tout le reste.
  • J'ai supprimé l'utilisation de l'anglais
InformationsquelleAutor Alos | 2010-10-14
  1. 7

    Il ne semble pas vous comprendre que $matrix indique seulement @matrix quand il est immédiatement suivi par un tableau de l'indexeur: [ $slot ]. Sinon, $matrix est totalement différente de la variable @matrix (et à la fois différent de %matrix ainsi). Voir perldata.

    #!/usr/bin/perl
use English;

    Ne pas! utiliser l'anglais--de cette façon!

    Cela apporte de la $MATCH, $PREMATCH, et $POSTMATCH et incurrs la redoutable $&, $`, $' peine. Vous devez attendre jusqu'à ce que vous êtes à l'aide de un anglais variable et ensuite il suffit de les importer.

    open FILE, "testset.txt" or die $!;

    Deux choses: 1) l'utilisation lexicale descripteurs de fichiers, et 2) utiliser les trois-arg ouvrir.

    my @lines = <FILE>;

    Tant que je suis la cueillette: Ne pas siphonner les gros fichiers. (Pas le cas ici, mais c'est un bon avertissement.)

    my $size = scalar @lines;

my @matrix = (1 .. 32);
my $i = 0;
my $j = 0;
my @micro;

    Je vois que nous en sommes à la "Le PROFIT!!" scène ici...

    foreach ($matrix) {

    Vous n'avez pas une variable $matrix vous disposez d'une variable @matrix.

        foreach ($lines) {

    Même chose est vraie avec $lines.

            push @{ $micro[$matrix]}, $lines;
    }
}

    De réécriture:

    use strict;
use warnings;
use English qw<$OS_ERROR>; # $!
open( my $input, '<', 'testset.txt' ) or die $OS_ERROR;

# I'm going to assume space-delimited, since you don't show
my @matrix;
# while ( defined( $_ = <$input> ))...
while ( <$input> ) {
    chomp; # strip off the record separator
    # load each slot of @matrix with a reference to an array filled with
    # the line split by spaces.
    push @matrix, [ split ]; # split = split( ' ', $_ )
}
    • FYI: split sans arguments est split ' ' pas split /\s+/
    • Pas sur redhat Perl 5.8.7 ou Strawberry Perl 5.12.1:perl -MSmart::Commentaires $_ = '1 2 3 4 5'; mon @a = split; ### @a ### @a: [ ### '1', ### '2', ### '3', ### '4', ### '5' ### ]
    • bien HTML compressé les espaces, mais il y a toutes sortes d'espaces et de tabulations là. :/
    • pouvez-vous expliquer ce que vous entendez? split sans arguments est certainement split ' ', pas split /\s+/. Les deux diffèrent dans la façon dont les espaces sont traités.
    • Voir la CW réponse que j'ai ajouté pour illustrer la différence.
    • ah ma lecture de perlfunc est un peu rouillé. J'avais oublié "Comme un cas particulier, la spécification d'un MODÈLE de l'espace (' ') sera divisée sur l'espace blanc comme split avec aucun argument n'". Alors j'ai pensé que l'importance de split( ' ' ) était il ne serait fendu d'un seul espace de caractères--je n'ai vraiment utiliser le raccourci de ces fonctions dans le jouet code que j'écris sur DONC. Vous avez raison, @Sinan t omettre la première chaîne de longueur nulle. Mon mauvais. Et apparemment, c'est simplement pour se conformer à la awk.
    • Je suppose que ma erronée point était que split() se comporte plus comme split( /\s+/ ) qu'il ne split( $char ) avec $char = ' ' ou $char = ','. Le ' ' en fait cache la gamme complète de fractionnement du comportement.
    • c'est pourquoi j'ai pensé que je devrais vous donner un heads-up. De toute façon, +1.

    InformationsquelleAutor Axeman
  2. 3

    Si vous allez faire un peu de maths, vous pourriez envisager de PDL (Perl Données de la Langue). Vous pouvez facilement configurer votre matrice et avant les opérations sur elle:

    use 5.010;

use PDL;
use PDL::Matrix;

my @rows;
while( <DATA> ) {
    chomp;
    my @row = split /\s+/;
    push @rows, \@row;
    }

my $a = PDL::Matrix->pdl( \@rows );
say "Start ", $a;

$a->index2d( 1, 2 ) .= 999;
say "(1,2) to 999 ", $a;

$a++;
say "Increment all ", $a;

__DATA__
1 2 3
4 5 6
7 8 9
2 3 4

    La sortie montre la matrice d'évolution:

    Start 
[
 [1 2 3]
 [4 5 6]
 [7 8 9]
 [2 3 4]
]

(1,2) to 999 
[
 [  1   2   3]
 [  4   5 999]
 [  7   8   9]
 [  2   3   4]
]

Increment all 
[
 [   2    3    4]
 [   5    6 1000]
 [   8    9   10]
 [   3    4    5]
]

    Il est tout à fait un peu de puissance pour faire fonctionner l'arbitraire et de la complexité des opérations sur chaque membre de la matrice, tout comme j'ai ajouté 1 à chaque membre. Vous avez complètement ignorer la boucle de l'acrobatie.

    Non seulement cela, PDL n'est pas mal de trucs à faire des maths très vite et d'avoir une faible empreinte mémoire. Certaines des choses que vous voulez faire peut-être déjà mis en œuvre.

    InformationsquelleAutor brian d foy
  3. 2

    Vous avez probablement besoin de chomp les valeurs:

    chomp( my @lines = <FILE> );
    InformationsquelleAutor Alan Haggai Alavi
  4. 1

    Je vais faire de la CW, car son seul but est de clarifier un point tangentiel j'ai fait dans mon commentaire à @Armé d'une hache de réponse. Voir perldoc -f split:

    Un split sur /\s+/ est comme un split(' ') sauf que toute fonction de direction espace produit un null premier champ. Un split avec aucun argument vraiment un split(' ', $_) en interne.

    #!/usr/bin/perl

use YAML;

$_ = "\t1 2\n3\f4\r5\n";

print Dump { 'split'       => [ split       ] },
           { "split ' '"   => [ split ' '   ] },
           { 'split /\s+/' => [ split /\s+/ ] }
           ;

    De sortie:

    --- 
split: 
- 1 
- 2 
- 3 
- 4 
- 5 
--- 
split ' ': 
- 1 
- 2 
- 3 
- 4 
- 5 
--- 
split /\s+/: 
-" 
- 1 
- 2 
- 3 
- 4 
- 5
    InformationsquelleAutor
  5. 1

    Je vois que la question est assez vieux, mais comme l'auteur a publié la question, c'est peut-être encore de l'intérêt. Aussi le lien vers les données sont morts, mais depuis d'autres réponses d'utiliser l'espace comme séparateur, moi aussi.

    Cette réponse démontre Tie::Array::CSV qui permet l'accès aléatoire à un fichier CSV (ou un autre fichier analysée avec Text::CSV).

    #!/usr/bin/env perl

use strict;
use warnings;

use Tie::Array::CSV;

## put DATA into temporary file
## if not using DATA, put file name in $file
use File::Temp ();
my $file = File::Temp->new();
print $file <DATA>;
##


tie my @data, 'Tie::Array::CSV', $file, { 
  text_csv => {
    sep_char => " ",
  },
};

print $data[1][2];

__DATA__
1 2 3 4 5
6 7 8 9 1
2 3 4 5 6
    InformationsquelleAutor Joel Berger