Variable als Dateihandle gibt Fehlermeldung:Can't use string ("HANDLE_1") as a symbol ref while "strict refs" in use at (Allgemeines zu Perl)

[thread]13672[/thread]

Variable als Dateihandle gibt Fehlermeldung:Can't use string ("HANDLE_1") as a symbol ref while "strict refs" in use at

Leser: 16

Articles: hide open all | hide show old branches

+4 replies
trojax

2009-06-29 08:06
User since
2009-05-13
21 Artikel
BenutzerIn
Hallo zusammen.
ich würde gern eine Liste von Dateien, die in einem Array gespeichert sind nacheinander öffnen, so dass diese dann gleichzeitig geöffnet sind.
Danach möchte ich diese immer nacheinander Zeilenweise durchlaufen.
Allerdings kriege ich beim öffnen die Fehlermeldung:
Code (perl): (dl )

Can't use string ("HANDLE_1") as a symbol ref while "strict refs" in use at
Mein code an der Stelle sieht so aus:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9

foreach (@$dateien){ $datei_aktuell = $_; #bräuchte ich nicht, find ich aber übersichtlicher so $Handle = "HANDLE_".$i; # Der Name des Handles soll immer HANDLE_$i sein open ($Handle,'<'.$datei_aktuell)or die "$datei_aktuell: open failed: $! beim oeffnen der quellfiles\n"; #open $Handle, '<', $datei_aktuell or die "$datei_aktuell: open failed: $! beim oeffnen der quellfiles\n"; push (@Handles, $Handle); #erzeugen eines Arrays, in dem alle Dateihandles gespeichert sind ++$i; }
Weis jemand von euch wo das Problem liegen könnte?
- pq
  
  2009-06-29 10:12
  User since
  2003-08-04
  12208 Artikel
  Admin1
  zunächst einmal finde ich den code komisch, weil du die variable $datei_aktuell nicht mit my() deklarierst. ausserdem frage ich mich, warum du die aktuelle schleifenvariable nicht gleich in $datei_aktuell schreibst.
  vgl.:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  foreach (@$dateien){ $datei_aktuell = $_; # vs. foreach my $datei_aktuell (@$dateien) {
  
  auch die variable $Handle ist nicht mit my() deklariert. ich kann mir das nur so erklären, dass du diese variablen *vor* der schleife deklarierst, obwohl du sie ja nur *in* der schleife brauchst. das sollte man nicht machen, denn das macht ja wieder einen effekt von strict zunichte, dass man gewarnt wird, sobald man eine variable aus versehen ausserhalb des gültigkeitsbereich benutzt.
  desweiteren nimmt open() als argument ein bareword oder eine variable, die dann zu einem filehandle wird. was jedoch nicht geht, ist, dass du einen string in eine variable schreibst und diese variable dann als filehandle benutzt. wo hast du das her?
  ausserdem möchtest du alle handles in ein array schreiben und trotzdem sollen sie noch namen haben. wie soll das denn gehen?
  wenn du filehandles in ein array schreiben willst, dann nimm lexikalische filehandles: WasIsteinLexikalischerFileHandle
  
  da dein codestück soviele unschönheiten und fehler beinhaltet, hier mal ein beispiel:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  my @handles; foreach my $filename (@$dateien) { open my $fh, '<', $filename or die $!; push @handles, $fh; } # später my $handle = $handles[123]; print while <$handle>;
  
  Last edited: 2009-06-29 10:14:03 +0200 (CEST)
  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
- Linuxer
  
  2009-06-29 10:14
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Hi,
  
  warum nimmst Du keine lexikalische Variable?
  
  Versuch doch mal folgendes:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  for $datei_aktuell ( @$dateien ) { open my $handle, '<', $datei_aktuell or die "$datei_aktuell: open failed: $!\n"; push @Handles, $handle; }
  
  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!
  - trojax
    
    2009-07-01 16:04
    
    User since
    2009-05-13
    21 Artikel
    BenutzerIn
    
    Danke schön euch beiden!
    
    Klappt

View all threads created 2009-06-29 08:06.