Suche Hilfe bei Fehler "Using an array as a reference is deprecated at..." (gelöst) (Perl/CGI)

[thread]21173[/thread]

Suche Hilfe bei Fehler "Using an array as a reference is deprecated at..." [gelöst]

Tags: perl5 CGI Ähnliche Threads

Leser: 8

Articles: hide open all | hide show old branches

+8 replies
prentice

2021-03-03 11:35
User since
2016-09-22
3 Artikel
BenutzerIn
Hallo, ich kann ein Problem aus unterschiedlichen Perl-Versionen nicht lösen; und zwar:
Ich betreibe ein schon älteres seit jeher zuverlässiges Script-System; es ist gewiss in einer 10 Jahre älteren Perl-Version geschrieben worden; es läuft derzeit unter Perl Version 5.016003. Kürzlich habe ich den Hosting Provider gewechselt und bekomme seither einige Fehlermeldungen; die meisten konnte ich lösen.

Diesen Fehler kann ich nicht beheben:
scrptname.pl: Using an array as a reference is deprecated at /full/path/to/script.pl line #

Die Fehler-produzierende Zeile ist die "return()"-Zeile, der betroffen Code sieht so aus:
Code: (dl )

1 2 3

## Get info from conf file %conf = &parse_conf($user, 'conf', 'LIBNM_ARNBR', 'LIBNM_LISTNBR', 'LIBNM_MSGNBR', 'LIBNM_CYCLENBR', 'LIBNM_MAXMLS', 'LIBNM_MAXNBR'); return (@{$conf{'LIBNM_ARNBR'}}->[0], @{$conf{'LIBNM_LISTNBR'}}->[0], @{$conf{'LIBNM_MSGNBR'}}->[0], @{$conf{'LIBNM_CYCLENBR'}}->[0], @{$conf{'LIBNM_MAMLS'}}, @{$conf{'LIBNM_MAXNBR'}}->[0]);
Kann mir jemand bitte einen Tip geben wie dieser Code zu ändern ist, dass kein Fehler mehr auftritt? (Bitte nach Möglichkeit so klar wie möglich, ich bin kein Programmierer, nur Anwender, der halt notdürftig PERL (Schwartz & Christiansen, "Learnung Perl") studiert hat, um Fehler zu behben.)

Vielen Dank im Voraus,
Helmut (alias Prentice)
- +3 replies
- GwenDragon
  
  2021-03-03 11:50
  User since
  2005-01-17
  14540 Artikel
  Admin1
  Wie sieht denn %conf aus?
  Setze doch mal eine Zeile vor dem return .... das rein:
  
  Code: (dl )
  
  1 2
  
  use Data::Dumper; print Dumper(\%conf);
  
  Und poste die Ausgabe hier.
  
  Dann kann ich eher sehen, was du da referenzieren willst.
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +2 replies
  - Gast Prentice
    
    2021-03-04 16:43
    Danke herzlich, GwenDragon!
    Deinen Vorschlag mit Dumper kann ich leider nicht realisieren; das oben genannte Fragment liegt in einer externen Sub, und wenn ich da den Dumper reinsetze, gibt es Fehler (weil da Druckausgabe nicht erlaubt ist, "output before header" oder so ähnlich).
    Aber ich habe das Scriptsystem durchsucht: Da gibt es irgendwo am Beginn eine Sub, "get_conf($user), die das Array %conf lädt, und zwar aus der Datei "Betreiber.conf": diese Datei sieht so aus:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
    
    [LIBNM__ARNBR] 5 [LIBNM__LISTNBR] 5 [LIBNM__MSGNBR] 50 [LIBNM__CYCLENBR] 20 [LIBNM__MAXMLS] 5 [LIBNM__MAXNBR] 5000 [LIBNM__AUTORESPONDER] [END]
    
    Ich denke, da sieht Du auch, wie das Array ausschaut, oder? Danke Dir auch für Deine Aufmerksamkeit für diese Antwort und hoffe auf
    Last edited: 2021-03-04 18:16:57 +0100 (CET)
    - GwenDragon
      
      2021-03-04 18:19
      
      User since
      2005-01-17
      14540 Artikel
      Admin1
      
      Ja, ok, aber wie nun die getconf() Daten einliest und an den Aufrufer zurück gibt, also die Datenstruktur, das weiß ich trotzdem noch nicht.
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- +4 replies
- haj
  
  2021-03-03 13:20
  
  User since
  2015-01-07
  529 Artikel
  BenutzerIn
  
  Mal ins Blaue geschossen:
  @{$conf{'LIBNM_ARNBR'}}->[0] muss mit einiger Sicherheit durch
  $conf{'LIBNM_ARNBR'}->[0] ersetzt werden - analog für die anderen Einträge. Du kannst auch direkt $conf{'LIBNM_ARNBR'}[0] schreiben.
  
  Syntaktisch gesehen erwartet -> eine Referenz links davon. Was mit @ anfängt, ist ein Array, deswegen mault Perl. Dass das jemals funktioniert hat, war ein Fehler in Perl, der irgendwann mal mit der üblichen Deprecation-Laufzeit ausgemerzt wurde. Aktuelle Versionen bringen auch keine Warnung, sondern einen harten Fehler.
  - +2 replies
  - Gast Prentice
    
    2021-03-04 16:53
    
    Danke haj!
    Wenn ich Deinen Vorschlag richtig verstehe, dann müsste ich den Einzeiler "@($conf[...]..., ... - insgesamt 6 %conf-Elemente) mit 6 einzelnen Zeilen, für jedes Element je eine, ersetzen. Versteh ich Dich damit Deinen Vorschlag richtig?) Das wäre natürlich kein Problem, das kann ich gewiss machen.
    Last edited: 2021-03-04 18:17:00 +0100 (CET)
    - Linuxer
      
      2021-03-04 19:55
      
      User since
      2006-01-27
      3872 Artikel
      HausmeisterIn
      
      Du musst nur die 6 Einzelelemente wie von haj beschrieben verändern.
      
      Entferne die Zeichen @{ zu Beginn von jedem einzelnen Element und entferne eine } aus dem }}-> am Ende jedes Elementes.
      
      Dafür brauchst Du den Einzeiler aber nicht in mehrere Zeilen aufteilen.
      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!
  - prentice
    
    2021-03-06 08:50
    
    User since
    2016-09-22
    3 Artikel
    BenutzerIn
    
    Herzlichen Dank, haj!
    Diese Änderung hat das Problem komplett und perfekt gelöst. Rückblickend frage ich mich, warum das überhaupt einmal als Array geschrieben wurde. Auf jeden Fall: Alles läuft wieder bestens und fehlerfrei! :))
    Danke, Helmut (alias Prentice)

View all threads created 2021-03-03 11:35.