Tdrldo> pipe $in, $out;
Tdrldo> if (fork)
Tdrldo> {
Tdrldo> close $in;
тут select $out; вставить
Tdrldo> exec grep => @grep_args;
Tdrldo> }
Tdrldo> else
Tdrldo> {
Tdrldo> close $out;
Tdrldo> pipe $in2, $out2;
Tdrldo> if (fork)
Tdrldo> {
Tdrldo> close $in2;
и тут
Tdrldo> exec awk => @awk_args;
Tdrldo> }
Tdrldo> else
Tdrldo> {
Tdrldo> close $out2;
а тут in2'ом STDIN заместить.
Tdrldo> exec filter => @filter_args;
Tdrldo> }
Tdrldo> }
в общем наглядно видно что шелл в таких случаях рулид :)
--
. ''`. Dmitry E. Oboukhov
: :’ : unera@debian.org
`. `~’ GPGKey: 1024D / F8E26537 2006-11-21
`- 1B23 D4F8 8EC0 D902 0555 E438 AB8C 00CF F8E2 6537
Attachment:
signature.asc
Description: Digital signature