Die Webseiten der Fachschaft Informatik am ERG Saalfeld

Tauschen von 2 Variablen

Es soll ein Programm erstellt werden, das folgende Aufgabe löst:

• Die Inhalte der Variablen x und y sind als Parameter zu uebergeben.
• Die Variablen sind auszugeben.
• Dann sollen die Inhalte von x und y vertauscht werden.
• Die neuen Werte von x und y sind auszugeben.

Programm

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

# das Einlesen der Parameter
my $x = $ARGV[0];        # damit steht der erste Paramter in $x
my $y = $ARGV[1];        # damit steht der zweite Paramter in $y

my $help;                # Variable wird angelegt

# die 1. Ausgabe
print '$x = ', $x, "\n";
print '$y = ', $y, "\n";

print "\n";              # eine Leerzeile

# wir tauschen
$help = $x;
$x    = $y;
$y    = $help;

# die 2. Ausgabe
print "getauscht: \n";
print "\n";

print '$x = ', $x, "\n";
print '$y = ', $y, "\n";

__END__

Der Aufruf sah bei mir so aus:

Aufgaben

1. Bringen Sie das Programm zum Laufen.
2. Rufen Sie das Programm mit anderen Parametern auf.
3. Rufen Sie das Programm ohne Parameter bzw. mit einem Parameter auf.
4. Ergänzen Sie das Programm um eine Überschrift.
5. Diese Überschrift soll unterstrichen sein.
6. Nach der Überschrift soll eine Leerzeile kommen.

zurück