Sie wollen einen Schriftzug, sechs Zeilen hoch, auf die Konsole zeichnen, z.B. als Willkommensschriftzug.

#!/usr/bin/perl -w
# cap.pl - Zeichnet einen Schriftzug sechs Zeilen hoch
# Copyright (C) Fre Jun 29 21:58:19 MEST 2001 by Ingo Blechschmidt

@b = ("AAAAAAAA|BBBBBB  |  CCCCCC|DDDDDD  |EEEEEEEE|FFFFFFFF|  GGGG  |HH    HH|  I  I  |      JJ|KK    KK|LL      |MM    MM|NN    NN|  OOOO  |PPPPPP  |  QQQQ  |RRRRRR  |  SSSS  |TTTTTTTT|UU    UU|VV    VV|WW    WW|XX    XX|YY    YY|ZZZZZZZZ|",
      "AA    AA|BB    BB|CC      |DD  DD  |EE      |FF      |GG    GG|HH    HH|   II   |      JJ|KK  KK  |LL      |MMM  MMM|NNN   NN| OO  OO |PP    PP| QQ  QQ |RR    RR|SS    SS|   TT   |UU    UU|VV    VV|WW    WW| XX  XX | YY  YY |      ZZ|",
      "AA    AA|BB    BB|CC      |DD    DD|EE      |FF      |GG      |HH    HH|   II   |      JJ|KKKK    |LL      |MM MM MM|NN NN NN|OO    OO|PP    PP|QQ    QQ|RR    RR| SSS    |   TT   |UU    UU|VV    VV|WW    WW| XX  XX | YY  YY |    ZZZ |",
      "AAAAAAAA|BBBBBBBB|CC      |DD    DD|EEEEEE  |FFFFFF  |GG  GGGG|HHHHHHHH|   II   |      JJ|KKKK    |LL      |MM    MM|NN NN NN|OO    OO|PPPPPP  |QQ  Q QQ|RRRRRR  |    SSS |   TT   |UU    UU|VV    VV|WW WW WW|  XXXX  |   YY   |  ZZZ   |",
      "AA    AA|BB    BB|CC      |DD  DD  |EE      |FF      |GG    GG|HH    HH|   II   |JJ    JJ|KK  KK  |LL      |MM    MM|NN   NNN| OO  OO |PP      | QQ  QQ |RR  RR  |SS    SS|   TT   | UU  UU | VV  VV |WWW  WWW| XX  XX |   YY   |ZZ      |",
      "AA    AA|BBBBBB  |  CCCCCC|DDDDDD  |EEEEEEEE|FF      |  GGGG  |HH    HH|  I  I  |  JJJJ  |KK    KK|LLLLLLLL|MM    MM|NN    NN|  OOOO  |PP      |  QQQQ Q|RR    RR|  SSSS  |  T  T  |  UUUU  |   VV   |WW    WW|XX    XX|   YY   |ZZZZZZZZ|");

@d = ();
@a = split("", $ARGV[0]);

foreach $akt (@a) {
  $d[0] .= substr($b[0], (ord($akt) - 65) * 9, 8) . '  ';
  $d[1] .= substr($b[1], (ord($akt) - 65) * 9, 8) . '  ';
  $d[2] .= substr($b[2], (ord($akt) - 65) * 9, 8) . '  ';
  $d[3] .= substr($b[3], (ord($akt) - 65) * 9, 8) . '  ';
  $d[4] .= substr($b[4], (ord($akt) - 65) * 9, 8) . '  ';
  $d[5] .= substr($b[5], (ord($akt) - 65) * 9, 8) . '  ';
}

foreach $bb (@d) {
  print "$bb\n";
}