انجمن‌های فارسی اوبونتو
کمک و پشتیبانی => انجمن عمومی => نویسنده: فاروق در 05 تیر 1396، 03:30 ق‌ظ
-
دوستان کسی یک برنامه مشابه look ولی پیشرفته تر سراغ نداره؟ مثلا بهش regex بدیم.
جستجو نکردم، اگه میکردم احتمالا فحش میداد!
-
این برنامه look چی هست؟
-
این برنامه look چی هست؟
https://wiki.ubuntu.ir/wiki/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";
دوستانی که پرل بلد هستن لطفا کد را اصلاح بکنن(اگر اشکالی داشت) چون من تازه کارم!
کد توی گیت‌هاب گیست (https://gist.github.com/farooghkz/29497f70524fba73a451345859d395bc)
-
جایگزین های بسیار زیادی برای 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 داد!
اشکال نداره یکم پرل یاد گرفتم ;D
بله با awk و sed هم میشه.
-
اگه مشکلتون حل شد [حل شد] رو اضافه کنین
درضمن اسکریپت من یه ایراد کوچیک داشت اونم این بود که علامت $ رو قبل word ننوشته بودم الان اصلاحش کردم
درستش این شکلیه :
grep ^$word
-
اگه مشکلتون حل شد [حل شد] رو اضافه کنین
درضمن اسکریپت من یه ایراد کوچیک داشت اونم این بود که علامت $ رو قبل word ننوشته بودم الان اصلاحش کردم
درستش این شکلیه :
grep ^$word
بله، ممنون بابت یادآوری