Perl Skript Datum ändern (Allgemeines zu Perl)

[thread]16663[/thread]

Perl Skript Datum ändern

Tags: perl5 datum Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+12 replies
Dani35

2011-08-27 14:32
User since
2011-08-27
6 Artikel
BenutzerIn
Hallo,

ich hab folgendes Perl Script und komm nicht weiter. Hoffe mir kann jemand weiterhelfen.
Code: (dl )

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

!usr/bin/perl use Time::Localtime; $a=0; print"Geben Sie +1 oder -1 ein\n"; $a = ; $x = time; if($a == +1) {$b = $x+86400;} elsif($a == -1) {$b = $x-86400;} else { print "Falsche Eingabe\n";} ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat, $Jahr, $Wochentag, $Jahrestag) = localtime($b); $Jahr += 1900; $Monat += 1; print "Datum: $Jahr-$Monat-$Monatstag $Stunden:$Minuten:$Sekunden ($Wochentag, $Jahrestag)\n";
Das Skript gibt den +1/-1 Datum und Uhrzeit aus. Möchte aber, dass es mehrere Tage ändert und evtl. auch nur Stundenweise ändert. Danke!!

Gruß Dani
Last edited: 2011-08-27 14:42:32 +0200 (CEST)
- pq
  
  2011-08-27 14:43
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  einmal posten reicht!
  bitte nicht dreimal den gleichen thread aufmachen.
  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
- pq
  
  2011-08-27 14:50
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  es gibt kein modul Time::Localtime.
  es gibt aber eins mit dem namen Time::localtime.
  beachte das kleine l.
  
  das modul Time::localtime exportiert eine funktion localtime, die im gegensatz zum builtin ein objekt liefert.
  da du aber den namen des moduls falschgeschrieben hast, wird die funktion gar nicht importiert und das builtin localtime verwendet.
  also schmeiss das use-statement einfach raus.
  
  wie genau lernst du perl?
  hast du schon perlintro gelesen und weitere perldocs? hast du ein buch über perl?
  
  ausserdem solltest du strict und warnings benutzen:
  use strict
  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
- GwenDragon
  
  2011-08-27 15:27
  User since
  2005-01-17
  14748 Artikel
  Admin1
  Der Perl-Shebang der Zeile 1 ist auch falsch.
  Korrekt muss es
  
  Code (perl): (dl )
  
  #!/usr/bin/perl
  
  sein.
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +2 replies
- FIFO
  
  2011-08-27 17:15
  User since
  2005-06-01
  469 Artikel
  BenutzerIn
  Hi,
  Es ist erstaunlich, dass überhaupt was ausgegeben wird, Du verwendest nämlich eine ambitionierte Interpretation der Syntax ;)
  So könnte es gehen:
  
  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
  
  #!/usr/bin/perl # Sicherheitsgurt anlegen use warnings; use strict; $| = 1; # print-Ausgabe sofort anzeigen print "Geben Sie +1 oder -1 ein: "; my $eingabe = <STDIN>; # von Standardeingabe lesen chomp $eingabe; # Newline entfernen my $x = time(); if ($eingabe eq '+1') { $x += 86400; } elsif ($eingabe eq '-1') { $x -= 86400; } else { print "Falsche Eingabe\n"; } my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat, $Jahr, $Wochentag, $Jahrestag) = localtime($x); $Jahr += 1900; $Monat += 1; print "Datum: $Jahr-$Monat-$Monatstag $Stunden:$Minuten:$Sekunden ($Wochentag, $Jahrestag)\n";
  
  Das geht noch eleganter, aber so ist der Ablauf klar.
  Gruß FIFO
  Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
  - Gast Dani
    
    2011-08-27 19:51
    
    Danke erstmal, hab bisher eigentlich immer mit c, c++ und java programmiert.
    Jetzt bin ich im Praxissemester und muss mit perl programmieren. Hab paar tutorials durchgemacht, aber komm noch nicht so klar damit.
    Das sieht schon mal anders aus, aber wie bekomm ich das noch hin mit mehreren Tagen und Stunden?
    
    Gruss
    Last edited: 2011-08-27 20:07:07 +0200 (CEST)
- +6 replies
- pq
  
  2011-08-27 17:30
  User since
  2003-08-04
  12208 Artikel
  Admin1
  also ich würde das mit DateTime machen, da man sich da nicht um sommerzeit u.ä. kümmern muss.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
  
  use strict; use warnings; use DateTime; chomp(my $input = <STDIN>); my ($num, $what) = split " ", $input; my $now = DateTime->now->set_time_zone("Europe/Berlin"); if ($what =~ m/^min/i) { $what = "minutes"; } elsif ($what =~ m/^st/i) { $what = "hours"; } elsif ($what =~ m/^tag/i) { $what = "days"; } # ... my $new_date = $now->add( $what => $num ); print "$new_date\n";
  
  eingabe z.B.: -2 tage, 3 stunden, -42 min
  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
  - +5 replies
  - Gast Dani
    
    2011-08-27 19:57
    
    Danke pq,hab bisher eigentlich immer mit c, c++ und java programmiert.
    Jetzt bin ich im Praxissemester und muss mit perl programmieren. Hab paar tutorials durchgemacht, aber komm noch nicht so klar damit.
    Das sieht schon mal ganz anders aus, aber wenn ich es ausführe im CMD kommt ne Fehlermeldung can´t locate Datetime.pm... BEGIN failed... line 3
    Funktioniert es bei dir? oder hast du ein bestimmtes Programm dazu?
    
    Aber genau so meinte ich den Aufbau erst mit Tage, Stunden und Minuten. Danke.
    Gruss
    Last edited: 2011-08-27 20:07:11 +0200 (CEST)
    - +2 replies
    - GwenDragon
      
      2011-08-27 20:09
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Du bist im Praxissemester, da kannst dann ja auch Erfahrungen mit Perl sammeln. ;)
      
      Das Modul DateTime musst du dann installieren, wenn es fehlt.
      Liebs bitte mal ModuleWieInstalliereIchEinModul
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - Dani35
        
        2011-08-28 14:52
        
        User since
        2011-08-27
        6 Artikel
        BenutzerIn
        
        Ja mach ich ;-) Aber das problem ist halt, derjenige der mir das beibringen soll hat die ganze Zeit Termine und hilft mir nicht. Er kommt kurz, sagt mir das und das will ich haben, dann fang ich an zu lesen und versuch da etwas zu machen.
        Danke nochmals..
        
        Gruß Dani
    - +2 replies
    - pq
      
      2011-08-27 20:09
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      dazu musst du das modul DateTime installieren, siehe ModuleWieInstalliereIchEinModul
      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
      - Dani35
        
        2011-08-28 14:54
        
        User since
        2011-08-27
        6 Artikel
        BenutzerIn
        
        Ja hab ich jetzt danke für alles!!

View all threads created 2011-08-27 14:32.