форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

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

"знатокам перла"
Сообщение от gexa 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 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ообщить модератору | Наверх

Удалить

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

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