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
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.