Neu und Anfänger (Allgemeines zu Perl)

[thread]19985[/thread]

Neu und Anfänger

Tags: perl5 Ähnliche Threads

Leser: 21

Articles: hide open all | hide show old branches

+24 replies
ascotlx

2016-02-14 22:43

User since
2016-02-14
6 Artikel
BenutzerIn

Hallo ..
ich bin neu hier und versuche mir Perl beizubringen *gg*
Ich suche mir eine Aufgabe die ich sonst mit einem Bash Script erledigen würde und versuche diese nun mit Perl zu lösen... was aber gar nicht so einfach ist.

Also hier meine Bitte...
Kann mir jemand Schützenhilfe geben und mir den Weg weisen ??? Ich möchte keine fertige Lösung sondern nur Hinweise wie ich anfangen soll.

Zu meiner Aufgabe:
Ich habe eine Liste mit Dateinamen (eine Zeile, ein Dateiname). Diesen Dateinamen muss ich in einer anderen Datei suchen (eine Zeile beinhaltet unter anderem den gesuchten Dateinamen. Bei einem Treffer möchte ich die gefundene Zeile in eine weitere Datei schreiben.

Ursprünglich wird in einem Verzeichnis nach Dateien gesucht, die Älter als X Tage ist. Diese Dateien werden dann in einer Datei gesucht und die gefundenen Zeilen werden gelöscht. Ziel ist, dass in der Datei nur die Dateien übrig bleiben, die nicht Älter als 5 Tage sind.

Kann mir jemand helfen, wie ich anfangen soll.
Besten Dank.
ascotlx
Last edited: 2016-02-14 22:48:51 +0100 (CET)
- +18 replies
- lichtkind
  
  2016-02-14 22:51
  
  User since
  2004-03-22
  5697 Artikel
  ModeratorIn + EditorIn
  
  Willkommen bei uns :)
  
  Leider ist die Wiki grad im Umbau weswegen unsere Tutorials grad nicht einsehbar sind, aber auf http://perl-tutorial.org/ genau wie auf perldoc.perl.org sind die guten quellen. Vielleicht willst du dir auch überlegen gleich Perl 6 zu lernen. Hier entseht die Infrastruktur gerade erst, ist aber in manchen bereichen moderner und einfacher.
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
  - ascotlx
    
    2016-02-14 22:56
    
    User since
    2016-02-14
    6 Artikel
    BenutzerIn
    
    Hallo Lichtkind,
    vielen Dank schon mal für die Antwort. Das mit dem Wiki ist schon ok. Mich drängt keiner, außer ich mich selber *gg*
    
    Macht es Sinn gleich Perl 6 zu gehen? In den meisten Umgebungen finde ich noch Perl 5 vor, was sich wahrscheinlich auch nicht so schnell ändern wird. Vielleicht fange ich erstmal mit P5 an und schiele mit einem Auge auf P6 wie so etwas dort gelöst wird.
    
    ... danach kommt der erste Schritt....
  - +16 replies
  - hlubenow
    
    2016-02-14 23:13
    
    User since
    2009-02-22
    875 Artikel
    BenutzerIn
    
    Also, zunächst würde ich dringend zu Perl5 raten. Ob jemals der Umstieg auf Perl6 gelingen wird, ist noch nichtmal sicher. An Perl6 wird seit über 10 Jahren gearbeitet, und dennoch sind es bisher immer noch nur "Laborversionen".
    
    ascotlx
    Ich habe eine Liste mit Dateinamen (eine Zeile, ein Dateiname). Diesen Dateinamen muss ich in einer anderen Datei suchen (eine Zeile beinhaltet unter anderem den gesuchten Dateinamen. Bei einem Treffer möchte ich die gefundene Zeile in eine weitere Datei schreiben.
    
    Ursprünglich wird in einem Verzeichnis nach Dateien gesucht, die Älter als X Tage ist. Diese Dateien werden dann in einer Datei gesucht und die gefundenen Zeilen werden gelöscht. Ziel ist, dass in der Datei nur die Dateien übrig bleiben, die nicht Älter als 5 Tage sind.
    
    Das ist ein ziemlich seltsamer Einstieg in Perl. Normalerweise fängt man mit einfachen Variablen an, "Hallo Welt" ausgeben als allererstes, dann erste Schleifen und if-Abfragen, dann Arrays, usw..
    Wie man Dateien einliest, kommt normalerweise eigentlich erst relativ spät. Aber wenn Du damit anfangen willst ...
    Na ja, dann versuch' doch erstmal, eine kurze Datei von sagen wir 5 Zeilen in ein Array einzulesen * und dann die Zeilen auszugeben (mit print).
    
    * Hier würden schon die ersten sagen, das sei keine gute Praxis, weil bei extrem großen Dateien der Speicher überlaufen könnte. Deshalb hier ja nur 5 kurze Zeilen (ein paar Byte). Das wird ja wohl noch gehen.
    Last edited: 2016-02-14 23:17:08 +0100 (CET)
    - +4 replies
    - ascotlx
      
      2016-02-14 23:23
      
      User since
      2016-02-14
      6 Artikel
      BenutzerIn
      
      Yep ... ich probier es mal ...
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9
      
      !/usr/bin/perl $file = '2016_5'; open(READ, $file); @lines = <READ>; close(READ); print @lines;
      
      Ausgabe:
      
      Code: (dl )
      
      1 2 3 4 5
      
      -rw-rw-rw- 1 user1 user 2455 2016-01-20 09:21 t-00Rldb -rw-rw-rw- 1 user1 user 3119 2016-02-09 11:10 t-00TRgn -rw-rw-rw- 1 root root 445 2016-01-25 10:58 t-00V2oO -rw-rw-rw- 1 user1 user 1951 2016-02-08 15:25 t-00c2RA -rw-rw-rw- 1 user1 user 1820 2016-02-08 07:28 t-00lseB
      
      In etwa so ??
      
      modedit Editiert von pq: code-tags hinzugefügt
      Last edited: 2016-02-14 23:26:21 +0100 (CET)
      - +3 replies
      - hlubenow
        
        2016-02-14 23:54
        
        User since
        2009-02-22
        875 Artikel
        BenutzerIn
        
        2016-02-14T22:23:28 ascotlx
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9
        
        !/usr/bin/perl $file = '2016_5'; open(READ, $file); @lines = <READ>; close(READ); print @lines;
        
        In etwa so ??
        
        Hmm, das funktioniert - zufällig.
        
        - Man sollte bei open() mitgeben, ob man lesen "<" oder schreiben ">" will.
        - Man sollte stets "use warnings; use strict;" verwenden,
        - Man sollte "my" verwenden,
        - Das "print" funktioniert hier nur, weil die eingelesenen Zeilen Zeilenendezeichen hatten. Davon kann man nicht ausgehen.
        
        Also:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13
        
        !/usr/bin/perl use warnings; use strict; my $file = '2016_5'; open(my $fh, "<", $file) or die; my @lines = <$fh>; close($fh); foreach my $i (@lines) { chomp($i); print "$i\n"; }
        
        Last edited: 2016-02-14 23:55:02 +0100 (CET)
        
        +2 replies
        
        ascotlx
        
        2016-02-15 22:57
        
        User since
        2016-02-14
        6 Artikel
        BenutzerIn
        
        ok ok, dass sieht besser aus :)
        
        Kurz zu meiner Erklärung:
        Ich habe mir bisher meine Programmierkenntnisse genau auf diese Art und Weise beigebracht.
        Erst ein wenig Grundlagenforschung, dann ein praktisches Beispiel.
        Meistens nehme ich ein altes Script und schreibe es um, verbessere oder vereinfache es.
        
        Meine Versuche mit Perl sind immer wieder aufgrund mangelnder Zeit immer wieder eingeschlafen und nun dachte ich mir ... fang einfach mal an.
        
        Ablaufpläne habe ich meistens im Kopf. Es ist aber häufig so, dass diese aufgrund neuer Aufgabenstellungen erweitert werden. In Ausnahmefällen schreibe ich sie auf (PAP, Sketchnotes, o.ä.)
        
        hlubenow
        
        2016-02-16 00:00
        
        User since
        2009-02-22
        875 Artikel
        BenutzerIn
        
        Gut, dann lies jetzt doch mal Deine zwei Dateien ein und schreib' eine dritte ("out.test") mit dem Inhalt der zweiten (um sich ganz langsam dem Problem zu nähern).
        
        P.S.: Ich bin auch einer von denen, die mit Diagrammen überhaupt nichts anfangen können. ;)
    - +11 replies
    - lichtkind
      
      2016-02-15 00:33
      
      User since
      2004-03-22
      5697 Artikel
      ModeratorIn + EditorIn
      
      16 Jahre Bitte, es ist jetzt ganz offen draussen, nix Labor
      
      und in Perl 6 wäre das :
      
      Code (perl): (dl )
      
      1 2 3 4 5
      
      use v6; my $file = '2016_5'; .say for $file.IO.lines;
      
      Last edited: 2016-02-15 16:47:06 +0100 (CET)
      Tutorien in der Wiki, mein zeug:
      kephra, baumhaus, garten, gezwitscher
      
      Es beginnt immer mit einer Entscheidung.
      - +2 replies
      - hlubenow
        
        2016-02-15 00:41
        
        User since
        2009-02-22
        875 Artikel
        BenutzerIn
        
        Wenn's als rpm Teil der aktuellen SuSE sein wird, reden wir weiter. ;)
        
        lichtkind
        
        2016-02-15 05:18
        
        User since
        2004-03-22
        5697 Artikel
        ModeratorIn + EditorIn
        
        auch suse hat pakete für git und gcc. mehr brauchte ich nie um rakudo zu installieren. aber stimmt ich bentzt schon deswegen tagesaktuelle versionen um mit entwicklern greden zu können. will sicher inicht jeder machen.
        Last edited: 2016-02-16 02:47:18 +0100 (CET)
        Tutorien in der Wiki, mein zeug:
        kephra, baumhaus, garten, gezwitscher
        
        Es beginnt immer mit einer Entscheidung.
      - +3 replies
      - Gast janus
        
        2016-02-15 14:53
        
        2016-02-14T23:33:00 lichtkind
        16 Jahre Bitte, es ist jetzt ganz offen draussen, nix Labor
        
        und in Perl 6 wäre das :
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        use v6; my $file = '2016_5'; .say for $file.IO.lines;
        
        Mit Sicherheit ist sowas keine Empfehlung für einen Anfänger!
        Last edited: 2016-02-15 16:47:21 +0100 (CET)
        
        lichtkind
        
        2016-02-15 16:49
        
        User since
        2004-03-22
        5697 Artikel
        ModeratorIn + EditorIn
        
        würd ich schon sagen, vielleicht noh die for-schleife hübsch aufräumen und später die abkürzung lehren, aber ansonst is es der mormale P6 code dafür, weil somit bruachst nicht erklären was ein file handle ist was steuerzeichen sind, usw. also eher anfängerfreundlich.
        Tutorien in der Wiki, mein zeug:
        kephra, baumhaus, garten, gezwitscher
        
        Es beginnt immer mit einer Entscheidung.
        
        GwenDragon
        
        2016-02-15 17:39
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Ich finde sehr wohl geeignet.
        Die Objekt-Syntax ist doch lesbar.
        
        Was nützlich wäre, für all die Lehrertypen hier ;) : die lange Version mit for-Schleife und nachfolgendem read-Tralala nebst print neben diese kurze zu stellen.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +5 replies
      - ascotlx
        
        2016-02-15 22:45
        
        User since
        2016-02-14
        6 Artikel
        BenutzerIn
        
        wow, dass nenn ich mal einen 3 Zeiler...
        Wirkt auf mich jedenfalls sehr aufgeräumt. Ich werde mir trotzdem erst einmal die 5er Version ansehen, einfach um es zu verstehen.
        
        Die 6er Version kommt auf jeden Fall auf meine ToDo Liste....
        
        +4 replies
        
        Linuxer
        
        2016-02-16 00:35
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Naja, wenn wir schon angeben, das Beispiel geht auch in Perl5 recht kurz. Allerdings ist in Perl5 der sprach-interne AbKüFi nicht so ausgeprägt gewesen, wie er es in Perl6 nun ist ;-) D.h. gleich kurz wird es nur schwer werden.
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        use strict; use warnings; my ($file,$fh) = ('bla.txt'); open( $fh, '<', $file ) && print <$fh>;
        
        oder auch mit Schleife, falls die Datei zu groß ist
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        use strict; use warnings; my ($file,$fh) = ('bla.txt'); open( $fh, '<', $file ) && do { print while <$fh> };
        
        Und ich kann mir vorstellen, dass es auch noch Module gibt, die das nochmal verkürzen können.
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        pq
        
        2016-02-16 00:50
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        Code (perl): (dl )
        
        1 2
        
        use IO::All; print io("bla.txt")->all;
        
        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
        
        ascotlx
        
        2016-02-16 08:42
        
        User since
        2016-02-14
        6 Artikel
        BenutzerIn
        
        *haha*
        ich seh schon, ihr seid echt lustig *kopfkratz*
        Aber gut, ich wollte mich ja mit Perl beschäftigen...
        Danke erstmal (´o.O`)
        
        Muffi
        
        2016-02-16 15:10
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Wo kann man denn diese Magic-zeile-4 nachlesen?
        
        edit: Achsooo, die ist ja garnicht Magic. *patsch*
        Last edited: 2016-02-16 15:11:49 +0100 (CET)
        1 + 1 = 10
- +5 replies
- Gast janus
  
  2016-02-15 07:41
  
  Erstelle zuerst ein Struktogramm oder besser einen Programmablaufplan PAP. Aus diesem leite dann einzelne Teilaufgaben ab, die so Schritt für Schritt nach Perl umgesetzt werden.
  
  Anstelle eines PAP geht natürlich auch ein Bash-Script, wenn Du da schon fit bist. Wichtig ist, das Programm zunächst gedanklich durchgehen bis alle Klarheiten fürn Ablauf beseitigt sind. Erst danach gehts an die Umsetzung. Einfach drauflos Programmieren bringt da nichts.
  
  Dann gehts Du an die Teilaufgaben, ggf. wird zuerst jede Teilaufgabe ein einzelnes Script. Konzentriere Dich auf die Teilaufgabe und wenn Du absolut nicht weiterkommst, melde Dich hier.
  
  ---
  Last edited: 2016-02-15 09:26:32 +0100 (CET)
  - +3 replies
  - Raubtier
    
    2016-02-15 13:39
    
    User since
    2012-05-04
    1075 Artikel
    BenutzerIn
    
    Ich muss sagen, ich habe noch nie verstanden, wofür ein Struktogramm oder Programmablaufplan gut sein soll - das kann man auch gleich direkt in einer Programmiersprache notieren. (Einziger Sinn: für Lösungen zu Übungsaufgaben, die fordern, dass man sowas erstellt)
    
    Erst wenns komplizierter wird, würde ich eher irgendwas aus den UML-Diagrammen nutzen, z.B. Klassen- und/oder Strukturdiagramm aufmalen.
    - Gast janus
      
      2016-02-15 14:49
      
      Mit oder ohne Struktogramm: Programmieren muss jeder selbst erlernen. Auch wenn in der heutigen Zeit, die geprägt ist von antiautoritärer Erziehung und totaler Respektlosigkeit, Erfahrungen nicht mehr gefragt sind! Eines gebe ich gerne weiter:
      
      Mach Dir'n Plan, einfach drauflos programmieren bringt nichts. Weder einem Anfänger noch einem Fortgeschrittenen. Ein richtig gutes Programm ist nicht nur das Hangeln von Zeile zu Zeile, ein fertiges Programm hat vielleicht 1000 oder 2000 Zeilen und ist von der Logik her von der ersten bis zur letzten Zeile schlüssig.
      
      D.h., dass auch in Zeile 999 was schief gehen kann, weil viel weiter oben die Logik in Zeile 3 nicht richtig durchdacht wurde. Mit anderen Worten: Stelle den Programmablaufplan PAP erst im Kopf zusammen und gehe alle möglichen Fälle bereits vorher durch bevor auch nur eine einzige Zeile Code getippt wird.
      
      Dafür ist es völlig unerheblich, ob Dein PAP irgendwelchen Standards entspricht und ob diesbezügliche Notizen in Druckschrift oder Schönschrift sind.
      
      Ich hole mir heute noch, nach über 20 Jahren Programmiererfahrung (!) Codestücke raus und spiele damit in einem extra Script. Aber das eigentliche Programm/Script entsteht nicht auf der Tastatur sondern IMMER in Form eines PAP. Erst wenn der fertig ist, gehts ans Tippen.
      
      Die hier gestellte Aufgabe lässt sich hervorragend in kleinere Teilaufgaben zerlegen und in dedizierten Scripts umsetzen. Für Anfänger gehören auch die vielen kleinen Scripts mal ausgedruckt zum Nachlesen in einer ruhigen Stunde, evntl. auch mal beim abendlichen Viertel.
      Last edited: 2016-02-15 15:32:54 +0100 (CET)
    - Muffi
      
      2016-02-15 15:34
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Also selten, aber doch hie und da hat mir ein Zustandsautomat schon weitergeholfen.
      Er entwirrt die Gedanken und man stellt fest, dass man 40% der if-else wegwerfen kann.
      1 + 1 = 10
  - lichtkind
    
    2016-02-15 16:53
    
    User since
    2004-03-22
    5697 Artikel
    ModeratorIn + EditorIn
    
    je nach typ helfen oder verwirren modelierungswerkzeuge. aber ich selber würd erst einmal beibringen wie die grundlegende syntax geht und oberhalb 50 zeilen würd ich vielleicht einen plan machen.uml , etc ist so die uni-schiene etwas beizubringen, und oft seh ich das so leute dinge nicht wirklich verstanden haben, nicht auf intuitiven ebene. das ist wie bei mathe. leute welche die formeln herunterrasseln können und klausur mit 1.0 bestehen müssen nicht notwendig alle inhaltlichen zusammenhänge verstanden haben. Perl bentutz ich weil ich freude haben und mir genau das erschliessen will.
    Tutorien in der Wiki, mein zeug:
    kephra, baumhaus, garten, gezwitscher
    
    Es beginnt immer mit einer Entscheidung.

View all threads created 2016-02-14 22:43.