#!/usr/bin/perl -w
use strict;
my @e=qw(| \ - /);
while (1)
{
foreach (@e)
{
print $_."\b";
}
}
you needed a space between each character or it thought it was one word :)
----- Original Message -----
From: "Juban, Nix" <[EMAIL PROTECTED]>
To: "'Andres L. Figari'" <[EMAIL PROTECTED]>; "Juban, Nix"
<[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Tuesday, November 26, 2002 7:33 PM
Subject: RE: My script doesnt print out the output i like
> Nope, it didnt work but thanks for responding.
>
> it cancelled the \b, now it prints it.
>
>
\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\
> _/\b
>
|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/
> \b|\
>
_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b
> |\_/
>
\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\
> _/\b
>
|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/
> \b|\
>
_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b
> |\_/
>
\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\
> _/\b
>
|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/
> \b|\
>
_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b
> |\_/
>
\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\_/\b|\
> _/\b
>
> -----Original Message-----
> From: Andres L. Figari [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, November 27, 2002 11:25 AM
> To: Juban, Nix
> Cc: [EMAIL PROTECTED]
> Subject: Re: My script doesnt print out the output i like
>
>
> BlankI think that when you print "\" it thinks it is an escape character,
so
> you would need "\\" check these out, I always have to look them up :)
> ----- Original Message -----
> From: Juban, Nix
> To: '[EMAIL PROTECTED]'
> Sent: Tuesday, November 26, 2002 7:19 PM
> Subject: My script doesnt print out the output i like
>
>
> Hi!
>
> Im just new to PERL and im trying this out...its suppose to make this
line
> tumble like a cartwheel.
>
> ##!/usr/intel/bin/perl -w
> use strict;
> use warnings;
>
> my @e=qw(|\_/);
> while (1)
> {
> foreach (@e)
> {
> print $_."\b";
> }
> }
>
> its just printing, something like this:
>
> _|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|
> |\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\
> _|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|
> |\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\
> _|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|
> |\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\
> _|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|
> |\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\_|\
>
> need help !
>
> cheers ,
> nix juban
> Northwood-V Product Development Engineer
> PG12 Tel. # 8-859-2354 (INET)
> [EMAIL PROTECTED]
>
>
> --------------------------------------------------------------------------
--
> --
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
