Bienvenido a los foros de Perl en español, alesevimor.
El problema parece sencillo, pero tiene una dificultad: por una parte tienes que leer el argumento que le pasamos, y luego leer la entrada estándar para analizar las líneas que le llegan por la ejecución de
env.
Desde la línea de comandos puedes resolverlo directamente:
Using bash Syntax Highlighting
explorer@casa:~/Documentos/Desarrollo> env | perl -E '$x = shift; while (<>) { print if /$x/ }' PATH
MANPATH=/usr/local/man:/usr/share/man
XNLSPATH=/usr/share/X11/nls
PATH=/home/explorer/bin:/usr/local/bin:/usr/bin:/bin:/usr/bin/X11:/usr/X11R6/bin:/usr/games:/usr/lib64/jvm/jre/bin:/usr/sbin:/usr/sbin
ALSA_CONFIG_PATH=/etc/alsa-pulse.conf
WINDOWPATH=7
QT_PLUGIN_PATH=/media/500_1/home/explorer/.kde4/lib64/kde4/plugins/:/usr/lib64/kde4/plugins/
Coloreado en 0.004 segundos, usando
GeSHi 1.0.8.4