Opened by SC at 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:
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)
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
)
1 2 3 4 5 6 7 8 9 10
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)