🚀 go-pugleaf

Pawel Gajda wrote:

> Przemek Bak wrote:
> >
> > Mam przykladowy kawalek kodu:
> >
> > #!/bin/perl
> > $RecordSeparator = '^';
> > ......
> > while (<JAKIS_INPUT>) {
> >      s/.*$RecordSeparator$//;   # chce wyrzucic znak '^' poprzedzajacy koniec
> > linii
> >      # .......... reszta kodu
> > }
> >
> > W taki sposob jak powyzej to nie dziala. Oczywiscie moge wpisac od razu
> >  s/.*\^$//;
>
> $RecordSeparator = '\^' powinno zadzialac

Tak, w ten sposób działa.

> Poza tym nie powinno byc tam s/$RecordSeparator$// ?

 Masz rację, zmieniłem to na sposób podany przez Ciebie.
Dziękuję.

przemol
--
przemol@mvii.uni.lodz.pl