note
emcs
Okay: My coding skills are still weak.
<p>
But I realize that all good monks must eventually post some real code.
</p>
So: Here goes; I have been working with the tutorial node.
</p>
<code>
#!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.
</code>
<p>
The dogs bark; but the caravan rolls on.
</p>
emcs
<p>
166110
166110