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);
[download]

Wait for User Input

sub getAnswer {
  my $ans;

  $ans = <STDIN>;
  chomp($ans);
  return $ans;
}
[download]

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;
}
[download]

Excellent Found Nodes

• The Dynamic Duo --or-- Holy Getopt::Long, Pod::UsageMan!
• Comparing databases - what is the best way?
• Packaging my own Perl Module
• "Lightweight Database Techniques" tutorial materials freed
• Simple Module Tutorial
• Re: how to use Graphviz with sql
• Installing Modules on a Web Server
• Re: XML Cleanup
• A hexidecimal slide-rule in PDF.
• Re: Replacing expression on certain line numbers
• Beast of the Number: Parsing the Feral Phone
• DBI recipes
• Resorting to Sorting