On Tuesday 02 August 2005 14:48, you wrote:
> On Tue, 2 Aug 2005, Mihai Maties wrote:
> > 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.
>
> scuze pentru reply-ul pe privata dar nu imi plac mistourile facute aiurea
> de altii.Scuze pentru reply-ul public, dar poate mai invata cineva ceva. > scriptul tau imi da astfel output: > > in: 1839419811 out: 2602632322 > > eu il vreau cam asa: > > in:1839419811 out:2602632322 Atunci inlocuieste ": %s" cu ":%d" din liniile cu awk. > scuze pentru lipsa cunostintelor, dar shell scripting si perl-ul nu au > fost una din prioritatile mele :) Asta nu e o scuza pentru a nu arunca niste diagonale prin documentatie [macar pentru a intelege solutiile pe care le-ai primit]. > mersi mult Cu placere. > florin 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/
