On Thu, Sep 1, 2011 at 11:40 PM, Rajeev Prasad <[email protected]> wrote:
> follwoing code is not printing anything...???? can anyone help plz?
>
>
> #!/usr/bin/perl
> use strict;
> use warnings;
> use lib '../testdb';
> use Mysqltestdb::Schema;
> my ($schema, $user, $users_rs);
> my (@newusers, @oldusers);
> $schema =
> Mysqltestdb::Schema->connect("dbi:mysql:dbname=mysqltestdb:localhost:3306",
> 'root', 'mysql5');
> $users_rs = $schema->resultset('Testdbuser')->search(
> { 'userid' => 'test' }, ## WHERE
> {
> select => [ qw/userid password/ ], ## SELECT
> as => [ qw/uid pass/ ],
> }
> );
>
> while ($user = $users_rs->next ()){
> print "user is:" . $user->uid . "\n";
> };
>
>
>
>
Have a look at
http://search.cpan.org/~abraxxa/DBIx-Class-0.08195/lib/DBIx/Class/ResultSet.pm#as
$user->get_column('uid') or the normal accessor $user->userid should work
(at least when a matching row is available)
cheers,
Marc
_______________________________________________
List: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class
IRC: irc.perl.org#dbix-class
SVN: http://dev.catalyst.perl.org/repos/bast/DBIx-Class/
Searchable Archive: http://www.grokbase.com/group/[email protected]
