The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
HTML-AA-0.10
River stage zero No dependents
1 ++
/ HTML::AA

NAME

HTML::AA - The function to undergo plastic operation on the character string displayed in a browser is possessed though it is a MS P Gothic font of 12 points

SYNOPSIS

  use HTML::AA;

  my $aart = new HTML::AA;
  $aart -> code('euc');
  my $dot;
  my $str = 'Character string';
  my @str = ('Character string','Length adjustment');

  print  "Content-type: text/html; charset=EUC-JP\n\n";
  print  "<body>\n";
  print  "HTML::AA Sample of usage<br>\n";

  $dot = $aart -> calcu($str);
  printf "Number of dots of [%s] %d<br>\n", $str, $dot;

  printf "|%s|<br>\n", $aart -> adjust($str, q{}, 'R', 350);
  printf "|%s|<br>\n", $aart -> adjust($str, q{}, 'L', 350);
  printf "|%s|<br>\n", $aart -> adjust(q{}, $str, 'R', 350);
  printf "|%s|<br>\n", $aart -> adjust(q{}, $str, 'L', 350);
  printf "|%s|<br>\n", $aart -> adjust($str, $str, 'R', 350);
  printf "|%s|<br>\n", $aart -> adjust($str, $str, 'L', 350);

  $dot = $aart -> shorter(@str);
  printf "|%s|<br>\n", $aart -> adjust($_, q{}, 'R', $dot) foreach @str;
  printf "|%s|<br>\n", $aart -> adjust($_, q{}, 'L', $dot) foreach @str;
  printf "|%s|<br>\n", $aart -> adjust(q{}, $_, 'R', $dot) foreach @str;
  printf "|%s|<br>\n", $aart -> adjust(q{}, $_, 'L', $dot) foreach @str;

  print  "</body>\n";

DESCRIPTION

  HTML::AA Sample of usage
  Number of dots of [Character string] 111
  |Character string@@@@@@@@@@@@@@@@@@@@@. |
  |Character string. @@@@@@@@@@@@@@@@@@@@@|
  |@@@@@@@@@@@@@@@@@@@@@. Character string|
  |. @@@@@@@@@@@@@@@@@@@@@Character string|
  |Character string@@@@@@@@ @ @ .Character string|
  |Character string. @ @ @@@@@@@@Character string|
  |Character string.....|
  |Length adjustment|
  |Character string.....|
  |Length adjustment|
  |.....Character string|
  |Length adjustment|
  |.....Character string|
  |Length adjustment|

  Please replace "@" with \xa1\xa1 of EUC-JP.

  The explanation of Japanese is here. 
  http://penlabo.oh.land.to/HTML-AA.html

EXPORT

None by default.

SEE ALSO

I think finding when "ASCII art" is retrieved in Japanese.

AUTHOR

satoshi ishikawa <penguin5@u01.gate01.com>

COPYRIGHT AND LICENSE

  Copyright (C) 2006 satoshi ishikawa
  and
  Companions of lounge thread of bulletin board of "2 channel"
  The explanation of "2 channnel" is here.
  http://2ch.net/

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or, at your option, any later version of Perl 5 you may have available.