[Vienna-pm] Hausbackene Syntaxerweiterung mit Perl5?

[Stefan Weiss]

On 2008-04-29 19:11, Robert Barta wrote:
>   my @students = ....;
>   my @cleverlies = from $s in @students
>                    where $s->{marks} > 85
>                    select $s->{matrikelnr};

Nur for the record, Perl-Syntax dafür wäre ungefähr so:

my @students = (
     {name => "agnes", matrikelnr => "123", marks => 80},
     {name => "benno", matrikelnr => "456", marks => 90},
     {name => "clara", matrikelnr => "789", marks => 99},
);
my @cleverlies = map { $_->{matrikelnr} }
                  grep { $_->{marks} > 85 }
                  @students;

> nach welchem Paket koennte ich da schauen? Oder geht
> das gar nicht so einfach?

Um deinen Sourcecode so umzuschreiben, dass nachher Perl rauskommt, 
schau dir mal die Source Filter in "perldoc perlfilter" an, oder das 
Modul Filter::Simple.

HTH,
Stefan


-- 
LOAD"Ph'nglui mglw'nafh Cthulhu R'lyeh wgah'nagl fhtagn!",8,1
RUN!