Thread bei print ein Zeichen zurückspringen (6 answers)
Opened by Gast at 2005-12-22 11:09

Relais
 2005-12-22 11:37
#61292 #61292
User since
2003-08-06
2244 Artikel
ModeratorIn
[Homepage] [default_avatar]
[quote=Guest,22.12.2005, 10:09]die Zeichen "/" , "--" und "\" immer nacheinander auf der gleichen Position ausgeben.[/quote]
hab gerade mal einen gebastelt, der auf ascii-(kompatiblen)-Konsolen läuft.

Eingentlich ist das wichtigste, den jeweiligen Backspace-Character zu kennen. Das sollte eigentlich \b sein, doch man kann sich leider nicht drauf verlassen.

Unix Shells:
Code: (dl )
perl -e '$|=1; my @chars = qw(- \\ | /); while ( 1 ) { for ( @chars ) { print $_; select(undef, undef, undef, 0.2); print "\b" } }'


Dosenprompt:
Code: (dl )
c:\cygwin\bin\perl -e "$|=1; my @chars = qw(- \\ | /); while ( 1 ) { for ( @chars ) { print $_; select(undef, undef, undef, 0.2); print qq(\010) } }"


Viel Spaß.\n\n

<!--EDIT|Relais|1135244379-->
Erst denken, dann posten --
26. Deutscher Perl- u. Raku -Workshop 15. bis 17.04.2024 in Frankfurt/M.

Winter is Coming

View full thread bei print ein Zeichen zurückspringen