بسم الله الرحمن الرحيم
الحمد لله والصلاة والسلام على رسول الله وآله وصحبه الغر الميامين
السلام عليكم ورحمة الله وبركاته
أيها الإخوة - يا ليت منتدانا العريق يتبني هذا المشروع -
ممكن تعتبر هذه مسابقة (من يسبق الآخرين في برمجة سريعة وخير البر عاجله) ويكسب جائزة
إننا بحاجة ماسة لمبرمج يكتب برنامجا
بأي لغة يفضل
أو بالجافة
Java
أو بيرل
Perl
أو أي لغة يفضل
ليحذف الأحاديث المكذوبة
ومثاله
http://www.mediafire.com/?t2twunfogzo
Tanzihتنزيه الشريعة لابن عراق بتحقيق الحافظ عبد الله.zip
http://www.mediafire.com/?mqcwhqy2ztq
أسماء الوضاعين بتنزيه الشريعة.doc
من أي كتاب (Batch) وينقلها للأخر لملحق ويضع علامة مكان المنقول مثلا ( نقل لملحق المكذوب أو غير الثابت برقم مسلسل كذا)
Book1.csv أو Book.txt
1-95 books
ومثاله
http://www.mediafire.com/?yqtndz1njnl
ويعمل ملحقا لهذا الكتاب
Appendix لكناب كذا. csv
فذلكة
الأحاديث المكذوبة أو غير الثابتة أقل من 1% ولكنها تنغص العيش العلمي ولاسيما لطلبة العلم
ومحدث طنجة السيد التليدي تمني أن تحذف هذه الأحاديث على عجل
الحمد لله في العشرين سنة السالفة تفضل الله علي بالعمل في إخراج الحديث في كتاب واحد بضم 1850 كتابا بما فيهم الكتب التسعة
وهذه محاضرة للعبد الفقير عن ذلك بالإنجليزية
1st World Whole Prophetic Saying Hadis in One File
وأنا أعمل بفضل الله في جمع
أولا الأحاديث المكذوبة
ثانيا الكذبة
هذا ولدينا حوالي 95 مرجعا بها بعض هذه الأحاديث
أي أقل من 5000 حديثا مكذوبا وغير ثابت لوثت أكثر من 30000 حديثا أو 170000 بالمكررات
فنريد مبرمجا ماهرا يحسن
فنريد مبرمجا ماهرا يحسن
فنريد مبرمجا ماهرا يحسن
Regular expression
(مرفق طيه هدية قائمة ملونة لموضوع Regular expression)
فيعمل كلاسا لتنظيف المادة من أي - غير - حروف وأرقام ثم يجري عمليات البحث بقطع من الجمل
وممكن يعمل البرنامج مثل
Step
في البرمجة بمعنى يرى المستخدم العمليات في
Log
ويعتمد عملية النقل
وربما يستعمل المبرمج
Fuzzy search
Etc
وإن شاء الله تتعلم الكثير منا في التصميم والجودة
رجاء الإتصال والهدية المالية لعملك موجودة غير الثواب العظيم بذب الكذب عن رسول الله صلى الله عليه وسلم ونصرة حديثه
حتى العقيدة دخلها المكذوب فمثلا
حدثنا أبو يحيى الرازي حدثنا أبو كريب حدثنا محمد بن يعلى عن (عمر بن صبح) عن مقاتل بن حيان عن عكرمة عن ابن عباس هما في قوله : ادعوني أستجب لكم قال : وحدوني بالربوبية أغفر لكم"
حديث مكذوب وكاذبه (عمر بن صبح)
وثمة حديث مكذوب
14
حديث إذا أراد الله أن ينزل إلى السماء الدنيا نزل عن عرشه بذاته
محدثه دجال
ص 52 من
http://www.4shared.com/document/-f_23gtO/_______-___________5____.html
في المصنوع في معرفة الحديث الموضوع.. الموضوعات الصغرى - علي القاري الهروي (ت) عبدالفتاح أبو غدة (ط5) مكتب المطبوعات الإسلامية.pdf | File
اتصل بنا
Ldapguru@yahoo.com
Perl's Regular Expression Quick Card
By Ahmad Darwish and associates
www.Allah.com www.Muhammad.com
[1]
(1) $TEXT =~ /Hello/
Hello, world!
(2) $TEXT =~ /hello/
Hello, world!
(3) TEXT =~ /hello/i
Hello, world!
[2]
(4) TEXT =~ /\w/
Have a good day!
[3]
(5) $TEXT =~ /Hello, world/
Hello, world!
(6) TEXT =~ /Hello, world/
Hello, world!
(7) TEXT =~ /Hello,\ world/x
Hello, world!
(8) TEXT =~ /Hello, world/x
Hello, world!
[4]
(9) $TEXT =~ /^who/
who is who
(10) $TEXT =~ /who$/
who is who
[5]
(11) TEXT =~ /..../
Perl
is
wonderful!
(12) $TEXT =~ /......../
Perl
is
wonderful!
(13) $TEXT =~ /......../s
Perl
is
wonderful!
[6]
(14) $TEXT =~ /./
O.K.
(15) $TEXT =~ /./g
O.K.
(16) $TEXT =~ /\./
O.K.
(17) $TEXT =~ /.\../
O.K.
[7]
(18) $TEXT =~ /[oyu]/g
How do you do?
[8]
(19) $TEXT =~ /[C-K]/g
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
0123456789
[9]
(20) $TEXT =~ /[^CDghi45]/g
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
0123456789
[10]
(21) $TEXT =~ /(Mon|Tues|Fri)day/g
MondaybTuesdaybFriday
[11]
(22) $TEXT =~ /a*bc/g
aabc abc bc
g = Match globally, i.e., find all occurrences.
(23) $TEXT =~ /a+bc/g
aabc abc bc
(24) $TEXT =~ /a?bc/g
aabc abc bc
[12]
(25) $TEXT =~ /.{5}/
One ring to bring them all and in the darkness bind them
(26) $TEXT =~ /[^ ]{4,6}/g
One ring to bring them all and in the darkness bind them
(27) $TEXT =~ /[a-z]{3,}/g
One ring to bring them all and in the darkness bind them
[13]
(28) $TEXT =~ /.+/
One ring to bring them all and in the darkness bind them
(29) $TEXT =~ /.+?/
One ring to bring them all and in the darkness bind them
(30) $TEXT =~ /i.*i/
One ring to bring them all and in the darkness bind them
(31) $TEXT =~ /i.*?i/
One ring to bring them all and in the darkness bind them
[14]
(32) $TEXT =~ /\w/g
One ring to bring them all and in the darkness bind them
[15]
(33) $TEXT =~ /\W/g
ASb_34:AS11.23 @#$ %12^*
(34) $TEXT =~ /\w/g
AS _34:AS11.23 @#$ %12^*
[16]
(35) $TEXT =~ /\s/g
Erebironbwasfoundborbtreebwasbhewn,
\t Whenbyoungbwasbmountainbunderbmoon;
(36) $TEXT =~ /\S/g
Erebironbwasfoundborbtreebwasbhewn,
\t Whenbyoungbwasbmountainbunderbmoon;
(37) $TEXT =~ /hewn,\s*W/s
Ere iron was found or tree was hewn,
\t When young was mountain under moon;
(38) $TEXT =~ /hewn,\n\tW/s
Ere iron was found or tree was hewn,
\t When young was mountain under moon;
[17]
(39) $TEXT =~ /\d/g
Page 123; published: 1234
(40) $TEXT =~ /\D/g
Page 123; published: 1234
[18]
(41) $TEXT =~ /\b./
Ere iron was found or tree was hewn,
When young was mountain under moon;
(42) $TEXT =~ /.\b/
Ere iron was found or tree was hewn,
When young was mountain under moon;
(43) $TEXT =~ /\b./g
Erebironbwasbfoundborbtreebwasbhewn,
Whenbyoungbwasbmountainbunderbmoon;
(44) $TEXT =~ /.\b/g
Erebironbwasbfoundborbtreebwasbhewn,
Whenbyoungbwasbmountainbunderbmoon;
[19]
(45) $TEXT =~ /\B./
Ere iron was found or tree was hewn,
When young was mountain under moon;
(46) $TEXT =~ /.\B/
Ere iron was found or tree was hewn,
When young was mountain under moon;
(47) $TEXT =~ /\B./g
Ere iron was found or tree was hewn,
\t When young was mountain under moon;
(48) $TEXT =~ /.\B/g
Ere iron was found or tree was hewn,
When young was mountain under moon;
[20]
(49) $TEXT =~ /\A.../gm
Ere iron was found or tree was hewn,
When young was mountain under moon;
(50) TEXT =~ /^.../gm
Ere iron was found or tree was hewn,
\t When young was mountain under moon;
(51) $TEXT =~ /^.../g
Ere iron was found or tree was hewn,
When young was mountain under moon;
[21]
(52) $TEXT =~ /...\Z/gm
Ere ring was made, or wrought was woe,
It walked the forests long ago.
(53) $TEXT =~ /...$/gm
Ere ring was made, or wrought was woe,
It walked the forests long ago.
(54) $TEXT =~ /...$/g
Ere ring was made, or wrought was woe,
It walked the forests long ago.
[22]
(55) $TEXT =~ /\w(?= )/g
Ere iron was found or tree was hewn,
When young was mountain under moon;
(56) $TEXT =~ /\w /g
Erebironbwasbfoundborbtreebwasbhewn,
Whenbyoungbwasmountainbunderbmoon;
(57) $TEXT =~ /\w(?=\w)/g
Ere iron was found or tree was hewn,
When young was mountain under moon;
[23]
(58) $TEXT =~ /\w(?!s )/g
Erebironbwasbfoundborbtreebwasbhewn,
\t Whenbyoungbwasbmountainbunderbmoon;
Erebringbwasbmade,borbwroughtbwasbwoe,
\t Itbwalkedbthebforestsblongbago.
(59) $TEXT =~ /m(?!ou)/g
Ere iron was found or tree was hewn,
When young was mountain under moon;
Ere ring was made, or wrought was woe,
[24]
(60) $TEXT =~ /(1)1/
1122333
(61) $TEXT =~ /m(?!ou)/g
1122333
b is a space inserted when colored (matched or not matched)
Introduction
[1]
Search in Perl is by default case sensitive. Therefore Expression 1 will find the specified text, but Expression 2 will not. Switch i enables case insensitive search (Expression 3 )
[2] No comments
[3]
By default each character inside the search pattern is significant including white space characters (space, tab, new line). In Expression 5 number of spaces agree and in Expression 6 disagree. If x switch is used, then all white spaces are considered insignificant, if they are not escaped with backslash. Compare Expression 7 and Expression 8
Meta-characters
[4]
Some characters have a special meaning in perl. Character ^
matches the beginning of the line (Expression 9) while dollar sign the end of the line (Expression 10)
[5]
Point . matches any character (Expression 11) except a new line. (Expression 12). It will match even new line if switch s is used (Expression 13)
[6]
Sometimes real word meaning of meta-character is needed. In this case backslash is used. In Expression 14 and Expression 16 has the point meta-character meaning while in Expression 15 its real one. Expression 17 combines both meanings.
Character Classses
[7]
Character classes are enclosed with [] and enable selection from a list of characters.
[8]
A range of characters in character classes is specified with [ - ] syntax.
[9]
If a character class starts with ^, then specified characters will not be selected
[10]
Alternating text can be enclosed in parentheses and alternatives separated with |.
Quantifiers
[11]
Quantifiers enable specify how many times a character can occur. Star * (Expression 22) matches zero or more, plus + (Expression 23) once or more and question mark ? (Expression 24) zero or once.
[12]
Curly brackets enable precise specification of character
repetitions. {m} matches precisely m times (Expression 25), {m,n} matches minimally m times and maximally n times (Expression 26) and {m,} matches minimally m times (Expression 27).
[13]
By default any sub pattern matches as many times as possible. This behavior is changed to matching the minimum number if quantifier is followed with the question mark. Compare Expression 28 with Expression 29 and Expression 30 with Expression 31.
Perl Special Characters
[14]
\w matches any word character alphanumeric plus "_" )
[15]
\W matches any non word character (everything but
alphanumeric plus "_" ). Compare Expression 33 and
Expression 34.
[16]
\s matches white space characters: space, new line and tab. \S matches any nonwhite space character. Compare Expression 35 and Expression 36. Expression 37 have in this case the same meaning as Expression 38.
[17]
\d matches any digit and \D anything else. Compare
Expression 39 and Expression 40.
Zero-Width Assertions
[18]
\b matches a word boundary. A word boundary (\b) is defined as a spot between two characters that has a \w on one side of it and a \W on the other side of it (in either order). Expression 41 and Expression 42 give a simple example. Study carefully Expression 43 and Expression 44. You have to realize that g switch is on. Therefore inside the sentence hits goes in couples and this can
be perplexing at first sight..
[19]
\B matches a non (word boundary). A word boundary (\b)
is defined as a spot between two characters that has a \w on one side of it and a \W on the other side of it (in either order). Expression 45 and Expression 46 give a simple example. Study carefully Expression 47 and Expression 48.
[20]
\A matches only at the beginning of string. It is similar to ^, but ^ will match after each new line, if modifier /m is used. Compare Expression 49 and Expression 50 and then Expression 50 and Expression 51.
[21]
\Z matches only at the end of string or before new line at the
end. It is similar to $, but $ will match before each new line, if
modifier /m is used. Compare Expression 52 and Expression 53 and then Expression 53 and Expression 54
Extension Functions
[22]
(?=) will look ahead if the pattern exist, but will not include it in the hit. Compare Expression 55 and Expression 56. Expression 57 selects all alphanumeric characters, which are not at the end of word.
[23]
(?!) will look ahead if the pattern exist. If it does, there will be no hit. Expression 58 selects all alphanumeric characters, which are not followed with letter s. Expression 59 gives further example.
[24]
(?!) will look ahead if the pattern exist. If it does, there will be no hit. Expression 60 selects all alphanumeric characters, which are not followed with letter s. Expression 61
من خزائن الكتب التسعة على شرف محدث الزمان السيد عبد الله التليدي وآل التليدي وآل الغماريين وآل عجلان وآل درويش
إلى طلبتنا في علم الحديث الشريف ومحبينا وكل من يهتم بالحديث الشريف من الأمة المحمدية على رسولها أفضل الصلاة والتحية
السلام عليكم ورحمة الله وبركاته
فقد هاتفت البارحة - 27 شعبان 1431 هـ الموافق 8 أغسطس 2010 - سيدي محدث الزمان أزف له هذه البشرى ففرح بها أيما فرح وهنأنا بحبه وعطفه، حفظه الله ونجله ودار حديثه المنيفة
بسم الله الرحمن الرحيم
من خزائن الكتب التسعة على شرف:
محدث الزمان السيد عبد الله التليدي
من إكسل الكتب التسعة التى فتح الله تعالى علينا بخزائنة به 68010 حديثا
أول مرة على سطح الأرض تضم الكتب التسعة منطقيا مع فصل الحديث والأثر عن المتن وترتيب المتن بأساليب مختلفة مع الألوان
المجموع 68010
المكرر بالضبط 11727
بدون المكرر بالضبط 56283
محكوم عليه 55819
الباقي ليحكم عليه 464 بعضها أسانيد بلا متن أو تصف متنا
وثمة 33 كلمة استخدمت في الحكم هكذا
33 حكما غطت 55819 حديثا
الكلمة رقم الإستخدام (رقم الأحاديث)
أثر 130
باطل 16
ثابت 9
جيد 114
حسن 3400
خطأ 7
ص (صحيح 5207
صح خلاف حنبل 1
صحيح 42173
صحيح نظر 1
ضعيف 4002
ضعيف جدا 13
غريب 4
ف 2
قوي 494
كذب 1
كلهم مجهولون 8
مرسل 31
مضطرب 10
معلل 3
مكذوب 17
مكرر 56
منسوخ 7
منقطع 41
منكر 41
موضوع 23
موقوف 6
نبيل 1
وثمة تكرارات خمسية أو أكثر أو أقل وثلاثية وثنائية ... الخ
المقصود أن الحديث تكرر ذكره بألفاظ (غير متطابقة فلم يعد ضمن 11727 التكرار بالضبط)
هذا سيفتح لنا إخراجات بلا تكرار
ثنائيات (أو أكثر أو أقل)
مثلا البخاري ومسلم
النسائي والدارمي وهما أفضل الستة بعد الصحيحين على ما قاله السيد النليدي بنصب الموائد
... الخ