http://www.perlmonks.org?node_id=632778
Public ScratchpadDownload, Select Code To D/L

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