Textverarbeitung mit Perl

Perl Quiz 1

In diesem Quiz werden Fähigkeiten aus den Übungen 1-3 getestet.


Die Datei apple.txt ist ein vom Internet kopierter Artikel. Es mag manche Unschönheiten geben, was Umlaute und andere Zeichen angeht. Mit diesem Text sollen Sie jetzt arbeiten (Sie können sich den Text auch direkt nochmal aus dem Internet holten: http://www.spiegel.de/netzwelt/gadgets/wwdc-2012-apple-zeigt-retina-display-macbook-pro-a-838245.html)

Wir legen folgendes Program aus Übung 3 zugrunde.
#!/usr/local/bin/perl
#druckt einen Text versehen mit Zeilennummern 

#linenums.pl DATEI

while (<>) {
   print "$.: $_";
}

print "\n$. Zeilen insgesamt\n\n";

Schreiben Sie ein Programm, das folgendes leistet.

Legen Sie nun das folgende Programm aus der Übung 3 zugrunde.
#!/usr/bin/perl
# first array

#define an array of heroes 
@heroes = qw(Sindbad Xena Hercules Modesty_Blaise Superman Spiderman);

#counter for each element of array
$n = 0;

# COUNTER - COUNTS EACH ROW
$count = 1;

# go through array and just print it
while ($heroes[$n]) {
	print "$count\t$heroes[$n]\n";
    $n++;  #place in array 
     $count++;  #line in array" 
}


 
Bitte das erstellte Programm bei Anja Leiderer einreichen!

Ende