Ausgabe einer bestimmten Zeichenkette in einem Datensatz (gelöst) (Allgemeines zu Perl)

[thread]17275[/thread]

Ausgabe einer bestimmten Zeichenkette in einem Datensatz [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 23

Articles: hide open all | hide show old branches

+19 replies
Catherina

2012-03-28 11:00

User since
2012-03-23
12 Artikel
BenutzerIn

Hey Leute,
wie kann ich hier:

====> 5d2a6f8c-0c97-71e1-1d93-0acece150000 e45aaba0-098f-71da-0bcb-0acece140000 1 -1038486904 18 scholl.btx.dtag.de 1 -1038486904 18 scholl.btx.dtag.de 1 0 4 0 0 0 1321038004 1321038004 0 4 12 0 0 0 0 0 12 0 0 0 0 0 1321038004 3 OpC 24 Syslog (10.x/11.x HP-UX) 13 gethostbyaddr 2 OS 0 0 0 0 56 gethostbyaddr: f-sb1-i.F.DE.NET.DTAG.DE. != 62.154.3.85 87 Nov 11 19:58:38 scholl syslog: gethostbyaddr: f-sb1-i.F.DE.NET.DTAG.DE. != 62.154.3.85 0 0 0 0 0 0 0 0 0 0 0 0 5d2a6f8c-0c97-71e1-1d93-0acece150000 -3600 0 0 0 48 AUTOKEY:e4472fea6acec54ac834cd96a1107b1eacc5e5cf 0 1321038004 1 CMA 14 condition_name 22 gethostbyaddr messages

nur die roten Zeichenketten ausgeben? Die Beiden sollten getrennt sein und so ausgegeben werden, dass ich diese umformen kann in ein Datum. Das ganze sollte in Perl funktionieren.

Liebe Grüße
Catherina
- +8 replies
- pq
  
  2012-03-28 11:05
  User since
  2003-08-04
  12208 Artikel
  Admin1
  Code (perl): (dl )
  
  1 2 3 4
  
  use DateTime; my ($epoch1, $epoch2) = (split ' ', $line)[17,18]; my $date1 = DateTime->from_epoch( epoch => $epoch1 ); ...
  
  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
  - +7 replies
  - Catherina
    
    2012-03-28 11:11
    User since
    2012-03-23
    12 Artikel
    BenutzerIn
    
    Also, wenn ich jetzt diesen Code angebe:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
    
    #!/usr/bin/perl -w #ohne das -w gibt es mir nen Fehler aus use strict; use warnings; open (IN, "<h.txt") || die "Die Datei wurde nicht gefunden\n"; while (<IN>) { print $_ if $. == 5; if ($. == %) { use DateTime; my ($epoch1, $epoch2) = (split ' ', $line)[18,19]; my $date1 = DateTime->from_epoch( epoch => $epoch1 ); } } close (IN);
    
    dann bekomme ich folgende Fehlermeldung:
    
    syntax error at ./funktionierenderVersuchTeil2.pl line 12, near "{"
    Global symbol "$line" requires explicit package name at ./funktionierenderVersuchTeil2.pl line 14.
    syntax error at ./funktionierenderVersuchTeil2.pl line 17, near "}"
    Execution of ./funktionierenderVersuchTeil2.pl aborted due to compilation errors.
    - +5 replies
    - pq
      
      2012-03-28 11:47
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      ja, das ist ja kein wunder, dass du fehlermeldungen bekommst.
      
      erstens:
      if ($. == %) {
      
      was soll das sein?
      die variable $. soll gleich % sein? was ist %?
      ist doch klar, dass perl sich hier beschwert.
      da kann ich aber nix für. den fehler hättest du auch ohne meinen code bekommen.
      
      zweitens:
      
      du sagst, du willst etwas aus einer zeile extrahieren.
      ich schreibe dir ein beispiel, in dem die zeile in der variable $line liegt.
      
      nun baust du das ganze in ein skript ein, in dem die zeile in der variable $_ liegt.
      ja nun. dann musst du $line halt in $_ ändern.
      
      du solltest dir ein paar tutorials zu gemüte führen. du solltest zumindest in der lage sein, einen beispielschnipsel auf dein script anzupassen, aber ich habe leider das gefühl, du verstehst fast gar nichts von deinem script.
      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
      - Catherina
        
        2012-03-28 12:20
        
        User since
        2012-03-23
        12 Artikel
        BenutzerIn
        
        schön, wenn du der Meinung bist, dass ich nichts davon verstehe. selbst wenn ich all das beachte was du jetzt da geschrieben hast, was man unter Leichtsinnsfehler einstufen kann kommt ein fehler, da die Maschine eine Sekundenangabe nicht als Zeit erkennt, da sie auch gar nicht weiß an welchem Datum diese Sekunden zählen.
        
        Can't locate DateTime.pm in @INC (@INC contains: /opt/perl_32/lib/5.8.8/PA-RISC1.1-thread-multi /opt/perl_32/lib/5.8.8 /opt/perl_32/lib/site_perl/5.8.8/PA-RISC1.1-thread-multi /opt/perl_32/lib/site_perl/5.8.8 /opt/perl_32/lib/site_perl /opt/perl_32/lib/vendor_perl/5.8.8/PA-RISC1.1-thread-multi /opt/perl_32/lib/vendor_perl/5.8.8 /opt/perl_32/lib/vendor_perl .) at ./funktionierenderVersuchTeil2.pl line 13
        BEGIN failed--compilation aborted at ./funktionierenderVersuchTeil2.pl line 13.
        
        wie ich es umwandle, das weiß ich.
        Last edited: 2012-03-28 12:52:59 +0200 (CEST)
        
        pq
        
        2012-03-28 12:56
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2012-03-28T10:20:37 Catherina
        kommt ein fehler, da die Maschine eine Sekundenangabe nicht als Zeit erkennt, da sie auch gar nicht weiß an welchem Datum diese Sekunden zählen.
        
        dese aussage verstehe ich nicht.
        soweit ich das beurteilen kann, ist 1321038004 ein zeitstempel in epochsekunden, das sind die sekunden seit 1.1.1970.
        
        Quote
        Can't locate DateTime.pm in @INC (@INC contains: /opt/perl_32/lib/5.8.8/PA-RISC1.1-thread-multi /opt/perl_32/lib/5.8.8 /opt/perl_32/lib/site_perl/5.8.8/PA-RISC1.1-thread-multi /opt/perl_32/lib/site_perl/5.8.8 /opt/perl_32/lib/site_perl /opt/perl_32/lib/vendor_perl/5.8.8/PA-RISC1.1-thread-multi /opt/perl_32/lib/vendor_perl/5.8.8 /opt/perl_32/lib/vendor_perl .) at ./funktionierenderVersuchTeil2.pl line 13
        BEGIN failed--compilation aborted at ./funktionierenderVersuchTeil2.pl line 13.
        
        dir fehlt das modul DateTime.
        da du nicht gesagt hast, in was genau du umwandeln willst, habe ich eben DateTime genommen.
        drück dich halt das nächste mal klarer aus.
        sonst nimm halt einfach my $datestring = localtime($epoch1);
        
        Quote
        wie ich es umwandle, das weiß ich.
        
        achso, na dann.
        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
        
        2012-03-28 13:27
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        2012-03-28T10:20:37 Catherina
        Can't locate DateTime.pm in @INC (@INC contains: /opt/perl_32/lib/5.8.8/PA-RISC1.1-thread-multi /opt/perl_32/lib/5.8.8 /opt/perl_32/lib/site_perl/5.8.8/PA-RISC1.1-thread-multi /opt/perl_32/lib/site_perl/5.8.8 /opt/perl_32/lib/site_perl /opt/perl_32/lib/vendor_perl/5.8.8/PA-RISC1.1-thread-multi /opt/perl_32/lib/vendor_perl/5.8.8 /opt/perl_32/lib/vendor_perl .) at ./funktionierenderVersuchTeil2.pl line 13
        BEGIN failed--compilation aborted at ./funktionierenderVersuchTeil2.pl line 13.
        Lies bitte mal ModuleWieInstalliereIchEinModul installiere bitte erst mal das Modul DateTime.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - GUIfreund
        
        2012-03-28 13:01
        
        User since
        2011-08-08
        559 Artikel
        BenutzerIn
        
        2012-03-28T09:47:21 pq
        du solltest dir ein paar tutorials zu gemüte führen. du solltest zumindest in der lage sein, einen beispielschnipsel auf dein script anzupassen, aber ich habe leider das gefühl, du verstehst fast gar nichts von deinem script.
        
        ... und du solltest dich bemühen, wohlgemeinte Ratschläge zu beherzigen.
        
        2012-03-28T09:11:19 Catherina
        
        Code: (dl )
        
        open (IN, "<h.txt") || die "Die Datei wurde nicht gefunden\n";
        
        2012-03-26T09:01:19 pq
        ... keine lexikalische filehandles, in der fehlermeldung bei open fehlt die eigentliche fehlermeldung.
        
        ... und nicht die 3-Argumente-Form von open.
        Gruß
        GUIfreund
    - pq
      
      2012-03-28 11:53
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      2012-03-28T09:11:19 Catherina
      
      Code: (dl )
      
      #!/usr/bin/perl -w #ohne das -w gibt es mir nen Fehler aus
      
      dann speicher dein skript mit den richtigen zeilenenden ab, denn du speicherst das skript unter windows, kopierst es im falschen modus (binär) auf linux, und dann bleibt ein carriage return hängen, weshalb ein perl-interpreter namens "/usr/bin/perl\r" gesucht wird, der nicht existiert. (sagt mir zumindest meine glaskugel).
      
      das -w einfach hinzuschreiben, weil es die (geheime) fehlermeldung unterdrückt, kann auch nicht sinn der sache sein.
      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
- +10 replies
- hlubenow
  
  2012-03-28 21:59
  
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  
  2012-03-28T09:00:31 Catherina
  Hey Leute,
  wie kann ich hier:
  
  ====> 5d2a6f8c-0c97-71e1-1d93-0acece150000 e45aaba0-098f-71da-0bcb-0acece140000 1 -1038486904 18 scholl.btx.dtag.de 1 -1038486904 18 scholl.btx.dtag.de 1 0 4 0 0 0 1321038004 1321038004 0 4 12 0 0 0 0 0 12 0 0 0 0 0 1321038004 3 OpC 24 Syslog (10.x/11.x HP-UX) 13 gethostbyaddr 2 OS 0 0 0 0 56 gethostbyaddr: f-sb1-i.F.DE.NET.DTAG.DE. != 62.154.3.85 87 Nov 11 19:58:38 scholl syslog: gethostbyaddr: f-sb1-i.F.DE.NET.DTAG.DE. != 62.154.3.85 0 0 0 0 0 0 0 0 0 0 0 0 5d2a6f8c-0c97-71e1-1d93-0acece150000 -3600 0 0 0 48 AUTOKEY:e4472fea6acec54ac834cd96a1107b1eacc5e5cf 0 1321038004 1 CMA 14 condition_name 22 gethostbyaddr messages
  
  nur die roten Zeichenketten ausgeben? Die Beiden sollten getrennt sein und so ausgegeben werden, dass ich diese umformen kann in ein Datum. Das ganze sollte in Perl funktionieren.
  
  Liebe Grüße
  Catherina
  
  Vielleicht nochmal ganz von vorne.
  
  Also, Du könntest die Zeilen durchgehen und nach der Zeichenkette "1321038004 1321038004" suchen. Aber das scheint nicht das zu sein, was Du willst. Also, nach welchem Kriterium soll der auszugebende String gefunden werden?
  - +9 replies
  - Catherina
    
    2012-03-29 08:24
    
    User since
    2012-03-23
    12 Artikel
    BenutzerIn
    
    Also, jede "Zeichenkette" ist durch ein Leerzeichen getrennt und demnach wären die beiden Zahlen in rot die 18. und die 19. Stelle. Nach diesem Kriterium muss ich diese suchen, damit ich sie ersetzen kann.
    - GwenDragon
      
      2012-03-29 09:10
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      @Catherina
      Wenn du nochmals Beispeildaten postest, stelle die bitte in CODE-Tags, dann können wir besser sehen wie der Datensatz aufgebaut ist.
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
      
      use strict; use warnings; # Daten"zeile" my $zeile = '====> 5d2a6f8c-0c97-71e1-1d93-0acece150000 e45aaba0-098f-71da-0bcb-0acece140000 1 -1038486904 18 scholl.btx.dtag.de 1 -1038486904 18 scholl.btx.dtag.de 1 0 4 0 0 0 1321038004 1321038004 0 4 12 0 0 0 0 0 12 0 0 0 0 0 1321038004 3 OpC 24 Syslog (10.x/11.x HP-UX) 13 gethostbyaddr 2 OS 0 0 0 0 56 gethostbyaddr: f-sb1-i.F.DE.NET.DTAG.DE. != 62.154.3.85 87 Nov 11 19:58:38 scholl syslog: gethostbyaddr: f-sb1-i.F.DE.NET.DTAG.DE. != 62.154.3.85 0 0 0 0 0 0 0 0 0 0 0 0 5d2a6f8c-0c97-71e1-1d93-0acece150000 -3600 0 0 0 48 AUTOKEY:e4472fea6acec54ac834cd96a1107b1eacc5e5cf 0 1321038004 1 CMA 14 condition_name 22 gethostbyaddr messages'; # Daten nach Leerzeichen aufsplitten und an Array zuweisen my @data = split /\s/,$zeile; # Nur die 18. und 19. "Datenfeld" aus dem Datenarray holen my ($zeitstempel1, $zeitstempel2) = @data[17,18]; # Zum Debug die beiden Daten ausgeben print "T1: $zeitstempel1", "\n", "T2: $zeitstempel2", "\n"; # Zum Debug die beiden Daten im GMT Zeitformat ausgeben print "T1: " . localtime($zeitstempel1), "\nT2: " . localtime $zeitstempel2, "\n";
      
      //EDIT: Hinweis hinzugefügt; Code kommentiert
      Last edited: 2012-03-29 09:16:59 +0200 (CEST)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - Relais
      
      2012-03-29 09:19
      
      User since
      2003-08-06
      2246 Artikel
      ModeratorIn
      
      Dann verrate ich Dir noch, dass Mathemagier und Informatiker nicht immer, aber häufig mit der Null (0) eine Zählreihe beginnen.
      Du zählst: 1 2 3 4 5 6 7 8 9 10 Informatiker: 0 1 2 3 4 5 6 7 8 9
      Perl macht es mal so, mal so. In Listen und Arrays wird typischerweise mit 0 angefangen zu zählen, dass heisst, die 18. und 19. Stelle sind nicht nur für pq, sondern auch für Perl die Stellen 17,18
      Erst denken, dann posten --
      27. Deutscher Perl- u. Raku -Workshop (Termin wird noch gesucht) 2025 in München.
      
      Winter is Coming
    - +6 replies
    - pq
      
      2012-03-29 11:24
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      und warum versuchst du es dann nicht mit dem split?
      oder bist du jetzt so beleidigt, dass du meinen code gar nicht mehr ausprobieren willst?
      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
      - hlubenow
        
        2012-03-29 16:48
        
        User since
        2009-02-22
        875 Artikel
        BenutzerIn
        
        2012-03-29T09:24:44 pq
        und warum versuchst du es dann nicht mit dem split?
        oder bist du jetzt so beleidigt, dass du meinen code gar nicht mehr ausprobieren willst?
        
        Ich glaub' eher, sie bekommt die Daten nicht zum split() hin, das heißt, sie weiß nicht, wie man das mit dem Einlesen verbinden soll, siehe ihren Versuch oben, die Code-Versatzteile irgendwie zusammenzufügen.
        
        +4 replies
        
        Catherina
        
        2012-03-30 08:17
        
        User since
        2012-03-23
        12 Artikel
        BenutzerIn
        
        Ich glaube hlubenow hat Recht, ich bekomms nicht hin. Das Problem ist, dass ich aufgrund meines Studiums gerade 3 Programmiersprachen aufeinmal lernen darf und alles gleichzeitig kann man eben nicht gut können und wenn man mit allem frisch angefangen hat erst recht nicht.
        Auf jeden Fall möchte ich nochmal allen für die Hilfe danken.
        
        +2 replies
        
        GwenDragon
        
        2012-03-30 08:42
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Was bekommst du denn nicht hin?
        Ich hatte unter msg #157098 ja ein Beispile gegeben wie du das extrahieren kannst.
        
        Weißt du nicht wie die Daten eingelesen werden sollen?
        
        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
        
        # Dateiname my $filename = "/home/catherina/logfile.log"; #Datei zum lesen öffnen open(my $fh, "<", $filename) or die "Open schlug fehl: $!"; # Alle Daten in Array einlesen my @logdaten = <$fh>; #Datei schließen close ($fh); # jede "Zeile" aus Logdaten auswerten for my $zeile (@logdaten) { # Daten nach Leerzeichen aufsplitten und an Array zuweisen my @data = split /\s/,$zeile; # Nur die 18. und 19. "Datenfeld" aus dem Datenarray holen my ($zeitstempel1, $zeitstempel2) = @data[17,18]; # Zum Debug die beiden Daten ausgeben print STDERR "T1: $zeitstempel1", "\n", "T2: $zeitstempel2", "\n"; # Zum Debug die beiden Daten im GMT Zeitformat ausgeben print STDERR "T1: " . localtime($zeitstempel1), "\nT2: " . localtime $zeitstempel2, "\n"; # weiterer Code, der irgendwas mit den extrahierten Zeitstempeln macht }
        
        Last edited: 2012-03-30 08:59:48 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        Catherina
        
        2012-03-30 11:02
        
        User since
        2012-03-23
        12 Artikel
        BenutzerIn
        
        also dein Beispiel hab ich verstanden, danke :)
        ich meinte damit allgemein Perl und so. pq meinte, ich hätte keine Ahnung, und ja, das stimmt. Das wollte ich damit sagen.
        
        GwenDragon
        
        2012-03-30 11:59
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Wenn du das Problem, das du uns hier zeigtest, gelöst hast, markiere doch bitte diesen Thread als gelöst.
        Oben unterhalb des Titels ist "Thread als gelöst markieren:" udn ein Button mit grünem Haken.
        Danke.
        Last edited: 2012-03-30 12:01:40 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2012-03-28 11:00.