Wie mache ich einen Schrifteffekt mit Perl? (Allgemeines zu Perl)

[thread]14495[/thread]

Wie mache ich einen Schrifteffekt mit Perl?

Leser: 22

Articles: hide open all | hide show old branches

+6 replies
Gast Arnold

2010-01-15 00:22

Hallo Leute,
ich hatte mal vor einiger Zeit ein Perl Script gesehen, welches in der Konsole einen vorher eingegebenen Namen mit einem Schrifteffekt ausgegeben hat.

Es ging solange die Buchstaben durch, bis sie auf den Namen passten.

Also zb.
Name ist: Test

Das Script schrieb dann: a,statt dem a kam dann ein b etc... bis es ein T war. Danach kam der nächste Buchstabe.

Hier mal ein Video [~ 190kb] von meiner Konsole. Dort kann man auch den Effekt sehen, und zwar zb. beim Downloadspeed:
http://www.xup.in/dl,96763745/test-0000.mpeg/

Hat jemand eine Idee wie ich das hinbekommen könnte?
ich glaube wohl nicht das der "cls" bzw "clear" Befehl benutzt wird *gg*

mfg Arnold
- betterworld
  
  2010-01-15 00:38
  
  User since
  2003-08-21
  2614 Artikel
  ModeratorIn
  
  Durch die Ausgabe von "\r" kannst Du an den Anfang der Zeile zurueckspringen und die Zeile ueberschreiben. Download-Anzeigen werden gewoehnlich so gebaut. Damit die Ausgabe erscheint, obwohl kein "\n" ausgegeben wurde (das wuerde in die naechste Zeile springen), musst Du Pufferung deaktivieren ($|++). Mit "\b" kann man ein Zeichen zurueckgehen.
  
  Es gibt dann noch weitere Escape-Sequenzen, womit man auch an bestimmte Koordinaten auf einem Terminal springen kann. Die sind aber afaik im allgemeinen nicht so portabel, daher muesste man auf Terminfo oder Curses zurueckgreifen.
  Lieblingsmodule: IPC::System::Simple, Path::Class
- pq
  
  2010-01-15 00:38
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  benutze \b oder \r
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- Dubu
  
  2010-01-15 01:00
  User since
  2003-08-04
  2145 Artikel
  ModeratorIn + EditorIn
  So was in der Art?
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  use Time::HiRes qw/sleep/; $|++; my $str = "Hello, world!"; for my $c (split //, $str) { for my $z (32 .. ord $c) { print chr($z), "\b"; sleep 0.05; } print $c; }; print "\n";
  
  Das "\b" erzeugt ein Backspace.
  Mit Time::HiRes kann sleep() kürzere Zeiten als eine Sekunde schlafen.
  Mit $|++ wird dafür gesorgt, dass die Zeichen sofort ausgegeben werden (und nicht erst beim Newline).
  
  (Und warum nicht einfach for my $z ("A" .. $c) { print "$z\b"; sleep 0.05; } ?
  Das "Magic Increment" wirkt nur, wenn beide Limits Buchstaben oder Zahlen sind. Wenn $c also z.B. ein Komma ist, würden einfach nur die Buchstaben von "A" bis "Z" ausgegeben.)
- topeg
  
  2010-01-15 01:53
  
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  
  OK verlesen...
  Last edited: 2010-01-15 01:59:02 +0100 (CET)
- Gast Arnold
  
  2010-01-15 15:42
  
  Vielen Dank für eure schnelle hilfe.
  @Dubu, genau sowas meinte ich :)
  
  lg Arnold

View all threads created 2010-01-15 00:22.