10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
# Copyright (c) P.J.Gawthrop 1996
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
###############################################################
path=$1
name=$2
operation=$3
all=$4
# awk splits the path into components and writes a find for each
# If all argument null, then succesful find terminates.
awk 'END{ \
n=split(path,a,":");
if (all == "") {
printf("if ");
} for (i=1;i<=n;i++) {
printf("find %s -name \"%s\" -exec %s {} \\; \n", a[i], name, operation);
if (all == "") {
printf("then\n");
printf("exit\n");
printf("fi\n");
}
}
}' path="$path" name="$name" operation="$operation" all="$all"</dev/null
|
>
>
>
>
|
>
|
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
# Copyright (c) P.J.Gawthrop 1996
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.1 1996/11/10 10:48:45 peterg
## Initial revision
##
###############################################################
path=$1
name=$2
operation=$3
all=$4
q=\
# awk splits the path into components and writes a find for each
# If all argument null, then succesful find terminates.
awk 'END{ \
n=split(path,a,":");
if (all == "") {
printf("if ");
} for (i=1;i<=n;i++) {
printf("find %s -name \"%s\" -exec %s {} \\; \n", a[i], name, operation);
if (all == "") {
printf("then\n");
printf("exit\n");
printf("fi\n");
}
}
}' path="$path" name="$name" operation="$operation" all="$all" \
</dev/null | sh
|