Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Bone::Easy one-liner

by darobin (Monk)
on Mar 27, 2001 at 21:57 UTC ( #67561=CUFP: print w/replies, xml ) Need Help??

UPDATE: Please stop msg'ing me to tell me how bad an idea it was to post this, I know, I've understood, I made a mistake !

I've only been here a few days, and am still getting to learn the local culture, which, this being Perl, is appropriately specific to the place.

I knew, or at least somehow felt that it wasn't a great node to add. About a month ago I told a friend who'd been doing Perl for two years (and not bad Perl either) that he could use the -M flag to load modules on the command line. Somehow, it had never occured to him and came as an epiphany (obviously, it's quite useful). With that in mind, I thought that it might help someone else to show this simple trick in an amusing (if of bad taste) way.

That's all. I made a mistake, I apologize. Drown this node in -- as much as you want so that it'll be forgotten and never revisited. I'll be happy that this is as much punishment I will get for a mistake in this monastery, I'm sure others would have forced me to flagellate by recoding Bone::Easy in Java...

Original content follows so that the mistake will remain visible.

This is easy and silly, but I thought it might interest some. Bone::Easy is a module that auto-generates pickup lines. It can be easily used as a one-liner:

perl -MBone::Easy -e 'print pickup(), "\n"'

I've aliased this as pickup in my .bashrc, now anytime someone enters my office and I feel I may be blundering for words to say, I simply type pickup and get something to start an interesting conversation...

--darobin "Hug me if I'm wrong, but don't I know you?"

Replies are listed 'Best First'.
(sacked: pickup script) Re: Bone::Easy one-liner
by sacked (Hermit) on Mar 28, 2001 at 04:38 UTC
    From perldoc Bone::Easy:
    SEE ALSO ...the pickup manpage...
    pickup is a short Perl script that comes with the module and does exactly what your one-liner does. I discovered it shortly after writing a quick script like yours. =)

    --sacked
Re: Bone::Easy one-liner
by matthewk (Initiate) on Mar 31, 2001 at 21:19 UTC

    I like your post not so much for the Perl aspect, but I never thought of using a function like that to start a conversation using a shell alias. Truly geeky and at least deserving a post in _some_ forum here - heck it was only five lines and two mouse clicks...

    Further, it's motivated me to do something even more geeky with Perl (not worth mentioning).

    MK
A reply falls below the community's threshold of quality. You may see it by logging in.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: CUFP [id://67561]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (3)
As of 2023-02-06 04:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I prefer not to run the latest version of Perl because:







    Results (33 votes). Check out past polls.

    Notices?