 помогите разобрать строку а!,  mix, 25-Ноя-03, 21:56 [смотреть все]пытаюсь на перле разобрать строку вида:
[[1,2,3],[4,5,6],[7,8,9]]
нужно в 2х мерный массив запихнуть данные их внутренних квадратных скобок.
причем кол-во данных известно, видите их здесь 3 а вот кол-во внутренних квадратных скобок может быть и 3 и 33.Спасибо
|
- помогите разобрать строку а!, pth, 00:01 , 26-Ноя-03 (1)
#!/usr/bin/perl -wuse strict; my $test = "[[1,2,3],[4,5,6],[7,8,9]]"; my $array; # Ты будешь смеяться, но ...
$array = eval $test; for my $row (@$array)
{
for my $cell (@$row)
{
print $cell, ' ';
}
print "\n";
}
- помогите разобрать строку а!, Lant, 08:17 , 26-Ноя-03 (2)
$instr =~ s/^[//;
$instr =~ s/]$//;
@inarray = split(/,/,$instr);
$cnt = 0;
foreach $instr2 (@inarray)
{
$instr2 =~ s/^[//;
$instr2 =~ s/]$//;
$outarray[$cnt] = [split(/,/,$instr2)];
$cnt++;
}Помоему так. Получаем двухмерный массив @outarray. Точнее массив ссылок на анонимые массивы. Можно сделать любую размерность. Обращаемся к элементам как $outarray[$row][$cell]
|
Версия для распечатки
