надо сделать чтоб скрипт работал не только для русских букв но и для англ. и символов. - Помощь студентам

marianna14 · 22.06.2011, 00:46

Здравствуйте,помогите пожалуйста исправить скрипт ,чтоб он работал для русских букв тоже.и для символов.
Задание было такое " По заданной строке выдать её максимальное сжатие."
Пример Строка: ababababABabAbbccccccccccc
Сжатие: 4ab1ABabA2b11c
Вот с этим работает правильно
А для русских букв
Ввожу:
тест
получаю:
1%D4%C5%D3%D4

Не знаю как это исправить=(
Вот сам скрипт

Код:

#!/usr/bin/perl -w
print "Content-type:text/html\n\n";
print "<html>
       <body bgcolor=a000ff>
      <h1>Проверка вторая</h1>";
$string = $ENV{'QUERY_STRING'};
@p = split(/&/, $string);
foreach $i (@p)
{
    ($name, $value) = split(/=/, $i);
};
      if ($name eq "qwe"){
       $str=$value;}
       `chcp 1251`;
       print "$str<br>\n"; $ln = length ($str); $new = "";
$pr = 0;
while ($str =~ /(((\w+?)\3{1,$ln})|(.))/g) {
do {$new .= length($1)/length($3) . $3; $pr = 0;} if $3;
do {$new .= $4} if ( ($4) && ($pr == 1));
do {$new .= "1" . $4; $pr = 1;} if ( ($4) && ($pr == 0));
}
print $new;

22.06.2011, 00:46	#1
marianna14 Регистрация: 25.03.2011 Сообщений: 4	надо сделать чтоб скрипт работал не только для русских букв но и для англ. и символов. Здравствуйте,помогите пожалуйста исправить скрипт ,чтоб он работал для русских букв тоже.и для символов. Задание было такое " По заданной строке выдать её максимальное сжатие." Пример Строка: ababababABabAbbccccccccccc Сжатие: 4ab1ABabA2b11c Вот с этим работает правильно А для русских букв Ввожу: тест получаю: 1%D4%C5%D3%D4 Не знаю как это исправить=( Вот сам скрипт Код: #!/usr/bin/perl -w print "Content-type:text/html\n\n"; print "<html> <body bgcolor=a000ff> <h1>Проверка вторая</h1>"; $string = $ENV{'QUERY_STRING'}; @p = split(/&/, $string); foreach $i (@p) { ($name, $value) = split(/=/, $i); }; if ($name eq "qwe"){ $str=$value;} `chcp 1251`; print "$str<br>\n"; $ln = length ($str); $new = ""; $pr = 0; while ($str =~ /(((\w+?)\3{1,$ln})\|(.))/g) { do {$new .= length($1)/length($3) . $3; $pr = 0;} if $3; do {$new .= $4} if ( ($4) && ($pr == 1)); do {$new .= "1" . $4; $pr = 1;} if ( ($4) && ($pr == 0)); } print $new;

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Группы символов, состоящие только из латинских букв, если первая буква группы входит в нее еще только оди	Ela	Помощь студентам	0	29.04.2010 13:41
как сделать чтобы cwinch работал для char??	corri	Общие вопросы C/C++	1	18.10.2009 14:57
Надо макрос для Excel для перестановки букв	dionisprf	Microsoft Office Excel	2	10.06.2009 06:04
Надо чтоб браузер загрузил только чать документа	reyn90	Помощь студентам	0	01.06.2009 19:24
Регистр для русских букв	Kulibim	Общие вопросы Delphi	2	28.10.2007 17:36