Programmiersprache erkennen (Allgemeines zu Perl) - Perl-Community.de

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

2025-11-30 11:26:03
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
1 Benutzer online
5 Gäste

[thread]18034[/thread]

submit to reddit

Programmiersprache erkennen

Tags: perl5 Ähnliche Threads

Leser: 27

Articles: hide open all | hide show old branches

+19 replies
jan

2013-01-07 15:52

User since
2003-08-04
2536 Artikel
ModeratorIn

Moin,

kurze Frage, mir fehlen die richtigen Schlagwörter zum Suchen, kennt jemand ein Projekt, das sich mit der Identifikation der Programmiersprache von Quelltext befasst? (Für mich primär hier: sieht das nach Perl aus oder ist es eher PHP?)
Klar: man kann auf die Dateiendung schauen, aber das reicht ja nicht unbedingt.
Gibt's da schon was fertiges, was gut funktioniert? Natürlich bevorzugt in Perl.
Mir reichen auch ein paar gute Keywords oder ein Link in die richtige Richtung.

Danke!
- +2 replies
- Muffi
  
  2013-01-07 15:59
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  Code: (dl )
  
  perl -c datei
  
  ;)
  
  Oh, grad geguckt: "(runs BEGIN and CHECK blocks)" ist vielleicht nicht das was man bei fremden Code haben will.
  Last edited: 2013-01-07 16:01:18 +0100 (CET)
  1 + 1 = 10
  - jan
    
    2013-01-08 12:37
    
    User since
    2003-08-04
    2536 Artikel
    ModeratorIn
    
    Ja. Natürlich könnte man das in eine VM legen etc pp, aber das eher hoher Aufwand. Zumal ich gar nicht ausschließen will, dass ein Code ev. Fehlerhaft ist ... ;)
- +2 replies
- nepos
  
  2013-01-08 10:16
  
  User since
  2005-08-17
  1420 Artikel
  BenutzerIn
  
  Wie du schon richtig sagst, Dateiendungen sind Schall und Rauch. Darauf kann man sich nicht verlassen.
  Eventuell hilft dir File::LibMagic oder ähnliches weiter.
  Aber auch das ist alles andere als wirklich zuverlässig.
  - jan
    
    2013-01-08 12:38
    
    User since
    2003-08-04
    2536 Artikel
    ModeratorIn
    
    Das arbeitet wie "file" unter Linux, das werde ich mal austesten. Danke.
- +4 replies
- bianca
  
  2013-01-08 10:27
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Kann man Perl nicht über die Shebang Zeile sicher identifizieren? Denn ohne diese Zeile würde es nicht laufen, solange es sich nicht um Windows handelt.
  Ansonsten ist doch die Erkennung über die Dateiendung nicht schlecht. Klar ist die theoretisch Schall und Rauch aber immerhin konfiguriert man den Webserver ja auch darüber. Wenn also die Endung falsch ist würde es auch nicht ausgeführt. Daher die Frage, wieso sollte die Code-Erkennung sicherer sein als hinterher die Ausführung?
  Shebang plus Dateiendung finde ich schon ziemlich sicher.
  10 print "Hallo"
  20 goto 10
  - +3 replies
  - GwenDragon
    
    2013-01-08 10:36
    
    User since
    2005-01-17
    14888 Artikel
    Admin1
    
    Programme brauchen nur den Shebang, wenn sie über die Shell geöffnet werden. Perl-Module haben keinen Shebang. PHP-Programme haben nur einen Shebang als Shell-Programm, als Webprogramm nicht.
    Also ist die Identifikation darüber ungewiss.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +2 replies
    - bianca
      
      2013-01-08 11:38
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      2013-01-08T09:36:17 GwenDragon
      Also ist die Identifikation darüber ungewiss.
      
      Hast völlig Recht. Ich schrieb ja auch, dass es damit nur ziemlich sicher sei.
      Meiner Meinung nach muss man halt mehrere Plausibilitäten heranziehen für die Erkennung. Es gibt m.E. kein 1 oder 0 an einer einzigen Stelle.
      
      Man könnte auch im Quelltext bestimmte Codewörter suchen. Z.B. würde ich ein "print" eher bei Perl und ein "echo" eher bei PHP erwarten. Ist aber auch nur ein Baustein und muss vorsichtig gehandhabt werden. Sobald sich jemand eine eigene function echo in Perl schreibt muss man natürlich aufpassen.
      10 print "Hallo"
      20 goto 10
      - jan
        
        2013-01-08 12:40
        
        User since
        2003-08-04
        2536 Artikel
        ModeratorIn
        
        Ja, über keyword-Listen habe ich auch schon nachgedacht.
        Das ist sicher auch noch sinnvoll, um die Wahrscheinlichkeit zu erhöhen. "use strict;" kommt eher nicht in PHP vor, "error_reporting(E_ALL);" eher nicht in Perl und so weiter.
        
        Im Idealfall will ich das nur nicht selbst aufbauen müssen ;)
- +4 replies
- pq
  
  2013-01-08 13:46
  User since
  2003-08-04
  12209 Artikel
  Admin1
  hmmmm...
  
  Code: (dl )
  
  1 2 3
  
  $ vim -c "set filetype" -c "quit" datei.pl "datei.pl" 12L, 131C filetype=perl
  
  vielleicht kriegt man noch die ausgabe besser hin, so dass man das automatisieren kann...
  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
  - jan
    
    2013-01-08 15:43
    
    User since
    2003-08-04
    2536 Artikel
    ModeratorIn
    
    Hmm, ich bin ja absolute vim-Anfänger. Benötigt man dafür noch irgendetwas besonderes? Ein kleines Script erkennt es nicht und meldet "filetype=", während "file -i" sagt "text/x-perl; charset=us-ascii"
    - +2 replies
    - pq
      
      2013-01-09 12:35
      
      User since
      2003-08-04
      12209 Artikel
      Admin1
      
      hm, vielleicht ist bei dir filetype detection ausgeschaltet, würde mich aber wundern. oder es fehlen pakete, die die regeln beinhalten...
      :filetype on
      schaltet die erkennung an.
      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
      - jan
        
        2013-01-09 12:59
        
        User since
        2003-08-04
        2536 Artikel
        ModeratorIn
        
        2013-01-09T11:35:18 pq
        hm, vielleicht ist bei dir filetype detection ausgeschaltet, würde mich aber wundern. oder es fehlen pakete, die die regeln beinhalten...
        :filetype on
        schaltet die erkennung an.
        
        Tatsache, das war's. Danke.
- payx
  
  2013-01-09 12:14
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Hallo jan,
  
  so etwas wie Encode::Guess nur eben nicht für Kodierungen sondern für Programmiersprachen scheint es (noch) nicht zu geben.
  
  Für einen Eigenbau könnte man mit File::MMagic starten. Das kommt aus dem Apache-Umfeld und liefert eigentlich MIME types zurück, kann aber leicht erweitert und angepasst werden: Einfach ein eigenes magic file schreiben (und für Perl einen eigenen file type definieren).
  
  Beispiel: Mit so einer Zeile im magic file
  
  Code: (dl )
  
  0 string #!/usr/bin/perl perl
  
  oder vielleicht besser
  
  Code: (dl )
  
  0 regex #!.*perl perl
  
  werden Perl-Scripte mit so einer shebang-Zeile als Perl zurückgemeldet.
  
  Grüße
  payx
- +5 replies
- flowdy
  
  2013-01-09 20:30
  
  User since
  2012-08-03
  45 Artikel
  BenutzerIn
  
  Müssen Codeblöcke in PHP nicht immer in <?/<?php ... ?> eingeschlossen werden?
  package MyClass; sub new {\b\b\b\b\b\b\b\b\buse Moose;
  - +4 replies
  - jan
    
    2013-01-09 21:05
    
    User since
    2003-08-04
    2536 Artikel
    ModeratorIn
    
    Theoretisch ja, aber dann kommen snippets, die darauf keinen Wert legen, dateien, die ge"eval"ed werden und so weiter, das halte ich nicht für sicher.
    
    Anfangs machte mir Githubs linguist Hoffnungen. Aber das funktioniert offenbar zumindest für Perl nicht sonderlich gut. "*.pl" erkennt es als perl, aber andere Dateinamen erkennt es als text/plain, selbst wenn #!/usr/bin/perl als shebang vorhanden ist.
    
    Naja, ganz aufgegeben habe ich aber noch nicht, ich suche weiter!
    - +3 replies
    - renee
      
      2013-01-10 16:48
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Wenn's Dir nur darum geht nachzuschauen ob es Perl ist oder nicht, könntest Du versuchen es mit PPI zu parsen. Ist es ein gültiges PPI-Dokument, wird es sich um Perl handeln sonst ist es etwas anderes.
      
      Du wirst Dir vermutlich verschiedene Sachen anschauen müssen und dann eine Wahrscheinlichkeit daraus berechnen:
      
      * Dateiendung
      * Filetype
      * Schlüsselwörter
      * Shebang
      * Statisches Parsen (wie z.B. PPI für Perl)
      
      Ganz schwierig wird es natürlich wenn es durch Obfuscator oder ähnliches jagt (es gibt z.B. ein Modul, das Perl in .gifs einbettet. Schaut man sich das .gif mit einem Grafikprogramm an, ist es einfach ein Bild. Man kann aber auch perl xxx.gif aufrufen und es läuft das Perl-Programm)
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
      - jan
        
        2013-01-10 17:47
        
        User since
        2003-08-04
        2536 Artikel
        ModeratorIn
        
        Ja, so eine Art Wahrscheinlichkeitsberechnung fürchte ich auch machen zu müssen.
        
        Auf Obfuscation werde ich dabei aber wohl nicht mehr allzu sehr eingehen, das wird dann doch zu wild ;)
      - Crian
        
        2013-01-11 11:00
        
        User since
        2003-08-04
        5878 Artikel
        ModeratorIn
        
        2013-01-10T15:48:34 renee
        Ganz schwierig wird es natürlich wenn es durch Obfuscator oder ähnliches jagt (es gibt z.B. ein Modul, das Perl in .gifs einbettet. Schaut man sich das .gif mit einem Grafikprogramm an, ist es einfach ein Bild. Man kann aber auch perl xxx.gif aufrufen und es läuft das Perl-Programm)
        
        Das ist ja heftig.
        
        Aber auch ein mit Acme::Bleach bearbeitet Programm wird sich schwer analysieren lassen.
        s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
        
        use strict; use warnings; Link zu meiner Perlseite

View all threads created 2013-01-07 15:52.