Mega Code Archive

 

Categories / Perl / Regular Expression

 

Grep value

@a = (1 .. 10); @b = grep {$_ > 5} @a; print join(", ", @b);