join.awk revision 1.1 1 1.1 lukem # $NetBSD: join.awk,v 1.1 2002/04/13 12:47:10 lukem Exp $
2 1.1 lukem #
3 1.1 lukem # Copyright (c) 2002 The NetBSD Foundation, Inc.
4 1.1 lukem # All rights reserved.
5 1.1 lukem #
6 1.1 lukem # This code is derived from software contributed to The NetBSD Foundation
7 1.1 lukem # by Luke Mewburn of Wasabi Systems.
8 1.1 lukem #
9 1.1 lukem # Redistribution and use in source and binary forms, with or without
10 1.1 lukem # modification, are permitted provided that the following conditions
11 1.1 lukem # are met:
12 1.1 lukem # 1. Redistributions of source code must retain the above copyright
13 1.1 lukem # notice, this list of conditions and the following disclaimer.
14 1.1 lukem # 2. Redistributions in binary form must reproduce the above copyright
15 1.1 lukem # notice, this list of conditions and the following disclaimer in the
16 1.1 lukem # documentation and/or other materials provided with the distribution.
17 1.1 lukem # 3. All advertising materials mentioning features or use of this software
18 1.1 lukem # must display the following acknowledgement:
19 1.1 lukem # This product includes software developed by the NetBSD
20 1.1 lukem # Foundation, Inc. and its contributors.
21 1.1 lukem # 4. Neither the name of The NetBSD Foundation nor the names of its
22 1.1 lukem # contributors may be used to endorse or promote products derived
23 1.1 lukem # from this software without specific prior written permission.
24 1.1 lukem #
25 1.1 lukem # THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
26 1.1 lukem # ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
27 1.1 lukem # TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
28 1.1 lukem # PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
29 1.1 lukem # BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
30 1.1 lukem # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
31 1.1 lukem # SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
32 1.1 lukem # INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
33 1.1 lukem # CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
34 1.1 lukem # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
35 1.1 lukem # POSSIBILITY OF SUCH DAMAGE.
36 1.1 lukem #
37 1.1 lukem # join.awk F1 F2
38 1.1 lukem # Similar to join(1), this reads a list of words from F1
39 1.1 lukem # and outputs lines in F2 with a first word that is in F1.
40 1.1 lukem # Neither file needs to be sorted
41 1.1 lukem
42 1.1 lukem BEGIN \
43 1.1 lukem {
44 1.1 lukem if (ARGC != 3) {
45 1.1 lukem printf("Usage: join file1 file2\n") >"/dev/stderr";
46 1.1 lukem exit 1;
47 1.1 lukem }
48 1.1 lukem while ( (getline < ARGV[1]) > 0)
49 1.1 lukem words[$1]++;
50 1.1 lukem delete ARGV[1];
51 1.1 lukem }
52 1.1 lukem
53 1.1 lukem $1 in words { print; }
54