Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
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 all is quiet...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (7)
As of 2016-12-05 21:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:













    Results (94 votes). Check out past polls.