LINUX.ORG.RU
Форум — Admin  

Помогите разделить число в Unix


0

0

Помогите! У меня в файл /.summa записывается число, ну например, 10 и мне нужно его разделить на 5 и записать результат в другой файл. Как это сделать. Кроме того в этом файле у меня содержаться ещё и текстовые записи, выглядит это так: 10 agi.report DATE: 08/13/01

Так вот 10 и есть число которое нужно разделить.

★
← Сетевая карточка 3C996T и RedHAt с ядром 2.4.8
Копирование исходящей почты →

#/usr/bin/perl

open (INPUT, "< /.summa")
or die "Can't open file for reading: $!\n"
open (OUTPUT, "> /result")
or die "Can't open file for writing: $!\n"
while (<INPUT>)
{
if (/^(\d+)/)
{
print OUTPUT $1/2 . "\n";
}
}
close(INPUT);
close(OUTPUT);


# Это на Perl'e - должно тебе помочь (проверить не успел). Результаты кладутся в файл /result - поменяй на то что тебе надо.
Удачи.

anonymous
()

#/usr/bin/perl

open (INPUT, "< /.summa")
or die "Can't open file for reading: $!\n"
open (OUTPUT, "> /result")
or die "Can't open file for writing: $!\n"
while (<INPUT>)
{
if (/^(\d+)/)
{
print OUTPUT $1/2 . "\n";
}
}
close(INPUT);
close(OUTPUT);


# Это на Perl'e - должно тебе помочь (проверить не успел). Результаты кладутся в файл /result - поменяй на то что тебе надо.
Удачи.

anonymous
()

Как всегда забыл поставить ';'
Надо исправить:
or die "Can't open file for reading: $!\n"
на
or die "Can't open file for reading: $!\n";

и
or die "Can't open file for writing: $!\n"
на
or die "Can't open file for writing: $!\n";



anonymous
()

в коммандной сроке:

awk '{print $1/5;}' < /.summa > /.result

Lucky ★★
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
← Сетевая карточка 3C996T и RedHAt с ядром 2.4.8
Admin
Копирование исходящей почты →