kinda perl grep ?

kinda perl grep ?

[Marc Chantreux]

Hi all,


in perl , i write :

@files = grep { chomp; -f $_ } `dpkg -L libapache2-mod-perl2`

in zsh :

for f ( $(dpkg -L libapache2-mod-perl2 ) ) { [[ -f $f  ]] && files+=$f }

i dream about something like

files=( ${$(dpkg -L libapache2-mod-perl2):[[ -f $_ ]]} )

or something like

arraygrep '-f $_ ' $(dpkg -L libapache2-mod-perl2)

someone to make the dream come true ?

regards
mc

Re: kinda perl grep ?

[Peter Stephenson]

> Hi all,
> in perl , i write :
> 
> @files = grep { chomp; -f $_ } `dpkg -L libapache2-mod-perl2`
> 
> in zsh :
> 
> for f ( $(dpkg -L libapache2-mod-perl2 ) ) { [[ -f $f  ]] && files+=$f }
> 
> i dream about something like
> 
> files=( ${$(dpkg -L libapache2-mod-perl2):[[ -f $_ ]]} )

files=( ${^$(dpkg -L libapache2-mod-perl2)}(N.) )

-- 
Peter Stephenson <pws@csr.com>                  Software Engineer
CSR PLC, Churchill House, Cambridge Business Park, Cowley Road
Cambridge, CB4 0WZ, UK                          Tel: +44 (0)1223 692070


To access the latest news from CSR copy this link into a web browser:  http://www.csr.com/email_sig.php

Re: kinda perl grep ?

[Clint Adams]

> files=( ${$(dpkg -L libapache2-mod-perl2):[[ -f $_ ]]} )

  files=( ${^$(dpkg -L libapache2-mod-perl2)}(N.) )

Re: kinda perl grep ?

[Bart Schaefer]

On Mar 7, within 30 seconds of each other, PWS and Clint both wrote:
}
} > files=( ${$(dpkg -L libapache2-mod-perl2):[[ -f $_ ]]} )
} 
}   files=( ${^$(dpkg -L libapache2-mod-perl2)}(N.) )

Or more generally,

    files=(  ${^$(dpkg -L libapache2-mod-perl2)}(e:'[[ -f $REPLY ]]':) )

Re: kinda perl grep ?

[Marc Chantreux]

Bart Schaefer wrote:
>     files=(  ${^$(dpkg -L libapache2-mod-perl2)}(e:'[[ -f $REPLY ]]':) )

ahh! good to point on it !

thanks

regards
mc