[Vienna-pm] Hausbackene Syntaxerweiterung mit Perl5?

[Thomas Klausner]

Hi!

On Tue, Apr 29, 2008 at 07:11:04PM +0200, Robert Barta wrote:
> Kurze Frage: Wenn ich in meinen Perl Programmen so etwas
> gerne hinschreiben wuerde
>   my @students = ....;
>   my @cleverlies = from $s in @students
>                    where $s->{marks} > 85
>                    select $s->{matrikelnr};
> 

Soll das auf eine DB zugreifen? Oder willst du "nur" einen Array of 
Hashrefs durchwuehlen?

wenn letzteres:

my @cleverlies = map { $_->{matrikelnr} } 
                 grep { $_->{marks} > 85 }
		 @students;

Wenn ersters: da kenn ich nix, aber DBIx::Class ist schon sehr super.

my @cleverlies = $schema->resultset('Students')->search({
   marks => { '>' => 85 },   # hm, bin nicht 100%ig sicher, ob das so 
                             # ausschaut...
});


-- 
#!/usr/bin/perl                              http://domm.plix.at
for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/}