🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Thread View: pl.comp.lang.perl
2 messages
2 total messages Started by Marcin Sperka Mon, 30 Jun 1997 05:39
odczyt plikow z katalogu
#409
Author: Marcin Sperka
Date: Mon, 30 Jun 1997 05:39
15 lines
1022 bytes
Mam maly problem z odczytem wszystkich plikow z danego podkatalogu. Czy
mozna w prosty sposob sprawdzic wybrany podkatalog ...\costam\costam\ i
wykonac procedure dla wszystkich plikow z rozszerzeniem .txt? Nie wiem
jakie nazwy moga miec poszczegolne pliki. Dodatkowo potrzebna jest
informacja o nazwie kazdego "przerabianego" pliku do celow
statystycznych. 


Dzieki za wszelkie sugestie
-- 
Marcin Sperka
KAMSOFT
Katowice
POLAND
mailto:marcins@kamsoft.com.pl
Re: odczyt plikow z katalogu
#410
Author: Piotr Manturzyk
Date: Mon, 30 Jun 1997 08:39
34 lines
1843 bytes
Marcin Sperka wrote:
> 
> Mam maly problem z odczytem wszystkich plikow z danego podkatalogu. Czy
> mozna w prosty sposob sprawdzic wybrany podkatalog ...\costam\costam\ i
> wykonac procedure dla wszystkich plikow z rozszerzeniem .txt? Nie wiem
> jakie nazwy moga miec poszczegolne pliki. Dodatkowo potrzebna jest
> informacja o nazwie kazdego "przerabianego" pliku do celow
> statystycznych.
---8><---
opendir KATALOG,"sciezka/do/katalogu";
@katalog=<KATALOG>;
closedir KATALOG;

for $plik(@katalog){
  next unless -f $plik;  #pomijasz katalogi, linki, dewajsy ...
  $liczba_plikow++;      #zliczasz tylko zwykle pliki
  if (-T $plik) {
    next unless $plik=~/txt$/i; #odrzucasz pliki nie zakonczone
                                #na txt,TXT,TxT,tXt,TXt.....
    $liczba_interesujacych_plikow++;
  }
}
---8><---
tylko jedno musisz wybadac sam: czy poszczegolne nazwy plikow sa
zakonczone  znakiem "\n" czy nie. jesli tak, to daj 'chop' zaraz za
'for', ale jestem prawie na pewno przekonany, ze nie treba.

gandalf

-- 
 _________                    _________
|          DC Piotr Manturzyk          |
| mailto:manturzyk@chemie.uni-halle.de |
|____ University of Halle, Germany ____|
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads