Dynamische Variable (Allgemeines zu Perl)

[thread]14339[/thread]

Dynamische Variable

Leser: 24

Articles: hide open all | hide show old branches

+7 replies
Gast BSC

2009-12-05 11:28
Hallo Community,

ich habe so gut wie keine Perl-Erfahrung aber folgenden Code-Ausschnitt:
Code: (dl )

$replace_by{ $input_row[search] } = $input_row[replace];
und möchte die Variable $input_row[replace] dynamisch gestalten. Das ganze soll dann in etwa so aussehen:
Code: (dl )

$replace_by{ $input_row[search] } = $input_row[$_context{abc}]
Geht das in dieser Form überhaupt? Ist die Syntax die richtige?
Kann jemand helfen?

Herzlichen Dank
- renee
  
  2009-12-05 12:28
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  Kannst Du vielleicht etwas genauer beschreiben, was Du machen willst? Was soll $input_row[search] darstellen? Was soll $_context{abc} darstellen? Wie soll %replace_by am Ende aussehen?
  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/
- +2 replies
- betterworld
  
  2009-12-05 12:34
  
  User since
  2003-08-21
  2614 Artikel
  ModeratorIn
  
  Guest BSC
  Ist die Syntax die richtige?
  
  Das ist in Perl immer eine schwierige Frage, wenn man nur einen kleinen Auszug des Scriptes sieht ;-)
  
  $input_row[search] sieht zunächst seltsam aus. Wenn man etwas mit Strings wie "search" indizieren möchte, benutzt man Hashes, und da werden geschweifte Klammern statt eckigen benutzt.
  
  Die eckigen sind aber auch korrekt: Damit werden Arrays indiziert, wobei der Index eine Zahl sein muss. Wenn "search" also eine Zahl ergibt (es koennte eine Konstante sein oder eine Subroutine, die keine Parameter nimmt und eine Zahl zurückgibt) dann ist das alles korrekt so.
  
  Ansonsten kann ich zu Deinen Fragen nicht viel sagen. Erklär am besten mal ausführlicher, was Du vorhast. Hast Du den Code selbst geschrieben oder kommt das von irgendwo anders? Wenn man Code schreibt, ist es zur Nachvollziehbarkeit immer gut, wenn er auch ausgeführt werden kann. Dein Code kann als solches nicht ausgeführt werden, weil die verwendeten Variablen nicht definiert wurden.
  Lieblingsmodule: IPC::System::Simple, Path::Class
  - BSC
    
    2009-12-05 13:42
    
    User since
    2009-12-05
    1 Artikel
    BenutzerIn
    
    Hallo,
    
    zunächst einmal Danke für eure Antworten. Der Code stammt nicht von mir, sondern von einem Perl-Entwickler aus dem Talend-Team. Ich verwende TalendOpenStudio http://de.talend.com/index.php um ETL-Prozesse zu modellieren. Talend setzt auf der Eclipse-Entwicklungsumgebung auf und erlaubt es Projekte in Java oder Perl zu erstellen. Im Prinzip stellt Talend einen Codegenerator dar.
    
    Der Code-Schnipsel stammt aus folgendem Talend-Forumsbeitrag:
    http://www.talendforge.org/forum/viewtopic.php?id=6227
    
    Ich habe den in dem Forumsbeitrag beschriebenen Talend-Job 1:1 nachgebaut. Im Prinzip ersetzt dieser Job die in einer csv-Datei enthaltenen Key's (pro Zellen) durch die in einer anderen csv-Datei enthaltenen Values.
    $input_row[replace] ist eine Variable welche die entsprechende Spalte in der csv-Datei referenziert. "replace" der Name der Spalte. "replace" möchte ich jetzt dynamisch gestalten. Hierzu habe ich eine globale Variable (falls das so heißt in Perl) $_context{abc} angelegt. Sie trägt die Information welche Spalte als nächstes für den Key --> Value LookUp verwendet werden soll. Die Key's sind Zeichenketten. Die Values sind Kommazahlen.
    
    Ich hoffe ich konnte das halbwegs verständlich nieder schreiben.
    Habt Ihr eine Idee wie ich das lösen könnte?
- +3 replies
- Linuxer
  
  2009-12-05 20:34
  
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  
  Crosspost: http://www.perlboard.de/cgi-bin/perlboard.pl?actio...
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +2 replies
  - Mikmak
    
    2009-12-12 02:39
    User since
    2004-08-15
    19 Artikel
    BenutzerIn
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10
    
    my @list = qw (a b c d); foreach (@list){ local ${$_} = $_; } print "Inhalt a: " . $a ."\n"; print "Inhalt b: " . $b ."\n"; print "Inhalt c: " . $c ."\n"; print "Inhalt d: " . $d ."\n";
    
    Vielleicht ist es das was du suchst
    - Gast wer
      
      2009-12-12 04:36
      
      Bitte nicht.
      Wenn einer so was warten soll...

View all threads created 2009-12-05 11:28.