Perlbug: Live vom Perl Community Treffen ! (Allgemeines zu Perl)

J-jayz-Z

2005-09-11 04:00

User since
2005-04-13
625 Artikel
BenutzerIn

Hi,

ich dachte, ich hab hier nur einen kleinen Newbie Fehler bei mir, allerdings hab ich doch etwas "komischeres" entdeckt. Und zwar bekomm ich bei folgendem Code ein sehr komisches Verhalten:

Code: (dl )

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

my %test = (    
                eins => ['Hallo', 'Perl', 'Community'],
                zwei => ['Hallo', 'Programmierer']
        );


map { print $_ . "\n" for(@{ $test{$_} }) } (keys %test);

print "-" x15;
print "\n";

map {   
        for(@{ $test{$_} }) {
                print $_ . "\n";
        }
} (keys %test);

Das ist fast der selbe Code. Allerdings bekomm ich mit perl -NO=Deparse script.pl folgende Ausgabe:

Code: (dl )

use warnings;
use strict 'refs';
my(%test) = ('eins', ['Hallo', 'Perl', 'Community'], 'zwei', ['Hallo', 'Programmierer']);
map {foreach $_ (@{$test{$_};}) {
    print $_ . "\n";
}} keys %test;
print '-' x 15;
print "\n";
map {foreach $_ (@{$test{$_};}) {
    print $_ . "\n";
}} keys %test;
array_hash.pl syntax OK

wie hier zu sehen ist, nimmt er den selben Code intern.
Nun noch die Ausgabe:

Code: (dl )

Hallo
Perl
Community
---------------
Hallo
Perl
Community
Hallo
Programmierer

Und meine Version ist

Code: (dl )

ingo perl # perl -v

This is perl, v5.8.4 built for i386-linux-thread-multi

Copyright 1987-2004, Larry Wall

Wie sieht es aus, mit Erklärungen, Reaktionen oder Meinungen?
Danke im Vorraus

Ingo

P.S.: Der Spruch des Tages:

Quote
User1: Wie war das mit der do while Schleife?
User2: Das ist ja gar keine wirkliche Schleife, oder?
User3: (schreit noch vom Klo) Richtig !
User3: (kommt total aufgeregt und mit heruntergelassener Hose vom Klo) Ja, das sind keine richtige Schleifen. Redo geht beispielsweise nicht damit.

\n\n

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de

sri

2005-09-11 05:34

User since
2004-01-29
828 Artikel
BenutzerIn

Deparse hat viele bugs, einige benutze ich regelmaessig fuer oneliner. ;)

http://mojolicio.us/

Crian

2005-09-12 13:39

User since
2003-08-04
5878 Artikel
ModeratorIn

Der Spruch des Tages ... hat der eine reale Basis vom letzten Wochenende? :D

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

J-jayz-Z

2005-09-12 21:32

User since
2005-04-13
625 Artikel
BenutzerIn

@Crian: Ja, da kam so jemand aus dem Klo, der recht gerne zu Tage gibt, das er gut infomiert ist und wollte an dem Gespräch teilnehmen.
okay, das Quiz des Tages: Wer zuerst die Teilnehmer des Dialogs raus hat, dem trete ich beim nächsten Treffen (falls ich einen bekomm) meinen Platz bei Strat ab :p
Ausgenommen natürlich die, die davon wissen ^^

EDIT : War ein Scherz, den Platz würde ich nicht hergeben *gg*\n\n

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de

esskar

2005-09-13 02:23

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

liegt wohl an der verschachtelten benutzung von $_

J-jayz-Z

2005-09-13 10:09

User since
2005-04-13
625 Artikel
BenutzerIn

Jo, daran liegt es wohl, sollte aber nicht daran liegen...
Und egal was man noch innerhalb von map { } einträgt, damm geht es. Und das sollte nichts an $_ ändern...

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de

Strat

2005-09-13 15:15

User since
2003-08-04
5246 Artikel
ModeratorIn

was ich nicht verstehe:

Code: (dl )

use strict;
use warnings;
use Data::Dumper;

my %test = (
               eins => ['Hallo', 'Perl', 'Community'],
               zwei => ['Hallo', 'Programmierer']
       );
map { print $_ . "\n" for(@{ $test{$_} }) } (keys %test);
print Dumper(\%test);
^D
Hallo
Perl
Community
$VAR1 = {
          '' => [],
          'eins' => [
                      'Hallo',
                      'Perl',
                      'Community'
                    ],
          'zwei' => [
                      'Hallo',
                      'Programmierer'
                    ]
        };

so wie ich perl verstehe, wird sowohl bei der for-schleife (egal, ob vor oder nachgestellt) als auch bei map $_ automatisch mit einem local versehen, also duerften sich die beiden $_ nicht ins gehege kommen.

Da auch nirgendwo ein $_ veraendert wird, duerfte sich auch %hash nicht veraendern. von woher kommt $hash{''} = [] ? (habe es auch anders validiert, nicht nur via Data::Dumper, aber das ist am kuerzesten). Das verstehe ich nicht.

ich denke, das waere mal ein fall fuer einen debugger bzw sogar eine debug-version von perl... hat da jemand zeit&lust? ich muesste mich da erst wieder einarbeiten...

aber momentan tendiere ich schon ganz schoen in richtung bug.\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

[E|B]

2005-09-13 23:45

User since
2003-08-08
2561 Artikel
HausmeisterIn

Evtl. mal einen Post unter bugs.perl.org absetzen?

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

pq

2005-09-14 00:01

User since
2003-08-04
12209 Artikel
Admin1

oder mal bleadperl installieren und gucken, ob der bug noch da ist.\n\n

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: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem