Datensätze auslesen - Semikolon-getrennt (Allgemeines zu Perl)

[thread]17556[/thread]

Datensätze auslesen - Semikolon-getrennt

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+10 replies
Gast Anton Mehl

2012-07-12 10:06
Bin noch ziemlicher Perl Neuling und mach noch vieles umständlich...
Danke aber für eure Hilfe, das hat wunderbar funktioniert!

Jetzt hätte ich noch eine Frage:

Ich habe zwei Arrays, ein Array mit Druckernamen und ein Array mit deren IPAdressen. Diese Informationen möchte ich in etwa so in eine .txt Datei schreiben:

LT06;192.168.29.100
LT07;192.168.29.101
usw.
Also ; als Trennzeichen.

Mein Ansatz (ich weiß es geht einfacher, aber keine Ahnung wie und hab dazu nichts gefunden im Netz) funktioniert nicht:
Code: (dl )

1 2 3 4 5 6 7 8 9 10

&DATEISCHREIBEN(@Druckernamen, @IPAdressen); sub DATEISCHREIBEN { open(Printer,">PrinterListe.txt") || die "Kann Datei nicht zum Schreiben oeffnen: $!\n"; my $anzahlelemente = @Druckernamen; for (my $z =0;$z<$anzahlelemente;$z++) { printf Printer "Druckername:%s;IPAdresse:%s\n", $Druckernamen[z] , $IPAdressen[z]; } close Printer; }
Danke schonmal für eure Hilfe ;)

Splitted from Regulärer Ausdruck zum Suchen eines Wortes msg #159751
Last edited: 2012-07-12 12:11:40 +0200 (CEST)
- Linuxer
  
  2012-07-12 10:27
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Mit pairwise aus List::MoreUtils (wahrscheinlich zu installieren) könnte man das wahrscheinlich so lösen:
  
  Code (perl): (dl )
  
  1 2 3
  
  use List::MoreUtils qw( pairwise ); my @result = pairwise { $a .";". $b } @printername, @ipaddresses;
  
  Manueller Ansatz:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  my @printernames = qw( foo bar ); my @ipaddresses = qw( 1 2 ); sub combine { my $name_ref = shift; my $addr_ref = shift; if ( @{$name_ref} != @{$addr_ref} ) { die "given arrays are not of equal size.\n"; } for my $i ( 0 .. $#$name_ref ) { printf "%s;%s\n", $name_ref->[$i], $addr_ref->[$i]; } } combine( \@printernames, \@ipaddresses );
  
  }
  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!
- Gast Muffi
  
  2012-07-12 10:49
  Code (perl): (dl )
  
  1 2 3
  
  while (@Druckernamen) { printf Printer "Druckername:%s;IPAdresse:%s\n", shift @Druckernamen , shift @IPAdressen; }
  
  Allerdings: Immer wenn du mehrere Arrays synchron halten musst deutet das sehr stark auf eine ungünstige Datenstruktur/Datenhaltung hin.
  Spätestens wenn dann noch ein paar dazukommen, z.B. @Freigabepasswoerter, ... und dann brauchts noch irgendeinen sort wirds fürchterlich.
  
  Wie wärs denn z.B. mit einem Hash?
  
  Code (perl): (dl )
  
  1 2 3
  
  my %drucker = (); $drucker{$sein_name} = $ip; ...
  
  Last edited: 2012-07-12 10:54:07 +0200 (CEST)
- Raubtier
  
  2012-07-12 11:22
  User since
  2012-05-04
  1075 Artikel
  BenutzerIn
  Guest Anton Mehl
  Mein Ansatz (ich weiß es geht einfacher, aber keine Ahnung wie und hab dazu nichts gefunden im Netz) funktioniert nicht:
  
  Code: (dl )
  
  1 2 3 4
  
  &DATEISCHREIBEN(@Druckernamen, @IPAdressen); sub DATEISCHREIBEN { ...
  
  Das Problem liegt (vermutlich) in der Parameterübergabe: du übergibst zwar beide Arrays, aber liest sie nie in der Funktion DATEISCHREIBEN aus.
  
  Außerdem musst du aufpassen: Parameter werden in Perl aneinandergehängt, d.h. wenn du zwei Arrays mit je n Elementen übergibst, in der Sub kommen nicht zwei Arrays mit je n Elementen an, sondern es sind dann einfach 2n Arguments in @_.
  
  Ausnahme: du verwendest Prototypen in der Funktion (was du nicht tust), also hier sub DATEISCHREIBEN(\@\@) { .... Da du aber die Sub mit dem &-Symbol aufrufst, überschreibt du die Prototypen eh wieder.
  
  In perldoc perlsub wird erklärt, wie man subs benutzt. Generell würde ich subs nicht mit & aufrufen, es sei denn, du hast Prototypen verstanden und weißt, warum du das & einsetzt.
- +3 replies
- pq
  
  2012-07-12 11:31
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  bitte mach in zukunft einen neuen thread auf, wenn du ein neues problem hast.
  wie nützlich ist das denn, 20 probleme in einen thread zu packen, und dann auch noch verschachtelt ans ende der letzten antwort?
  will ein leser jedesmal alle 19 anderen probleme lesen?
  
  und meine frage hast du auch nicht beantwortet.
  
  2012-07-11T14:16:31 pq
  das verstehe ich nicht, du matchst doch auf m/^ProductName=/. und da bekommst du die zeile mit ProductNameShort=?
  
  wie soll das denn gehen? das kann gar nicht matchen?
  oder vielleicht möchtest du auch von mir gar keine hilfe?
  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
  - +2 replies
  - GUIfreund
    
    2012-07-12 13:58
    
    User since
    2011-08-08
    559 Artikel
    BenutzerIn
    
    2012-07-12T09:31:36 pq
    und meine frage hast du auch nicht beantwortet.
    
    2012-07-11T14:16:31 pq
    das verstehe ich nicht, du matchst doch auf m/^ProductName=/. und da bekommst du die zeile mit ProductNameShort=?
    
    wie soll das denn gehen? das kann gar nicht matchen?
    
    Im OP wird ~~nach~~vor dem Match die nächste Zeile eingelesen. Raubtier hat in seiner Antwort msg #159749 darauf hingewiesen.
    
    Editiert von GUIfreund: Fehler korrigiert. Dank an pq.
    Last edited: 2012-07-12 19:41:16 +0200 (CEST)
    Gruß
    GUIfreund
    - pq
      
      2012-07-12 14:33
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      nein, die nächste zeile wird vor dem match eingelesen.
      wenn ich den teil innerhalb der for-schleife ausführe mit einer datei
      
      Code: (dl )
      
      1 2
      
      ProductName=LT0G ProductNameShort=
      
      dann bekomme ich keine ausgabe.
      klar, weil die 1. zeile verworfen wird und die 2. auf m/^ProductName=/ gematcht wird.
      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
- pq
  
  2012-07-12 12:16
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  Guest Anton Mehl
  Bin noch ziemlicher Perl Neuling und mach noch vieles umständlich...
  
  dem lässt sich relativ einfach abhilfe schaffen.
  such dir ein tutorial unter http://perl-tutorial.org/ aus, lies die perldocs, die mit perl augeliefert werden und idealerweise ein buch ("Learning Perl" z.b.).
  der perl-code, den du hier zeigst, sieht leicht vorsintflutlich aus, weshalb es sinnvoll wäre, wenn du dir mal ein modernes tutorial zu gemute führen würdest.
  kostet halt erstmal zeit, spart diese aber dann später wieder ein. glaub mir.
  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
- +2 replies
- Gast Muffi
  
  2012-07-12 14:50
  
  Guest Anton Mehl
  Bin noch ziemlicher Perl Neuling und mach noch vieles umständlich...
  
  Teilweise auch ein bisserl gefährlich ;)
  Dieses $_ in Perl ist furchtbar Praktisch, aber auch böse Stolperfalle.
  $_ was zuweisen ist normalerweise nichts was man als Anfänger tun muss.
  Und auch eine grobe Faustformel: $_ nicht benutzen, wenns länger als 3 Zeilen gebraucht wird hilft vorallem als Anfänger. $_ wird implizit gesetzt und ist global. Extra Variable benutzen tut nicht weh.
  - Gast Anton Mehl
    
    2012-07-12 16:44
    
    Danke für die vielen Tipps und Hinweise,
    ich hab das so gemacht wie Muffi mir das empfohlen hat, ein Hash verwendet.
    Wär ich doch gleich drauf gekommen... ;)
    
    Damit kann dieser Thread von meiner Seite aus geschlossen werden, habe erstmal keine Fragen mehr und schnapp mir ab jez ein Buch zu Perl ;)
    
    Gruß
    Last edited: 2012-07-12 16:46:57 +0200 (CEST)

View all threads created 2012-07-12 12:11.