Dotaz: Výpis počtu souborů v adresáři pomocí Perlu

[Petr]

Dobrý den, chtěl jsem se zeptat na následující:

mám na serveru jenž má jméno D2 - linux adresář /kolo/motorky a dálepak na stejném serveru adresář /kolo/auta. Prosím najde se někdo kdo by napsal v perlu programek jenž zjisti v těchto adresářích počet souborů ne dohromady ale pro každý adresář zvlášť

Děkuji moc .

Odpovědi

[Marek]

ještě jsem zapoměl uvést že přihlešovací údaje na tento server jsou username: marek a heslo: aaa.

[houska]

Marku, Petre, Hynku, Vileme, Jarmilo, Ance, Kubo, Hajnej ... nebo jak se jmenujes
co pouzit vyhledavani?
zadal jsem do googlu "perl pocet souboru" a nhed to na me vybaflo serial o perlu na linuxsoftu, a tam jsem nasel jednu hezkou funkci ...
..jak je psano ve ctyrlistku: "Chytremu napovez a hloupe ctenare nemame."

[Roman Vasicek]

Nejak nechapu proc to musi byt v Perlu. Neslo by pouzit napriklad tohle? Jen to heslo si budes muset zadat rucne, nebo pouzij klic.

ssh marek@D2 'echo motorky; find /kolo/motorky -type f | wc -l; echo auta; find /kolo/auta -type f | wc -l'

[houska]

... a kdyz uz se chces prihlasovat pres ssh tak nepouzivej heslo a prihlasuj se klicem

[cedrik]

na pocet souboru v adresari lze pouzit tohle. Ne rikam ze je to dokonale, ale na vic jsem linej. Ve $i mas pocet souboru bez adresaru. Pripada mi to nejak moc slozite, asi najdes nekde elegantnejsi reseni.

$i = 0;
foreach (<*>)
{
	$i++ if ( ! -d)
}

[happy barney]

print scalar grep {!-d}  <*>;

[Hynek (Pichi) Vychodil]

Proč tolik zbytečných znaků?

print scalar grep!-d,<*>;

Jen tak vtipkuji

[happy barney]

hmm, tak keď už chce niekto vtipkovať, napíše

print 0+grep-f <*>;

[happy barney]

môže dať iný výsledok, záleží na poňatí pojmu súbor

[Hynek (Pichi) Vychodil]

Nojo, ale co takhle kdyby sis to vyzkoušel?

$ perl -le 'print 0+grep-f <*>;'
Not enough arguments for grep at -e line 1, near "<*>;"
Execution of -e aborted due to compilation errors.
$ perl -le 'print 0+grep-f,<*>;'
303

[happy barney]

priznávam sa k nechuti používat cut-n-paste, ospravedňujem sa za chybu a ďakujem za odhalenie chyby pri opisovaní

samozrejme, že som si to najprv vyskúšal, s čiarkou