Perl Programm Ausgabe (Allgemeines zu Perl)

[thread]16805[/thread]

Perl Programm Ausgabe

Tags: perl5 Similar Threads

Readers: 20

Articles: hide open all | hide show old branches

+6 replies

guest SC

2011-10-12 17:14

Hallo,
ein Freund von mir hat mich beauftragt herauszufinden was ein bestimmtes Programm, welches in der Programmiersprache Perl geschrieben ist, ausgibt. Leider kenne ich mich nicht genug damit aus, um ihm seine Frage zu beantworten. Deswegen wollte ich mal fragen, ob einer von euch die Programmiersprache Perl beherrscht und uns sagen kann, was genau dieses Programm ausgibt.

Es handelt sich um folgendes Programm:

Code (perl): (dl )

foreach my $CIN (@ARGV) { 
  print "processing.."; 
  open (CIN, "< $CIN") or die "can,t open.."; 
  while (<CIN>) { 
    if (/<tradeItemUnitDescriptor>(.*)<\/tradeItemUnitDescriptor>/) { 
      my $tIUD = $1; 
      my $WhatIsIt = "..."; 
      print ($CIN); 
      print_GLN ($WhatIsIt, $tIUD); 
    }

Lg

modedit Editiert von GwenDragon: Bitte Code einrücken und auch mit Perl-Tags formatieren
Last edited: 2011-10-12 17:18:18 +0200 (CEST)

+5 replies

GwenDragon

2011-10-12 17:19

User since
2005-01-17
14816 articles
Admin1

Ein bisschen unvollständig das Ganze.

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

+4 replies

guest SC

2011-10-12 17:23

Mehr hat er mir leider auch nicht gegeben:/
Last edited: 2011-10-12 17:25:13 +0200 (CEST)

+3 replies

GwenDragon

2011-10-12 17:30

User since
2005-01-17
14816 articles
Admin1

Das Perlprogramm macht folgendes

Code: (dl )

In Schleife: lese zeilenweise die Datei $CIN 
  Bei jedem Vorkommen des XML-Elements tradeItemUnitDescriptor 
    lies den Kindinhalt aus
    gibt die eingelesen Zeile auf Standardausgabe aus
    übergib an die Funktion print_GLN die Werte "..." und den Kindinhalt

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

+2 replies

suresh

2011-10-12 18:00

User since
2010-10-12
109 articles
BenutzerIn
[default_avatar]

Kommentare ergänzend zu GwenDrangons post und Klammern hinzugefügt:

Code (perl): (dl )

#durchläuft @ARGV, enthält vermutlich eine Liste von XML Dateien
foreach my $CIN (@ARGV) { 
  print "processing.."; 
  # öffnet die jeweilige XML Datei mit dem filehandle CIN
  open (CIN, "< $CIN") or die "can,t open.."; 
  # filehandle wird duchlaufen solange die while Bedingung erfüllt ist
  while (<CIN>) { 
    # es wird nach einem XML tag gefiltert
    if (/<tradeItemUnitDescriptor>(.*)<\/tradeItemUnitDescriptor>/) { 
      #der Inhalt des XML tags wird der Variable übergeben
      my $tIUD = $1; 
      my $WhatIsIt = "..."; 
      #gibt dein Namen der XML Datei aus
      print ($CIN); 
      #übergibt entsprechende Parameter einer print Funktion
      print_GLN ($WhatIsIt, $tIUD); 
    }
  }
}

guest SC

2011-10-12 18:25

Vielen Dank ;)
Last edited: 2011-10-12 18:26:26 +0200 (CEST)

View all threads created 2011-10-12 17:14.