VPF::как в Perl читать по символьно? - Форум программистов

unkis

Дата 16.10.2007, 11:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 802
Регистрация: 8.9.2004

Репутация: нет
Всего: 1

Ребята подскажите как в Perl читать по символьно строчку.

К примеру есть строка "abbbsd15*hjk" над сделать так чтобы я сначала получил первый символ "а", потом второй "b" и так далее, пока не прочитаю строчку до конца.

Как такое реализовывается в Perl.

--------------------

www.unkis.com

korob2001

Дата 16.10.2007, 11:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 31
Всего: 61

Способов много, вот пример с substr

Код


my $str = "abbbsd15*hjk";

for (my $i=0; $i < length($str); $i++) {
     print substr($str, $i, 1) . "\n";
}

Вот пример со split

Код


my $str = "abbbsd15*hjk";

print "$_ \n" for split(//, $str);

Можно и так:

Код


my $str = "abbbsd15*hjk";

$str =~ s/(.)/print "$1\n"/ge;

Думаю есть ещё способы

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

unkis

Дата 16.10.2007, 11:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 802
Регистрация: 8.9.2004

Репутация: нет
Всего: 1

Код


my $str = "abbbsd15*hjk";
for (my $i=0; $i < length($str); $i++) {
     print substr($str, $i, 1) . "\n";
}

спасибо то что нужно.

--------------------

www.unkis.com

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »