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