[perl]jaka struktura danych

[mariusz198787]

Witam!

Do pliku chcę zapisywać np. 3 wartości: imię, nazwisko, pesel. Czy istnieje w perlu takie coś jak struktury aby móc stworzyć tablicę struktur, która ułatwiłaby usuwanie elementów czy chociaż modyfikację?

[leon1313]

Istnieje . Poczytaj o referencjach.

Kod: Zaznacz cały

%oceny = (
    'Agnieszka' => {
        'polski' => 4,
        'angielski' => 5,
        'matematyka' => 3,
    },
    'Wojtek' => {
        'polski' => 3,
        'angielski' => 5,
        'matematyka' => 6,
    },
);

Moge podać więcej przykładów, ale jak znajde moja knigę
http://perldoc.perl.org/perldsc.html

[mariusz198787]

ok, dziękuje

[jaroslawtorun]

Witam wszystki mam mala prosbe jezeli ktos wie jak mi pomoc to z gory dziekuje pisze wlasnie skrypt zreszta moj pierwszy w perlu i mam nastepujacy problem:

$default_uid = system ('cat /etc/passwd | tail -n 1 | cut -d: -f 3');
$default_uid = $default_uid +1,
print "Podaj uid uzytkownika [$default_uid]\n";

pierwsza linika ma znalesc ostatnio uzywany uid druga dodac do niego 1 a trzecia wyswietlic
niestety nie dziala to

[otokan]

Po pierwsze: co to znaczy nie działa? nie kompiluje się, nie uruchamia? daje zły wynik?

Po drugie: funkcja system zwraca kod zwrócony przez polecenie (liczbę), a nie to co polecenie wypisze na ekran (stdout).

Zapewne chciałbyś użyć:

$default_uid = `cat ...`;

A tak w ogóle to najlepiej użyć funkcji getpwent a nie otwierać pliki ( dane użytkowników nie muszą siedzieć w passwd a np. w nisie lub ldapie)

[jaroslawtorun]

system('cat /etc/passwd | tail -n 1 | cut -d: -f 4 > /home/defaultgid');
open (PLIK1, "/home/defaultgid");
$default_gid = <PLIK1>;
close PLIK1;
$default_gid = $default_gid +1;
print "Podaj gid uzytkownika [$default_gid]\n";
chomp($gid = <STDIN>);
if ($uid eq '') {
$default_gid = $default_gid;
} else {
$default_gid = $gid;
}
Udalo mi sie to wczoraj zrobic chodzi tutaj o skrypt dla uzytkownikow narazie lokalnych. W kazdym razie dziekuje wszystkim za pomoc