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

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!