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 08:00 | Nová verze

Google Chrome 88 byl prohlášen za stabilní (YouTube). Nejnovější stabilní verze 88.0.4324.96 přináší řadu oprav a vylepšení. Vylepšeny byly také nástroje pro vývojáře (YouTube). Opraveno bylo 36 bezpečnostních chyb. Nálezci nejvážnější z nich (CVE-2021-21117) bylo vyplaceno 30 000 dolarů.

Ladislav Hagara | Komentářů: 0
dnes 07:00 | Nová verze

Byla vydána nová verze 4.4.2 svobodného programu pro skicování, malování a úpravu obrázků Krita (Wikipedie). Přehled novinek i s náhledy v poznámkách k vydání.

Ladislav Hagara | Komentářů: 0
včera 14:33 | Komunita

Vedle Hectora "marcan" Martina a Asahi Linuxu portují Linux na Apple Silicon aneb na počítače Apple s novým ARM procesorem M1 také lidé ze společnosti Corellium. V sobotu se na Twitteru pochlubili bootováním Linuxu na M1. Dnes zveřejnili zdrojové kódy (Preloader-M1 a Linux-M1).

Ladislav Hagara | Komentářů: 25
včera 11:33 | Bezpečnostní upozornění

CSIRT.CZ upozorňuje na kritické zranitelnosti v Orbit Fox pluginu pro WordPress. Správci CMS WordPress, kteří mají nainstalované rozšíření Orbit Fox, by měli provést co nejdříve upgrade rozšíření na poslední verzi 2.10.3. Dvě nedávno nalezené zranitelnosti, stored XSS a možnost eskalace oprávnění, umožňují útočníkovi kompletní ovládnutí webové stránky.

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

bladeRF-wiphy je open source IEEE 802.11 / Wi-Fi kompatibilní SDR VHDL modem pro bladeRF 2.0 micro xA9. Zdrojové kódy jsou k dispozici na GitHubu pod licencí GPLv2.

Ladislav Hagara | Komentářů: 0
včera 09:11 | Bezpečnostní upozornění

V sobotu brzo ráno někdo naboural administrátorský účet diskusního fóra OpenWrt a odcizil citlivá data uživatelů (emailové adresy, API klíče, statistiky, ...).

Ladislav Hagara | Komentářů: 1
včera 08:00 | Nová verze

Byla vydána verze 1.9.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ářů: 3
18.1. 23:33 | Nová verze

Byla vydána nová verze 3.0.12 multiplatformního multimediálního přehrávače VLC (Wikipedie). Jedná se o minor verzi mimo jiné vylepšující podporu Bluray, DASH a RIST. Řešena je také bezpečnostní chyba CVE-2020-26664.

Ladislav Hagara | Komentářů: 3
18.1. 22:55 | Zajímavý článek

Murilo Pereira v obsáhlém textu Jak otevřít soubor v Emacsu nejprve zkoumá Emacs jako prostředí pro vývoj na vzdáleném serveru, a pak se dostává k úvahám nad filosofií textových editorů, jejich vývojem a vůbec rozhraními člověk-počítač. Některé kapitoly také zveřejnil samostatně: např. Hodnoty Emacsu, revoluce Neovimu a gorila VSCode.

Fluttershy, yay! | Komentářů: 7
18.1. 16:11 | Komunita

Konference InstallFest 2021 proběhne online o víkendu 6. a 7.března 2021. Vyhlášeno bylo CFP. Přihlásit přednášku nebo workshop lze do 2. února 2021.

Ladislav Hagara | Komentářů: 1
Jestliže používáte distribuci CentOS, kterou náhradu plánujete vzhledem k oznámenému ukončení vydávání?
 (29%)
 (2%)
 (2%)
 (23%)
 (0%)
 (2%)
 (41%)
Celkem 167 hlasů
 Komentářů: 3, poslední 10.1. 13:01
Rozcestník

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

20.6.2019 07:35 Petr70
Perl-převod na velké písmena
Přečteno: 326×
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.2019 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.2019 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.2019 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.2019 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.2019 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.