Perl-Code

#!/usr/bin/perl -w

use strict;
use warnings;

print "Text eingeben: \n";
my $text = reverse(lc(<STDIN>));

my $len = length($text);
for(my $i = 0; $i < $len; $i++){
   ($i%2) ? ( print chop($text) ) : ( print uc(chop($text)) )
} 

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" ;

Perl-Code

use strict;
use warnings;

print "Texteingabe: \t";
my $wort = <STDIN>;

my @buchstaben = split('',$wort);

my $arrlength = @buchstaben;

for(my $i = 0; $i < $arrlength; $i++)
{
	my $buchstabe = $buchstaben[$i];
	if($i % 2 == 0)
	{
		 $buchstaben[$i] = uc($buchstabe);
	}
	else
	{
		 $buchstaben[$i] = lc($buchstabe);	
	}
}
print "Textausgabe: \t";
foreach(@buchstaben)
{
	print $_;
}

Perl-Code

#!/usr/bin/perl

use strict;
use warnings;

my $c = 0;
my $zahler = 0;

print "geben Sie einen Text ein: ";
my $x = <STDIN>;
chomp $x;
my @arr = split(//,$x);
foreach (@arr){
	$zahler++;
	if ($zahler % 2){
		print "$_";
	}
	else {
		print ucfirst "$_";
	}
	
}

print "\n";



#Beenden des Programms
print "zum Beenden enter druecken";
<STDIN>

Perl-Code

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

my $low_up_control = 0;
my @characters;
my @up_low_sentence;

print "Eingabe: ";
chomp(my $sentence = <STDIN>);

@characters = split('', $sentence);

foreach my $char(@characters){
	if($low_up_control %2 == 0){
		$up_low_sentence[$low_up_control] = lc($characters[$low_up_control]);
	}else{
		$up_low_sentence[$low_up_control] = uc($characters[$low_up_control]);
	}
	$low_up_control++;
}

print "Ausgabe: ";
print @up_low_sentence, "\n";

Perl-Code

use strict;
use warnings;

print "Texteingabe: ";
chomp(my $text = <STDIN>);

my @text = split '', $text;
my $count = 0;

foreach(@text) {
	if($count %2){
		print $_;
	} else {
		print uc($_);
	}
	$count++;
}