stehe auf dem Schlauch: Data::FormValidator::Constraints (Fragen zu Perl-Modulen)

[thread]13244[/thread]

stehe auf dem Schlauch: Data::FormValidator::Constraints

Leser: 12

Articles: hide open all | hide show old branches

+6 replies

Superfrank

2009-03-17 11:58

User since
2006-09-05
164 Artikel
BenutzerIn
[default_avatar]

Hallo,
ich schreibe gerade eine Webanwendung und will die Eingabevalidierung endlich mal von Anfang an in geordnete Bahnen lenken um die Validierung auch einfacher für andere Projekte verwenden zu können.

Verwenden tue ich CPAN:

Data::FormValidator::Constraints und möchte eigene Constraints gemäß hier schreiben, allerdings erhalte ich die Fehlermeldung

Quote
Value for constraint_method 'test2' not a code reference or Regexp . Do you need func(), not 'func'? at /usr/lib/perl5/site_perl/5.8.8/Data/FormValidator.pm line 979.

Hier ist eine Beispielvalidierung die den Fhler erzeugt und aufs notwendige gekürzt ist:

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use Data::FormValidator::Constraints qw(:closures);
use Data::FormValidator;

my %input = (   input1 => 'eins',
                                input2 => 'zwei',
                                input3 => 'drei',
                                input4 => 'vier');


my $results = validate_input(\%input);

print "result=$results\n";

sub validate_input{
my $input_hash_ref = shift;
my $big_test = {
                        filters => 'trim',
                        required => [qw( input1 input2 input3 input4 )],

                constraint_methods => {
                    test1 => validate_test1( 'exists',
                                                {fields => [qw( input1 ) ]}
                                                ),
                test2 => validate_test2( 'exists',
                                {fields => [qw( input2 ) ]}
                                ),
                test3 => validate_test3( 'exists',
                                {fields     => [qw( input3  ) ]}
                                ),
                test4 => validate_test4( 'exists',
                                                {fields     => [qw( input4  ) ]}
                                                ),
                }
        };

    my $results = Data::FormValidator->check($input_hash_ref, $big_test);
return($results);
}

sub validate_test1{
return;
}

sub validate_test2{
return;
}

sub validate_test3{
return;
}

sub validate_test4{
return;
}

Ich kapier die Fehlermeldung einfach nicht :-/ Hab ich irgendein Zeichen übersehen oder etwas vergessen?

Hilfe!

Frank

edit: "return($results);" eingefügt
Last edited: 2009-03-17 12:12:49 +0100 (CET)

+5 replies

murphy

2009-03-17 12:38

User since
2004-07-19
1776 Artikel
HausmeisterIn

2009-03-17T10:58:43 Superfrank

Code (perl): (dl )

[...]
                test2 => validate_test2( 'exists',
                                {fields => [qw( input2 ) ]}
                                ),
[...]

Dir ist schon klar, dass Du hier die Subroutine validate_test2 aufrufst, und zwar während Du den Hash erstellst, nicht etwa während die Validierung läuft, oder?

Aufgrund dieser Tatsache und der Fehlermeldung, die Du beschreibst, vermute ich, dass Du die Aufrufe zu validate_test2 und den Analoga noch irgendwie in Codereferenzen verpacken musst -- wie das allerdings richtig aussehen muss, kann ich Dir mangels Kenntnissen des Validierungsmodules nicht sagen.

When C++ is your hammer, every problem looks like your thumb.

+4 replies

Superfrank

2009-03-17 13:33

User since
2006-09-05
164 Artikel
BenutzerIn
[default_avatar]

Moin Murphy,
was mich nur erstaunt, ist, daß es funktioniert, wenn nur der erste Test ausgeführt wird, also

Code (perl): (dl )

my $big_test = {
                        filters => 'trim',
                        required => [qw( input1 input2 input3 input4 )],

                constraint_methods => {
                    test1 => validate_test1( 'exists',
                                                {fields => [qw( input1 ) ]}
                                                ),
                }
        };

In validate_test1 habe ich noch ein

Code (perl): (dl )

print "blubb\n";

eingefügt, was auch tatsächlich ausgegeben wird. Wenn man aber in constraint_methods einen zweiten Test einfügt kommt der Fehler. Was noch komishc ist:

Code (perl): (dl )

constraint_methods => {
    email                        => email(),
        prospective_date => coolness( 40, 60,
                {fields => [qw/personality smarts good_looks/]}
        ),
  }

funktioniert, wobei email() eine Funktion aus dem Modul ist, aber mit einer eigenen Funktion

Code (perl): (dl )

constraint_methods => {
    email                        => validate_test2(),
        prospective_date => coolness( 40, 60,
                {fields => [qw/personality smarts good_looks/]}
        ),
  }

erscheint wieder der Fehler.

Viele Grüsse

Frank

renee

2009-03-17 13:42

User since
2003-08-04
14371 Artikel
ModeratorIn

Mach in Deinen Subroutinen mal "return undef" anstatt "return". Ich kann nachher mal einen (vorläufigen) Text von der übernächsten Ausgabe $foo posten, wo genau das beschrieben wird.
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
+2 replies

2009-03-17 13:46

User since
2003-08-04
12209 Artikel
Admin1

aber es steht doch im beispiel drin, was so eine eigene subroutine zurückliefern muss. nämlich eine referenz auf eine subroutine. du musst dir, wie schon gesagt wurde, darüber klarwerden, dass diese subroutine sofort aufgerufen wird und nicht erst bei der validierung. wenn du das willst, musst du statt validate() \&validate als wert übergeben.
deine "komischen" entdeckungen sind fur mich überhaupt nicht komisch. klar funktioniert es, wenn du vorgefertigte subroutinen nimmst, und es funktioniert vermutlich auch dann, wenn eine eigene subroutine eine 1 zurückliefert (was eine subroutine mit einem einzigen print-statement in der regel tut). aber wenn diese subroutine undef liefert, ist mir klar, warum es nicht funktionieren kann.
es wäre am besten, wenn du einfach das beispiel aus der doku übernimmst und damit etwas experimentierst.

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

Superfrank

2009-03-17 14:36

User since
2006-09-05
164 Artikel
BenutzerIn
[default_avatar]

Tach
ich habs nun gefunden. Ich habe nicht berücksichtigt, daß ein Test wie validate_test1 nicht

Code (perl): (dl )

1
2
3

sub validate_test{
return(undef);
}

sondern

Code (perl): (dl )

[code=perl]sub validate_test{
return sub{
return(undef);
}
}

zurückliefern muß, Die Fehlermeldung bezog sich die ganze Zeit auch darauf, und nicht, daß der constraint eine ungültige Funktion beinhaltet.
Auch habe ich den constraint wie den übergebenen Wert benannt. Ich glaub dazu muß ich mir das Kapitel "MULTIPLE CONSTRAINTS" nochmal genauer durchlesen.
Falls jeand damit herumspielen will, hier ein Beispiel mit nicht validem Ergebnis von validate_test1 :

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use Data::FormValidator::Constraints qw(:closures);
use Data::FormValidator;

my %input = (   input1 => 'eins',
                                input2 => 'zwei',
                                input3 => 'drei',
                                input4 => 'vier');


my $results = validate_input(\%input);

print "result=$results\n";
    # Print the name of missing fields
    if ( $results->has_missing ) {
        for my $f ( $results->missing ) {
            print $f, " is missing\n";
        }
    }

    # Print the name of invalid fields
    if ( $results->has_invalid ) {
        for my $f ( $results->invalid ) {
            print $f, " is invalid: ", $results->invalid( $f ), "\n";
            my $array_ref = $results->invalid( $f );
            my @array = @$array_ref;
            foreach(@array){
            print $_ . ' array' . "\n";
            }
        }
    }

    # Print unknown fields
    if ( $results->has_unknown ) {
        for my $f ( $results->unknown ) {
            print $f, " is unknown\n";
        }
    }

    # Print valid fields
    for my $f ( $results->valid() ) {
        print 'valid ' . $f, " =  ", $results->valid( $f ), "\n";
    }



sub validate_input{
my $input_hash_ref = shift;
my $big_test = {
            filters => 'trim',
            required => [qw( input1 input2 input3 input4 )],

            constraint_methods => {
                    input1 => validate_test1( 'exists',
                                                {fields => [qw( input1 ) ]}
                                                ),
                input2 => validate_test2( 'exists',
                                {fields => [qw( input2 ) ]}
                                ),
                input3 => validate_test3( 'exists',
                                {fields     => [qw( input3  ) ]}
                                ),
                input4 => validate_test4( 'exists',
                                                {fields     => [qw( input4  ) ]}
                                                ),
                }
    };

    my $results = Data::FormValidator->check($input_hash_ref, $big_test);
    print "result1=$results\n";
return($results);
}

sub validate_test1{
my ($type,$attrs) = @_;
        return sub {
        my $dfv = shift;

        $dfv->name_this('validate_test1');

        # value of 'prospective_date' parameter
                        my $val = $dfv->get_current_constraint_value();

                        # get other data to refer to
                    my $data = $dfv->get_filtered_data;

        return(undef);
        }
}

sub validate_test2{
my ($type,$attrs) = @_;
        return sub {
        my $dfv = shift;


        $dfv->name_this('validate_test2');

        # value of 'prospective_date' parameter
                        my $val = $dfv->get_current_constraint_value();

                        # get other data to refer to
                    my $data = $dfv->get_filtered_data;

        return(1);
        }
}

sub validate_test3{
my ($type,$attrs) = @_;
        return sub {
        my $dfv = shift;

        $dfv->name_this('validate_test3');

        # value of 'prospective_date' parameter
                        my $val = $dfv->get_current_constraint_value();

                        # get other data to refer to
                    my $data = $dfv->get_filtered_data;

        return(1);
        }
}

sub validate_test4{
my ($type,$attrs) = @_;
        return sub {
        my $dfv = shift;

        $dfv->name_this('validate_test4');

        # value of 'prospective_date' parameter
                        my $val = $dfv->get_current_constraint_value();

                        # get other data to refer to
                    my $data = $dfv->get_filtered_data;

        return(1);
        }
}

Danke für Eure Hilfe!

Frank

edit: anmerken wollte ich noch, daß es Blödsinn ist den Namen des Constraints, also den zu überprüfendne Wert über "fields => [qw( input1 )" zu übergeben, da der ja mit

Code (perl): (dl )

my $val = $dfv->get_current_constraint_value();

ausgelesen werden kann.

Last edited: 2009-03-18 12:10:11 +0100 (CET)

View all threads created 2009-03-17 11:58.