Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: The nature of my most pressing need(s):

by emcs (Scribe)
on May 14, 2002 at 04:24 UTC ( [id://166368]=note: print w/replies, xml ) Need Help??


in reply to The nature of my most pressing need(s):

Okay: My coding skills are still weak.

But I realize that all good monks must eventually post some real code.

So: Here goes; I have been working with the tutorial node.

#!perl -w use strict; print "Do you like deep perlish questions at the voting booth?\n"; my $input = <>; chomp $input; if ($input eq 'y') { while ( <DATA> ) { chomp; my @SelfActualization = split /\|/; print join(' ', @SelfActualization), "\n"; } }else{ if ($input eq 'n'){ print "Non of the above for me. MU."; } } __END__ You have no hangups.|You love Psychiatrists.|You have strong Ego.| High Self esteem.|Isn't life just great.

The dogs bark; but the caravan rolls on.

emcs

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others having a coffee break in the Monastery: (7)
As of 2024-04-16 10:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found