[Perl]wczytywanie liczb do tablicy

Mam plik.txt z danymi odzielonymi przecinkami:
12,34,56
23,4,5
12,3,4
123,1,1

Chcialbym wczytac te dane do tablicy, tak aby moc sie odwloywac do odpowiedniego elementu, np. chce wyciagnac trzeci element z drugiego wiersza, czyli 5.

Wczytalam dane z pliku i podzielilam je wg przecinka:

Kod:

---

open (K, 'plik.txt'); while (<K>) {
  $line = $_;
  @d = split(',',$line);
  push(@date,@d);
}
  close(K);

  print @date;

---

Niestety nie wiem co dalej mam zrobic, by uzyskac moj zaplanowany cel.
tzn nie wiem jak sie odwolac do tej tablicy. Czy moge prosic o jakies wskazowki?

Troche poprawilam swoj kod.

Kod:

---

open (K, 'plik.txt'); while (<K>) {
  chomp;
  $line = $_;
  @d = split(',',$line);
  push @date,\@d;
}
  close(K);

  print @date;
  print $date[0]->[2];

---

Kod ten powoduje, ze mam wyswietlony trzeci element z ostatniego wiersza.

Co w tym kodzie mam zle? Dlaczego nie wyswietla mi elementu z drugiego wiersza i trzeciej kolumny?

Do debugowania kodu jesli nie jestes pewna jak wygladaja Twoje dane, swietnie spisuje sie takie cos...

Kod:

---

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

---

teraz mozesz zobaczyc jak wygladaja tablice, hashe i jedno zapakowane w drugie przez referencje... bez tego modulu zginalbym wiele razy a tak chwila, jeden print i juz wiem co jest co.

Kod:

---

print Dumper \$data[0];

---

Juz wiesz jak wyglada pierwszy wiersz - powinna byc tablica :D

BTW, uzycie referencji tak jak to robisz uzyskujac tablice tablic, to jest podstawa w dalszym obiektowym programowaniu w Perlu - to tak jak pointer w C. Zalety sa ogromne:
1. nie kopiujesz danych przekazujac je do funkcji jako parametry tylko przekazujesz wskaznik odwolujacy sie do oryginalnej zmiennej
2. mozesz przekazywac zmienne o innym zakresie leksykalnym, ktore normalnie nie istnialyby w tym segmencie kodu - przekazywanie wartosci normlanie i zbieranie wynikow byloby bardzo trudne w wiekszym projekcie i podatne na wystapienie glupich bledow (wiem bo sam sie na to nie raz zlapalem)
3. uzywajac modulow ktore uzywaja zapisu obiektowego, Twoje obiekty nie sa niczym innym jak referencje

nie martw sie tym co napisalem wyzej - wazne jest to ze idziesz w dobrym kierunku a do tych 3 elementow dojdziesz sama we wlasnym czasie

[QUOTE=TQM;62239]Do debugowania kodu jesli nie jestes pewna jak wygladaja Twoje dane, swietnie spisuje sie takie cos...

Kod:

---

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

---

Wielkie dzieki za te info. ;]

Teraz wiem w czym tkwi problem. Mianowicie do kazdej tablicy jest wczytywany oststni wiersz.
Tylko nie wiem dlaczego...

Moze widzisz dlaczego tak sie dzieje i gdzie jest moj blad w rozumowaniu?

To nie blad w rozumowaniu :-)

Kod wyglada ok ale nie dziala. Moge jedynie zgadywac, ze chodzi o to, ze odkladasz do @date referencje do globalnej zmiennej @d, globalnej i deklarowanej wewnatrz petli... jak teraz przepiszesz wartosc zmiennej wczytujac nastepny wiersz, to zmieniasz to co juz odlozylas do @date :-)

Piszac w perlu warto dodac dwa moduly, strict i warnings. Strict nie pozwoli na takie luzne deklarowanie zmiennych, trzeba je zadeklarowac uzywajac my, our albo local. Generalnie pomaga to w sledzeniu zasiegu zmiennych i znajdywaniu literowek w kodzie, bo program od razu poda ze uzywasz nieznanej zmiennej. Uzycie warnings dodatkowo daje informacje o tym, ze np zmienna ktorej uzywasz jest undef, czyli logika skryptu bedzie wariowac bo szukasz wartosci aby wstawic do zmiennej, wszystko wyglada dobrze a skrypt nie dziala... bo zmienna jest undef bo albo dane byly nieprawidlowe albo regex zle zapisany albo cos innego. Warnings ostrzega tez, jesli w ramach jednego bloku {} ponownie deklarujesz zmienna o tej samej nazwie.

Ogolnie aby pisac w Perlu i nie popelniac bledow warto od poczatku zapamietac:

Kod:

---

use strict;
use warnings;

---

Kazdy moj skrypt od tego sie zaczyna, no chyba ze jest to 1-linijkowiec odpalany prosto z wiersza polecen :-) W kazdym innym wypadku mam te dwa moduly.

Poprawiona wersja kodu wyglada tak:

Kod:

---

#!usr/bin/perl
use Data::Dumper;
use strict;
use warnings;

my @date;
open (K, 'plik.txt');
while (<K>) {
  chomp;
  my @d = split(/,/);
  push @date,\@d;
}
close(K);
print Dumper \@date;

---

a wynik dzialania taki:

Kod:

---

$VAR1 = [
          [
            '12',
            '34',
            '56'
          ],
          [
            '23',
            '4',
            '5'
          ],
          [
            '12',
            '3',
            '4'
          ],
          [
            '123',
            '1',
            '1'
          ]
        ];

---

Swietnie! Bardzo dziekuje za pomoc, juz jest jakis progress :D

Dzialam dalej i nasunelo mi sie jescze jedno pytanie.

Mam dwa pliki z danymi:
plik1.txt
4,11,23,1
5,33,44,2
6,44,55,2

plik2.txt

1,23,4
2,334,43
3,44,5
4,55,6
5,33,4

Porownuje pierwsze wyrazy z pliku i jesli sa takie same, wrzucam do tablicy.
Daze do tego by otrzymac plik3.txt w nastepujacej postaci:
4,11,23,1,4,55,6
5,33,44,2,5,33,4

stworzylam taki kod:

Kod:

---

my @tab;
 for (my $i=0; $i<=$#date; ++$i){
  if ($date[$i]->[0] = $date2[$i]->[0]){
    my @b = ($date[$i],$date2[$i]);
    push @tab, \@b;
#    push @tab,\@date2[$i];
    }
  }

 print $tab[0]->[1][2];

---

Moje pytanie brzmi:
jak poprawnie powinnam sie odwolywac do tablicy @tab?
Jak widac probowalam to uczynic w nastepujacy sosob:

Kod:

---

print $tab[0]->[1][1]

---

Ale niestety nie jest to poprawne.

Czy w tej kwestii moglabym rowniez liczyc na wskazowke?

Ok, chyba rozumiem o co chodzi choc nie wynika to z opisu a raczej z kodu :)

Zacznijmy od poczatku:

Kod:

---

if ($date[$i]->[0] = $date2[$i]->[0]){

---

Przypisujesz wartosc zamiast sprawdzac czy sa sobie rowne, powinno byc ==

Generalnie potrzebujesz przejsc w petli przez kazdy z elementow @date i dla kazdego z nich sprawdzic kazdy z @date2 - jesli pierwszy element list sie zgadza, wyswietlasz obie listy razm w 1 linii.

Kod:

---

for (my $d1=0; $d1<=$#date; $d1++) {
  for (my $d2=0; $d2<=$#date2; $d2++) {
    if ($date[$d1]->[0] == $date2[$d2]->[0]) {
      # sklejmy obie listy i wyswietlmy - lista zlozona z list to jednowymiarowa lista
      # robimy dereferencje list tablic, nawiasy klamrowe sa dla czytelnosci
      my @tmp = (@{$date[$d1]}, @{$date[$d2]});
      print join ',', @tmp . "\n";
    }
  }
}

---

mniej wiecej tak, pisane w glowie i nie sprawdzalem czy dziala :)
Dereferencje skalara robisz jako $$ref, tablicy jako @$ref albo @{$ref} dla czytelnosci, itd. Jesli robisz tak to musisz wartosc przypisac gdzies indziej, do innej zmiennej.

Kod:

---

sub costam {
  my $hashref = shift;
  my %hash = %$hashref;
  print $hash{klucz};
}
costam(\%jakishash);

---

albo dokladnie to samo zapisane inaczej

Kod:

---

sub costam {
  my $hashref = shift;
  print $hashref->{klucz};
}
costam(\%jakishash);

---

Cytat:

---

Napisał TQM

Ok, chyba rozumiem o co chodzi choc nie wynika to z opisu a raczej z kodu :)

Zacznijmy od poczatku:

Kod:

---

if ($date[$i]->[0] = $date2[$i]->[0]){

---

Przypisujesz wartosc zamiast sprawdzac czy sa sobie rowne, powinno byc ==

---

Ok, a gdy bedziemy porownywac wartosci z kolumn, gdy sa w postaci daty, np:
kolumna z 1 pliku:
11:26:11
11:26:12
11:26:13
......

kolumna z 2 pliku:

11:26:09.126
11:26:10.126
11:26:11.126
11:26:12.126
....

Niestety przy warunku == mam wyrzucany blad:
Use of uninitialized value in numeric eq (==) at.

Probowalam rowniez zamiast == zastosowac eq, ale rowniez lipa. Dziala tylko dla stringow.

Chcialabym zapytac, jak moge z tego wybrnac.

Cytat:

---

Napisał Gosik

Ok, a gdy bedziemy porownywac wartosci z kolumn, gdy sa w postaci daty, np:
kolumna z 1 pliku:
11:26:11
11:26:12
11:26:13
......

kolumna z 2 pliku:

11:26:09.126
11:26:10.126
11:26:11.126
11:26:12.126
....

Niestety przy warunku == mam wyrzucany blad:
Use of uninitialized value in numeric eq (==) at.

Probowalam rowniez zamiast == zastosowac eq, ale rowniez lipa. Dziala tylko dla stringow.

Chcialabym zapytac, jak moge z tego wybrnac.

---

Troche pokombinowalam.
Stworzylam 2 funkcje do daty (ze wzgledu na fakt, ze maja troche inna postac):

Kod:

---

sub my_format {
    $_[0] =~ /(\d\d):(\d\d):(\d\d)/; 
    return "$1:$2:$3";   
}
 
sub my_format2 {
    $_[0] =~/(\d\d):(\d\d):(\d\d).(\d\d\d)/;
    return "$1:$2:$3";
}



for (my $i=0; $i<=$#date; $i++) {
  for (my $j=0; $j<=$#date2; $j++) {
    if (my_format($date[$i]->[0]) == my_format2($date2[$j]->[0])) {
      # sklejmy obie listy i wyswietlmy - lista zlozona z list to jednowymiarowa lista
      # robimy dereferencje list tablic, nawiasy klamrowe sa dla czytelnosci
      my @tmp = (@{$date[$i]}, @{$date[$j]});
      print join ',', @tmp . "\n";
    }
  }
}

---

No i niestety jeszcz wyskakuje problem z porownaniem == :
Argument "11:26:11" isn't numeric in numeric eq (==) at

Sorry, nie czytam kodu bo blad jest gdzie indziej.

== dziala dla liczb
eq dziala dla stringow

... ale Twoje pliki nie maja identycznych linii, bo jedno ma hh:mm:ss a drugie ma hh:mm:ss.nnn, wiec nie mozna ich porownac w zaden sposob bo na 10000% nie beda sobie rowne :-)

Co potrzebujesz to wyrazenie regularne, czyli ze linia z drugiego pliku musi zaczynac sie od linii z pierwszego. w skrocie:

Kod:

---

if ($druga =~ /^$pierwsza/) { print "Dopasowanie OK\n" };

---

Cytat:

---

Napisał TQM

Sorry, nie czytam kodu bo blad jest gdzie indziej.

== dziala dla liczb
eq dziala dla stringow

... ale Twoje pliki nie maja identycznych linii, bo jedno ma hh:mm:ss a drugie ma hh:mm:ss.nnn, wiec nie mozna ich porownac w zaden sposob bo na 10000% nie beda sobie rowne :-)

Co potrzebujesz to wyrazenie regularne, czyli ze linia z drugiego pliku musi zaczynac sie od linii z pierwszego. w skrocie:
^

Kod:

---

if ($druga =~ /^$pierwsza/) { print "Dopasowanie OK\n" };

---

---

Czy w takiej sytuacji potrzebuje jesze funkcji, ktora bedzie zmieniala wartosc na posatc daty?

zastosowalam wyrazenie regularne, ktore powyzej napisales:

Kod:

---

if ($date[$i]->[0] =~/^$date2[$j]->[1]/)

---

ale wyskakuje blad:
Use of uninitialized value in pattern match

Czy w ogole w wyrazeniu regularnym moge zastosowac referencje? hmmm

Mozesz, oczywiscie, tak dlugo jak dlugo zmienna ma sens.
Regex'y pomagaja i to w wielu sytuacjach - to bedzie jeden z nich :D

Wybacz ze pojde na calosc ale najszybsze rozwiazanie (bardziej zlozone) jest takie:

Kod:

---

# zawartosc plikow wczytana do tablic jednowymiarowych - wiersz pliku = wiersz tabeli
chomp(@date1 = <PLIK1>);
chomp(@date2 = <PLIK2>);

#*dla kazdego elementu w @date1 znajdzmy pasujace wiersze w @date2
map {
  my @pasujace = grep(/^$_/, @date2);
  foreach my $pasuje (@pasujace) {
    print "$_,$pasuje\n";
  }
} @date1;

---

map{} to odpowiednik petli foreach, grep() pozwala wybrac elementy z tablicy jesli spelniaja warunek - calosc w manualu

Czyli mam rozumiec, ze czegos takiego nie moge zrobic?

Kod:

---

if ($date[$i]->[0] =~/^$date2[$j]->[1]/)

---

Dobra. W ten sposob mi nie wychodzi zadanie, wiec probuje w inny.

Wczytuje kolumny z danymi do tablic i kolejno pierwsza kolumne (te z godzinami) dziele wg ':'

Kod:

---

my @tab1;
my @tab2;
my @time;
open(K, 'plik2.txt');
while (<K>) {
    chomp $_;
    my $w = $_;
    my @div = split(' ', $w);
    push ( @tab1, $div[0]);
    push ( @tab2, $div[1]);
       
    for (my $i=1; $i<=$#tab1; ++$i){
    @podz = split(':',$tab1[$i]);
    push (@time, @podz);
    }
}

close(K);

---

Teraz mam pytanie jak zrobic, gdy tab1 jest postaci
12:01:11
12:01:12
12:01:13

By tablica time byla postaci:
120111
120112
120113

Uzylam funkcji join:

Kod:

---

print join '' , @time, "\n";

---

ale wartosci wyswietlane sa w jednej linni, tzn. bez przejscia do nowego wiersza.

Cytat:

---

Napisał Gosik

Dobra. W ten sposob mi nie wychodzi zadanie, wiec probuje w inny.

Teraz mam pytanie jak zrobic, gdy tab1 jest postaci
12:01:11
12:01:12
12:01:13

By tablica time byla postaci:
120111
120112
120113

Uzylam funkcji join:

Kod:

---

print join '' , @time, "\n";

---

ale wartosci wyswietlane sa w jednej linni, tzn. bez przejscia do nowego wiersza.

---

Ok. ten problem udalo mi sie rozwiazac.

Teraz wrocialam to Twojego rozwiazania!

Kod:

---

#*dla kazdego elementu w @date1 znajdzmy pasujace wiersze w @date2
map {
    my @pasujace = grep(/^$_/, @date2);
  foreach my $pasuje (@pasujace) {
    open (PLIK,'>>plik.txt');
    print PLIK "$pasuje\n";
    close PLIK;
  }
} @date1;

---

NIe wiem dlaczego, ale po zainplementowaniu tego koldu, wyswietla mi tylko wszystkie elementy @date2.

Czyli

Dobra. Dalej kombinuje:

Kod:

---

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

my @date1;
my @date2;
open (K, 'plik1.txt'); while (<K>) {
open (P, 'plik2.txt'); while (<P>) {

chomp(@date1 = <K>);
chomp(@date2 = <P>);

 }
}

close(K);
close(P);

my @pasuje;

  foreach (@date1) {
  @pasuje = grep(/^$_/, @date2);
  }
  print @pasuje;

---

Czy ktos z Was moze mi wyjasnic dlaczego moj kod nie porownuje wierszy tablicy date1 i date2, lecz wyswietla wszystkie elementy tablicy date2?

Plik1 ma postac:
13:26:10
13:26:11
13:26:12
13:26:13
13:26:14
13:26:15
13:26:20

Natomiast plik2:
13:26:07.1
13:26:08.1
13:26:09.1
13:26:10.1
13:26:11.1
13:26:12.1
13:26:13.1
13:26:14.1
13:26:15.1
13:26:16.1

Bede bardzo wdzieczna za pomoc!

Nie dzialal dlatego ze ciagle w petli nadpisujesz @pasuje a wyswietlasz awrtosc na samym koncu po zakonczeniu petli wiec jesli ostatni wiersz nie pasuje to masz pusta tablice do wyswietlenia.

Zamien @pasuje = grep(/^$_/, @date2); na push @pasuje, grep(/^$_/, @date2); i powinno chodzic

Cytat:

---

Napisał TQM

Nie dzialal dlatego ze ciagle w petli nadpisujesz @pasuje a wyswietlasz awrtosc na samym koncu po zakonczeniu petli wiec jesli ostatni wiersz nie pasuje to masz pusta tablice do wyswietlenia.

Zamien @pasuje = grep(/^$_/, @date2); na push @pasuje, grep(/^$_/, @date2); i powinno chodzic

---

Tez tak probowalam, ale lipa.

Mam wrazenie, ze nic nie jest podstawiane, za S_

Teraz mam taki efekt:
13:26:08.1 13:26:09.1 13:26:10.1 13:26:11.1 13:26:12.1 13:26:13.1 13:26:14.1 13:26:15.1 13:26:16.1 13:26:17.1 13:26:08.1 13:26:09.1 13:26:10.1 , itd

Czyli wyswietlana jest cala tablica date2, tyle razy ile jest wierszy w date1.

ok, juz doszlam do tego dlaczego tak sie dzieje!

Petla foreach powinna wygladac nastepujaco:

Kod:

---

foreach my $date (@date1){
        push @match, grep (/^$date/, @date2);
}

---

Jednakże grep nie uwzględnia faktu, iż w @date2 są godziny podane z kropką, tzn.: 13:26:07.1.
W związku z tym nic nie jest wyświetlane.

Czy jest jakiś sposób, by z tego wybrnąć?

Nie rozumiem na prawde w czym problem - zobacz co robi regex. Podalas ze chcesz dopasowac linie, nie ze chcesz usunac ulamki sekundy.

Zadanie udalo mi sie zakonczyc! :)
Bardzo dziekuje za pomoc w tym watku!

Wybacz ale nie mam czasu teraz sie w to zaglebic :-(