Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Re: help problemino con perl
11 views
Skip to first unread message
Dacav
Jan 28, 2012, 8:50:22 AM1/28/12
to
On Sat, 28 Jan 2012 05:02:12 -0800 (PST)
Vip <fabioma...@gmail.com> wrote:
> Devo scrivere una funzione in perl che mi dia come risultato o vero o
> falso. La funzione deve controllare che dentro una directory ci sia un
> solo file, se ce n'è uno solo la funzione mi restituisce come
> risultato "vero", in tutti gli altri casi "falso".
>
> Esiste qualche comando in perl che mi và a controllare se una
> determinata cartella è vuota o c'è qualcosa?
Si, ma smettila di postare lo stesso messaggio.
sub test_dir {
my @files = `ls $_[0]`;
return @files == 1;
}
--
Giovanni [dacav] Simoni
<giovann...@roundhousecode.com>
<simgi...@gmail.com>
Vip <fabioma...@gmail.com> wrote:
> Devo scrivere una funzione in perl che mi dia come risultato o vero o
> falso. La funzione deve controllare che dentro una directory ci sia un
> solo file, se ce n'è uno solo la funzione mi restituisce come
> risultato "vero", in tutti gli altri casi "falso".
>
> Esiste qualche comando in perl che mi và a controllare se una
> determinata cartella è vuota o c'è qualcosa?
Si, ma smettila di postare lo stesso messaggio.
sub test_dir {
my @files = `ls $_[0]`;
return @files == 1;
}
--
Giovanni [dacav] Simoni
<giovann...@roundhousecode.com>
<simgi...@gmail.com>
Stefano Rodighiero
Feb 16, 2012, 3:33:41 PM2/16/12
to
Dacav <simgi...@nospam.gmail.com> wrote:
> sub test_dir {
> my @files = `ls $_[0]`;
> return @files == 1;
> }
Questo metodo funziona ma è inefficiente, dovendo lanciare
> sub test_dir {
> my @files = `ls $_[0]`;
> return @files == 1;
> }
un processo esterno. Meglio usare i file test, la cui
documentazione si può leggere in «perldoc -f -X»
s.
--
Stefano Rodighiero | http://www.stefanorodighiero.net
mailto:lar...@perl.it | Italian Perl Mongers: http://www.perl.it
0 new messages