Veronica Mårtensson
veronica@mbox314.swipnet.se
Lektion 4

Perl

Uppgift 1:
Ett program som läser in ett nummer, multiplicerar det med 2
och skriver ut resultatet.

print ("Enter a number:\n");
$number = <STDIN>;
chop ($number);
$multiple = $number * 2;
print ("$number multipled by 2 is $multiple\n");

Uppgift 2:
Ett program som konverterar dollar till kronor, kurs 7,78.

print ("How many dollars do you have?\n");
$dollar = <STDIN>;
chop ($dollar);
$crowns = $dollar * 7.78;
print ("For $dollar dollar you\'ll get $crowns crowns.\n");

Uppgift 3:
Ett program som ställer frågan "Vad heter Finlands huvudstad?".
Både "Helsingfors" och "Helsinki" ger rätt, alla andra svar skriver
ut "Fel. Försök igen."

print ("What is the capital of Finland?\n");
$capital = <STDIN>;
chop ($capital);
if ($capital eq "Helsingfors") {
    print ("You\'ve got it!\n");
} elsif ($capital eq "Helsinki") {
    print ("You\'ve got it!\n");
} else {
    print ("It\'s wrong. Try again!\n");
    $capital = <STDIN>;
    chop ($capital);
}

Uppgift 4:
Ett program där användaren kan mata in en lista av ord,
och där denna lista sedan skrivs ut i omvänd ordning.

print ("Enter the list of strings, enter with CTRL-Z\n");
@list = <STDIN>;
@reverselist = reverse @list;
print ("@reverselist\n");

Uppgift 5:
Ett program där man ber användaren mata in ett ord med
små bokstäver, och som sedan skriver ut ordet med stora
bokstäver.

print ("Enter a word with small letters:\n");
$inputline = <STDIN>;
print ("The word with uppercase letters: \U$inputline\E\n");

Previous

Veronica Mårtensson
981101
Hemsida: http://home8.swipnet.se/~w-80571
E-mail: veronica@mbox314.swipnet.se