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

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

Форум программистов > Perl: Системное программирование > Получение столбца из файла

Автор: Лана 12.7.2004, 15:05

Есть файл вида

Код

------ATOMNAMES------ ATOM TYPES     FF      BOND
I J                                I J     CLASS LENGTH LENGTH 
----------------------------------------------------------------------------------------
N1 #1 C2 #2            58 37     0        1.321    1.326
N1 #1 C81 #14        58 37     0        1.335    1.326
N1 #1 H1 #15          58 36     0         1.009   1.019

Необходимо получить все данные столбца FF Length.
Как это сделать?
Заранее благодарна за помощь и совет.

Автор: Secandr 12.7.2004, 15:32

а покажи какие данные нужно выдрать.

Автор: korob2001 12.7.2004, 15:37

Не видно столбцов, воспользуйся кнпкой "КОД".

Автор: ElectricalStorm 12.7.2004, 16:58

Код


my @a =();
while (<>) {
    next if /ваш критерий/;
    my ($ATOMNAMES, $ATOM_TYPES, $FF, $BOND итд) = split;
    push @a , $FF;
}

print join "," , @a;

если переменые остальные не нужны ставим undef
а можно просто посчитать каким будет по счету FF
и записать короче

Код


my @a =();
while (<>) {
    next if /ваш критерий/;
    push @a , (split)[5]; # или  [split]->[5]
}

print join "," , @a;

Автор: Mephisto 7.6.2007, 10:26

Доброго фсем дня...
Хочу подключить свою трубу под линузом (Mandriva 2006). Труба Nokia 2610, кабель CA-45. Из-под винды асилил только подключится при помощи MobiMB v3.4, ничего более не кушало ее. USB кабло определяется как Prolific USB-to-Serial Comm Port. Теперь собсна вопросец... Как ентот мегадевайс подключить под линузом? GPlus ниасилил трубу ни под линузом, ни под виндами... :/