Win <-> Lin

[anio at webgroup-bg.com]

sofia-pm-list - An official of Sofia's Perl hackers
anio at webgroup-bg.com
Zdravei Stanislave.
Mislq, 4e pone tozi next shte mine: next if /^#/;
i ako ne se lyja i az - "\n" ne se match-va osven ako ne go slojish ry4no
toest ako slojish tova /^(\w+)\s=\s'(\S+)'$/ dokolkoto si spomnqm dori da
ima "\n" ili "\r\n" ako vsi4ko drugo e nared RegEx-a shte e True.Za da se
matchva i toi mislq 4e trqbvashe da se soji otzad "x" - m/izraz/x ,moje i
da byrkam tonata bukva.
Best regards
Anio

> Zdrawej anio,
> awbc> tie @smtp_settings, 'Tie::File', $smtp_file;
> awbc> for (@smtp_settings) {
> awbc>    chomp;
> awbc>    next if /^#/;
> awbc>    next if /^$/;
> awbc>  if (/^(\w+)\s=\s'(\S+)'/) {
> awbc>    $smtp_host     = $2 if ($1 eq 'SMTPHost');
> awbc>    $recipient     = $2 if ($1 eq 'Recipient');
> awbc>    $reverse_path  = $2 if ($1 eq 'Reverse');
> awbc>  }
> awbc> }
>
> 4udel li si se dali ima izobsto nqkakwa razlika mejdu \cM\n i \n (kojto
> opredelq kraq na redowete pri Windows i syotwetno linux) za tozi
> regulqren izraz? Sys sigurnost nqma da se spre pri next-owete. Bi
> moglo da ne successne pri if (/^(\w+)\s=\s'(\S+)'/) {, no i tam ste
> mine... Tej kato samoto '(\S+)' wyobste ne wliqe kakwo ima sled '-ta,
> dali ste e \n ili \r\n . Ne znam dali sym praw, no...
>
> P.S. Predlagam ti da prawish pone ^\s*(\w+)\s*=\s*'(\S+)'/, no pomisli
> dali towa ti pozwolqwa da prawish sth = 'Hello dude, what\'s up?' i
> dali go iskash...
>
> --
> Best regards,
>  Stanislav                            mailto:sofit at proshe.bg
>