zamena retezcu

Snaper rez20um na axpsu.fpf.slu.cz
Pondělí Březen 8 13:25:01 CET 1999



> 	existuje v linuxu nějaký program, který by dělal to samé, co
> tr, ale se řetězcema? Tj., dokázal by v celém souboru nahradit jeden
> řetězec jiným? Případně, není něco takového přímo pro TeX. Mám totiž
> soubor s makrama, kterými formátuji nějaký text. Ten pak mimo jiné
> potřebuju zkonvertovat do RTF nebo HTML, všechny konvertory, co jsem
> zkoušel se mi ale na makra vykašlou a jeětě navíc brblaj, že ten
> příkaz neznaj. 

zkus tohle:
je to sice jenom primitivni scriptik v perlu, dalo by se to urcite napsat
lip, ale mohlo by to stacit

#!/usr/bin/perl


$vyber="/tmp/vyber";
#tohle ti nasossne do souboru seznam tech souboru, kde se to ma predelat
system ("ls|more > $vyber");

$tr1="prvni_retezec";
$tr2="vymenit_za";

open (FILE, $vyber);
while ($cuc = <FILE>) {
chop $cuc;
open (FILE1, $cuc);
while ($text = <FILE1>) {
chop $text;
$text=~tr/$ret1/$ret2;
}
close (FILE1);
}
close (FILE);
exit (0);  

Snad to pomuze

							./S



Další informace o konferenci Linux