линий:
4355384 20762557 16407173 ИТОГО
14470261 27190250 12719989 ИТОГО
18825645 47952807 29127162 ИТОГО


PERL Сценарий:

открыть (всего ", grepTOTAL / ПЗБД / ds_metric / data_files / modem_times |");
нажимаем (@ общем, <TOTAL>);
закрыть (общая);

$ \u003d вступить запись ( "", @ общего числа);
$ запись \u003d ~ S / Всего / / G;
@ \u003d total2 сплит (/ \ S (2,) /, $ запись);
Версия для печати @ total2;



Для меня этот результат.

4.355.384 20.762.557 16,407,17314,470,261 27.190.250 12,719,98918,825,645 47.952.807 29,127,16

Что им искать это:
4.355.384 20.762.557 16.407.173 14.470.261 27.190.250 12.719.989 18.825.645 47.952.807 29.127.162

Разница: есть пространство, где ВСЕГО быть использованы в последнем versioin о выходе линии.

Ive попытался несколько различных способов substitue в ВСЕГО слова, но все возвращается в пространстве, не имеющие между номерами
между ВСЕГО слова (например: 16,407,17314,470,261 27190250 то, что я получаю 16407173 14470261 27190250 то, что я хочу)

Может ли кто-нибудь не одолжите мне идею о том, как добраться, что в пространстве существует еще subbing, что общий объем из легко?

-Джемисон -

мне его еще раз ..

Я добавил следующее:

$ \u003d total_record вступить ( "", @ общего числа);
$ total_record ~ \u003d S / Всего / / G;
@ \u003d record2 сплит (/ \ S (1,) /, $ total_record);
для (@ record2) (
Версия для печати $ _. "\ N";
)

в код, и он выводит каждый элемент на новую строку корректно. Затем я могу запустить А.А. заявление для печати, что позволяет каждому из элементов на одной линии.

-Джемисон -

open(FH,"<a");
while(<FH>){
$_=~ tr/TOTAL\n//d;
push(@arr, $_);
}
close(FH);
print join("",@arr);

Wow, что, как 6 лет назад