Tworzenie katalogow.perl.foreach.

**riczard_nikson** · 01-19-2007

Witam!
Pomocy!

Mój problem:

foreach my $matka (sort keys %syn) {

open(PLIK,">$matka.html");
print PLIK "<html><body>$matka:\n\n$syn{$matka}\n<body></html>";
close(PLIK);
}
Chce dodać do tego jeszcze cos takiego zeby.

Tworzyly sie katalogi takie jak wartości $matka, wtedy wrzuce sobie $syn do danego katalogu, katalogu matka.
Problem w tym, że nie wiem jak stworzyć te katalogi.
Czy na początku, czy w każdym kroku pętli, katalogów będzie dużo więc to musi byc jakojś dynamicznie.
Z góry dziękuję za pomoc.
Pozdrawiam
Riczard Nikson

**TQM** · 01-19-2007

Zakladam ze uzywasz srodowiska *NIX'owego a nie Windows (roznice minimalne ale pod winda nie sprawdze teraz).

foreach my $matka (keys %syn) {
mkdir($matka, 0755) if (! -d $matka);
open(PLIK,"> $matka/$matka.html");
print PLIK "<html><body>$matka: $syn <body> </html>";
close(PLIK);
}

Dodana linia sprawdza najpierw czy katalog juz istnieje - jesli nie to go tworzy z prawami 0755 (---rwxr-xr-x) - skad to zero i po co na poczatku to polecam 'man umask'

Co do pytania czy na poczatku stworzyc czy w petli... ja proponuje w petli chyba ze sa jakies inne przeslanki aby robic to wczesniej...

Usunalem z deklaracji petli wywolanie 'sort' bo i tak nic ono nie daje - w tej petli nie ma zadnego znaczenia w jakiej kolejnosci katalogi i pliki beda tworzone - tak czy inaczej zostana stworzone dla wszystkich elementow hash'a wiec wywolanie 'sort keys' nie ma sensu...

Poza tym w plikach HTML polecam stosowac raczej a nie \n

Temat: Tworzenie katalogow.perl.foreach.

Narzędzia wątku

Display

Tworzenie katalogow.perl.foreach.

Podobne wątki

tworzenie ramki sieciowej

Perl - zamiast hashu wyświelta mi 00000000000

Problem z Petla Perl

Zasady Postowania

Subskrybuj