Jochen Friedmann (jochen.friedmann2 (at) de.bosch.com) wrote on MMMDCLXVII
September MCMXCIII in <URL:news:bk48ef$e0k$1@ns2.fe.internet.bosch.com>:
__  Oh, sorry
__
__  the OS is Win2000 or WinnNT


Oh, fastest way to shutdown Win2000 from Perl that I know is:

    print "\t\t\b\b\b\b\b\b\b\b\b\b\b\b" while 1;


Although this might be fixed with some patch.

Uri Guttman <uri (at) stemsystems.com> wrote:
>>>>>> "GS" == Garry Short <g4rry_sh0rt (at) zw4llet.com> writes:
>
>  GS> Just on a casual note, because the more I read, the more impatient
>  GS> I get, are there any estimated timescales on when Perl6 will be
>  GS> available?
>
> next christmas (for some definition of christmas).

So then, that would be:
   any('christmas')

?

Jeff 'japhy' Pinyan wrote on MMMDCV September MCMXCIII
in <URL:news:Pine.SGI.3.96.1030715112248.17707C-100000@vcmr-64.server.rpi.edu>:
))  On Tue, 15 Jul 2003, ZZT wrote:
))
)) >is there a way to shorten this expression?
)) >
)) >$host=~/^(\S*)\s*/; $host=$1;
))
))  Well, as it stands, even if the regex FAILS, $host will be set to whatever
))  $1 was before the regex.

But the only string on which the regexp can fail is a string that
doesn't have a beginning. Now, in perl6, with lazy evaluation, we
might be able to construct strings without an end.

But how do I make a string without a beginning?

Abigail writes:

> perl -e '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>          / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
>          % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %;
>          BEGIN {% % = ($ _ = " " => print "Just Another Perl Hacker\n")}'

I think my brain is melting.

David Bouman <dbo@xbn.nl> wrote:
> Koos Pol wrote:
>
>> chip() should make a fine opposite to chop() I find myself removing
>> a first char regularly.
>
> Nah, that would imply having an opposite to chomp() as well,


   sub pmohc {  # the anti-chomp
      $_[0] .= $/;
   }

:-)

Dave wrote:
> I've lost my copy of "The perl CD bookshelf", any suggestions on what
> I can do?

Did you check your refrigerator already? According to a study a surprisingly
large number of people find their lost TV remotes in the frigde. Maybe your
book went the same way?

Christian Lackas <delta@lackas.net> writes:

> >>$ perl -le'$_=shift;1while s/(.)(.)/$1+$2/eg;print' 123456789
> >   perl -le'$_=pop;$_=eval until!s/\B/+/g;print' 123456789
>     perl -le'$_=pop().eval,until!s/\B/+/g;print' 123456789
>
> Ich denke aber, dass alle beteiligten obigen Vorschlag gelten lassen, oder?

Ist ja alles ganz eindrucksvoll. Wozu aber all die Verrenkungen, nur
um an die Querziffer zu kommen?

      perl -le'print 1+(-1+pop)%9' 123456789