[rlug] Echivalent script

[[EMAIL PROTECTED]]

care ar fi echivalentul in perl al scriptului urmator?

#!/bin/bash
/bin/grep $1 /cale/catre/file1 |/bin/awk -F"|" 'BEGIN{ 
ORS="";RS=""}{print "in:"$11} ' |/bin/tr -d " "
/bin/echo ' ' |/bin/tr -d "\n"
/bin/grep $1 /cale/catre/file2|/bin/awk -F"|" 'BEGIN{ 
ORS="";RS=""}{printf "out:"$11}' |/bin/tr -d " "


scriptul se apeleaza cu un parametru, si returneaza
in: value out: value



--- 
Detalii despre listele noastre de mail: http://www.lug.ro/