🚀 go-pugleaf

Kathleen Marszalek wrote:
> 
> Piotr Piatkowski <kompas@galaxy.uci.agh.edu.pl> wrote in article
> <5ap0eg$pd@galaxy.uci.agh.edu.pl>...
> > DA_none <danone@eleet.webmedia.pl> wrote:
> > : hej
> > : jakie nalerzy dac parametry w s rzeby przy przeszykiwaniu uzglednial
> wszystkie
> > : znaki \r i \n tez ..
> >
> > Nie bardzo rozumiem. Ale chyba chodzi Ci o to, co zrobić żeby .
> > (kropka) dotyczyła także \r i \n - prosta sprawa, zamiast . pisz
> > [.\r\n] (powinno też zadziałać [^] ale nie sprawdzałem).
> 
> Jezeli napiszesz "[.\n\r]" to bedzie oznaczalo "jeden z trzech znakow:
> kropka, \n, lub \r".  To znaczy, w srodku kwadratowych nawiasow (zbioru
> znakow), '.' jest brane doslownie. Poniewaz '.' pokrywa wszystkie znaki
> oprocz \n (ale z \r wlacznie), zeby uwzglednic \n, wystarczy napisac
> "(.|\n)", lub wybrac sobie jakis znak, ktorego nie ma w pliku, na przyklad
> z kodem 0, i napisac [^\000], czyli wszystki znaki (z \n wlacznie), oprocz
> znaku z kodem 0. Na przyklad:
> 
> $text = "alpha\n beta\n gama\n";
> $text =~ s/alpha[^\000]*gama/alpha-gama/;
> print $text;

A najprościej napisać s/......./....../s. 

    To facilitate multi-line substitutions, the "." character
       never matches a newline unless you use the /s modifier,
       which tells Perl to pretend the string is a single
       line--even if it isn't.  The /s modifier also overrides
       the setting of $*, in case you have some (badly behaved)
       older code that sets it in another module.

Michał

-- 
********     MEMBER OF THE INTERNATIONAL PROGRAMMERS GUILD    ********
WWW: http://www.pdi.lodz.pl/~mimo   tel: Int. Acc. Code + 48 42 148340
add: Michal Mosiewicz  *  Bugaj 66 m.54 *  95-200 Pabianice  *  POLAND