look بهتر؟ (حل شد)

[فاروق]

دوستان کسی یک برنامه مشابه look ولی پیشرفته تر سراغ نداره؟ مثلا بهش regex بدیم.
جستجو نکردم، اگه میکردم احتمالا فحش میداد!

[سلمان م.]

این برنامه look چی هست؟

[فاروق]

این برنامه look چی هست؟

https://wiki.ubuntu.ir/wiki/Look
همچنین man page برنامه رو ببینید.

[فاروق]

بیشتر که فکر میکنم سوال احمقانه‌ای پرسیدم چون درست کردنش با بش خیلی راحته، البته من با پرل رفتم:

کد: [انتخاب]

#!/usr/bin/perl -Tw
##############################################################################
#
# Copyright (C) 2017 Faroogh Karimi Zadeh
#
# Permission is hereby granted, free of charge, to any person obtaining a copy
# of this software and associated documentation files (the "Software"), to deal
# in the Software without restriction, including without limitation the rights
# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
# copies of the Software, and to permit persons to whom the Software is
# furnished to do so, subject to the following conditions:
#
# The above copyright notice and this permission notice shall be included in all
# copies or substantial portions of the Software.
#
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
# SOFTWARE.
#
##############################################################################

$dict = "/usr/share/dict/words";
$argc = @ARGV;

if ($argc == 1) {
    if ($ARGV[0] eq "-h" || $ARGV[0] eq "--help"){ #
        print "usage: look.pl <pattern> [file]\n\tBy default <file> is /usr/share/dict/words\n";
        exit 0;
    }else{
        $pattern = $ARGV[0];
    }
}elsif ($argc == 2){
    $pattern = $ARGV[0];
    $dict = $ARGV[1];
}else{
    print "Wrong argument count: $argc\nSee look.pl -h\n";
    exit 1;
}

open $fp, $dict or die "Cannot open file: $dict";
while (<$fp>){
    if (/$pattern/){
        print;
    }
}
close $fp or die "Cannot close file: $dict";

دوستانی که پرل بلد هستن لطفا کد را اصلاح بکنن(اگر اشکالی داشت) چون من تازه کارم!
کد توی گیت‌هاب گیست

[علی رزم دیده]

جایگزین های بسیار زیادی برای look وجود داره مثلاً استفاده از grep :

کد: [انتخاب]

cat file | grep ^stringهم چنین می تونین از ابزارهای قدرتمندی عین awk و sed هم استفاده کنین

اگه دوست داشتین کتابخونه هم براش بسازین کافیه این اسکریپت رو ران کنین :

کد: [انتخاب]

while read word; do
cat file | grep ^$word
done < /usr/share/dict/words

[فاروق]

جایگزین های بسیار زیادی برای look وجود داره مثلاً استفاده از grep :

کد: [انتخاب]

cat file | grep ^stringهم چنین می تونین از ابزارهای قدرتمندی عین awk و sed هم استفاده کنین

اگه دوست داشتین کتابخونه هم براش بسازین کافیه این اسکریپت رو ران کنین :

کد: [انتخاب]

while read word; do
cat file | grep ^word
done < /usr/share/dict/words

grep رو کلا فراموش کرده بودم که میشه بهش pattern داد!
اشکال نداره یکم پرل یاد گرفتم 
بله با awk و sed هم میشه.

[علی رزم دیده]

اگه مشکلتون حل شد [حل شد] رو اضافه کنین
درضمن اسکریپت من یه ایراد کوچیک داشت اونم این بود که علامت $ رو قبل word ننوشته بودم الان اصلاحش کردم
درستش این شکلیه :

کد: [انتخاب]

grep ^$word

[فاروق]

اگه مشکلتون حل شد [حل شد] رو اضافه کنین
درضمن اسکریپت من یه ایراد کوچیک داشت اونم این بود که علامت $ رو قبل word ننوشته بودم الان اصلاحش کردم
درستش این شکلیه :

کد: [انتخاب]

grep ^$word

بله، ممنون بابت یادآوری