|
Страница 1 из 1 [ Сообщений: 5 ] |
GoBeer
новый человек
|
|
Необычная задача для перла, возможно тебе стоит поближе познакомиться с регулярными выражениями. Примерно такой конструкцией можно получить N-ный символ (верить на слово не стоит, возможна ошибка): <BLOCKQUOTE><font size="1" face="Verdana, Tahoma, sans-serif">code:</font><HR><pre> #! /usr/bin/perl
my $s = "012345", $n = 3; if ($s =~ /.?(.?)/) { print "$1\n"; } else { print "строка короткая!\n"; } </pre><HR></BLOCKQUOTE>
|
|
 |
|
 |
GoBeer
новый человек
|
|
Упс! Форум проглотил фигурные скобки... В третьей строке кода (if …) замени квадратные скобки на фигурные <BLOCKQUOTE><font size="1" face="Verdana, Tahoma, sans-serif">code:</font><HR><pre> #! /usr/bin/perl my $s = "012345", $n = 3; if ($s =~ /.[$n]?(.?)/) { print "$1\n"; } else { print "строка короткая!\n"; } </pre><HR></BLOCKQUOTE>
[ 01 Ноября 2002: Исправлено GoBeer ]
|
|
 |
|
 |
|
Страница 1 из 1 [ Сообщений: 5 ] |
Уровень доступа: Вы не можете начинать темы. Вы не можете отвечать на сообщения. Вы не можете редактировать свои сообщения. Вы не можете удалять свои сообщения. Вы не можете добавлять вложения.
|
|