* Michael Jahn wrote/schrieb:
> ich soll fuer das prog. einen kompl. alorithmus finden.
Komplex? Komplett? Komplott? Komplement�r? Kompliziert? Kompliment?
> das programm erzeugt ein lauflicht mit ncurses.
Ich kann zwar kein C und erst recht kein ncurses, aber was Du willst, ist,
die manuelle Eingabe der Ausgabezeilen durch einen Automatismus ersetzen,
der das macht, was Du bei der Eingabe gemacht hast.
So w�rde ich das in Perl machen, ohne ncurses:
* SCHNIPP *
#!/usr/bin/perl
# Script: K.I.T.T
# (c) 2002 Foundation for Law and Government
use strict;
use subs qw(&printled);
my $abstand = 7;
my $segment = "0" . " " x $abstand;
my $segmente = 10;
my $clear = `clear`;
while (1){
for (my $i = 0; $i <= $abstand; $i++){
printled($i);
}
for (my $i = $abstand - 1; $i >= 1; $i--){
printled($i);
}
}
sub printled{
my ($einrueck, $freiraum, $ausgabe);
$einrueck = shift @_;
$freiraum = " " x $einrueck;
$ausgabe = $freiraum . $segment x $segmente;
$ausgabe =~ s/\s+$//;
print $clear;
print "$ausgabe\n";
sleep 1;
}
* SCHNIPP *
Das auf C zu portieren, sollte ja kein Problem sein. Das w�re jetzt auch mal
ein sch�nes Versuchsobjekt f�r einen Perl-Einzeiler. :-)
> #define TEMPO 5000000
> for (i = 1; i <= TEMPO; i++);
Nicht schlecht. Macht man das in C so? :->
-martin
--
Give your very best today. Heaven knows it's little enough.
----------------------------------------------------------------------------
PUG - Penguin User Group Wiesbaden - http://www.pug.org
