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
Author: Marcin Sperka
Date: Mon, 30 Jun 1997 05:39
Date: Mon, 30 Jun 1997 05:39
15 lines
1022 bytes
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
Author: Piotr Manturzyk
Date: Mon, 30 Jun 1997 08:39
Date: Mon, 30 Jun 1997 08:39
34 lines
1843 bytes
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