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 16:22 | Zajímavý článek

Nadace Raspberry Pi vydala knihu s názvem Get Started With Arduino. Elektronická kniha je ke stažení zdarma (pdf). Tištěnou verzi lze koupit za 10 liber.

Ladislav Hagara | Komentářů: 0
dnes 13:22 | IT novinky

Společnost Slimbook prodávající notebooky s nainstalovaným Linuxem, viz například KDE Slimbook, dnes představila svůj nový notebook PRO X 15. Cena notebooku je od 1 199 eur a porovnáván je s notebooky Apple MacBook PRO 16 nebo Dell XPS 15 2019.

Ladislav Hagara | Komentářů: 4
včera 15:44 | Nová verze

Byla vydána nová major verze open source komunikačního softwaru Jami (Wikipedie, GitLab). Její název je Free as in Freedom. Dřívější názvy projektu Jami byly SFLphone a následně Ring.

Ladislav Hagara | Komentářů: 0
včera 00:33 | Zajímavý projekt

Společnost MNT Research má v plánu na Crowd Supply spustit kampaň na podporu open source notebooku MNT Reform. Vývoj notebooku lze sledovat na Mastodonu.

Ladislav Hagara | Komentářů: 16
včera 00:11 | Zajímavý software

Chcete si zahrát víceuživatelský tetris v terminálu? Stačí spustit ssh netris.rocketnine.space. Na straně serveru běží netris. Zdrojové kódy v programovacím jazyce Go jsou k dispozici pod licencí GPLv3.

Ladislav Hagara | Komentářů: 0
19.11. 19:44 | Nová verze

Po čtyřech měsících vývoje od vydání verze 4.10 byla vydána nová verze 4.11 svobodné náhrady proprietárních BIOSů a UEFI coreboot (Wikipedie). Na vývoji se podílelo 130 vývojářů. Provedli 1630 změn. Přidána byla podpora pro 25 mainboardů.

Ladislav Hagara | Komentářů: 0
19.11. 16:22 | Nová verze

Byla vydána verze 1.6.0 emulátoru terminálu Terminology (GitHub) postaveného nad EFL (Enlightenment Foundation Libraries). Přehled novinek v poznámkách k vydání.

Ladislav Hagara | Komentářů: 0
19.11. 14:22 | Komunita

Vydání verze 1.0 svobodného multiplatformního vektorového grafického editoru Inkscape se blíží. Registrovaní uživatelé mají možnost hlasovat o obrázku, který bude zobrazován v okně O Inkscapu. Vybírá se ze 124 návrhů.

Ladislav Hagara | Komentářů: 10
19.11. 10:55 | Nová verze

Byl aktualizován seznam 500 nejvýkonnějších superpočítačů na světě TOP500. V první desítce se nic nezměnilo. Nejvýkonnějším superpočítačem zůstává superpočítač Summit. Nejvíce superpočítačů v TOP500 má Čína (228). Český superpočítač Salomon klesl na 375. místo. Další přehledy a statistiky na stránkách projektu. V aktuálním žebříčku GREEN500 (GFlops/watts) superpočítač Summit klesl na 5. místo.

Ladislav Hagara | Komentářů: 3
19.11. 02:00 | Zajímavý článek

V novém příspěvku na blogu Purismu se můžete dočíst, jak pokračoval vývoj softwaru Librem 5 v říjnu. Vývojáři optimalizovali linuxové jádro a ovladače pro snížení spotřeby telefonu. Mezi další změny patří lepší integrace mezi aplikacemi pomocí knihovny libfolks, byly přidány nové funkce klávesnice, nastavení, shellu, kompozitoru a opraveno plno chyb.

okias | Komentářů: 4
Jaké hodinky nosíte (nejčastěji)?
 (24%)
 (5%)
 (16%)
 (55%)
Celkem 288 hlasů
 Komentářů: 30, poslední dnes 14:48
Rozcestník

www.AutoDoc.Cz

Dotaz: Perl-převod na velké písmena

20.6. 07:35 Petr70
Perl-převod na velké písmena
Přečteno: 291×
Zdravím všechny, potřeboval bych samozřejmě pomoc. Mám větší množství záloh v adresáři a podadresářích typu zaloha-r01.zip, zaloha-r02.zip atd, potřeboval bych kvůli čitelnosti přejmenovat tyto zálohy hromadně na velké písmena, takto ZALOHA-R01.zip, ZALOHA-R02.zip . Bohužel se mně to hromadně nedaří. :(

Tento příkaz přejmenuje správně pouze v aktuálním adresáři
perl -e 's/\.[^\.]*$/rename $_, uc($`) . $&/e for @ARGV' *.zip
Ve scriptu bash už nefunguje.
find /mnt/sdb/dilna -maxdepth 5   -name *r*.zip  | while read smycka 
do
find /mnt/sdb/dilna -maxdepth 5   -name *r*.zip  | head -n 1  | perl -e 's/\.[^\.]*$/rename $_, uc($`) . $&/e for @ARGV' *.zip
done
echo "konec velkých písmen"

Toto přejmenuje vše na velké písmena, včetně koncovky .zip což nechci.
perl -nle 'rename $_, uc'
ale ve scriptu mně to stejně nejde, jenom v terminálu viz
find  /mnt/sdb/dilna  -maxdepth 5   -name *r*.zip  | head -n 1  | perl -nle 'rename $_, uc'

Doufám že jsem to napsal správně a moc děkuji odborníkům za pomoc, bohužel perl neznám a bash málo.

Odpovědi

20.6. 11:18 sad
Rozbalit Rozbalit vše Re: Perl-převod na velké písmena
Shell ani Perl moc neumím, nicméně v Ruby to přejmenování jde udělat docela snadno, ale pro jistotu si udělej zálohu.
require 'find'

mydir = "/home/petr70/zalohazalohy"

Find.find(mydir) do |path|
  unless File.directory? path
    dir, f = File.split(path)    
    fa = f.split(".")	
    File.rename(path, dir+"/"+fa[0].upcase+"."+fa[1])
  end
end 
20.6. 12:24 uf
Rozbalit Rozbalit vše Re: Perl-převod na velké písmena

Možná třeba tak:

find * -type f | rename 's/([^\/]*)((z|Z)(i|I)(p|P))$/\U\1\L\2/'

Ale radši si to někde nejdřív vyzkoušej a nezapomeň si před tím udělat zálohu.

20.6. 12:27 uf
Rozbalit Rozbalit vše Re: Perl-převod na velké písmena
Čitelnější ...:
find * -type f | rename 's/([^\/]*)((z|Z)(i|I)(p|P))$/\U\1\L\2/'
20.6. 12:32 uf
Rozbalit Rozbalit vše Re: Perl-převod na velké písmena
Jo a - pusť to v adresáři, kde ti začínají ty soubory, nebo doplň cestu do findu místo "*"!
23.6. 15:26 Petr70
Rozbalit Rozbalit vše Re: Perl-převod na velké písmena
Děkuji.

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.