Sortierprogramm das einen Dateinamen verlangt und lexiographisch sortiert (Allgemeines zu Perl)

[thread]19965[/thread]

Sortierprogramm das einen Dateinamen verlangt und lexiographisch sortiert

Leser: 13

Articles: hide open all | hide show old branches

+5 replies
Michael47

2016-01-25 11:21
User since
2016-01-22
53 Artikel
BenutzerIn
Mal eine ganz andere Frage. Ich soll ein Sortierprogramm schreiben, dass einen Dateinamen verlangt und lexiographisch sortiert. Ich hab da schon mal eine .pl-Datei zusammengeschustert. Sie macht mir brav das DOS-Fenster auf und fragt mich nach den Dateinamen. Wenn ich dann was eingebe und bestätige, wird das Fenster wieder geschlossen. Was ist da falsch an meinem Code.
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

use warnings; use strict; print "Bitte geben Sie den Dateinamen an: "; my $datei = <STDIN>; chomp $datei; if (not -s $datei) { die ("Die Datei ist leer oder existiert nicht.\n"); } open (my $EINGABE, '<', $datei) or die "Can't open $datei: $!\n"; my @zeilen = <$EINGABE>; @zeilen = sort @zeilen; print $_ foreach @zeilen; close ($EINGABE); print "\nIhre Datei wurde nun Lexikografisch sortiert. [OK] "; <STDIN>;
Splitted from Umbau eines Skript mit der CGI-Bibliothek msg #183627
Last edited: 2016-01-25 11:25:48 +0100 (CET)
- +3 replies
- GwenDragon
  
  2016-01-25 11:24
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Wieso schließt das? Öffnest du das Programm per Doppelklick? Es ist doch kein Windows-Programm.
  Du kannst solche Perl-Programme auch nicht im Dateimanager öffnen sondern nur in der Eingabeaufforderung.
  Last edited: 2016-01-25 11:44:42 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - Michael47
    
    2016-01-25 11:37
    
    User since
    2016-01-22
    53 Artikel
    BenutzerIn
    
    Also wenn ich "localhost/cgi-bin/sortierprogramm.pl" eingebe, bekomme ich die Fehlermeldung "Internal Server Error".
    - GwenDragon
      
      2016-01-25 11:43
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Das Programm ist für die Kommandozeile, nicht für den Browser!
      Wie ist die Aufgabenstellung?
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- GwenDragon
  
  2016-01-25 11:34
  User since
  2005-01-17
  14748 Artikel
  Admin1
  Die Datei ist aber nicht sortiert, nur die Ausgabe. ist das so verlangt?
  Wenn nicht, musst du das Array in eine temporäre Datei schreiben, die alte löschen und die temporäre in die alte umbenennen!
  Oder die Datei als Lesen-Schreiben-Modus öffnen, Daten in Array einlesen, Array sortieren, Datei kürzen und Array zurück schreiben.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13
  
  open (my $EINGABE, '+<', $datei) # öffne im Modus für Lesen/Update or die "Can't open $datei: $!\n"; my @zeilen = <$EINGABE>; @zeilen = sort @zeilen; seek $EINGABE,0,0; # Dateizeiger auf Dateianfang truncate $EINGABE,0; # Datei auf Länge 0 kürzen print $EINGABE $_ foreach @zeilen; # Daten in Datei zurück schreiben close ($EINGABE) or die "Can't close $datei: $!\n";
  
  Siehe:
  http://perldoc.perl.org/functions/open.html
  http://perldoc.perl.org/functions/seek.html
  http://perldoc.perl.org/functions/truncate.html
  Last edited: 2016-01-25 11:42:09 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2016-01-25 11:25.