Linux Software

Perl (32) - Jiné typy souborů

V posledním díle o práci se soubory naleznete mimo jiné čtení z adresářů a ukázku rekurze.

28.4.2006 09:00 | Jiří Václavík | read 25940×

DISCUSSION

Mimo textových souborů, kterými jsme se zabývali v předchozích dílech, existují jiné. Nejdůležitější z nich jsou adresáře, na něž přichází řada právě dnes. Později se v tomto seriálu objeví i další typ souboru, kterým je socket.

Symbolické a tvrdé odkazy

Funkce link (tvrdý odkaz) a symlink (symbolický odkaz) fungují podobně jako unixovský příkaz ln. Obě funkce přijímají jako 1. argument soubor, na který se bude odkazovat a 2. argument jako název odkazu.


symlink("soubor", "odkaz") or die "Odkaz nebyl vytvořen: $!";

Relativní cestu skutečného umístění souboru po zadání odkazu vrací funkce readlink.


print readlink "odkaz";

Binární soubory

Pro práci s binárními daty je třeba použít na ovladač funkci binmode, která ho přepne na binární režim. Poté už s ovladačem můžeme normálně pracovat.


binmode OVLADAC;

Adresáře

S adresáři se stejně jako u ostatních typů souborů pracuje prostřednictvím ovladačů. Opět je nutné adresář nejdříve otevřít. K tomu slouží funkce opendir, jejíž syntaxe se podobá funkci open. Čtení z adresáře provede funkce readdir a zavření closedir. readdir vrací v seznamovém kontextu seznam souborů a ve skalárním kontextu vrátí s každým voláním jednu položku adresáře. Následující kód vypisuje obsah kořenové složky a využívá seznamový kontext.


$, = ", ";

opendir(DIR, "/");

print readdir(DIR);

closedir DIR;

Zkusíme napsat program, který vypíše všechny soubory ze zadaného adresáře a určí zda se jedná o obyčejný soubor, adresář, symbolický odkaz nebo ještě něco jiného.


my $dir;

print "Zadej adresář, jehož strukturu chceš vytisknout: ";

chomp ($dir = <STDIN>);



opendir(DIR, "$dir") or die "Nepodařilo se otevřít $dir: $!";



while (my $pol = readdir DIR){

    if (-f  $dir."/".$pol){

        print "F ";

    }elsif(-d $dir."/".$pol){

        print "D ";

    }elsif(-l  $dir."/".$pol){

        print "L ";

    }else{

        print "X ";

    }



    print "$pol\n"
}



closedir DIR;

Nyní tento příklad ještě o něco vylepšíme. V případě, že bude soubor adresářem, vypíšeme i jeho obsah. Obsahem budou soubory, které vždy odsadíme o příslušný počet pomlček podle toho, jak hluboko jsme aktuálně v zanoření. To je mimo jiné i typická ukázka rekurze.

Napíšeme tedy podprogram, který bude vypisovat obsah adresáře a v případě, že nalezne podadresář, volá opět sám sebe. Jak jistě tušíte, problémy nastanou s otevíráním adresářů, u kterých na to nemáme právo. Protože jde pouze o demonstrační program, nebudeme tuto situaci řešit a v takovém případě program necháme ukončit.


my $dir;

print "Zadej adresář, jehož strukturu chceš vytisknout: ";

chomp($dir = <STDIN>);

tiskni_adresarovou_strukturu($dir);



sub tiskni_adresarovou_strukturu {

    my($dir, $prefix) = @_;

    my $fh;

    opendir($fh, $dir) or die "Nepodařilo se otevřít $dir: $!";



    while (my $pol = readdir $fh){

        next if $pol eq "." or $pol eq "..";

        if (-f  $dir."/".$pol){

            print "${prefix}F $pol\n";

        }elsif(-d $dir."/".$pol){

            print "${prefix}D $pol\n";

            tiskni_adresarovou_strukturu($dir."/".$pol, $prefix."-");

        }elsif(-l  $dir."/".$pol){

            print "${prefix}L $pol\n";

        }else{

            print "  ";

        }

    }

}

Mimo readdir existují další 3 funkce, které využívají otevřený adresář.

Funkce	Význam
seekdir(ovladač, pozice)	Nastavuje aktuální pozici v adresáři na pozici
rewinddir(ovladač)	Nastavuje pozici na začátek
telldir(ovladač)	Vrací aktuální pozici

Funkce glob

Pro výpis souborů (ať už obyčejných nebo podadresářů) z adresáře, které vyhovují danému vzoru, lze použít k tomu určenou funkci glob. Ta v seznamovém kontextu načte do pole seznam vyhovujících souborů.


@soubory = glob("*.pl"); #pole obsahuje jména souborů s příponou .pl v aktuálním adresáři

Ve skalárním kontextu vrací každé volání název dalšího vyhovujícího souboru. Následující příklad vypíše jména všech souborů v aktuálním adresáři:


while ($soubor = glob ("*")){

    print $soubor."\n";

}

Ke stejnému účelu jako funkci glob lze využít operátor <> a to následujícím způsobem.


$, = ", ";

@soubory = <*.pl>;

print @soubory;

Nicméně operátor <> se touto možností poněkud tříští a většinou se dává přednost funkci glob. Pokud vám však hodně záleží na rychlosti, použijte přednostně kombinaci opendir, readdir, closedir, která je o něco rychlejší.

Další funkce pro práci s adresáři

Funkce	Význam
mkdir(jméno, práva)	vytvoří adresář
rmdir(jméno)	smaže adresář
chdir([jméno])	změní pracovní adresář, je-li to možné. Pokud není jméno uvedeno, nastaví aktuální adresář podle $HOME

Následující program bude vypisovat obsah zadaných adresářů, dokud budou zadávány. Každou iteraci cyklu bude změněn funkcí chdir aktuální adresář.


$, = " --- ";

print "Adresář: ";

while (<STDIN>){

    if ($_ eq "\n"){exit;}

    chomp;

    print glob("*"), "\n\n" if (chdir $_);

    print "Adresář: ";

}

Příští díl se bude věnovat možnostem formátování výstupu.

DISCUSSION

For this item is no comments.

Add comment is possible for logged registered users.

Search Software

Search Google

Latest aktual Distributions

1.	Pacman linux Download: 5536x
2.	FreeBSD Download: 9750x
3.	PCLinuxOS-2010 Download: 9239x
4.	alcolix Download: 11717x
5.	Onebase Linux Download: 10402x
6.	Novell Linux Desktop Download: 0x
7.	KateOS Download: 6909x

Latest aktual Software

1.	xinetd Download: 3036x
2.	RDGS Download: 937x
3.	spkg Download: 5939x
4.	LinPacker Download: 11133x
5.	VFU File Manager Download: 3750x
6.	LeftHand Mała Księgowość Download: 7987x
7.	MISU pyFotoResize Download: 3462x
8.	Lefthand CRM Download: 4247x
9.	MetadataExtractor Download: 0x
10.	RCP100 Download: 3762x
11.	Predaj softveru Download: 0x
12.	MSH Free Autoresponder Download: 0x

linuxsoft.cz | Design: www.megadesign.cz