Dotaz: Nahrazeni textu v html souborech

[tux]

Mam asi 50 HTML souboru a v kazdem je:

<a href="/path/img.jpg" rel="gb_imageset[aqha]" title="jmeno - obrazku"><img class="foobar" src="/path/img_nahled.jpg" alt="jmeno - obrazku"></a>

potrebuju tento radek ve vsech souborech nahradit za:

<a href="/path/img.jpg" rel="gb_imageset[aqha]" title="jmeno - obrazku"><img class="foobar" src="/path/img_nahled.jpg" alt="jmeno - obrazku"></a>
<a href="/path/ABC.jpg" rel="gb_imageset[aqha]" title="jmeno - obrazku"><img class="foobar" src="/path/ABC_nahled.jpg" alt="jmeno - obrazku"></a>

tedy 2 radky, muzete mi prosim poradit, jak na to?

---

---

Odpovědi

[GeorgeWH]

sed

[rob]

projedte to sedem pro vsechny soubory
sed 's/\/path\/img/\/path\/ABC/g' < vstup > vystup

[GeorgeWH]

alebo pouzit argument -i

a cele to dat do find alebo cyklu

[tux]

To jsem zkousel a funguje to.

Ja ale potrebuju 1 uvedeny radek nahradit dvema novymi - vlastne pridat jeden radek na to urcene misto.

[wamba]

perl -pE 'print $_;s{/path/img}{/path/ABC}g' <vstup >vystup

[NeoV]

mno neviem... ja by som povedal, ze minimalne ten print musi byt podmieneny:

perl -pE 'if(/\/path\/img/){print $_;s{/path/img}{/path/ABC}g;}' <vstup %gt;vystup

[NeoV]

resp. pre lepsiu citatelnost:

perl -pE 'if(m{/path/img}){print $_;s{/path/img}{/path/ABC}g;}' <vstup >vystup

[wamba]

Pravda, tak třeba

perl -pE 'my $radek=$_; print $radek if s{/path/img}{/path/ABC}g' <vstup >vystup

[nikdo]

Je to sice dost hnusné řešení a určitě přijde někdo s elegantnějším a univerzálnějším, ale mně to funguje:

for i in *.html ; do
  sed -r -i s/"^(<a href=\"\/path\/)([a-zA-Z0-9]+)(.jpg\".*src=\"\/path\/)(\\2)(_nahled.jpg\".*)$"/"\\0\n\\1ABC\\3ABC\\5"/ $i
done

Samozřejmě by to bylo nutno před použitím ještě trochu upravit dle tvých konkrétních dat, nevím, jaké se tam okolo vyskytuje HTML, tak aby se to třeba nechytlo na nějaký jiný řádek apod.

Základní idea tohoto řešení je to, že v druhé části příkazu s/// můžeš použít reference na jednotlivé matchnuté části z první části příkazu: \0 je celý matchnutý řádek, \1 až \5 pak jednotlivé části vymezené kulatými závorkami. Nový řádek je klasicky \n.

[loupak]

http://www.grymoire.com/Unix/Sed.html
tady najdete vsechno co potrebujete

[nikdo]

Díky za ten odkaz, velice užitečné!