Dotaz: skript v Unixu

[TT]

Poradi nekdo s touto ulohou v Unixu?

Vytvor skript ktery vytvori symbolicke linky soubory specifikovane temito podminkami: 1. Soubor obsahuje jednu tecku tzn. je ve formatu JMENO.PRIPONA 2. JMENO obsahuje jen velka pismena, cislice a podtrzitko 3. pripona je zadana parametrem a jsou zpracovany jen soubory s danou zadanou priponou

Symbolicke linky se vytvori tak, aby zachovaly jmeno souboru, ale vsechny velke znaky ze JMENA se prevedou na male

po opetovnem spusteni se stejnym parameterem by se nemelo nic menit!

Odpovědi

[Roman Vasicek]

S kterou casti zadani si nevis rady? Pouzij PERL, pokud si muzes zvolit jazyk .

[Yeti]

Já bych ti jednu věc poradil -- přečti si znovu, jak má vypadat titulek dotazu, aby k něčemu byl.

A je to upravdu úloha (tj. někdo ti to zadal do školy), nebo to potřebuješ?

ls|perl -nle '($f=$_)=~tr/A-Z/a-z/;symlink$_,$f if/^[A-Z0-9_]+\.EXT$/'

kde EXT nahradíš příslušnou koncovkou (já vím, že to jde napsat i čitelněji, ale je to přece Perl, tak mu nebudu kazit image ;-)

[zombie]

> Poradi nekdo s touto ulohou v Unixu?
Poradi.

Titulok 'skript v unixu' je uzasny. Mozno sa Ti zda byt specificky, mne teda nie.

E=$1
ls | sed -n 's/^\([A-Z_0-9]*\)\.'$E'$/\1/p' | tee temp1 | tr A-Z a-z >temp2
sed 's/^/ln -s /;s/$/\.'$E'/' temp1 >temp3
sed 's/$/\.'$E'/' temp2 >temp4
paste temp3 temp4

Skus, ci to robi dobre. Ak hej, za parameter skriptu napis | sh
(alebo to zadratuj do skriptu: paste temp3 temp4 | sh )

Samozrejme, to perlove riesenie bolo elegantnejsie (az na detaily, ze nerobi s parametrom (to nevadi) a konvertuje aj priponu)

[Roman Vasicek]

Jasne. Citelnejsi verze nemenici priponu a prebirajici priponu jako parametr by mohla vypadat napriklad takto

ls|perl -e '$e=shift@ARGV;while(<>){chomp;symlink$_,lc($1).$e if/^([A-Z0-9_]+\.)$e$/}' jpg

[Hynek (Pichi) Vychodil]

Hezoučké, ale příliš čitelné Koukám, že moje perl thinking ještě není dokonalé.

[Yeti]

Á, máš recht, blbě jsem si přečetl problém, takže by se muselo s tím regulárním výrazem trochu víc blbnout (přidat skupinu kolem jména a projet tr/// jen $1).

[Roman Vasicek]

Jen mi nejde do hlavy, jak bys prevzal priponu jako parametr z prikazove radky. Pokud pouziji prepinac -n, tak se jej perl bude snazit interpretovat jako jmeno souboru co ma otevrit...

[Roman Vasicek]

Aaaaa ja hlava dubova. Ze jsem to prehledl . Napriklad takto

ls|perl -nle '$e=shift@ARGV if!$e;symlink$_,lc($1).$e if/^([A-Z0-9_]+\.)$e$/' - jpg

Pak ale shori v pripade, ze je adresar prazdny, takze jeste pridat parametr -a pro ls.

[Yeti]

Tam, kde je $EXT, bych dal $1, a udělal z toho jednořádkový skript v shellu, včetně toho ls.