mehrdimensionale Arrays: Elemente hinzufügen (Allgemeines zu Perl)

peggy

2004-08-09 14:19

User since
2004-07-23
29 Artikel
BenutzerIn
[default_avatar]

Hallo!
Ich habe eine datei die ich in ein mehrdimensionales array packen will damit ich besser damit arbeiten kann. Wie füge ich denn bei einem zweidimensionalen array ein element an eine bestimmte stelle? Mit der splitfunktion wird doch normalerweise die einzelnen elemente in ein array geschrieben. Ich habe hier ein array mit elementen, die ganze stringzeilen enthalten, diese will ich an den lehrzeichen spliten und in ein mehrdimensionales array packen.
Struktur jetzt
array [zeile,zeile,zeile]
Struktur haben will:

Code: (dl )

1
2
3

array{ [wort,wort,wort],#ehemalige zeile
[wort,wort,wort],
}

versucht mit:

Code: (dl )

@tabelle=([$i],[$y])=$element;#zuweisen eines elementes geht so nicht

edit: meine datei sieht quasi so aus:
name name name
name code code code
name code code code
name code code code

ich will dies genauso in einem array haben!\n\n

Crian

2004-08-09 14:28

User since
2003-08-04
5866 Artikel
ModeratorIn

http://wiki.perl-community.de/bin/view/Wissensbasis/AoA

Code: (dl )

my @array1 = ("Ganze Sätze", "sollen an Leerstellen", "aufgespalten werden");
my @array2;
push @array2, [ split / /, $_ ] for @array1;

use Data::Dumper;
print Dumper \@array2;

Ausgabe:

Code: (dl )

$VAR1 = [
          [
            'Ganze',
            'Sätze'
          ],
          [
            'sollen',
            'an',
            'Leerstellen'
          ],
          [
            'aufgespalten',
            'werden'
          ]
        ];

\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

peggy

2004-08-09 15:15

User since
2004-07-23
29 Artikel
BenutzerIn
[default_avatar]

Huhu!
Leider teilt er nicht zwischen den wörtern, ich erhalte das gleiche array wie in @zeilen:

Code: (dl )

open(FILE, "testdatei.txt") or die("oops: $!\n");
$/ = undef;
$data = <FILE>;
close FILE;

my @zeilen = split(/\n/,$data);
my @tabelle;
push @tabelle, [ split / /,$_] for @zeilen;

use Data::Dumper;
print Dumper \@tabelle;

Ausgabe:
$VAR1 = [
[
' apfel banane baum grün rot ast bielef regen obst pflanze'
],
[
'apfel 1.000 0.700 0.700 0.809 0.500 0.702 0.200 0.301 0.902 0.609 '
],
[],
[
'banane 0.700 1.000 0.500 0.200 0.100 0.300 0.101 0.203 0.902 0.609'
],
[],
[
'baum 0.700 0.500 1.000 0.803 0.100 0.900 0.500 0.702 0.803 0.904'
],
[],
[
'grün 0.809 0.200 0.803 1.000 0.800 0.600 0.300 0.703 0.605 0.803'
],
[],
[
'rot 0.500 0.100 0.100 0.800 1.000 0.300 0.209 0.309 0.609 0.308'
],
[],
[
'ast 0.702 0.300 0.900 0.600 0.300 1.000 0.304 0.309 0.700 0.809 '
],
[],
[
'bielef 0.200 0.101 0.500 0.300 0.209 0.304 1.000 0.900 0.600 0.300'
],
[],
[
'regen 0.301 0.203 0.702 0.703 0.309 0.309 0.900 1.000 0.800 0.800'
],
[],
[
'obst 0.902 0.902 0.803 0.605 0.609 0.700 0.600 0.800 1.000 0.900'
],
[],
[
'pflanze 0.609 0.609 0.904 0.803 0.308 0.809 0.300 0.800 0.900 1.000'
]
];
editiert: vertan hatte\n\n

renee

2004-08-09 15:28

User since
2003-08-04
14371 Artikel
ModeratorIn

probier mal:

Code: (dl )

push @tabelle, [ split(/\s+/,$_)] for @zeilen;

statt:

Code: (dl )

push @tabelle, [ split / /,$_] for @zeilen;

Vielleicht ist es ja mit Tabulator getrennt und nicht mir Leerzeichen...\n\n

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/

peggy

2004-08-09 15:33

User since
2004-07-23
29 Artikel
BenutzerIn
[default_avatar]

Ha! Wiedermal ein großes Dankeschön an euch für die fluxe antwort :) Funzt jetzt

Crian

2004-08-09 16:03

User since
2003-08-04
5866 Artikel
ModeratorIn

Du sagtest oben Du wollest an Leerzeichen splitten, daran hab ich mich gehalten :)

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

peggy

2004-08-09 16:17

User since
2004-07-23
29 Artikel
BenutzerIn
[default_avatar]

huhu!
weiter gehts bei meinem problem. Entweder bin ich blind oder ich seh den felher einfach nicht! Warum erhalte ich hier keine ausgabe:

Code: (dl )

for my $spalte(1..$laenge)
{
    for my $zeile(1..$laenge)
    {
        if ($tabelle[$spalte][$zeile]== $_ || $tabelle[$spalte][$zeile]<$limit)
        {last;}
        elsif($tabelle[$spalte][$zeile]>=$limit)
        {
            if ($tabelle[0][$zeile]!=$tabelle[$spalte][0])
            {
               
 $paare{$tabelle[0][$zeile]}=$tabelle[$spalte][0];
            }else{last; print "gleiches Wort";}
        } 
    }
}

(...)

Code: (dl )

while(($schluessel,$wert)=each(%paare))
{
    print "Der Wert von $schluessel ist $wert!";
}

Crian

2004-08-09 16:20

User since
2003-08-04
5866 Artikel
ModeratorIn

[s]Wo wird der Hash %paare denn definiert?[/s] Ev. fehlt einfach das my vor der Klammer mit Schlüssel und Wert. Du arbeitest doch wohl hoffentlich mit use strict?

Was möchtest Du, das ausgegeben werden soll?

Edit: Ich bin blind ... ich muss Deinen Code erstmal umrücken, um ihn zu verstehen...\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

renee

2004-08-09 16:21

User since
2003-08-04
14371 Artikel
ModeratorIn

1.) Du vergleichst Elemente der Tabelle mit ==. Oben sind aber Worte der Inhalt der Tabelle. Strings vergleicht man mit eq.
2.) Was ist in $_ ??
3.) Du hast das last; vor der print-Anweisung

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/

Crian

2004-08-09 16:32

User since
2003-08-04
5866 Artikel
ModeratorIn

Ohne wirklich zu verstehen, was Du erreichen willst und wie die Daten aussehen, hab ich diesen Code geschrieben:

(Was ist $_ bei Dir? Wie sehen die Daten aus?)

Code: (dl )

#!/usr/bin/perl
use strict;
use warnings;

my @data = <DATA>;
my @t;
push @t, [ split /\s+/, $_ ] for @data;

my $limit = 17;
my %p;

$_ = 9;

for my $s (0..$#t) {
    for my $z (0..$#{$t[$s]}) {
        if (
            $t[$s][$z] == $_     or
            $t[$s][$z] <  $limit
           )
        {
            last;
        }
        elsif ($t[$s][$z] >= $limit) {
            if ($t[0][$z] != $t[$s][0]) {
                $p{$t[0][$z]} = $t[$s][0];
            }
            else {
                print "gleiches Wort";
                last;
            }
        }
    }
}

while (my ($schl,$wert) = each(%p)) {
    print "Der Wert von $schl ist $wert!\n";
}


_ _ D A T A _ _
0 10 20 30
10 1 2 3
20 2 3 4
30 3 4 5

Ausgabe: Der Wert von 0 ist 30!

Nutzt das was?\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite