- вопрос,
 alfss, 15:17 , 18-Июл-06 (1)>Как , к примеру, на перле изменить регистр букв с большого на
>маленький с 27 по 42 символ в строке?
#!/usr/bin/perl
$s="asdz";
$s=~ s/'a-z'/'A-Z'/g;
printf $s;
- вопрос, madskull, 15:45 , 18-Июл-06 (2)
>>Как , к примеру, на перле изменить регистр букв с большого на
>>маленький с 27 по 42 символ в строке?
>#!/usr/bin/perl
>$s="asdz";
>$s=~ s/'a-z'/'A-Z'/g;
>printf $s;
Мало того что не в тему, так еще и неправильно.один из вариантов
substr($s,27,42) = uc(substr($s,27,42));
- вопрос, madskull, 15:47 , 18-Июл-06 (3)
>один из вариантов
>substr($s,27,42) = uc(substr($s,27,42)); хе-хе, я тоже повелся.
Не uc, а lc, конечно же.
- вопрос, alfss, 15:58 , 18-Июл-06 (4)
>>один из вариантов
>>substr($s,27,42) = uc(substr($s,27,42));
>
>хе-хе, я тоже повелся.
>Не uc, а lc, конечно же.
блин сорь глючу
- вопрос, alfss, 17:02 , 18-Июл-06 (5)
>>>один из вариантов
>>>substr($s,27,42) = uc(substr($s,27,42));
>>
>>хе-хе, я тоже повелся.
>>Не uc, а lc, конечно же.
>блин сорь глючу
извеняюсь но конструкция не пашет
substr($s,27,42) = lc(substr($s,27,42)); substr outside of string at ./z.pl line 3.зато паешт вот это #!/usr/bin/perl
$s = "Perl";
$s =~ tr/[a-z]/[A-Z]/;
print $s;
- вопрос, madskull, 08:57 , 19-Июл-06 (6)
>>>>один из вариантов
>>>>substr($s,27,42) = uc(substr($s,27,42));
>>>
>>>хе-хе, я тоже повелся.
>>>Не uc, а lc, конечно же.
>>блин сорь глючу
>извеняюсь но конструкция не пашет
>substr($s,27,42) = lc(substr($s,27,42)); substr outside of string at ./z.pl line 3.
>
>зато паешт вот это
>
>#!/usr/bin/perl
>$s = "Perl";
>$s =~ tr/[a-z]/[A-Z]/;
>print $s; Задача была "изменить регистр букв с большого на маленький с 27 по 42 символ в строке".
С 27 по 42 символ. Остальные не трогать. На самом деле, я тоже накосячил с параметрами substr, но, при желании, можно почитать perldoc -f substr и проблем быть не должно. В конце концов, я показал идею одного из решений.
|
Версия для распечатки
вопрос, 
