On Tuesday 02 August 2005 14:03, [EMAIL PROTECTED] wrote:
> 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
Daca am inteles bine ce vrea sa faca scriptul atunci nu ai nevoie de perl
neaparat pentru ca te complici inutil. O rescriere ar fi mai indicata:
<--- cut here --->
#!/bin/sh
awk -F'|' "/$1/ { printf \"in: %s \", \$11 }" /cale/catre/file1
awk -F'|' "/$1/ { printf \"out: %s\n\", \$11 }" /cale/catre/file2
</--- cut here --->
Singura limitare imediata ar fi ca scriptul nu are voie sa primeasca drept
parametru vreun string cu /-uri neescapate.
Mihai
--
This message was scanned for spam and viruses by BitDefender.
For more information please visit http://www.bitdefender.com/
---
Detalii despre listele noastre de mail: http://www.lug.ro/
