🚀 go-pugleaf

Krzysztof Osiecki wrote:
> 
> cześć
> 
> mam taki kłopocik (bo na problem to za proste)
> 
> chciałbym mieć coś na kształt rekordu powiedzmy takiego:
> 
> ( nazwa => "jakiś string"
>   wersja => "1.00a"
>   ok => "y" )
> 
> i mieć tablicę takich rekordów, oraz możliwość dokładania do tej tablicy
> nowych. możliwość sortowania mile widziana. czytam dokumentację i czytam, ale
> nadal nie za bardzo mam wyobrażenie jak to zrobić, więc proszę o poradę.
> 
>         Krzysztof.

Tworzysz tablice rekordow @rekordy i dodajesz do niej referencje do
poszczegolnych rekordow:

$rekordref = { "nazwa" => "jakis string", "wersja" => "1.00a", "ok" =>
"y" };
push @rekordy, $rekordref;
....
foreach $rekordref (@rekordy)
{
	print "Nazwa: ", $rekordref->"nazwa", "\n";
}

Mariusz Krukowski (kruk@it.pl) wrote:
: foreach $rekordref (@rekordy)
: {
: 	print "Nazwa: ", $rekordref->"nazwa", "\n";
: }

Tu jest maly blad. Powinno byc: $rekordref->{"nazwa"} ew. $rekordref->{nazwa}

Krzysztof Osiecki <krzycho@amba.matrix.com.pl> wrote:

: chciałbym mieć coś na kształt rekordu powiedzmy takiego:

: ( nazwa => "jakiś string"
:   wersja => "1.00a"
:   ok => "y" )

: i mieć tablicę takich rekordów, oraz możliwość dokładania do tej tablicy
: nowych. możliwość sortowania mile widziana. czytam dokumentację i czytam, ale
: nadal nie za bardzo mam wyobrażenie jak to zrobić, więc proszę o poradę.

Poczytaj sobie man perldsc:

     perldsc - Perl Data Structures Cookbook

     There are separate sections on each of the following:
        o arrays of arrays
        o hashes of arrays
        o arrays of hashes
        o hashes of hashes
        o more elaborate constructs

A ogólnie, to czego potrzebujesz będzie wyglądać mniej więcej tak:

$dane = [ { nazwa => "zzz", wersja => "1.00", ok => "y" },
          { nazwa => "yyy", wersja => "1.01", ok => "y" },
          { nazwa => "xxx", wersja => "0.99", ok => "n" }  ];

push @$dane, { nazwa => "aaa", wersja => "2.01", ok => "y" };

print $dane->[1]{nazwa};
print $dane->[0]{wersja};

# Sortowanie po nazwie:

foreach $rekord ( sort { $a->{nazwa} cmp $b->{nazwa} } @$dane ) {
  print join( " - ", ( $rekord->{nazwa}, $rekord->{wersja}, $rekord->{ok} ) );
  print "\n";
}

P.S. Jeżeli nie wiesz nic na temat referencji, to najpierw radzę 
     poczytać man perlref 

-- 
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND

Piotr Auksztulewicz wrote:
> 
> Mariusz Krukowski (kruk@it.pl) wrote:
> : foreach $rekordref (@rekordy)
> : {
> :       print "Nazwa: ", $rekordref->"nazwa", "\n";
> : }
> 
> Tu jest maly blad. Powinno byc: $rekordref->{"nazwa"} ew. $rekordref->{nazwa}

Racja, Sorry.

dzięki :)

	Krzysztof.