Ну вот так написал
#!/usr/bin/perl
$a="test";
$b=chr(
;
$a=~s/(\\w)/$1$b/g;
print $a;
Вообще ничего не выдает!
А с каких это пор в перле пробелы стали учитываться?
?[/quote]
Извини, я что-то Linux давно не юзал.
При ближайшем рассмотрении дело выглядит так:
#!/usr/bin/perl
$a="test";
$b=chr(
;
$c=$a;
open(FL,"|more");
$c=~s/(\\w)/$1$b$1/g; #Один вид выделения
print FL "$c
";
$c=$a;
$c=~s/(\\w)/_$b$1/g; #Другой вид выделения
print FL "$c
";
close(FL);
more понадобился для того, чтобы все это работало. Без него идет серая картинка. Забыл, вах!
Еще я надыбал в документации про некий специальный модуль для цветного вывода.
Цитирую:
#!/usr/bin/perl
$a="test";
$b=chr(
;
$c=$a;
open(FL,"|more");
$c=~s/(\\w)/$1$b$1/g;
print FL "$c
";
$c=$a;
$c=~s/(\\w)/_$b$1/g;
print FL "$c
";
close(FL);
use Term::ANSIColor qw(:constants); print BOLD, BLUE, "This text is in bold blue.
", RESET;
