Arrayref aus Skalar-Rückgabewert (Seite 2) (Allgemeines zu Perl)

[thread]6485[/thread]

Arrayref aus Skalar-Rückgabewert (Seite 2)

Leser: 1

pktm

2004-08-11 20:40

User since
2003-08-07
2921 Artikel
BenutzerIn

Das Problem ist, dass das was in der Doku steht bei mir nicht zutrifft.
Wenn ich invalid mit Parameter aufrufe und nur einer zurück kommt kommt ein Scalar zurück und keine Arrayref mit einem Element. Das ist nämlich mein Problem...
mfg pktm

http://www.intergastro-service.de (mein erstes CMS :) )

steffenw

2004-08-11 22:53

User since
2003-08-15
692 Artikel
BenutzerIn

@esskar hat recht. Ich kann das my nicht einfach mittendrin mir reinschreiben, aber so geht es.

Beispielscript:

Code: (dl )

use strict;
use warnings;

for ('Scalar', ['1. Arrayelement'])
{ my $feld;
  ref($feld = $_) eq 'ARRAY' and $feld = $_->[0];
  print "$feld\n";
}

Ergebis:
Scalar
1. Arrayelement

$SIG{USER} = sub {love 'Perl' or die};

2004-08-12 11:15

User since
2003-08-04
12209 Artikel
Admin1

[quote=pktm,11.08.2004, 18:40]Das Problem ist, dass das was in der Doku steht bei mir nicht zutrifft.
Wenn ich invalid mit Parameter aufrufe und nur einer zurück kommt kommt ein Scalar zurück und keine Arrayref mit einem Element.[/quote]
was ist das denn für eine methode, an der doku vorbeizuprogrammieren? meinst
du, das bringt dir irgendwas? wenn was in der doku steht und es nicht so
funktioniert, solltest du den autor benachrichtigen.
in der version 3.59, die ich gerade runtergeladen habe, funktioniert jedenfalls
alles, so wie es soll.
das problem ist doch, wenn man sich einem bug anpasst, der in der nächsten
version gefixt wird, hat man ein problem. *kopfschüttel*
jetzt wüsste ich noch gern, welche version du benutzt und würde gerne
ein kleines beispiel-programm sehen, das das verhalten demonstriert.

Code: (dl )

$ perl -MData::Dumper -Iblib/lib -wle'
use Data::FormValidator;
my $prof = {
  required => [qw(email)],
  constraints => { email => "email" }
};
my $res = Data::FormValidator->check({email => "test"}, $prof);
my @a = $res->invalid;
my $s = $res->invalid;
my $e = $res->invalid("email");
print Dumper \@a;
print Dumper $s;
print Dumper $e'
$VAR1 = [
          'email'
        ];
$VAR1 = {
          'email' => [
                       'email'
                     ]
        };

$VAR1 = [
          'email'
        ];

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

lichtkind

2004-08-13 05:38

User since
2004-03-22
5703 Artikel
ModeratorIn + EditorIn

gibt es auch etwas wie isSkalar??

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.

esskar

2004-08-13 06:20

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

[quote=lichtkind,13.08.2004, 03:38]gibt es auch etwas wie isSkalar??[/quote]
jein

Code: (dl )

sub is_scalar
{
   return ref(shift) ? 0 : 1;
}

\n\n

lichtkind

2004-08-13 18:49

User since
2004-03-22
5703 Artikel
ModeratorIn + EditorIn

aaaaah

ne mir war eigentlich nur die bedeutung von ref entfallen

danke

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.

pktm

2004-08-14 02:17

User since
2003-08-07
2921 Artikel
BenutzerIn

Data::FormValidator - $VERSION = '3.59';

Code: (dl )

if( $results->has_invalid() ) { # get the name of 1st invalid field
            my @ref = $results->invalid();
#print STDERR Data::Dumper::Dumper( @ref );
            my $feld = $ref[0];
            push @{$data}, { 'Error' => $results->msgs()->{$feld} };
            
        }

Den Umweg über @ref habe ich jetztgemacht, da ich so keinen Fehler bekomme.

Quote
'dfv_profile' => {
# dev: go2success back rm <= unknon fields? müssen die rein?
optional => [qw(Firma Fax eMail Text Zimmertyp_2 Anzahl_2 Zimmertyp_3 Anzahl_3 Text go2success back)],
required => [qw(Name Vorname Strasse Hausnummer PLZ Ort Land Telefon Anreise_Tag Anreise_Monat Anreise_Jahr Abreise_Tag Abreise_Monat Abreise_Jahr Zimmertyp_1 Anzahl_1 rm)],
constraints => {
# name a constraint, useful for returning error messages
eMail => {
name => 'emailValid',
constraint => qr/^[\w\d][\w\d\.\-]*\@([\w\d\-]+\.)+[a-zA-Z]{2,4}$/,
},
}, # /contraints
msgs => {
constraints => {
'emailValid' => 'Bitte geben Sie eine gültige eMail-Adresse ein oder lassen Sie das Feld leer',
}, # /constraints
# This token will be included in the hash if there are
# any errors returned. This can be useful with templating
# systems like HTML::Template
# The 'prefix' setting does not apply here.
# defaults to undefined
any_errors => 'FehlerLoop',
}, # /msgs
}, # /dfv_profile

Da sind meine Formparameter und die damalige Version der Beschränkung(en).

Wenn ich auf die eine Msg. zur ungültigen eMail zugreifen wolle
$results->invalid()->[0];
habe ich immer den Fehler erhlaten: "not an arrayref".
Werde es bei Gelegenhiet nochmal überarbeiten.
mfg pktm

http://www.intergastro-service.de (mein erstes CMS :) )

2004-08-14 13:10

User since
2003-08-04
12209 Artikel
Admin1

[quote=pktm,14.08.2004, 00:17]Wenn ich auf die eine Msg. zur ungültigen eMail zugreifen wolle
$results->invalid()->[0];
habe ich immer den Fehler erhlaten: "not an arrayref".[/quote]
sag das doch gleich =)
das ist auch logisch.
$results->invalid()->[0] ruft invalid in skalarem kontext auf (denn '->[0] impliziert ein arrayref). aber im skaleren kontext gibt invalid ja
eine hashref zurück.
du müsstest ($results->invalid)[0] aufrufen, dann ist invalid() im
listenkontext.
aber was ich nicht verstehe:
"Wenn ich auf die eine Msg. zur ungültigen eMail zugreifen wolle
$results->invalid()->[0];"
wieso rufst du invalid() ohne parameter auf, wenn du doch die message für
email erhalten willst?
$results->invalid("email")->[0] sollte gehn.

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

pktm

2004-08-14 15:39

User since
2003-08-07
2921 Artikel
BenutzerIn

Quote
"Wenn ich auf die eine Msg. zur ungültigen eMail zugreifen wolle
$results->invalid()->[0];"
wieso rufst du invalid() ohne parameter auf, wenn du doch die message für
email erhalten willst?
$results->invalid("email")->[0] sollte gehn.

Nun ich möchte mit dem Aufruf > im aktuellen Beispiel < die Msg. zum Formularfeld eMail aufrufen, weil ja nur dieses auf Validität geprüft wird.
Jetzt, wo ich noch andere Felder drinne habe ist es eventuell ein anderes (zufälliges, da ja in Hashref abgelegtes, vgl. $dfv_profile) Feld, für welches die Fehlermeldung abgerufen werden soll.

Was ich jetzt noch nicht verstehe:
Wieso klappt der Aufruf $results()->[0] wenn ich mehrere Msgs. im dfv_profile drinne habe???
mfg pktm

http://www.intergastro-service.de (mein erstes CMS :) )

esskar

2004-08-14 16:02

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

hast du dir eigentlich mal CPAN:

Params::Check angeschaut?\n\n

View all threads created 2004-08-10 22:28.