Skip to content

Instantly share code, notes, and snippets.

@raster

raster/banner.pl

Created October 11, 2011 19:32
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 raster/1279148 to your computer and use it in GitHub Desktop.
Save raster/1279148 to your computer and use it in GitHub Desktop.
Download ZIP
Perl Banner Program
Raw
banner.pl
#!/usr/bin/perl
use Text::Banner;
$str = $ARGV[0];
$size = $ARGV[1];
$char = $ARGV[2];
if (!(defined($size))) {
$size = '2';
}
if (!(defined($char))) {
$char = '0';
}
$a = Text::Banner->new;
$a->set($str);
$a->size($size);
$a->fill($char);
$a->rotate('r');
print "\n\n";
print $a->get;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment