Pokaż wyniki 1 do 2 z 2

Temat: Tworzenie katalogow.perl.foreach.

  1. Question Tworzenie katalogow.perl.foreach.

    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
    Ostatnio edytowane przez riczard_nikson : 01-18-2007 - 23:11 Powód: błąd składni.

  2. #2
    Zarejestrowany
    Jun 2006
    Skąd
    rand(.eu)
    Postów
    8,748

    Domyślnie

    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:<BR><BR>$syn<BR><BR><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 <BR> a nie \n

Podobne wątki

  1. tworzenie ramki sieciowej
    By violina in forum TCP/IP/Analiza/Badanie
    Odpowiedzi: 1
    Autor: 12-04-2006, 06:52
  2. Perl - zamiast hashu wyświelta mi 00000000000
    By TexPac in forum Perl/Python/TCL/Prolog
    Odpowiedzi: 4
    Autor: 07-25-2006, 17:30
  3. Problem z Petla Perl
    By szpuni in forum Perl/Python/TCL/Prolog
    Odpowiedzi: 11
    Autor: 07-03-2006, 15:23

Zasady Postowania

  • Nie możesz zakładać nowych tematów
  • Nie możesz pisać wiadomości
  • Nie możesz dodawać załączników
  • Nie możesz edytować swoich postów
  •  
Subskrybuj