> Nix Juban wrote:
>
> Hi!
Hello,
> 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";
> }
> }
#!/usr/intel/bin/perl -w
use strict;
use warnings;
my @e = qw( | \ - / );
$| = 1; # turn on autoflush
my @e = qw( \ - / | );
my $i = 0;
while (1) {
print $e[ ($i %= @e)++ ], "\b";
}
> Name: geo_clematism.gif
> geo_clematism.gif Type: GIF Image (image/gif)
> Encoding: base64
>
> Name: Blank Bkgrd.gif
> Blank Bkgrd.gif Type: GIF Image (image/gif)
> Encoding: base64
Please don't post graphics files, post text only. TIA
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
