VPF::преобразовать строку в массив символов

Dmitriy2k

Дата 18.11.2005, 22:24 (ссылка)

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

Загрузка ...

шустрый

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

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

Хочу получить массив символов.

Код


my $string;
$string="abcdefghijklmnop";

Хотелось бы чтоб код

Код


my $string;
$string="qwertyuiopasdfghjkl";
@array=$string;

присваивал массиву @array список символов. т.е

$array[0]='q';
$array[1]='w';
$array[2]='e;
$array[3]='r';
...
Как это решить?

sharq

Дата 18.11.2005, 23:55 (ссылка)

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

Загрузка ...

Perl Liker

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

Репутация: 2
Всего: 28

Dmitriy2k если тебя интересует объявление, то

Код


my @array = qw(q w e r t y);

Если тебе нужно строку запихнуть в массив, то можешь посимвольно в цикле делать такое присвоение. А как ты будешь выделять символы это твое дело.
Вот один вариант (без цикла):

Код


my @array = split //, $string;

Вариант (с циклом):

Код


my @array;
while ($string =~ /(.)/g) {
 # здесь можно поработать с символом, который хранится в $1
 push @array, $1;
}

Зачем тебе это?

smile

Это сообщение отредактировал(а) sharq - 19.11.2005, 00:02

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

[color=gray]There's More Than One Way To Do It[/color]

Dmitriy2k

Дата 19.11.2005, 16:22 (ссылка)

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

Загрузка ...

шустрый

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

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

sharq :
Да... этоя тормоз. Я никак не думал, что эти иероглифы (результат моего скрипта) есть кодировка кирилицы DOS.

Я уж пытался Как нибудь сдвинуть Эти иероглифы по таблице ASCII на нужное место.

Код



...
#комманда операционной системы помещается в массив @result
if($hash{'cmd'}){
my @result = `$hash{'cmd'}`;
s/\r\n|\n//g foreach @result;


for($k=1;$k<N;$k++){
   my $cyg=$result[$k];
   my @array = split //, $cyg; # получаем строку и разбиваем ее в массив
   my @res;
   for ($i=1;$i<=(length $cyg);$i++){
      $ichar=ord($array[$i]);
      if ($ichar>XXX) $res[$i]=chr($ichar-YYY); #если ASCII код символа >XXX - сдвигаем его влево на YYY
    }
    print @res;
    print "<br>";
}
}

sharq

Дата 19.11.2005, 16:35 (ссылка)

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

Загрузка ...

Perl Liker

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

Репутация: 2
Всего: 28

Dmitriy2k вот это ты удивил меня. smile

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

[color=gray]There's More Than One Way To Do It[/color]

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