Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > работа с масивами

Автор: GR0Mi 17.10.2010, 11:40

Добрый день.
Есть пару вопросов.

парсю значения с сайта записываю в масивавтор

Код


my (@ids) = $resp =~ /"avatar" href="http:\/\/site.com\/user\/([0-9]{1,10})" target="_blank">/gc;

с етим проблем нету
далее вывожу в на екран

Код


$, = "\n";
print @ids, "\n";

выводит как нужно
номер
номер
номер
а вот при сохранении в файл

Код


wf($file, "@ids\n");

сохроняет номер номер номер
Вопрос как сохранить в файл вида
номер
номер
номер

и 2
в следующем скрипте нужно пройтись по номерам которые спарсил в 1

Код


while(@ids) {
print "$ids\n";
$resp = $ua->post("http://site.com/dId=$ids")->as_string;

в масив @ids загружаю список из тхт

Код


my @ids : shared = lf($file);

Но скрипт в цикле берет только 1 номер из файла и гоняет его по кругую

Вопрос как следать чтобы он все номера из тхт файла прогонял в цикле пока номера не закончаться