On Mon, 20 Aug 2001 at 10:19:30 +0100, Ian Phillipps wrote:
> Here's a test, since I've not seen this problem before.
> I've bcced myself on several addresses to see how it copes.
. One dot here
.. Two dots
The FWP copy didn't get to me - de-duped by procmail :-(
Sorry about the testing, but I'd just like to see if the dottiness is
FWP's fault or Andrew's mailer's.
> Ian
Yep, that's me.
ObFWP: Here's a short program I wrote to overcome a limitation in a
Solaris version of a utility that works better on Linux. Your mission,
should you choose to accept it, is to golfise it. Implementation of '-v'
optional. Note the behaviour with arg of 1:2:3 - preserve this.
A technique which I will use again is $_=" @ARGV" - it makes parsing
args *much* less hassle. Good old BCPL...
=cut
#! /usr/local/bin/perl -w
$_=" @ARGV";
$verbose = s/\s+-v//;
%mults=qw/s 1 m 60 h 3600 d 86400/;
1 while
s/(\d+):(\d+)/ 60*$1+$2 /e
or
s/(\d+)\s*([smhd])[a-z]*/ $mults{$2}*$1 /ieg;
$_ = eval join '+',split;
$time=localtime $_+time;
warn "sleep $_, until $time\n" if $verbose;
sleep $_;
