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

topeg

2010-11-03 17:16

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

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 )

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;
}