Finde den Fehler nicht in map-Konstrukt (Modification of a read-only value attempted) (Allgemeines zu Perl)

[thread]15598[/thread]

Finde den Fehler nicht in map-Konstrukt (Modification of a read-only value attempted)

Leser: 19

Articles: hide open all | hide show old branches

+9 replies

Rolf_PlusW

2010-11-03 16:49

User since
2006-12-13
22 Artikel
BenutzerIn
[default_avatar]

Hallo,
in meiner Anwendung tritt von Zeit zu Zeit ein Fehler auf, den ich nicht lokalisieren kann.
Die Source ist :

Code: (dl )

1
2
3

	my @pages = map { $_->{class} ne 'DT' ? 1 : 
             ( defined($_->{mid})  && grep ( /\w+/ , @{$_->{texts}} ) ? 1 : 0)
                      } @{$self->session->{caledit}->{pages}};

Die Variable {$self->session->{caledit}->{pages} sieht folgendermassen aus:

Code: (dl )

  'pages' => [
                                      {
                                        'mid' => '164',
                                        'texts' => [
                                                     undef,
                                                     'FGFDBB'
                                                   ],
                                        'class' => 'DT'
                                      },
                                      {
                                        'mid' => '159',
                                        'texts' => [
                                                     undef,
                                                     'arfara'
                                                   ],
                                        'class' => 'DT'
                                      },
                                      {
                                        'mid' => '154',
                                        'texts' => [],
                                        'class' => 'DT'
                                      },
                                      {
                                        'mid' => '153',
                                        'texts' => [
                                                     undef,
                                                     '',
                                                     'GAGRE',
                                                     '',
                                                     ''
                                                   ],
                                        'class' => 'DT'
                                      },
                                      {
                                        'mid' => undef,
                                        'texts' => [],
                                        'class' => 'DT'
                   ..

(Zum Verständnis: Es wird geprüft, ob alle Elemente in caledit}{pages} die class 'DT" haben, mid gesetzt ist und in irgendeiner Zeile in @texts was steht ) . Ergebnis ist ein Array mit der gleichen Länge wie pages mit 0 oder 1 )

Die Fehlermeldung lautet dann:

Modification of a read-only value attempted at xyz.pm line 134.

Ich vermute mal er hat ein Problem mit $_ in dem geschachtelten map { grep} Konstrukt , wobei ich ja nicht grep {} @arr sondern grep ( patt, @arr) verwende, da tritt ja $_ eigentl. nicht in Erscheinung.
Wer hat ne Idee, was da falsch ist ?
Rolf

//MODEDIT GwenDragon: Titel erweitert
Last edited: 2010-11-03 17:43:10 +0100 (CET)

+2 replies

Linuxer

2010-11-03 17:00

User since
2006-01-27
3890 Artikel
HausmeisterIn

user image

Hi,

ist die Zeile 134 mit der von Dir gezeigten "Source" identisch?

mit Deinen Beispieldaten bekomme ich nur folgende Meldungen:

Code: (dl )

1
2
3

Use of uninitialized value $_ in pattern match (m//) at D:\temp\t.pl line 48.
Use of uninitialized value $_ in pattern match (m//) at D:\temp\t.pl line 48.
Use of uninitialized value $_ in pattern match (m//) at D:\temp\t.pl line 48.

Testcode:

Code (perl): (dl )

#! /usr/bin/perl
use strict;
use warnings;

my @pages = (
    {
        'mid' => '164',
        'texts' => [
            undef,
            'FGFDBB'
        ],
        'class' => 'DT'
    },
    {
        'mid' => '159',
        'texts' => [
            undef,
            'arfara'
        ],
        'class' => 'DT'
    },
    {
        'mid' => '154',
        'texts' => [],
        'class' => 'DT'
    },
    {
        'mid' => '153',
        'texts' => [
            undef,
            '',
            'GAGRE',
            '',
            ''
        ],
        'class' => 'DT'
    },
    {
        'mid' => undef,
        'texts' => [],
        'class' => 'DT'
    },
);


my @checked = map {
    $_->{class} ne 'DT' ? 1 :
             ( defined($_->{mid})  && grep ( /\w+/ , @{$_->{texts}} ) ? 1 : 0 )
    } @pages;

Die Warnungen werd ich los, indem ich ||() hinter @{$_->{texts}}) einfüge.

Kannst Du ein Minimalskript erstellen, mit dem Deine Meldung reproduziert werden kann?

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!

Rolf_PlusW

2010-11-03 17:11

User since
2006-12-13
22 Artikel
BenutzerIn

2010-11-03T16:00:09 Linuxer
Hi,

ist die Zeile 134 mit der von Dir gezeigten "Source" identisch?

ja

Quote

Die Warnungen werd ich los, indem ich ||() hinter @{$_->{texts}}) einfüge.

Kannst Du ein Minimalskript erstellen, mit dem Deine Meldung reproduziert werden kann?

Die Warnings kommen nur daher, dass @texts undef sein kann,
das stört mich aber nicht weiter. Wenn du @ckecked ausgibst, siehst du, dass das richtige drin steht, daran liegt das Problem nicht. Die Frage ist, wo ist hier ein read-only value, das kann nur $_ sein, aber wo wird das modifiziert ?
Rolf

+2 replies
dgw

2010-11-03 17:12
User since
2010-08-16
27 Artikel
BenutzerIn
2010-11-03T15:49:03 Rolf_PlusW
Hallo,
in meiner Anwendung tritt von Zeit zu Zeit ein Fehler auf, den ich nicht lokalisieren kann.
Die Source ist :

Code: (dl )

1 2 3

my @pages = map { $_->{class} ne 'DT' ? 1 : ( defined($_->{mid}) && grep ( /\w+/ , @{$_->{texts}} ) ? 1 : 0) } @{$self->session->{caledit}->{pages}};

...

Ich vermute mal er hat ein Problem mit $_ in dem geschachtelten map { grep} Konstrukt , wobei ich ja nicht grep {} @arr sondern grep ( patt, @arr) verwende, da tritt ja $_ eigentl. nicht in Erscheinung.
Wer hat ne Idee, was da falsch ist ?
Rolf
Könnte es sein, daß die schließende Klammer ) nicht hinter das Array gehört, sondern anstelle des Kommas hinter die Regexp?
Also
Code (perl): (dl )

1 2 3

my @pages = map { $_->{class} ne 'DT' ? 1 : ( defined($_->{mid}) && grep ( /\w+/ ) @{$_->{texts}} ? 1 : 0) } @{$self->session->{caledit}->{pages}};
Just my 2 cents.

Daniel
- Rolf_PlusW
  
  2010-11-03 17:34
  
  User since
  2006-12-13
  22 Artikel
  BenutzerIn
  
  Nein, es gibt ja grep ( patt, @array) und grep { BLOCK} array, wobei ich ersteres verwende
+3 replies
topeg

2010-11-03 17:16
User since
2006-07-10
2611 Artikel
BenutzerIn
Ein solche Prüfung in eine Zeile zu quetschen mag zwar "perlig" sein aber nicht besonders lesbar und schneller ist es auch nicht. Das Problem ist, dass du due globale variable $_ für verschiedenen Zwecke benutzt, zudem an einer Stelle wo sie "magisch" und darum gesichert ist. Mache das lieber als Mehrzeiler.
Z.B:
Code (perl): (dl )

1 2 3 4 5 6 7 8

my @pages = (); for my $page (@{$self->session->{caledit}->{pages}}) { push(@pages,1); next if($page->{class} ne 'DT'); next if(defined($page->{mid}) && grep{defined($_) && /\w+/}@{$page->{texts}} ); $pages[-1]=0; }
- +2 replies
- Rolf_PlusW
  
  2010-11-03 17:43
  
  User since
  2006-12-13
  22 Artikel
  BenutzerIn
  
  2010-11-03T16:16:32 topeg
  Ein solche Prüfung in eine Zeile zu quetschen mag zwar "perlig" sein aber nicht besonders lesbar und schneller ist es auch nicht. Das Problem ist, dass du due globale variable $_ für verschiedenen Zwecke benutzt, zudem an einer Stelle wo sie "magisch" und darum gesichert ist
  
  Das mit dem Einzeiler kann man so der so sehen, aber wo wird $_ für verschiedene Zwecke benutzt, meines Erachtens wird $_ nur für den map Block gebildet , grep ist ja nicht grep {} sondern grep().
  Und: Der Code läuft ja in >99% der Fälle ohne dass eine Fehlermeldung kommt, er ist ja nicht prinzipiell falsch, sondern - meine Vermutung - es gibt Fälle, in den in dem geparsten Array etwas nicht stimmt, was dann zu dem Fehler führt. Nur ich habe keine Idee, was da schief geht, d.h ich habe auch keinen Testfall, der diesen Fehler erzeugt !
  Rolf
  
  Rolf
  - Linuxer
    
    2010-11-03 19:24
    User since
    2006-01-27
    3890 Artikel
    HausmeisterIn
    
    2010-11-03T16:43:08 Rolf_PlusW
    Und: Der Code läuft ja in >99% der Fälle ohne dass eine Fehlermeldung kommt, er ist ja nicht prinzipiell falsch, sondern - meine Vermutung - es gibt Fälle, in den in dem geparsten Array etwas nicht stimmt, was dann zu dem Fehler führt. Nur ich habe keine Idee, was da schief geht, d.h ich habe auch keinen Testfall, der diesen Fehler erzeugt !
    
    Dann versuch, einmal die verarbeiteten Daten auszugeben, um zu schauen, wie sie aussehen, wenn der Fehler auftritt; z.B.:
    
    Code (perl): (dl )
    
    1 2 3 4 5
    
    my @checked = map { print ref($_) ? Dumper($_) : $_ ; $_->{class} ne 'DT' ? 1 : ( defined($_->{mid}) && grep ( /\w+/ , @{$_->{texts}}||() ) ? 1 : 0 ) } @pages;
    
    Ohne die entsprechenden Daten zu sehen, bei denen die Meldung auftritt, ist da schwer was zu raten.
    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!
FIFO

2010-11-03 18:14

User since
2005-06-01
469 Artikel
BenutzerIn

2010-11-03T15:49:03 Rolf_PlusW
... , wobei ich ja nicht grep {} @arr sondern grep ( patt, @arr) verwende, da tritt ja $_ eigentl. nicht in Erscheinung.

Ist das so? Laut perldoc -f grep sind die beiden Formen äquivalent, locally setting $_ to each element ...
Gruß FIFO

[edit] sollte aber egal sein außer beim einem s///[/edit]
Last edited: 2010-11-03 18:28:27 +0100 (CET)
Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"

View all threads created 2010-11-03 16:49.