Re: Perl Frage

[Florian Tham <ftham@unlimitedmail.org>]

Hallo,

On Sun, Aug 13, 2006 at 04:06:14PM +0200, Thomas Kosch wrote:
> Wenn ich folgendes Konstrukt habe
> 
> for addr in $(cat addr.txt); do ldapsearch ....... $(echo mail=$addr)  
> | perl -ne 'print if /proxyAddresses: smtp:/'  | perl -aF: -lne  
> 'print "$F[2]"';done
> 
> wie komme ich dann in der letzten print Anweisung noch an den Inhalt  
> von $addr ran, so dass ich im Endeffekt als Ausgabe
> 
> p_addr_1	addr_1
> p_addr_2	addr_1
> ...
> 
> erhalte.

for addr in $(...); do ldapsearch ... | \
perl -ne 'print if ...' | \
ADDR=$addr perl -aF: -lne 'print "$F[2] $ENV{ADDR}"'
done

Gruß,

f

-- 
Gravity is a myth, the Earth sucks.