Beispiel für Einsteiger (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2024-12-27 23:00:33
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online

[thread]17148[/thread]

submit to reddit

Beispiel für Einsteiger

Tags: perl5 Ähnliche Threads

Leser: 31

Articles: hide open all | hide show old branches

+14 replies
saxoBeat

2012-02-13 06:53

User since
2012-02-13
2 Artikel
BenutzerIn

Hallo an alle,

warum ich mit Perl das programmieren lernen will weiss ich ehrlich gesagt garnicht. Bekannte meinen halt, dass Perl sehr flexibel ist und man mit wenig Code recht schnell sichtbare Ergebnisse erzielen kann. Erfahrungen habe ich bisher nur theoretischer Art gemacht. Ich weiss allgemein etwas über Speicher, Variable, Schleifen und Bedingungsprüfungen aber halt nicht in Bezug auf eine Sprache wie Perl.

Im Internet habe ich mir diverse Anleitungen für Einsteiger angeschaut und alle haben eine Schwachstelle: sie beeinhalten kaum anschauliche Code-Beispiele. Und ich brauche sowas dringend.

Nun habe ich mir überlegt ob mir ein paar von Euch vielleicht ein paar kleinere Aufgaben in funktionierende Code-Beispiele übersetzen würden.

Von einer URL ausgehend wie z.B. ".../thread.php?threadid=103"

- die URL wird in Firefox geöffnet
- es erscheint auf der Befehlszeile die Abfrage, ob die URL übernommen oder verworfen wird
- bei positiver Beantwortung wird nach der Eingabe einer Beschreibung gefragt und die URL zusammen mit der Bemerkung in eine Text-Datei geschrieben
- zusätzlich wird die URL aus dem Internet runter geladen und gespeichert
- nach einer entsprechenden Abfrage wird "threadid=103" runter gezählt gegen 1 mit der Wiederholung dieser Schritte

So als erstes Beispiel.

Lieben Dank!
Last edited: 2012-02-13 08:08:48 +0100 (CET)
- +8 replies
- bianca
  
  2012-02-13 08:31
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  2012-02-13T05:53:09 saxoBeat
  - zusätzlich wird die URL aus dem Internet runter geladen und gespeichert
  
  Da hast du dir aber schon was Fortgeschrittenes ausgesucht. Hierzu empfiehlt man nämlich i.d.R. die Verwendung eines Moduls. Das ist übrigens eine große Stärke von Perl. Es gibt quasi nichts für das es in Perl kein Modul gäbe. Auf www.cpan.org findet man alle öffentlichen Module für Perl.
  
  Wie weit bist du denn in Perl? Hast du schon ein Hallo Welt Beispiel hinbekommen?
  Und für deine Übungsaufgabe wäre noch die Frage, ob das ganze als lokale Anwendung oder Webanwendung laufen soll. Bei einer Webanwendung brauchst du einen Webserver. Hast du Webspace wo Perl läuft (Perl ist nicht selbstverständlich, im Zweifel beim Provider fragen!) oder willst du lokal einen Webserver aufsetzen?
  Dein Satz "es erscheint auf der Befehlszeile die Abfrage, ob die URL übernommen oder verworfen wird" habe ich nicht ganz verstanden. Soll das ein Add-on für Firefox werden?
  10 print "Hallo"
  20 goto 10
  - +7 replies
  - pq
    
    2012-02-13 09:30
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    2012-02-13T07:31:10 bianca
    Da hast du dir aber schon was Fortgeschrittenes ausgesucht. Hierzu empfiehlt man nämlich i.d.R. die Verwendung eines Moduls.
    
    und ich hab mich bisher immer gefragt, wer dieses alte gerücht streut, module seien nichts für anfänger. jetzt weiss ich es.
    Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
    lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - +3 replies
    - topeg
      
      2012-02-13 10:02
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Nunja es gibt einfach zu nutzende Module wie z.B. LWP::Simple oder komplexere, die mehr Vorwissen verlangen.
      
      Wenn jemand anfängt zu Programmieren, so ist es durchaus eine Hürde zu verstehen wie Module den Befehlsumfang von Perl erweitern, oder Befehle gar verändern. Das kann mitunter recht verwirrend sein. Dabei kommt es auch auf das Vorwissen an. Jemanden Module vor zusetzen, der keine Ahnung davon hat wie das Konzept hinter Modulen aussieht, ist problematisch. :-)
      
      Und hier kenne ich den Hintergrund nicht genau erschließe aber aus den Anfangsaussagen, das ein gewissen konzeptionelles Basiswissen über Programmierung im allgemeinen vorhanden ist. Dazu gehören auch ein gewisses Verständnis darüber wie Bibliotheken oder hier Module grundsätzlichen funktionieren.
      
      Bei Objektorientierung wäre ich vorsichtig. Ich würde erst mal keine Module empfehlen die exklusiv objektorientiert genutzt werden.
      
      Wobei man in Perl sehr schön Kleinschrittig den Übergang von Prozeduraler zur Objektorientieren Programmierung zeigen kann, wenn man mit der Sprache grundsätzlich vertraut ist.
      - +2 replies
      - pq
        
        2012-02-13 11:40
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        naja, erstmal ging es mir darum, dass man anfängern module nicht auf diese weise vermiesen sollte. die ewigen "ich möchte x und y machen, aber bitte ohne modul"-fragen werden durch sowas doch nur unterstützt.
        
        zweitens habe ich ja weiter unten schon auf tutorials verwiesen. wenn man blutiger anfänger ist, arbeitet man eins von diesen durch, bevor man sich an grössere zusammenhängende macht. idealerweise werden da auch module erklärt.
        ausserdem sagte der OP ja, er sei kein blutiger anfänger.
        
        mein erstes skript war ein cgi-skript und ich habe gleich CGI.pm verwendet.
        die basissyntax mit modulen zu erweitern ist keine magie und auch nichts perl-spezifisches.
        
        --
        sent from my flux capacitor
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        topeg
        
        2012-02-13 12:48
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Ich habe auch recht früh mit CGI gearbeitet. Das bietet sich an, da es recht simpel ist CGIs zu schreiben. Leider gibt es gerade dabei immer wieder Probleme mit Modulen, die nicht auf dem Server installiert sind. Daher, denke ich, kommt auch die gewisse Antipathie gegenüber unbekannten Modulen. Man muss wissen ob sie Installiert sind und in welcher Version. Das ist für einen Unerfahrenen nicht leicht zu überblicken, warum etwas bei ihm Zuhause funktioniert, beim Hoster nicht.
        
        Zudem besteht eine gewisse Sorge, man könnte mit kopierten, oder händisch installierten Modulen beim Hoster etwas kaputt machen. Da gibt es auch Unwissenheit darüber, wie Perl sich beim laden von Modulen verhält und was man dabei beachten muss.
    - +2 replies
    - rosti
      
      2012-02-13 10:11
      
      User since
      2011-03-19
      3492 Artikel
      BenutzerIn
      
      Richtig! Module verwenden!
      
      Das genau ist ja das Schöne an Perl: Sich auf das Wesentliche konzentrieren zu können, d.h., die Lösung der eigentlichen Aufgabenstellung über Module zu realisieren.
      
      Wesentlich ist auch, im Unterschied zu anderen Scriptsprachen: In Perl kommt der Programmierer mit einer Handvoll Built-In-Funktionen aus.
      
      Ich gehe sogar noch einen Schritt weiter und empfehle Perl-OOP auch für den Anfänger, die ist erstaunlich leicht zu lernen.
      
      --Rosti
      - hugenyn
        
        2012-02-13 23:34
        
        User since
        2010-10-05
        65 Artikel
        BenutzerIn
        
        Quote
        Ich gehe sogar noch einen Schritt weiter und empfehle Perl-OOP auch für den
        Anfänger, die ist erstaunlich leicht zu lernen.
        
        ... das kann natürlich ein Fachmann sagen.
        
        Ich jedenfalls mühe mich mit Vergnügen durch "Perl-Objekte, Referenzen und
        Module" und versuche gerade, die von mir erschaffenen Pferde
        
        Code (perl): (dl )
        
        my $tv_horse = Horse -> named("Mr.Ed") etc.
        
        (aus Seite 114) in einer Liste wieder auszugeben.
        
        Von Destruktoren und schwachen Referenzen wage ich garnicht zu reden.
    - bianca
      
      2012-02-13 14:02
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      2012-02-13T08:30:04 pq
      2012-02-13T07:31:10 bianca
      Da hast du dir aber schon was Fortgeschrittenes ausgesucht. Hierzu empfiehlt man nämlich i.d.R. die Verwendung eines Moduls.
      
      und ich hab mich bisher immer gefragt, wer dieses alte gerücht streut, module seien nichts für anfänger. jetzt weiss ich es.
      
      Mein Kommentar bezog sich nicht allein auf den Horizont des Entwicklers selbst. Es sind ja auch ein paar Rahmenbedingungen notwendig, wie z.B. ein geeigneter Server, installierte Module, gewisse Kenntnisse über das Drumherum von Perl, CGI, HTTP usw.
      Das soll also keinesfalls einem Anfänger die Lust an Modulen nehmen. Sonst hätte ich es auch á la "für einen Anfänger zu schwer, lass es" formuliert.
      
      Ich bin lediglich der Meinung, dass es pädagogisch sinnvoll ist, nicht gleich damit anzufangen sondern erstmal 2 bis 3 Hallo Welt Script zum Laufen zu kriegen.
      Last edited: 2012-02-13 14:04:32 +0100 (CET)
      10 print "Hallo"
      20 goto 10
- rosti
  
  2012-02-13 09:08
  User since
  2011-03-19
  3492 Artikel
  BenutzerIn
  Code (perl): (dl )
  
  1 2
  
  - die URL wird in Firefox geöffnet - es erscheint auf der Befehlszeile die Abfrage, ob die URL übernommen oder verworfen wird
  
  Das geht weder mit Perl, noch mit einer anderen Sprache zu machen: eine Befehlszeile. Du meinst wahrscheinlich ein Eingabefeld.
  
  Das müssen jedoch dann mehrere URLs sein, also nicht nur eine, wie Du schreibst. Die Steuerung des Scripts erfolgt dann über Parameter, welche in einer Kontrollstruktur abgefragt werden, hier ein kleines Beispiel:
  
  http://rolfrost.de/cgi-bin/mail.cgi <- online zum Testen
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
  
  #!/usr/bin/perl use strict; use warnings; use CGI; use IO::File; my $u = CGI->new; if($u->param){ if($u->param('vote')){ # Datei serverseitig einlesen my $fh = IO::File->new; $fh->open("$ENV{DOCUMENT_ROOT}/robots.txt", "r") or do{ print $u->header, $u->h1("Fehler beim Lesen der Datei: $!"); exit; }; read($fh, my $in, -s $fh); $fh->close; # die entsprechenden Header und die Datei zum Download print "Content-Disposition: attachment; filename=robots.txt\n"; print "Content-type: text/plain\n\n"; print $in; # weitere Aktionen: Kommentar serverseitig speichern... u.a.... } else{ print $u->header, $u->h1("Unbekannter Parameter"); } } else{ print $u->header, $u->h1("Inhalt download?"); print qq( <form action="$ENV{SCRIPT_NAME}"> Komentar hier: <input name="comment"> <input type="submit" name="vote"> </form> ); }
  
  In der Praxis kommt da natürlich noch Einiges hinzu ;)
  
  Viel Spaß mit Perl,
  Rosti
- topeg
  
  2012-02-13 09:15
  
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  
  2012-02-13T05:53:09 saxoBeat
  - die URL wird in Firefox geöffnet
  - es erscheint auf der Befehlszeile die Abfrage, ob die URL übernommen oder verworfen wird
  
  Wie sollen die beiden In Beziehung stehen. Dein Script kann nicht in die Interna des Firefox schauen. (es geht schon, doch das geht weit über das hinaus was man einem Anfänger zutrauen kann)
  
  etwas umformuliert wird es schon einfachen:
  
  Quote
  - die URL wird in der Befehlszeile eingetragen
  - es erscheint auf der Befehlszeile die Abfrage, ob die URL übernommen oder verworfen wird
  
  Das ist sehr viel leichter.
  
  So als schneller Wurf:
  more (6.1kb)
  
  Hier im Forum findest du viele auch einfache Scripte, die du als Vorlage für eigene Sachen nutzen kannst. Von kleinen Schnipseln bis zu größeren Sachen ist alles zu finden.
- +3 replies
- pq
  
  2012-02-13 09:21
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  schau dir auch mal http://perl-tutorial.org/ an.
  
  und beschreib etwas genauer. wenn du gleichzeitig von zu öffnenden urls und befehlszeile redest, ist das verwirrend. du meinst vermutlich, dass das script in der kommandozeile aufgerufen wird und dann firefox gestartet werden soll.
  
  schau dir mal WWW::Mechanize und seine verwandten an, da wird auch ein browser geöffnet.
  insbesondere WWW::Mechanize::Shell dürfte sehr hilfreich sein und dir den grossten teil abnehmen.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - saxoBeat
    
    2012-02-13 17:35
    
    User since
    2012-02-13
    2 Artikel
    BenutzerIn
    
    Ich bin überwältigt was die hilfreichen und kompetenten Antworten betrifft. Vielen Dank an alle! Das ist mal ein Einstieg der Spaß macht :)
  - hlubenow
    
    2012-02-13 22:24
    
    User since
    2009-02-22
    875 Artikel
    BenutzerIn
    
    Beim Nachgucken hab' ich grad' WWW::Mechanize::Firefox gesehen. Das klingt auch sehr vielversprechend für das Gebiet.

View all threads created 2012-02-13 06:53.