Polstina to TeX sequence

[Hans Ginzel]

> Ja resim podobne pripady jednoduchym skriptem tohoto typu:
>
> #!perl5
>
> while (<STDIN>) {
>   chop($x = $_);
>   $x =~ s/\014/\sekvence/g;
>   $x =~ s/\054/\jinasekvence/g;
>   print $x;
> }

Proc to $x? Kdyz perl, tak poradne po perlovsku:

#!perl5

while (<STDIN>) {
  chop;
  s/\014/\sekvence/g;
  s/\054/\jinasekvence/g;
  print;
}

Nebo jeste jednoduseji (man perlrun)

#!perl5 -p

chop;
s/\014/\sekvence/g;
s/\054/\jinasekvence/g;

--
					Hans Ginzel

http://www.linuxworld.cz/lw.nsf/page/CBE9428469FEEB37C1256C44002ACD9A
http://www.linuxworld.cz/lw.nsf/page/FFA5E95324F80DD7C1256C2C0020A20B
http://interviews.slashdot.org/article.pl?sid=02/09/06/1343222
http://www.infoworld.com/articles/op/xml/02/08/26/020826opsource.xml
http://www.manualy.sk/archiv/a534k701.htm