Регулярные выражения

regexp.cgi

#!/usr/bin/perl

print "Content-Type: text/html; charset=windows-1251\n\n";

print "<h2>Регулярные выражения</h2>\n";

$line="His name is Tom";
print "<p>Исходная строка: <b>$line</b></p>\n";

###############################################################


print "<h4><br><br>Проверка совпадений m/.../</h4>\n";

$word = "name";

if($line =~ m/$word/){print "в этой строке есть <b>$word</b>"}


###############################################################



print "<h4><br><br>Оператор замены tr/.../.../ (не работает с регулярными выражениями)</h4>\n";


$line =~ tr/o/i/;

print "строка после замены <b>$line</b>";

###############################################################



print "<h4><br><br>Оператор подстановки s/.../.../</h4>\n";


$line =~ s/Tim/Billy/;

print "строка после подстановки <b>$line</b>";