VPF::время - Форум программистов

Дата 31.7.2006, 14:49 (ссылка)

(нет голосов)

Загрузка ...

татарский Нео

Профиль
Группа: Завсегдатай
Сообщений: 1701
Регистрация: 22.3.2006
Где: Альметьевск

Репутация: 5
Всего: 57

поступает строка со временем хх:хх:хх.yyy
нужно отсечь миллисекунды(yyy), пытался сплитить по точке не получилось smile

--------------------

менеджер по кодеврайтингу smile

Дата 31.7.2006, 16:17 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 31
Всего: 61

Код


#!/usr/bin/perl

my $time = "13:41:27.154";
print join("\n", split(/\./, $time));

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

Дата 31.7.2006, 17:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84

а регвыр?

Код


#!/usr/bin/perl    
my $time = "13:41:27.154";    
$time =~ s/\..*//;
print $time;

Добавлено @ 17:10
или так

Код


#!/usr/bin/perl    
my $time = "13:41:27.154";    
$time =~ m/(.+)\.(.+)/;
print $1." - ".$2;

--------------------

Дата 31.7.2006, 18:21 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 582
Регистрация: 25.3.2006
Где: Kiev

Репутация: 26
Всего: 37

И вот так тоже можно :

Код


$time = substr($time,0,8);

--------------------

Чтобы правильно задать вопрос нужно знать больше половины ответа...
Perl Community
FREESCO in Ukraine

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »