LRA+ABS Forum - Einführung in die Programmiersprache Perl

Abgabe-Termin (?) (3 Antworten)

Jens.A — Mon, 23 Aug 2010 14:17:41 +0200

Hi,

Leman und ich haben uns grade gefragt, ob/wann es einen Termin für's fertig werden gibt?

lg,
- Jens

Datenbank: kein Primärschlüssel mit DBI:CSV (1 antworten)

Leman — Mon, 16 Aug 2010 11:06:51 +0200

Das Modul DBI:CSV unterstützt kein Primärschlüssel.
Bei unserem Projekt "Vokabel-Trainer" müssen wir gewährleisten, dass jede Vokabel nur einmal in die DB eingefügt wird. Ohne Primärschlüssel zu erstellen, müssen wir jedes Mal alle existierende Vokabeln betrachen und überprüfen, ob die neue Vokabel unter denen ist. Wenn wir das einsetzen, wird es nicht so effizient bei großer Vokabelmenge. Allerdings kannst Du selbst testen.

Die andere Möglichkeit wäre, wenn wir eine DB lokal installieren. So wird es effizient, aber nicht testbar für dich.

Welcher Ansatz wäre es besser in diesem Kurs, einzusetzen?

Histogram (1 antworten)

Jonas_K — Mon, 26 Jul 2010 20:05:32 +0200

Hi,

gibt es mit PerlMagick oder PerlTk irgend einen Trick, wie man so ein Histogram darstellen kann?
Also dass es richtig so aussieht wie in den Graphikprogrammen mit einer Linie oder so?
(nicht nur sowas:
*
*
*
*
*
* *
* * *
* * * * * *
* * * * * * * *
* * * * * * * * *
* * * * * * * * *
* * * * * * * * * * * *
* * * * * * * * * * * * * * * *
---------------------------------------

...
an die Daten für des Histogram zu kommen ist ja tatsächlich eigentlich garnicht so schwer, vor allem wenn man die sub histogram() verwendet ;-) (habs aber sogar auch selber geschrieben :D)

nur von den daten dann eine einigermaßen anschauliche darstellung zu generieren... ist das wirklich so einfach???

chat (2 Antworten)

ann-kathrin — Fri, 16 Jul 2010 08:10:10 +0200

wie krieg ich es hin, dass nicht nur die neu eingetippte nachricht, sondern alle nachrichten im chat angezeigt werden? muss ich dafür zuerst die nachrichten in die datenbank speichern und dann wieder aus der db abrufen? oder geht es auch auf direktem weg?

Blatt 11: Chatseite mit CGI (1 antworten)

Leman — Mon, 12 Jul 2010 00:25:50 +0200

Wie genau war die Struktur der Eingaben, bei denen man reguläre Ausdrücke einsetzen soll?

Es folgt eine Listung dieser Punkte, die ich mich erinnern kann:
(1) *fett*
(2)**kursiv**
(3)_unterstichen_

wie sieht es mit den URLs und Bilder?

Bei den Bilder war es, ich denke, mit eckigen Klammern. Allerdings bin ich mir nicht sicher.

Danke imVoraus!

Kurzanleitung zu CGI (Keine Antworten)

Tobias Nopper — Tue, 06 Jul 2010 14:35:30 +0200

Der CGI-Server, den ihr für euere Übungen verwenden sollt ist irastud1.informatik.uni-freiburg.de, euer Accountname ist (für alle!) iragast.

Login auf den Linux-Kisten per
ssh -X iragast@irastud1.informatik.uni-freiburg.de

Das Passwort sage ich euch im Kurs.

Wechselt dann mit
cd cgi-bin
in das CGI-Verzeichnis, dort habe ich euch mehrere Verzeichnisse angelegt.

MIt
ls -la
könnt ihr euch den Inhalt der Verzeichnisse anschauen, mit
cd demo
in das Demo-Verzeichnis wechseln.

less demo.pl
oder
less echo.pl
zeigt die Dateien an, wenn ihr sehen wollt, was die Dateien tun:
[irastud1.informatik.uni-freiburg.de]
oder
[irastud1.informatik.uni-freiburg.de]

Wenn ihr nicht direkt auf irastud1 editieren wollt (ich habe einige Editoren eingerichtet), könnt ihr auch Dateien per SSH bzw SCP kopieren:
scp skript.cgi iragast@irastud1.informatik.uni-freiburg.de:cgi-bin/Annika
scp iragast@irastud1.informatik.uni-freiburg.de:cgi-bin/Annika/skript.cgi .
oder ihr nehmt einen grafischen Client wie WinSCP (Rechenzentrum), dort kann man die Rechte mit Rechtsklick->Eigenschaften setzen; jeweils unter R, W und X ALLES ankreuzen (AM BESTEN FÜR JEDE DATEI UND JEDES VERZEICHNIS!)

Wenn eine Datei nicht funktioniert "Internal Server Error", obwohl ihr sie mit "perl skript.cgi" starten könnt prüft drei Dinge:
1. Ist die Datei ausführbar?
Ansonsten: chmod 777 skript.cgi (AM BESTEN FÜR JEDE DATEI UND JEDES VERZEICHNIS!)
2. Steht #!/usr/bin/perl in der ersten Zeile der Datei?
3. Steht "print "Content-type: text/html\n\n";" in der Datei?

Zum Testen unterstützt CGI.pm übrigens die praktische Parameterschreibweise:
./echo.cgi Parameter1=Wert1 Apfel=gruen Tobias=doof

Und wenn wirklich was schiefgeht, loggt euch mit einer zweiten Konsole ein und macht
tail -f /var/log/apache2/error.log
dann könnt ihr live die Fehlermeldeungen des Webservers beim Aufruf euerer Skripte verfolgen.

Vorschläge zur Projektarbeit. (8 Antworten)

Tobias Nopper — Mon, 19 Jul 2010 16:21:33 +0200

Wie ihr wisst, wird es am Ende des PerlKurses eine Projektarbeit geben, für die ich 35 Stunden, also etwa eine Woche Arbeit, veranschlagt habe.
Die zu bearbeitende Aufgabe, die ihr euch aussucht, sollte in dieser Zeit zu zweit gut zu machen sein. Beteiligen sich drei Personen an einer Gruppe, erwarte ich selbstverständlich auch die Investition von insgesamt 50% mehr Aufwand.
Spätestens kurz vor Semesterende solltet ihr mir dann als ganze Gruppe die Projektarbeit vorführen.

Die Projektarbeit sollte möglichst viel des besprochenen Stoffes abdecken, also am besten auch CGI oder Tk nutzen (wobei das natürlich immer auf die Aufgabe ankommt, ob das sinnvoll ist).

Ich sammle im Folgenden einige Ideen für mögliche Projektarbeiten und ermuntere euch, selbst Themen vorzuschlagen.

1. mögliches Thema: Doublettenfinder
Ein grafisches Tool (Tk), das die Festplatte (oder einen beliebigen Ordner) nach doppelten Dateien durchsucht (dabei soll der externe Prüfsummengenerator md5sum verwendet werden) und für jedes gefundene Duplikat (in einer gut bedienbaren Form) anbietet, eine der beiden Dateien zu löschen. Da md5sum die komplette Datei einlesen muss, sollen die md5-Hashesl in einer Datenbank abgespeichert und beim nächsten Aufruf des Doublettenfinders wiederverwendet werden (sofern die entsprechende Datei nicht zwischenzeitlich geändert wurde).

2. mögliches Thema: DVD-Verwaltung
Der große Bruder der Datenbankaufgabe; hier soll mit CGI eine DVD-Verwaltung gebaut werden, die viele Informationen einer DVD (Sprachen, Seitenverhältnis, Länge, ...) speichert. Weiter soll es eine Datenbanktabelle mit Personen geben, so dass man speichern kann, wem welche DVDs gehören (manche DVDs haben auch mehrere Personen), wer wem was wann ausgeliehen hat etc. Zusätzlich soll die Seite eine Benutzerverwaltung haben; und das nicht nur zum Einloggen; jeder Benutzer darf nur seine DVDs ändern etc. Ein Admin hat die Rechte, neue Benutzer anzulegen etc.

3. mögliches Thema: Sodoku-Löser
Der Benutzer kann entweder in einem Tk-Fenster (wäre mir lieber) oder einem Webformular (wäre mir nicht so lieb) ein Sudoku-Rätsel eingeben und erhält eine Lösung. Externe Programme sind hierbei natürlich tabu.

4. mögliches Thema: Vier-Gewinnt-Gegner
Realisiert in Tk oder CGI. Sollte nicht allzu schwach spielen. Die Partien sollten in einer Datenbank hinterlegt und wieder abrufbar sein. Externe Programme sind hierbei natürlich tabu.

5. mögliches Thema: Tipspiel
Da die WM bei der Projektarbeit schon vorbei sein wird, ein Tipspiel für die nächste Bundesliga-Saison im Web. Ähnlich wie bei der DVD-Verwaltung soll es einen Spielleiter geben, der Accounts anlegen darf. Die Spieler geben Tips für die Spiele ab, wobei man natürlich nach Anpfiff seinen Tip nicht mehr ändern darf; die Mitspieler sollen die Tips der anderen aber erst nach Anpfiff sehen. Pro richtigen Tip gibt es Punkte. Eine aktuelle Rangliste nach Punkten sortiert gehört auch dazu.

Ich bitte um Kommentare und weitere Vorschläge.

Funktion mit Hash als Argument (1 antworten)

Leman — Sun, 20 Jun 2010 18:47:45 +0200

Wie kann man ein Hash als Argument einer Funktion übergeben? Mein erster Versuch war %_ anstatt @_. Allerdings hat es nicht geklappt.

übung 9.5 - dateilock (3 Antworten)

ann-kathrin — Sat, 19 Jun 2010 11:49:12 +0200

wenn ich die dateien A und B nacheinander öffne und nacheinander beschreibe, dann wird immer nur die datei, die oben steht, also als erstes genannt wird, beschrieben. soll das so sein oder habe ich einen fehler in mein programm eingebaut?

ich habe zuerst die dateien nacheinander geöffnet, dann für jede einen schreiblock eingebaut und dann versucht, in zwei befehlen (einen für jede datei) beide dateien mit print DATEI "text" zu beschreiben.

Verzeichniszugriffe unter Windows (insbesondere Windows 7) (5 Antworten)

Tobias Nopper — Fri, 18 Jun 2010 17:08:30 +0200

Hi

Annika hat mich auf Probleme mit Verzeichniszugriffen unter Windows 7 aufmerksam gemacht.
In manche Verzeichnisse kann man dort nicht wechseln (teilweise sind das eigentlich Links etc.), so dass man abfangen muss, ob opendir überhaupt erfolgreich war. Das geht einfach, indem man es als Bedingung einer if-Abfrage verwendet.

Schreibt am besten also immer, wenn ihr den Inhalt eines Verzeichnisses auslesen wollt:

my @dateien = ();
if (opendir DIR, $verzeichnisname)
{
@dateien = readdir DIR;
closedir DIR;
}

Ich ändere gleich noch die Folien.

Übung 9 A3 (5 Antworten)

Annika — Mon, 21 Jun 2010 10:04:43 +0200

Ich habe ein kleines Problem mit den Unterverzeichnissen in Aufgabe 3.
Solange ich die Dateien in den Unterverzeichnissen erstmal nicht beachte, funktioniert mein Programm so, wie es verlangt ist und ich kam bislange auch ohne Hashes aus.
Allerdings sieht es so langsam so aus, als müsste ich für die Unterverzeichnisse mein Programm komplett ändern.

Hat jemand eine Idee, wie man strukturiert bei Aufgabe 3 vorgehen kann?
Ich wollte nun zunächst die Unterordner mit einem regulären Ausdruck aussortieren, aber bekomm dann Probleme, die ganzen Dateien in den Unterverzeichnissen irgendwie namentlich abzuspeichern und vor allem auch noch die Unterverzeichnisse der Unterverzeichnisse zu erreichen. Sieht für mich also so aus, als bräuchte man auf jeden Fall Hashes, aber selbst dann bekomme ich mit den Unterverzeichnissen der Unterverzeichnisse Probleme, wenn ich mit einer Schleife alle Dateien in einer Liste bzw. einem Hash speichern will.

Ist das Vorgehen soweit sinnvoll oder gibt es vielleicht eine besser umsetzbare andere Alternative?

Übung 8.1 / Aufgabenstellungsfrage (1 antworten)

Jens.A — Mon, 14 Jun 2010 15:02:29 +0200

Hi,

ich habe ein eher themenfremdes Problem: Was ist die "Zuweisung zu einer Liste", und was war der dritte Lösungsweg, den wir anwenden sollten, der aber nicht auf den Folien steht?

lg,
- Jens

Übung 8.3 - Geburtstage (1 antworten)

ann-kathrin — Fri, 11 Jun 2010 10:14:24 +0200

Wie wende ich einen regulären Ausdruck auf ein Hash an? Ich habe es am Beispiel der Substitution folgendermaßen versucht:

if ($hash{"Vorname Name"} = ~ /regulärer ausdruck/) {s/ausdruck-alt/ausdruck-neu};

Jedoch passiert da gar nichts mit dem Hash-Wert...

Übung 7.2.1 Laufzeit (1 antworten)

Leman — Fri, 04 Jun 2010 09:56:14 +0200

Mein Programm nimmt ein bisschen mehr Laufzeit in Anspruch als sonst. Einerseits ist es ganz selbverständlich, weil man 120 Kombinationen (5! = 120) hat und für jedes Wort in der Datei "words" 120 reguläre Ausdrücke überprüfen muss. Andererseits scheint es mir, dass dieser Ansatz nicht ganz effizient ist. Kann man hier die Schleifenschritten irgendwie verringern?

Blatt 7.2: (b),(c) (1 antworten)

Leman — Thu, 03 Jun 2010 18:41:59 +0200

was ist genau der Unterschied zw. der zweiten und der dritten Teilaufgabe? Bei den beiden Teilaufgaben müssen die Vokalen aufsteigend sein. Allerdings müssen nicht unbedingt alle Vokale bei der zweiten Teilaufgabe vorkommen. Ist es so gemeint?

blatt 7, aufgabe 2: txt-datei einlesen (4 Antworten)

ann-kathrin — Fri, 04 Jun 2010 17:15:54 +0200

meine programme funktionieren, wenn ich selbst wörter per STDIN eintippe, wenn ich jedoch die textdatei mit "

Übungen 7.2 Version 1 (1 antworten)

Jonas_K — Tue, 01 Jun 2010 22:18:00 +0200

Ich schaffe es einfach nicht, dass alle vokale irgend wo im wort vorkommen dürfen. (zumindest nicht ohne mortz komplizierte schleifen und so)
das andere, in der 'richtigen' reihenfolge geht super, aber wie gehts wenns ohne reihenfolge ist?
wie kann man festlegen, dass aus einem bestimmten pool jedes element mindestens einmal irgend wo vorkommt? -.-

Übungen 6.5-6.7 (1 antworten)

Jonas_K — Mon, 31 May 2010 18:43:06 +0200

Wie kann man denn die sort-funktion auf hashes anwenden?
bzw. wie diesen hash dann dementsprechend aufrufen?

sort %hash liefert bei mir nur ein 'useless use of sort' zurück.

außerdem:
wie kann man bei folgendem aufruf auf die keys zugreifen? :

$gebdatum{personXY}=bla;

foreach $datum (sort values %gebdatum)
{
print "[hier soll 'personXY' stehen] ist am $datum geboren\n";
}

blatt 5, aufgabe 6 (die zweite) (1 antworten)

ann-kathrin — Mon, 17 May 2010 08:20:58 +0200

"Schreibt zwei Programme, das eine Liste von Zahlen einliest und zwischen jedem aufeinander folgenden Zahlenpaar a und
b alle dazwischenliegenden Zahlen...einfügt."

wenn ich $a mit $b vergleichen soll - wie komme ich an b ran? ich habe das ganze zunächst mit einer while-schleife gelöst, in der ich $a = $liste[0] und $b = $liste[1] zugewiesen habe.

wenn ich aber eine foreach-schleife benutzen oder die aufgabe mit map lösen will, habe ich ja nur ein argument zur verfügung. wie komme ich an das nächste argument in der liste ran, damit ich es mit dem ersten vergleichen kann?

blatt 5, aufgabe 5 (1 antworten)

ann-kathrin — Thu, 13 May 2010 18:55:34 +0200

meine idee für diese aufgabe wäre, von jeder - in einer variablen gespeicherten - zahl (also $zahl1, $zahl2 und $summe) jeweils alle ziffern zu extrahieren.

ich würde die funktion entsprechend erweitern und somit jede einzelne ziffer entsprechend ihrer stelle in zahlenworte umwandeln. ist es (ohne reguläre ausdrücke) möglich, die einzelnen ziffern zu extrahieren und in einem array zu speichern? oder ist diese idee nicht umsetzbar?

Blatt 5: Aufg,4 (1 antworten)

Leman — Thu, 13 May 2010 12:42:10 +0200

Wenn man zwei Zahlen z.B. 5 und 7 angibt, dann hat man als Ergebnis nach der Aufsummierung 12. Allerdings ist diese Zahl außerhalb des gegebenen Bereichs. Heißt es, dass die zurückgegebene Zeile "Five plus seven equals 12" sein soll? Oder müssen wir das Ergebnis auch als Wort zurückgeben, fall es kleiner gleich 18 ist?

aufgabe 2 (1 antworten)

ann-kathrin — Fri, 07 May 2010 14:04:13 +0200

ich bin schon bei aufgabe 2 stecken geblieben - meine until-schleife läuft immer weiter und lässt sich nicht mit "ENDE" beenden. wo ist der fehler?

do
{
$a = ;
#...
} until ($a eq "ENDE");

Blatt 4: Aufg. 5 (1 antworten)

Leman — Thu, 06 May 2010 10:50:54 +0200

Hierbei muss man die Aufgabe 2 bzw. 3 mit redo und last lösen. Ist es ok, wenn man nur mit redo die Aufgabe gelöst hat oder muss man unbedingt mit redo UND last die Aufgabe lösen?

Eröffnung des Diskussionsforums (Keine Antworten)

Tobias Nopper — Tue, 20 Apr 2010 16:28:07 +0200

Hallo,

hiermit eröffne ich das Forum zur Veranstaltung "Einführung in die Programmiersprache Perl" im Sommersemester 2010.

Das Forum kann von jedem genutzt werden, bedarf allerdings einer Anmeldung (Link "Log In"). Es ist dazu gedacht, Fragen zu stellen und Informationen auszutauschen; weiter versuche ich bei Unklarheiten in der Vorlesung oder in den Übungsaufgaben zu helfen.

Der Vorteil gegenüber einer persönlichen Mail an mich ist der, daß Euere Fragen bestimmt auch für viele andere interessant sind.

Das Forum ist natürlich _nicht_ dazu gedacht, Lösungen von Übungsblättern oder ähnliches zu dieser oder anderen Vorlesungen zu verbreiteen.

Weiter prüfe ich Beiträge regelmäßig nach bestem Wissen und Gewissen auf Verstöße gegen geltendes Recht. Ich behalte es mir grundsätzlich vor, Beiträge nach eigenem Ermessen zu löschen. Gelöscht werden beispielsweise: Beiträge, die nichts mit dem Thema des Forums zu tun haben bzw. zu stark davon abweichen, persönliche Auseinandersetzungen, durch die Poster oder Drittpersonen angegriffen werden und Werbe- bzw. gewerbliche Beiträge.

Grüße
Tobias Nopper