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 18:22 | IT novinky

    T-Mobile od 15. září zpřístupňuje RCS (Rich Communication Services) zprávy i pro iPhone.

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

    Společnost ARM představila platformu Arm Lumex s Arm C1 CPU Cluster a Arm Mali G1-Ultra GPU pro vlajkové chytré telefony a počítače nové generace.

    Ladislav Hagara | Komentářů: 0
    dnes 05:44 | Nová verze

    Unicode Consortium, nezisková organizace koordinující rozvoj standardu Unicode, oznámila vydání Unicode 17.0. Přidáno bylo 4 803 nových znaků. Celkově jich je 159 801. Přibylo 7 nových Emoji.

    Ladislav Hagara | Komentářů: 0
    včera 21:00 | IT novinky Ladislav Hagara | Komentářů: 9
    včera 18:33 | Nová verze

    Realtimová strategie Warzone 2100 (Wikipedie) byla vydána ve verzi 4.6.0. Podrobný přehled novinek, změn a oprav v ChangeLogu na GitHubu. Nejnovější verzi Warzone 2100 lze již instalovat také ze Snapcraftu a Flathubu.

    Ladislav Hagara | Komentářů: 1
    včera 12:22 | IT novinky

    Polské vývojářské studio CD Projekt Red publikovalo na Printables.com 3D modely z počítačové hry Cyberpunk 2077.

    Ladislav Hagara | Komentářů: 1
    včera 11:44 | Pozvánky

    Organizátoři konference LinuxDays 2025 vydali program a zároveň otevřeli registrace. Akce se uskuteční 4. a 5. října na FIT ČVUT v pražských Dejvicích, kde vás čekají přednášky, workshopy, stánky a spousta šikovných lidí. Vstup na akci je zdarma.

    Petr Krčmář | Komentářů: 7
    8.9. 22:00 | IT novinky

    Uživatelé komunikátoru Signal si mohou svá data přímo v Signalu bezpečně zálohovat a v případě rozbití nebo ztráty telefonu následně na novém telefonu obnovit. Zálohování posledních 45 dnů je zdarma. Nad 45 dnů je zpoplatněno částkou 1,99 dolaru měsíčně.

    Ladislav Hagara | Komentářů: 0
    8.9. 18:44 | Zajímavý článek

    Server Groklaw, zaměřený na kauzy jako právní spory SCO týkající se Linuxu, skončil před 12 lety, resp. doména stále existuje, ale web obsahuje spam propagující hazardní hry. LWN.net proto v úvodníku připomíná důležitost zachovávání komunitních zdrojů a upozorňuje, že Internet Archive je také jen jeden.

    🇵🇸 | Komentářů: 22
    8.9. 14:22 | Nová verze

    Jakub Vrána vydal Adminer ve verzi 5.4.0: "Delší dobu se v Admineru neobjevila žádná závažná chyba, tak jsem nemusel vydávat novou verzi, až počet změn hodně nabobtnal."

    Ladislav Hagara | Komentářů: 4
    Pro otevření více webových stránek ve webovém prohlížečí používám
     (83%)
     (7%)
     (2%)
     (3%)
     (4%)
     (2%)
    Celkem 160 hlasů
     Komentářů: 12, poslední dnes 13:00
    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: 400×
    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.