Help-Site Computer Manuals
Software
Hardware
Programming
Networking
  Algorithms & Data Structures   Programming Languages   Revision Control
  Protocols
  Cameras   Computers   Displays   Keyboards & Mice   Motherboards   Networking   Printers & Scanners   Storage
  Windows   Linux & Unix   Mac

AA.pm

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


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.

Programminig
Wy
Wy
yW
Wy
Programming
Wy
Wy
Wy
Wy