[PerlQuotes Logo]

tinita.home
Contribute a PerlQuote
Search for Quotes
Fortune - Get all quotes as a text file

PerlQuotes 2003

1989 1990 1991 1992 1998 1999 2000 2001 2002 2003 2004

-------
Abigail (<abigail {at} abigail.nl>)
Re: shutdown or reboot computer
15 Sep 2003 20:56:23 GMT
Contributed by (tinita)
comp.lang.perl.misc
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.
This article at Google
-------
-------
Tad McClellan (<tadmc {at} augustmail.com>)
Re: Why, oh why have I read "Perl 6 essentials"???
Tue, 5 Aug 2003 16:58:44 -0500
Contributed by (tinita)
comp.lang.perl.misc
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')

?
This article at Google
-------
-------
Abigail (<abigail {at} abigail.nl>)
Re: shorten expression
16 Jul 2003 08:10:02 GMT
Contributed by (tinita)
comp.lang.perl.misc
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?
This article at Google
-------
-------
Charlton Wilbur (<cwilbur {at} mithril.chromatico.net>)
Re: k operator in REGEX??
Wed, 02 Jul 2003 20:59:22 GMT
Contributed by (tinita)
comp.lang.perl.misc
Abigail writes:

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

I think my brain is melting.
This article at Google
-------
-------
Tad McClellan (<tadmc {at} augustmail.com>)
Re: Remove first character in a string?
Tue, 3 Jun 2003 14:51:58 -0500
Contributed by (tinita)
comp.lang.perl.misc
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] .= $/;
   }

:-)
This article at Google
-------
-------
Jürgen Exner (<jurgenex {at} hotmail.com>)
Re: The perl CD bookshelf
Sun, 02 Mar 2003 15:14:25 GMT
Contributed by (tinita)
comp.lang.perl.misc
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?
This article at Google
-------
-------
Mona Wuerz (<wuerz {at} yahoo.com>)
Re: [Golf] Querzahl
21 Feb 2003 12:12:48 -0500
Contributed by (tinita)
comp.lang.perl.misc
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
This article at Google
-------