🚀 go-pugleaf

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 ____|