From 68e7c19af4119b5b78110a279f880e3912420f4d Mon Sep 17 00:00:00 2001 From: obrien Date: Sun, 23 Jun 2002 00:55:03 +0000 Subject: Replace a perl usage with an AWK one. Submitted by: Bob Willcox --- usr.bin/locate/locate/mklocatedb.sh | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'usr.bin/locate') diff --git a/usr.bin/locate/locate/mklocatedb.sh b/usr.bin/locate/locate/mklocatedb.sh index f0a5434..5bb0e7a 100644 --- a/usr.bin/locate/locate/mklocatedb.sh +++ b/usr.bin/locate/locate/mklocatedb.sh @@ -76,7 +76,7 @@ if [ X"$1" = "X-presort" ]; then $code $bigrams > $filelist || exit 1 locate -d $filelist / | $bigram | $sort -nr | head -128 | - perl -ne '/^\s*[0-9]+\s(..)$/ && print $1 || exit 1' > $bigrams || exit 1 + awk '{if (/^[ ]*[0-9]+[ ]+..$/) {printf("%s",$2)} else {exit 1}}' > $bigrams || exit 1 locate -d $filelist / | $code $bigrams || exit 1 exit -- cgit v1.1