Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Sinistral's scratchpad

by Sinistral (Prior)
on Aug 15, 2007 at 16:05 UTC ( #632778=scratchpad: print w/ replies, xml ) Need Help??

Cool Code Snippets

Count Instances of string in List

my $thing_to_find = 'needle'; my @haystack = ('needle', 'hay', 'more hay', 'yet more hay'); my $needle_count = scalar(grep { /^$thing_to_find$/ } @haystack);

Wait for User Input

sub getAnswer { my $ans; $ans = <STDIN>; chomp($ans); return $ans; }

Pad a String to Provided Length

sub pad { my ($str, $padSize, $padChar, $dir) = @_; my $padding = ""; my $padLength = ""; if ($#_ == 2) { $dir = "right"; } if (length($str) < $padSize) { $padLength = $padSize - length($str); $padding = "$padChar" x $padLength; if ($dir eq "right") { $str = $str . $padding; } else { $str = $padding . $str; } } return $str; }

Excellent Found Nodes

Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (13)
As of 2015-05-22 18:17 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    In my home, the TV remote control is ...









    Results (464 votes), past polls