The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка  RSS
"знатокам перла"
Вариант для распечатки Архивированная нить - только для чтения! 
Пред. тема | След. тема 
Форумы OpenNET: Виртуальная конференция (Public)
Изначальное сообщение [Проследить за развитием треда]

"знатокам перла"
Сообщение от gexa emailИскать по авторуВ закладки on 26-Апр-02, 13:31  (MSK)
в $var="2:17", как сделать из var новую var2="17/02". Соответственно если $var="3:01" --> $var2="01/03"
Спасибо!
  Рекомендовать в FAQ | Cообщить модератору | Наверх

 Оглавление

Индекс форумов | Темы | Пред. тема | След. тема
Сообщения по теме

1. "RE: знатокам перла"
Сообщение от Soldier Искать по авторуВ закладки on 26-Апр-02, 14:10  (MSK)
>в $var="2:17", как сделать из var новую var2="17/02". Соответственно если $var="3:01" --> $var2="01/03"
>Спасибо!


#!/usr/bin/perl

$var="3:01";

@fld=split(':',$var);

if (length($fld[0])<2) {$fld[0]=qq(0$fld[0]);}
if (length($fld[1])<2) {$fld[1]=qq(0$fld[1]);}

$var2=qq($fld[1]/$fld[0]);

printf "%s\n",$var2;

#------------------------------

P.S. Znatokom perl-a ne yavlyaus'

  Рекомендовать в FAQ | Cообщить модератору | Наверх

2. "RE: знатокам перла"
Сообщение от ilya emailИскать по авторуВ закладки on 26-Апр-02, 14:13  (MSK)
>>в $var="2:17", как сделать из var новую var2="17/02". Соответственно если $var="3:01" --> $var2="01/03"
>>Спасибо!
>
>
>#!/usr/bin/perl
>
>$var="3:01";
>
>@fld=split(':',$var);
>
>if (length($fld[0])<2) {$fld[0]=qq(0$fld[0]);}
>if (length($fld[1])<2) {$fld[1]=qq(0$fld[1]);}
>
>$var2=qq($fld[1]/$fld[0]);
>
>printf "%s\n",$var2;
>
>#------------------------------
>

perl -e 'my $var="12:7"; $var =~ /(\d+):(\d+)/;my $var2=(0 x (2-length($2))).$2."/".(0 x (2-length($1))).$1;print $var2."\n";'

тоже работает!

  Рекомендовать в FAQ | Cообщить модератору | Наверх

3. "RE: знатокам перла"
Сообщение от Hermit Искать по авторуВ закладки on 10-Май-02, 17:57  (MSK)
>в $var="2:17", как сделать из var новую var2="17/02". Соответственно если $var="3:01" --> $var2="01/03"
>Спасибо!

Попробуй
$var2 = sprintf('d/d', reverse(split(':', $var)));

(А это то же самое, должно смотреться корректно в IE :)
$var2 = sprintf('%02d/%02d', reverse(split(':', $var)));

  Рекомендовать в FAQ | Cообщить модератору | Наверх


Удалить

Индекс форумов | Темы | Пред. тема | След. тема
Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру