Výběr textu z pojmenování souboru v bashi

[peto3223]

Dobry den

Potreboval by som pomoct ako vybrat urcity text z pomenovania suboru. Priklad pomenovanie suboru vyzera

Kód [Vybrat] Rozbalit

@nieco #miami #moscow #turkey #italiangirl #polishgirl #ibiza#2#nitra #ny#zilina #dutchgirl #latob #ostrava #s.jpg

a potreboval by som to premenovat aby subor ostal vzdy pomenovany len @nieco zvysku textu a koncovky jpg . Dufam ze ma chapete vedeli by ste mi poradit ?

Dakujem

[Reklama]

[fedorac]

mozna tohle pomuze ?
http://stackoverflow.com/questions/965053/extract-filename-and-extension-in-bash

[gll]

pokud ty soubory obsahují mezery, tak je bezpečnější to nedělat v bashi

Kód [Vybrat] Rozbalit


ls -1 *jpg | perl -ne 'chomp; $old = $_; s/\s.*/.jpg/; rename($old, $_);'


[gll]

nebo takto

Kód [Vybrat] Rozbalit


perl -e 'while(<*jpg>){$old = $_; s/\s.*/.jpg/; rename($old, $_);}'


[peto3223]

pokud ty soubory obsahují mezery, tak je bezpečnější to nedělat v bashi

Kód [Vybrat] Rozbalit


ls -1 *jpg | perl -ne 'chomp; $old = $_; s/\s.*/.jpg/; rename($old, $_);'


funguje to len by som potreboval ze v niektorych textoch mam aj pridane pred @ nieco taketo 🔥 ,💥 ,❤ vedel by si mi stym poradit ? dakujem

[Reklama]

[gll]

pokud ty soubory obsahují mezery, tak je bezpečnější to nedělat v bashi

Kód [Vybrat] Rozbalit


ls -1 *jpg | perl -ne 'chomp; $old = $_; s/\s.*/.jpg/; rename($old, $_);'


funguje to len by som potreboval ze v niektorych textoch mam aj pridane pred @ nieco taketo 🔥 ,💥 ,❤ vedel by si mi stym poradit ? dakujem

na 99% si vymýšlíš, ale jestli to opravdu potřebuješ tak

Kód [Vybrat] Rozbalit


perl -e 'while(<*jpg>){$old = $_; s/^[^@]*//; s/\s.*/.jpg/; rename($old, $_);}'


[peto3223]

pokud ty soubory obsahují mezery, tak je bezpečnější to nedělat v bashi

Kód [Vybrat] Rozbalit


ls -1 *jpg | perl -ne 'chomp; $old = $_; s/\s.*/.jpg/; rename($old, $_);'


funguje to len by som potreboval ze v niektorych textoch mam aj pridane pred @ nieco taketo 🔥 ,💥 ,❤ vedel by si mi stym poradit ? dakujem

na 99% si vymýšlíš, ale jestli to opravdu potřebuješ tak

Kód [Vybrat] Rozbalit


perl -e 'while(<*jpg>){$old = $_; s/^[^@]*//; s/\s.*/.jpg/; rename($old, $_);}'


Velmi pekne dakujem

[nobody65534]

Vím, že je to už vyřešeno, ale nemůžu si odpustit pure bash řešení

Kód [Vybrat] Rozbalit

ls | while read a; do b="${a%% *}"; c="${a##*.}"; mv -- "${a}" "${b}.${c}";done