[Israel.pm] Perl signature - TTW (time to weekend)

[Mikhael Goikhman]

On 18 Mar 2004 15:59:43 +0000, Srikanth Madani wrote:
> 
> Mikhael wrote:
> >perl -e '@_=localtime,print$_[6]>5?"Enjoy":(5-$_[6])*24-$_[2]." hours until",
> " the weekend"'
> 
> Very nice!
> Can you please provide the expanded version please - I can't figure out how
> the array assignment can be concatenated with the print statement.

Do you mean I should write a signature for you printing your birth day?
But I definitely don't want to spoil your fun. :-)

Regards,
Mikhael.

-- 
# perl -w

$"="MwMWuOmUMUN8]X:PAZMZP^AZZPAZUZP^AXZPAZZZP^AWJPAXD:N8"
."]X:PAXo:MwMWuOmWM";for(3..9){for(0..9){for(7..9){for(0,
1){$@[$_].=(split//,"O |- :.*")[((ord($,||='u')-56)>>$%*2
&3)+$_*4]}$%++}$%=0,$,=chop$"}print"$@[0] $@[1]\n";@@=""}