Text abwechselnd in Groß- und Kleinschreibung

6 Lösungen

#27

Anfänger - Perl von Dome - 29.12.2012 um 01:34 Uhr

Schreiben Sie ein Programm, welches einen eingegeben Text so manipuliert, das der Text abwechselnd in Groß- und Kleinschreibung auf den Bildschirm ausgegeben wird.

Konsolenausgabe:

Texteingabe: Beispieltext
Textausgabe: BeIsPiElTeXt

Bitte melden Sie sich an um zur Aufgabenbeschreibung eine Frage zu stellen.

Frage stellen

Bitte melden Sie sich an um eine Lösung einzureichen.

Lösung einreichen

von progdoc (2220 Punkte) - 31.12.2012 um 08:30 Uhr

Perl-Code

#!/usr/bin/perl 
use strict ;
use warnings ;

my $text = "Dies ist der Text, bei dem wir die Buchstaben abwechselnd gross und klein darstellen wollen!" ;
for ( my $i = 0 ; $i < length $text ; $i += 2 ) {
   substr( $text , $i , 1 ) = lc substr( $text , $i , 1 ) ;
}
for ( my $i = 1 ; $i < length $text ; $i += 2 ) {
   substr( $text , $i , 1 ) = uc substr( $text , $i , 1 ) ;
}
print "Und hier der veränderte Text:\n$text\n" ;