X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: f996b,694b2c31500797b4
X-Google-Attributes: gidf996b,public
X-Google-ArrivalTime: 2002-04-02 11:58:42 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!newsfeed00.sul.t-online.de!t-online.de!news-lei1.dfn.de!news-ber1.dfn.de!fu-berlin.de!uni-berlin.de!dialin-212-144-165-187.arcor-ip.NET!not-for-mail
From: Michael Schierl <schierlm-usenet@gmx.de>
Newsgroups: alt.ascii-art
Subject: Re: Character List
Date: Tue, 02 Apr 2002 21:58:16 +0200
Lines: 47
Message-ID: <a8d2hg$r5kdi$3@ID-39741.news.dfncis.de>
References: <20020330221444.12042.00000994@mb-fl.aol.com>
 <3k5eauov0iv5sjeipg0sq9svmel1c1c5ps@4ax.com>
 <Xns91E3600EED93Erfdfciasdsdj412tr@213.180.128.20>
Reply-To: schierlm@gmx.de
NNTP-Posting-Host: dialin-212-144-165-187.arcor-ip.net (212.144.165.187)
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
X-Trace: fu-berlin.de 1017777520 28496306 212.144.165.187 (16 [39741])
X-Newsreader: Forte Agent 1.8/32.548
Xref: archiver1.google.com alt.ascii-art:16546

"Rafal 'Raf256' Maj" <raf256@szybkapoczta.pl> wrote:

>bug <my.e-mail.is@my.sig> wrote in
>news:3k5eauov0iv5sjeipg0sq9svmel1c1c5ps@4ax.com: 
>
>>#include <iostream>
>> int main()
>> {
>>      for (int i=32; i<128; i++)
>>           std::cout << (char) i;
>>      return 0;
>> }

#!/usr/bin/perl
for(32..126){print chr;}

>#include <iostream.h>
>#include <conio.h>
>int main()  {
>  clrscr();
>  int x=0;
>  for (int i=32; i<=126; i++) {
>    if (i<100) cout<<'0';
>    cout<<i<<' '<<(char)i<<" | ";
>    if (x++>6) { cout<<endl; x=0; }
>  }
>  return 0;
>}

#!/usr/bin/perl
for(32..126){
$^A="";
formline '@##',($_); $^A =~ s/ /0/;
print $^A." ".(chr $_)." |";
if ($x++>6) {print "\n";$x=0;}
}

not very elegant, but this is my first sensible perl script.

Perhaps this here is better:

#!/usr/bin/perl
for(32..126){
print (($_<100?"0":"").$_." ".(chr $_)." |".(++$x%6==0?"\n":""));
}

Michael