Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Задача для начальных классов / 4 сообщений из 4, страница 1 из 1
12.06.2005, 12:17
    #33113527
Задача для начальных классов
Имеется текстовой файл. Представленная в нем в две строки информация имеет вид :
1=2=3=4=5
6=7=8=9=10
Как эти данные присвоить массиву что бы он имел вид @a= (1,2,3,4,5,6,7,8,9,10 )
и при необходимости вывода, для примера, $a[4] на экран выводилось 5
Нижеследующий вариант не работает.
Убедительная просьба, подскажите правильный способ.

open (FILE, "test.txt") || die "Can't open test.txt: $!\n";
@LINES=<FILE>;
$SIZE=@LINES ;
for ($i = 0; $i <= $SIZE; $i++)
{
$_=$LINES[$i];
@x = split( /=/, $_ ) ;
}
print $a[4];
...
Рейтинг: 0 / 0
12.06.2005, 12:20
    #33113530
XM
XM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задача для начальных классов
Код: plaintext
1.
2.
3.
4.
5.
6.
my @a;
open (FILE, "test.txt") || die "Can't open test.txt: $!\n"; 
while(my $line = <FILE>){
  chomp $line;
  push @a, split /=/, $line if ($line ne "");
}
...
Рейтинг: 0 / 0
12.06.2005, 12:29
    #33113534
Задача для начальных классов
Большое Спасибо XM !!!
Работает ! :))
...
Рейтинг: 0 / 0
12.06.2005, 14:42
    #33113604
Black
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задача для начальных классов
Код: plaintext
1.
2.
  
push @a, split /=/, $line if ($line ne "");

->

Код: plaintext
1.
  push @a, split /=/, $line if (defined $line);
...
Рейтинг: 0 / 0
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Задача для начальных классов / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]