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

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?

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

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (6)
As of 2016-10-23 14:56 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (301 votes). Check out past polls.