(+)

[Mers]

Сообщение:

__________________________
что именно ты не умеешь?
считать файл в массив?
вывести из него 5 записей?
вывести ссылки, как нарисовал?
Ничего из перечисленного?
__________________________

вывести ссылки могу, не получается вывести 5 записей!

в массив загоняю так

open(A, "...txt");
 while(!eof(A))
    {
  chomp($zapis=);
  push(@zapisi, $zapis);
    }
close(A);

cодержание ...txt:
url1
url2
url3
url4
url5

как вывести потом из массива эти 5 записей? я уже пытался вывести в цикле, такая фигея получалась!!

[ondr]

@zapisi[ $begin .. $finish ]; # Данная форма записи вернет массив состоящий из значений массива @zapisi, с элемента $begin до элемента $finish включительно



ps: Почитал бы ты документацию к perl\'у. Не повредит.

[NeoNox]

open A, "./txt" or die "can\'t open file: $!";
@mass = ;
close A;

for ($i=1; $i<=$#mass; $i++){
    last if $i==5;
    print $mass[$i];
}

[vladsu]

Mers:
как вывести потом из массива эти 5 записей?

Код: [Выделить]

print $_,"\\n" for @zapisi;