Massnamnbyte på filer i given mapp med undermappar [LÖST]

[Johnny Rosenberg]

Har en massa filer med versaler i sina filändelser och vill ändra alla dessa till gemener utan att filnamnen i övrigt påverkas. Har inte lyckats få till det på något vettigt sätt. Ett misslyckat försök ledde till att samtliga tecken blev gemener, alltså inte bara filändelsen…

[ZX Spectrum]

Programmet metamorphose fixar ditt problem:

http://file-folder-ren.sourceforge.net/ ... ?page=Main

Du får upp flikarna Väljare|Huvud|Numrering|Datum och tid|Fel/varningar i programmet.

Det enda som behövs för att ändra filändelsen till gemener är Väljare och Huvud.
Välj mapp där dina filer ligger med Väljare och gå sen till Huvud-fliken.

Bocka ur "Namn" och bocka sen i "Filtyp". Fortsätt sen med att bocka i "Sök" och sen "modifiera". Till höger om modifiera kan man välja versaler eller gemener.
Genom att ändra här så kan man lätt se hur resultatet blir längst ner i programmet.

[ubot]

Jag slänger ihop ett bash-skript snabbt som fixar biffen. Vad säger ni om det här:

Kod: Markera allt

#!/bin/bash
dir=$(echo "$1" | sed 's/\/ *$//')
ls -1 $dir > files.txt
while read file; do
file_extension=$(echo "$file" | grep -o "\.[^\.]*$" | tr '[:upper:]' '[:lower:]')
file_name=$(echo "$file" | sed 's/\.[^\.]*$//')
cp $dir/$file $dir/$file_name$file_extension
done < files.txt

Där $1 är sökvägen till filerna, t.ex: ./script.sh "/home/username/files/"

[dmz]

Kod: Markera allt

prename 's/(.+\.)(.+)$/$1\L$2/g' */*

[Substrata]

Som vanligt när dmz har varit framme så behövs det inte sägas så mycket mer. Möjligen (i bash)

Kod: Markera allt

shopt -s extglob
prename 's/(.+\.)(.+)$/$1\L$2/g' **/*

så att underkataloger gås igenom rekursivt.

Vad säger ni om det här:

Kod: Markera allt

#!/bin/bash
dir=$(echo "$1" | sed 's/\/ *$//')
ls -1 $dir > files.txt
while read file; do
file_extension=$(echo "$file" | grep -o "\.[^\.]*$" | tr '[:upper:]' '[:lower:]')
file_name=$(echo "$file" | sed 's/\.[^\.]*$//')
cp $dir/$file $dir/$file_name$file_extension
done < files.txt

Använd mktemp(1) för att skapa temporära filer. Här behöver du inte ta det steget eftersom ls | while ... fungerar, eller för den delen for n in *; do .... Om du vill kan du lösa åtminstone delar av substitueringen direkt i bash, till exempel ${1/%\//} för att skippa en eventuell sista /; se Parameter Expansion i manualen.

[dmz]

Jag funderade också på vad /** kallades. Relativt nytt (Bash4?).
Jag brukar föredra att använda find direkt, men i vissa fall kan det ju vara användbart, som här.

[ubot]

Se där. Jag slängde bara ihop ett bash-skript i all hast. dmz lösning ser ju smidig ut.

[Johnny Rosenberg]

Tack för alla svar!

Som vanligt när dmz har varit framme så behövs det inte sägas så mycket mer. Möjligen (i bash)

Kod: Markera allt

shopt -s extglob
prename 's/(.+\.)(.+)$/$1\L$2/g' **/*

så att underkataloger gås igenom rekursivt.

Har aldrig sett shopt förut så jag testade man shopt men det finns ingen manualsida för shopt, tydligen. Märkligt, för jag hittade en på nätet…

Och där står det:

extglob – If set, the extended pattern matching features described above are enabled.

Visserligen är jag mer intresserad av att spela gitarr än att fåna mig med datorer, men jag fattar faktiskt inte vad som menas med detta. Kan någon förklara för en hjärndöd gamling?

När jag skriver man prename får jag upp hjälp om rename som jag använt ett antal gånger och det verkar ju vara samma sak som prename. Vad är annars skillnaden (i Ubuntu) på rename och prename? Båda verkar ju acceptera perl-uttryck.

's/(.+\.)(.+)$/$1\L$2/g'

Detta ser ju lite rörigt ut för en hjärndöd stackare som jag, så jag tror jag behöver en liten förklaring… Förstår ju att ”s” står för ”substitute” men sedan är det mesta gissningar:
(.+\.) – Ett eller flera valfria tecken följt av en punkt?
(.+) – Ett eller flera valfria tecken?
$ – Ovanstående ska vara i slutet på textsträngen?
$1 – Resultatet av ”(.+\.)” ovan?
\L – Lower case? I så fall, är upper case \U?
$2 – Resultatet av ”(.+)” ovan?
g – Ja, vad betyder detta egentligen?

Vad är det för skillnad på ”**/*” och på ”*/*”? Båda verkar vara sökvägen där namnbytena ska äga rum och jag kan då tänka mig att ”*/*” betyder ”här och i alla undermappar” eller liknande, men vad betyder då ”**/*”?
Om mina antaganden är riktiga, skulle följande uttryck säkerställa att alla filnamn i aktuellt mapp med undermappar har inledande versal?

Kod: Markera allt

prename 's/(.^)(.+)/\U$1$2/g' **/*

Eller är jag ute och cyklar som vanligt? Om inte, så borde följande säkerställa inledande versal och filändelser i gemener, eller hur?

Kod: Markera allt

prename 's/(.^)(.+\.)(.+)/\U$1$2\L$3/g' **/*

[Johnny Rosenberg]

Programmet metamorphose fixar ditt problem

Kanske, fast nu fanns det ju en anledning till att jag ställde frågan i terminalforumet…


Klarar ovanstående program att byta namn rekursivt, förresten? Brukar använda GPRename annars och den bryr sig inte om innehållet i några undermappar, vad jag vet.

[dmz]

extglob – If set, the extended pattern matching features described above are enabled.

./* matchar allt i nuvarande katalog. ./** matchar allt i nuvarande katalog
rekursivt. Dvs, som -r-flaggan till många applikationer, när en katalog
påträffas så stiger vi in i den också och utför den operation som skall ske.

När jag skriver man prename får jag upp hjälp om rename som jag använt ett antal gånger och det verkar ju vara samma sak som prename. Vad är annars skillnaden (i Ubuntu) på rename och prename? Båda verkar ju acceptera perl-uttryck.

rename tillhör util-linux-ng, prename tillhör Perl. I vissa
distributioner har man insett att rename är värdelöst och symlinkar prename till
rename.

's/(.+\.)(.+)$/$1\L$2/g'

(.+\.) – Ett eller fler av valfritt tecken (utom \n), fram till den första
punkten. () runt uttrycket lagrar resultatet av matchningen i en capture group.
Om det matchar så lagras det i variabeln $1.

(.+) – Ett eller fler av valfritt tecken (utom \n).
$ – End of line *
$1 – Resultatet av den första grupperade matchningen
\L – Lowercase from here. \U är uppercase.
$2 – Resultat av den andra grupperade matchningen
g - Utför matchningen globalt

Om mina antaganden är riktiga, skulle följande uttryck säkerställa att alla filnamn i aktuellt mapp med undermappar har inledande versal?

Kod: Markera allt

prename 's/(.^)(.+)/\U$1$2/g' **/*

Nej, då kan du använda

Kod: Markera allt

s/^(.)(.+)/\U$1\E$2/g

Notera \E som avslutar vad \U påbörjat.

Eller är jag ute och cyklar som vanligt? Om inte, så borde följande säkerställa inledande versal och filändelser i gemener, eller hur?

Kod: Markera allt

prename 's/(.^)(.+\.)(.+)/\U$1$2\L$3/g' **/*

Nej. Det är faktiskt inte svårare än så här:

Kod: Markera allt

s/^(.)(.+)$/\U$1\E\L$2/g

Notera att du har -v (verbose) och -n (no action)-flaggorna till prename att
begagna dig av.

För att lära dig reguljära uttryck rekommenderas perldoc perlretut och
perldoc perlre.

[Johnny Rosenberg]

Nej. Det är faktiskt inte svårare än så här:

Kod: Markera allt

[/quote]
Hm… inte? Testade (med -n) och här är ett exempel på hur det fungerade:
[quote]bin/opera-widget-mastermind renamed as Bin/opera-widget-mastermind[/quote]
Inte riktigt det jag var ute efter… Notera att ”opera” fortfarande har gemen första bokstav.

Ska experimentera vidare…

[Johnny Rosenberg]

./* matchar allt i nuvarande katalog. ./** matchar allt i nuvarande katalog
rekursivt. Dvs, som -r-flaggan till många applikationer, när en katalog
påträffas så stiger vi in i den också och utför den operation som skall ske.

Okej, men varför föreslogs då ”**/*”?

[dmz]

Hm… inte? Testade (med -n) och här är ett exempel på hur det fungerade:

bin/opera-widget-mastermind renamed as Bin/opera-widget-mastermind

Inte riktigt det jag var ute efter… Notera att ”opera” fortfarande har gemen första bokstav.

Ska experimentera vidare…

Ah. Ja, om du skall göra rekursivt så får du matcha efter den sista /:

Kod: Markera allt

s;/(.)(.+);/\U$1\E\L$2;g;' */*

Det är nog enklare att skriva ett enkelt perlscript specifikt för det du vill
uppnå, alternativt använda två olika regex till prename.

[Substrata]

Dokumentation för shopt finns i manualsidan för bash. Men jag var visst slarvig, för det ska vara

Kod: Markera allt

shopt -s globstar

. Ur dokumentationen:

The special pattern characters have the following meanings:

* Matches any string, including the null string. When the globstar shell option is
enabled, and * is used in a pathname expansion context, two adjacent *s used as a sin‐
gle pattern will match all files and zero or more directories and subdirectories. If
followed by a /, two adjacent *s will match only directories and subdirectories.

Vid ett par tester så tillför inte **/* något över **. Före jag gräver ned mig av rodnad för detta misstag, så ursäktar jag mig med att **/* är syntaxen i zsh.

[Johnny Rosenberg]

Kod: Markera allt

s;/(.)(.+);/\U$1\E\L$2;g;' */*

Det är nog enklare att skriva ett enkelt perlscript specifikt för det du vill
uppnå, alternativt använda två olika regex till prename.

Exempel på resultat:

PDFStudio/DefaultSettings_fr.xml renamed as PDFStudio/Defaultsettings_fr.xml

Attans…
Men det känns ändå inte helt omöjligt… men nu orkar jag inte tänka mer på detta ikväll…

[Johnny Rosenberg]

Har nu testat följande:

Kod: Markera allt

prename -n 's;/(.)(.+);/\U$1\E$2;g;' */** > Namnbytestest

Kod: Markera allt

prename -n 's;/(.)(.+);/\U$1\E$2;g;' **/* > Namnbytestest

Kod: Markera allt

prename -n 's;/(.)(.+);/\U$1\E$2;g;' */* > Namnbytestest

Ingen av dem letar sig ner till mer en en enda undermapp. Är det jag som missuppfattat allt som vanligt? Snart ger jag upp och kombinerar prename med find…

[Substrata]

Detta fungerar i bash här, för att lista samtliga underkataloger och dess filer.

Kod: Markera allt

shopt -s globstar
echo **

Det blir dock något mer komplicerat om man vill skippa katalogerna i listningen. Exempel.

Kod: Markera allt

echo $(for n in **; do [ -f "$n" ] && echo "$n"; done)

Övergår man till find så kan det se ut så här.

Kod: Markera allt

echo $(find . -type f)

Notera dock att det blir fel när filnamnen innehåller tomrum, eftersom shellet då expanderar till flera argument. Om du har en fil som heter "a b" så sker expandering till echo "a" "b" i den senaste listningen. Ungefär här börjar min preferens för att låta shellet hitta filerna, i stället för att gå genom find. Men det finns förstås lösningar.

Kod: Markera allt

IFS=$'\n'
echo $(find . -type f)

Med sistnämnda kodstycke kan du ersätta echo med prename. Ett problem är dock att IFS (internal field separator) är satt till radbrytning och inte allmänt tomrum (som inkluderar mellanslag, tab, radbrytning), vilket skulle kunna ge ett udda beteende efteråt om du inte återställer IFS. Poängen är att det finns en del gotchas.

Ovanstående bitar gäller dock bara om man vill lägga alla filer som argument till en körning av programmet. Har man inte det behovet, som med prename, så går följande bra.

Kod: Markera allt

find . -type f -exec echo {} \;

[Johnny Rosenberg]

Ah. Ja, om du skall göra rekursivt så får du matcha efter den sista /:

Kod: Markera allt

s;/(.)(.+);/\U$1\E\L$2;g;' */*

Bara la märke till att du plötsligt skrev ”;” istället för ”/”. Antar att det var för att göra det mer lättläst, eftersom det hade blivit en hel skog av ”/” annars, men varför använder man inte alltid ”;” istället?

Har knåpat ihop ett litet skript nu i alla fall, som ska fixa lite med namnbyten av mina av misstag namnbytta filer. Funderar på om jag ska våga köra den. Visserligen har jag säkerhetskopior på berörda filer (och alla andra filer också, för den delen), men det tar ju ganska lång tid att lägga tillbaka cirka 30 GiB från en extern USB-disk.

Jag har i alla fall en fil som jag kallar Egennamn-egennamn som följer följande mall:

namn-med-gemener\tNamn-på-önskat-sätt

Några exempel direkt ur filen:

johnny Johnny
Sr SR
sr SR
Gps GPS
gps GPS
östersund Östersund

Kom förresten på att [:upper:] och [:lower:] inte funkar med å, ä och ö, så för att konvertera dessa var jag tvungen att köra ”y/abc…åäö/ABC…ÅÄÖ/” istället.

Lite jobbigt också att de reguljära uttrycken inte funkar likadant i exempelvis prename och sed och så vidare. Exempelvis verkar inte ”$1”, ”$2” och så vidare funka i sed, utan där skulle man visst ha, vad var det? ”/1” respektive ”/2” istället? Eller var det ”\1” respektive ”\2”?

Nåja, hur som helst, så ser mitt lilla skript för närvarande ut så här, och det är nu ganska oflexibelt och fyller bara sitt syfte och inget mer, om det nu fungerar över huvud taget, vill säga:

Kod: Markera allt

#!bin/bash

File="Egennamn-egennamn"
Result="Namnbytestest"
Options="-v"
MyPath="$HOME/Eget/Media/"

if [ -f "$Result" ]; then
	rm "$Result"
fi

# Inledande versal.
find "$MyPath" -type f -exec rename $Options 's;(.*/)(.)(.+);$1\U$2\E$3;g;' {} +  > "$Result"

# Inledande versal för å, ä och ö.
for x in å ä ö
do
	find "$MyPath" -type f -exec rename "$Options" 's;(.*/)$x(.+);$1\U$x\E$2;g;' {} +  >> "$Result"
done

# Versaler och gemener i egennamn enligt listan i ”File”.
while read Line
do   
	Test=$(echo -e $Line | sed 's/\t.*//')
	Replace=$(echo -e $Line | sed 's/.*\t//')

	find "$MyPath" -type f -exec rename "$Options" 's;$Test;$Replace;g;' {} +  >> "$Result"
done < "$File"

Vad tror ni? Är jag helt ute och cyklar?
Jag är medveten om att skriptet kommer att ta oerhört lång tid att köra då det för varje namn ska gå igenom samtliga mina filer i mappen och dess undermappar. För närvarande innehåller listan 151 egennamn och det lär ju inte bli färre. De filer vars namn innehåller namn jag glömt ta med är förhoppningsvis inte fler än att jag kan ändra dem manuellt efter hand som jag upptäcker dem…

Allt detta för att återställa min egen klantighet efter att jag av misstag råkat konvertera alla mina filnamn i en viss mapp och undermappar till gemener…

[ZX Spectrum]

Programmet metamorphose fixar ditt problem

Kanske, fast nu fanns det ju en anledning till att jag ställde frågan i terminalforumet…

Ops, vilken miss.

Klarar ovanstående program att byta namn rekursivt, förresten? Brukar använda GPRename annars och den bryr sig inte om innehållet i några undermappar, vad jag vet.

Ja, metamorphose klarar av att byta namn på filer i underliggande mappar.

[Johnny Rosenberg]

Hm… testade nu mitt fina skript och det visade sig ju inte alls fungera och vad jag nu behöver veta är hur man slänger in variabler i reguljära uttryck. Följande, från mitt skript ovan, fungerar ju inte då:

Kod: Markera allt

while read Line
do   
   Test=$(echo -e $Line | sed 's/\t.*//')
   Replace=$(echo -e $Line | sed 's/.*\t//')

   find "$MyPath" -type f -exec rename "$Options" 's;$Test;$Replace;g;' {} +  >> "$Result"
done < "$File"

Man kan tydligen inte bara slänga in ”$Test” och ”$Replace” hur som helst i ett reguljärt uttryck, så hur gör man då istället?

Dessutom är uttrycket ändå felaktigt. Vad jag skulle vilja ha är något i stil med följande, om jag vill byta ut alla ”hej” mot ”Hej”:

Kod: Markera allt

's;([^a-zåäöA-ZÅÄÖ])hej([^a-zåäöA-ZÅÄÖ]);$1Hej$2;g;'

Men nu vill jag ju ersätta ”hej” respektive ”Hej” med variabler då jag vill hämta det jag vill byta ut respektive ersätta med ut en fil istället. Har kört fast lite där, tror jag…

Någon som kan leverera det ultimata tipset…?