abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
AbcLinuxu hledá autory!
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×
dnes 13:22 | IT novinky

Samsung oznámil, že program Linux on DeX končí. Android 10 už nebude podporován. Linux on DeX umožňuje spouštět linuxový desktop a aplikace z vybraných telefonů od Samsungu připojených pomocí Samsung DeX.

Ladislav Hagara | Komentářů: 3
dnes 12:00 | Komunita

Ubuntu slaví 15 let od vydání první verze. Přesně před patnácti lety, 20. října 2004, byla vydána první verze 4.10 s kódovým názvem Warty Warthog.

Ladislav Hagara | Komentářů: 0
včera 20:20 | Pozvánky

Ve středu 23. října 2019 se od 16.00 koná akce na téma Oracle Labs - Live for the Code. Představí projekty Oracle Labs, na kterých se pracuje i v České republice: Oracle Labs Data Studio a GraalVM. Místo konání: budova Oracle v Praze–Jinonicích. Vstup po registraci zdarma. Občerstvení zajištěno.

Ladislav Dobiáš | Komentářů: 0
18.10. 09:44 | Upozornění

Byly zveřejněny videozáznamy přednášek z konference LinuxDays 2019, která proběhla 5. a 6. října v Praze. Odkazy na videa společně s prezentacemi naleznete v programu, případně můžete jít rovnou na stránku video. Záznamy pořizovalo Audiovizuální centrum SiliconHill.

Petr Krčmář | Komentářů: 18
17.10. 18:55 | Nová verze

Bylo vydáno OpenBSD 6.6. Opět bez oficiální písně. Z novinek lze zmínit například sysupgrade(8).

Ladislav Hagara | Komentářů: 5
17.10. 08:36 | Nová verze

Vyšla nová verze monitorovacího řešení Centreon 19.10.0. Novinek je spousta (realtime API, podpora JIRA, vylepšený systém notifikací...), ale těmi nejdůležitějšími je pro mnohé uživatele podpora nové verze rrdtool 1.7.x a php 7.2. Systém tak půjde bez problémů provozovat na jiných distribucích než CentOS 7. Kompletní přehled novinek v seznamu změn. Předpřipravená appliance i samotné části jsou k dispozici na oficiálních stránkách.

Max | Komentářů: 0
17.10. 01:00 | Komunita

Dnes vyjde Ubuntu 19.10 s kódovým názvem Eoan Ermine. Přehled novinek v poznámkách k vydání. Ubuntu 20.04 LTS bude Focal Fossa.

Ladislav Hagara | Komentářů: 14
16.10. 22:11 | Zajímavý projekt

Padesátiny Unixu lze oslavit také hrou The Unix Game aneb na unixové roury pomocí Scratche.

Ladislav Hagara | Komentářů: 2
16.10. 21:44 | Komunita

Vývojáři svobodného 3D softwaru Blender oznámili, že nejnovějším firemním sponzorem Blenderu je společnost Adidas. Jedná se o úroveň Corporate Silver, tj. 12 tisíc eur ročně.

Ladislav Hagara | Komentářů: 37
16.10. 18:22 | Komunita

V září proběhla každoroční konference Akademy komunity KDE. Nyní jsou záznamy přednášek dostupné online. Témata se dotýkají aplikací a knihoven KDE, jejich adaptaci pro různá speciální použití (vestavěná zařízení či rozšířená realita) i obecně vývoje a distribuce softwaru.

Fluttershy, yay! | Komentářů: 0
Kdy jste naposledy viděli počítač s připojeným běžícím CRT monitorem?
 (20%)
 (4%)
 (11%)
 (39%)
 (24%)
 (2%)
Celkem 435 hlasů
 Komentářů: 23, poslední dnes 18:52
Rozcestník

www.AutoDoc.Cz

Dotaz: vyhladavanie

7.1.2018 16:25 rimskij | skóre: 4
vyhladavanie
Přečteno: 366×
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


Řešení dotazu:


Odpovědi

7.1.2018 16:35 jekub
Rozbalit Rozbalit vše Re: vyhladavanie
find, ls, wc
8.1.2018 15:43 RM
Rozbalit Rozbalit vše Re: vyhladavanie
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'
8.1.2018 16:29 RM
Rozbalit Rozbalit vše Re: vyhladavanie
Ještě chybí uvozovky <"$_/*.jpg">, bez kterých názvy adresářů s mezerou neprojdou.
8.1.2018 15:54 RM
Rozbalit Rozbalit vše Re: vyhladavanie
Oops, špatně umístěno?. Příště to bude lepší.
wamba avatar 7.1.2018 21:42 wamba | skóre: 38 | blog: wamba
Rozbalit Rozbalit vše Re: vyhladavanie
Třeba takhle:
find /usr/share -type d|perl6 -ne '.say if .IO.dir( test => *.ends-with( ".jpg" ) ) > 100'
This would have been so hard to fix when you don't know that there is in fact an easy fix.
8.1.2018 13:48 2017
Rozbalit Rozbalit vše Re: vyhladavanie
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 avatar 8.1.2018 18:02 wamba | skóre: 38 | blog: wamba
Rozbalit Rozbalit vše Re: vyhladavanie
grep? Já zase než abych se dřel s AWK, tak je mi milejší Perl :-)
This would have been so hard to fix when you don't know that there is in fact an easy fix.
Řešení 1× (rimskij (tazatel))
8.1.2018 13:47 2017
Rozbalit Rozbalit vše Re: vyhladavanie
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 :-D )

find -name "*.php" -exec dirname {} \; | sort | uniq -c
8.1.2018 13:49 2017
Rozbalit Rozbalit vše Re: vyhladavanie
samozřejmě si změň koncovku, nemám na serveru moc obrázků :-)
8.1.2018 15:40 rimskij | skóre: 4
Rozbalit Rozbalit vše Re: vyhladavanie
Dakujem, velmi pekne, mate moj obdiv
8.1.2018 18:57 Peter Golis | skóre: 58 | Bratislava
Rozbalit Rozbalit vše Re: vyhladavanie
Len smutne podotknem že vyučujúci čo dávajú tento typ úloh na cviká sa tu zvyknú veľa krát mihnúť.
8.1.2018 19:29 jekub
Rozbalit Rozbalit vše Re: vyhladavanie
smutnější je, jak se každý snaží vyfiknout s hotovým řešením domácí úlohy
8.1.2018 20:15 RM
Rozbalit Rozbalit vše Re: vyhladavanie
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 avatar 8.1.2018 21:30 k3dAR | skóre: 56
Rozbalit Rozbalit vše Re: vyhladavanie
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...
porad nemam telo, ale uz mam hlavu... nobody
8.1.2018 22:36 RM
Rozbalit Rozbalit vše Re: vyhladavanie
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.
9.1.2018 00:21 rimskij | skóre: 4
Rozbalit Rozbalit vše Re: vyhladavanie
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 avatar 9.1.2018 02:03 k3dAR | skóre: 56
Rozbalit Rozbalit vše Re: vyhladavanie
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 {}' \;
porad nemam telo, ale uz mam hlavu... nobody

Založit nové vláknoNahoru

Tiskni Sdílej: Linkuj Jaggni to Vybrali.sme.sk Google Del.icio.us Facebook

ISSN 1214-1267   www.czech-server.cz
© 1999-2015 Nitemedia s. r. o. Všechna práva vyhrazena.