einfach übungsaufagen für perl (Allgemeines zu Perl)

Gast Gast

2005-04-30 16:24

ich suche ein paar einfache übungsaufgaben in sachen perl für anfänger (wenns geht auch mit lösungen). wäre nett, falls mir jemand wieterhelfen könnte.

renee

2005-04-30 16:34

User since
2003-08-04
14371 Artikel
ModeratorIn

in welche richtung sollen die gehen??

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

pktm

2005-04-30 21:20

User since
2003-08-07
2921 Artikel
BenutzerIn

Hm, Gästebuch, Forum, CMS :)
Guckst du für die ersten beiden Sachen unter http://cgi-world.de, und für das CMS (bischen Werbung*) unter http://cms.berlios.de .

Oder möchtest du eher in die grafische Richtung?
Wie wärs mit einer Cäsar-Verschlüsselung?
Lösung kann ich dir geben.

mfg pktm

http://www.intergastro-service.de (mein erstes CMS :) )

betterworld

2005-04-30 22:11

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

http://wiki.perl-community.de/bin/view/Wissensbasis/RaetselDerWoche\n\n

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class

Mobi

2005-04-30 22:35

User since
2005-04-30
1 Artikel
BenutzerIn
[default_avatar]

[quote=renee,30.April.2005, 14:34]in welche richtung sollen die gehen??[/quote]
in richtung schleifen, arrays und hashes. sollten auch relativ leicht sein (also für perl-anfänger) und bitte mit lösungen, weil sonst besteht die gefahr, dass ich daran verzweifle ;-)

Crian

2005-05-02 13:55

User since
2003-08-04
5871 Artikel
ModeratorIn

Dann sind die gennanten Rätsel der Woche vielleicht noch etwas zu heftig, allerdings sind dort verschiedene Lösungen dabei. Kannst Du Dir ja auf jeden Fall mal ansehen. Der Sinn und Zweck damals, die RDWs zu starten war, einfache Probleme für Anfänger zu stellen. Leider wurden sie dann doch etwas komplizierter.

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

renee

2005-05-02 14:02

User since
2003-08-04
14371 Artikel
ModeratorIn

Ich habe mal angefangen, ein paar Aufgaben für absolute Neulinge zu sammeln:
http://perlseiten.renee-baecker.de/aufgaben.html

Wird noch ausgebaut (Anregungen und Kritik ist willkommen) und die Lösungen erstelle ich heute noch...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Strat

2005-05-02 17:43

User since
2003-08-04
5246 Artikel
ModeratorIn

@renee: beim zweiten Beispiel wuerde ich nach

Code: (dl )

my $cent = <STDIN>;

noch ein chomp($cent); einfuegen; fuer die Berechnung ist es zwar eigentlich nicht unbedingt noetig, aber falls mal jemand das script erweitert und was im string context vergleicht, kann der zeilenumbruch am ende stoerend wirken... und der eine oder andere findet am ende noch chop, was die schlechtere loesung ist

analog bei 3., 4.

Loesung 5-8 ist 404-error\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

renee

2005-05-02 18:19

User since
2003-08-04
14371 Artikel
ModeratorIn

Danke für den Hinweis, habe ich eingebaut, die Lösungen 5-8 habe ich eben erstellt...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Strat

2005-05-02 18:33

User since
2003-08-04
5246 Artikel
ModeratorIn

@renee: von der optik her finde ich

Code: (dl )

for my $row (reverse(0..$zahl-1)) {

schoener als

Code: (dl )

for my $row(reverse(0..$zahl-1)){

sonst gefaellt's mir gut, und ich finde die seite eine gute idee\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/