🚀 go-pugleaf

Jacek Kubica <webmaster@zdo.wssk.am.wroc.pl>  wrote:

>Zalozenie: szukasz $query w linii $line
>
>Przyklad (ktory dziala!)
>
>#!/usr/local/bin/perl
>$query = "pErL";
>$line = "Chetnie ucze sie Perla, bo lubie Perla";
>$temp = $line;
>$query =~ y/[A-Z]/[a-z]/;
>$temp =~ y/[A-Z]/[a-z]/;
>$pocz = index($temp,$query);
>$dlugosc = length($query);
>$wyraz = substr($line,$pocz,$dlugosc);
>$line =~ s/$query/<b>$wyraz<\/b>/gi;
>print $line;
>
>=========================================
>Wynik : "Chetnie ucze sie <b>Perl</b>a , bo lubie "<b>Perl</b>a


Ale to mozna uproscic i nie uzywac zadnych dodatkowych zmiennych, oprocz
tych, ktore Perl i tak dla nas definiuje (tutaj akurat $1). Na przyklad
tak:

#!/usr/local/bin/perl -w
$line = "Chetnie ucze sie Perla, bo PERL jest cool i lubie Perla";
$query = "pErL";

$line =~ s/($query)/<B>$1<\/B>/gi;
print "$line\n";


=========================================
wynik: Chetnie ucze sie <B>Perl</B>a, bo <B>PERL</B> jest cool i lubie
<B>Perl</B>a


Ja tez nie jestem pewien, czy dokladnie o to chodzilo, ale rezultat
wykonania skryptu jest identyczny z rezultatem Jacka :-) 

.marek


-- 
After things go from bad to worse, the cycle will repeat itself.
http://come.to/fnord/