bei print ein Zeichen zurückspringen - #61292 (Allgemeines zu Perl)

Relais

2005-12-22 11:37

User since
2003-08-06
2246 Artikel
ModeratorIn

[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

Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop (Termin wird noch gesucht) 2025 in München.

Winter is Coming