Dotaz: vyhladavanie

[rimskij]

Zdravim, ako by ste vyhladavali adresar v strome, v ktorom je viac ako 100 suborov nejakej pripony?

tzn. najdi adresar, v ktorom je viac ako 100 suborov typu *.jpg

---

---

Odpovědi

[jekub]

find, ls, wc

[RM]

Perl umí globbing <*.jpg> stejně jako shell. Stačí mu tedy cpát na vstup adresáře (v proměnné $_), které bude expandovat a ukládat do anonymního pole @{[ ]}. Pole ve skalárním kontextu vrací velikost, která musí být > 100, aby se tiskl název adresáře:

find ~/Documents/ -type d -print0 | perl -0ne 'chomp; print "$_\n" if @{[<$_/*.jpg>]} > 100'

[RM]

Ještě chybí uvozovky <"$_/*.jpg">, bez kterých názvy adresářů s mezerou neprojdou.

[RM]

Oops, špatně umístěno?. Příště to bude lepší.

[wamba]

Třeba takhle:

find /usr/share -type d|perl6 -ne '.say if .IO.dir( test => *.ends-with( ".jpg" ) ) > 100'

[2017]

Teda obdivuju lidi, co se umí takhle dřít s grepem. AWK je mi milejší pro tyhle účely (a navíc perl neumím )

[wamba]

grep? Já zase než abych se dřel s AWK, tak je mi milejší Perl

[rimskij]

Možná takhle. Najít obrázky, zjistit pomocí dirname jejich adresáře, seřadit je a spočítat výskyty. Případně samozřejmě je možný to nějakou podmínkou nechat vypsat podle počtu (hned mě napadlo to udělat grepem )

find -name "*.php" -exec dirname {} \; | sort | uniq -c

[2017]

samozřejmě si změň koncovku, nemám na serveru moc obrázků

[rimskij]

Dakujem, velmi pekne, mate moj obdiv

[Peter Golis]

Len smutne podotknem že vyučujúci čo dávajú tento typ úloh na cviká sa tu zvyknú veľa krát mihnúť.

[jekub]

smutnější je, jak se každý snaží vyfiknout s hotovým řešením domácí úlohy

[RM]

Pro vyučujícího znalého Perlu nebude problém jednou otázkou prověřit, tvořil-li výraz autor opravdu sám, nebo jej někde obšlehl. Nevidím v tom tedy žádnej problém. Rozhodně lepší být v odpovědích přesnej, než napsat blbost typu 'find,ls,wc'.

[k3dAR]

souhlasim, az na konec... sice ja take radeji radim konkretne, nez obecne, ale rozhodne to nepovazuju za blbost, pokud tazatel nevim ceho se chytit (nechavam stranou zda je pro soukromej ci ukolovej ucel), tak kdyz mu nekdo napise ktere nastroje k tomu lze pouzit ma se ceho chytit a staci "jen" zjistit (z "man nastroj", z internetu, ...) jak je pouzit, zkombinovat...

[RM]

Já si hlavně nedokážu představit dobré řešení s použití wc; to ls mi tam také nesedí. Když už, tak by šlo použít find | awk. Find s -printf '%h\n' bude tisknout názvy adresářů (zde uvedené volání dirname u GNU je zbytečné a pomalé) a ten awk bude počítat pomocí asociativního pole a při stovce vytiskne název adresáře. To je pak ještě o něco kratší než výraz s Perlem. Takže z mého pohledu, pokud mi autor nevysvětlí jak to myslel, je to 'find,ls,wc' blbost. Jinak souhlasím.

[rimskij]

Zdravim,

myslim, ze akykolvek ucitel, je jedno, ci to je na strednej alebo vysokej, okamzite zisti, ci to ma z vlastnej hlavy, alebo nie. Staci jedna, dobre mierena otazka. Ak to ten ucitel nespravi, tak treba nadavat na oboch, nielen na leniveho studenta. Ja uz mam hodne davno po vysokej, skor sa snazim podobne veci pochopit. A uprimne: nejde mi to. I preto dakujem za kazdu radu a verte, nepytam sa po 3 minutach hladania odpovede.

Pekny vecer

[k3dAR]

ze neni ls potreba, nebo ze wc neni idealni, neznamena ze by to neslo, urcite to jde i hur treba:

find . -type d -exec sh -c '[ "$(ls "{}" | grep -i .jpg |wc -l)" -gt 100 ] && echo {}' \;