Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much

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
[NetWallah]: /stevieb I dont understand - the poster had a very legitimate issue, and expressed it clearly. WHat did you have a problem with?

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (6)
As of 2017-02-23 14:59 GMT
Find Nodes?
    Voting Booth?
    Before electricity was invented, what was the Electric Eel called?

    Results (347 votes). Check out past polls.