Skip to content

Instantly share code, notes, and snippets.

@cho45

cho45/unindent.pl

Created August 6, 2008 06:43
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save cho45/4182 to your computer and use it in GitHub Desktop.
Save cho45/4182 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
unindent.pl
sub unindent ($) {
my ($str) = @_;
$str =~ /^\n*(\s+)/;
if ($1) {
my $indent = $1;
$str =~ s/$indent//g;
}
$str;
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment