LINUX.ORG.RU

Помогите с perl


0

0

Имеется таблица, в ней около сотни строк, поля разделены табуляцией или пробелами.

Требуются, для каждой строки воплнить одно тоже действие: Положить разные поля текущей строки в переменные, и выполнить некую программу с параметрами, в качестве которых будут эти переменые.

P.S Если проще: Требуется из текстовой таблицы всё запихать в bd. Именно на perl_е.

Про какие функции и где можно почитать на эту тему?

anonymous

perldoc -f split

Пример кода

while(<>)
{
@fields = split;
func(@fields);
}

anonymous
()

А ещё варианты?

anonymous
()

open F, "<myfile.db" or die cant open: $!; @mass=<F>; close F; foreach my $i(@mass){ #если разных полей три штуки ($a,$b,$c)=split "\t" => $mass[$i]; qx[./my_prog $a $b $c]; }

anonymous
()

open F, "<myfile.db" or die cant open: $!;
@mass=<F>;
close F;
foreach my $i(@mass){
#если разных полей три штуки
($a,$b,$c)=split "\t" => $mass[$i];
qx[./my_prog $a $b $c];
}

anonymous
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.