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

Mikhael Goikhman migo at homemail.com
Thu Mar 18 07:42:38 PST 2004

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. :-)


# perl -w

1){$@[$_].=(split//,"O |- :.*")[((ord($,||='u')-56)>>$%*2
&3)+$_*4]}$%++}$%=0,$,=chop$"}print"$@[0] $@[1]\n";@@=""}

More information about the Perl mailing list