«

$ cat file
18:25
18:56
$ perl -wlpe 'Please tell me what to write here to get the following' file
18:55
19:26
Maybe perldoc Date:arse has something to do with this.
In Unix I can do $ date +%H:%M -d '22:22 + 30 minutes'.

On Wed, 24 Sep 2003 12:56:18 +0800, Dan Jacobson wrote:
> Maybe perldoc Date:arse has something to do with this.

Indeed. What went wrong when you tried to use it?


--
Tore Aursand <>

"You know the world is going crazy when the best rapper is white, the best
golfer is black, France is accusing US of arrogance and Germany doesn't
want to go to war."

"Dan Jacobson" <> schreef in bericht
news:...
> $ cat file
> 18:25
> 18:56
> $ perl -wlpe 'Please tell me what to write here to get the following' file
> 18:55
> 19:26

perl -wlpe 'my ($h,$m)=split(/:/); my $t=($h*60)+$m+30; $h=int($t/60)%24;
$m=$t%60; $_=sprintf "%02d:%02d",$h,$m;'

--Frank

Dan Jacobson wrote:
>
> $ cat file
> 18:25
> 18:56
> $ perl -wlpe 'Please tell me what to write here to get the following' file
> 18:55
> 19:26
> Maybe perldoc Date:arse has something to do with this.
> In Unix I can do $ date +%H:%M -d '22:22 + 30 minutes'.


$ perl -e'
use Time::Local;
my @times = qw/ 18:25 18:56 23:42 /;
for my $time ( @times ) {
print "$time ";
$time = join":",(gmtime(timegm(0,(reverse $time=~/\d+/g),(gmtime)[3,4,5])+1800))[2,1];
print "$time\n";
}
'
18:25 18:55
18:56 19:26
23:42 0:12



John
--
use Perl;
program
fulfillment