d/freebsd-nq
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Replace a perl usage with an AWK one.

Browse Source 
Submitted by:	Bob Willcox <bob@immure.com>
This commit is contained in:
David E. O'Brien 2002-06-23 00:55:03 +00:00
parent e020a3a8be
commit 2c4d8a870f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
usr.bin/locate/locate/mklocatedb.sh
View File

@ -76,7 +76,7 @@ if [ X"$1" = "X-presort" ]; then
$code $bigrams > $filelist || exit 1 $code $bigrams > $filelist || exit 1
locate -d $filelist / | $bigram | $sort -nr | head -128 | 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 locate -d $filelist / | $code $bigrams || exit 1
exit exit