استبدل النص داخل الملفات بأمر واحد فقط: perl

في مناسبات معينة ، نريد استبدال النص داخل ملف ، على سبيل المثال ، التغيير في Document.txt كل ما تقوله "عائلتي" "لنا". لتحقيق ذلك ، يمكننا استخدام محرر النصوص المفضل لدينا (Kate ، Gedit ، SublimeText ، إلخ) ولكن من الجيد دائمًا معرفة المتغيرات والطرق الأخرى لتحقيق نفس النتيجة 🙂

يحدث ذلك مع التعبيرات العادية يمكنك تحقيق ذلك ، فالأمر sed رائع بكل بساطة ، وله متغيرات وخيارات لا حصر لها ولكن ... لأولئك الذين يريدون فقط استبدال النص من الطريقة الأقل تعقيدًا الممكنة، بالنسبة لهم هو أنني أحضر هذا البديل الأبسط بكثير:

باتباع المثال ، لدينا الملف Document.txt وتقع في $ HOME / Document.txt بالنص التالي:

(...) عائلتي إنه مثلهم جميعًا ، مثلك أو جارك. في الواقع عائلتي نحاول أن نكون أشخاصًا مسؤولين وفي نظر المجتمع ، صحيحين سياسيًا واجتماعيًا. ومع ذلك ، يوجد في منزلي خروف أسود ، وهذا دوري LOL!. لقد كنت دائمًا الشخص الذي لا يخشى قول ما يفكر فيه (حتى لو لم يكن ذلك صحيحًا في نظر المجتمع) ، على الرغم من أن عائلتي سئمت في الواقع من قذارة مجتمع اليوم.

بالأمر التالي سوف تغير «عائلتي" بواسطة "لنا":

perl -pi -e "s[mi familia][nosotros]g" $HOME/Documento.txt

الأمر بهذه البساطة

لذلك سيكون النص:

(...) لنا إنه مثلهم جميعًا ، مثلك أو جارك. في الواقع لنا نحاول أن نكون أشخاصًا مسؤولين وفي نظر المجتمع ، صحيحين سياسيًا واجتماعيًا. ومع ذلك ، يوجد في منزلي خروف أسود ، وهذا دوري LOL!. لقد كنت دائمًا الشخص الذي لا يخشى قول ما يفكر فيه (حتى لو لم يكن ذلك صحيحًا في نظر المجتمع) ، على الرغم من أن عائلتي سئمت في الواقع من قذارة مجتمع اليوم.

الصيغة هي:

perl -pi -e "s[lo-que-quiero-cambiar][lo-nuevo-a-poner]g" archivo-en-el-cual-reemplazar

قد يبدو الأمر معقدًا بعض الشيء ، فلنقم بتفصيله قليلاً وشرحه بشكل أكثر بساطة 😉

• بيرل : ما سوف نستخدمه ، بيرل
• -بي : باي ، كيف π (القيمة التقريبية 3.14)
• -e : E تخيلها لـ «تنفيذ e» ^ - ^
• ثم في الاقتباسات » نفتح مع s ونختتم بـ g: "sg" ... تخيل S لبداية و G لـ Game Over 😀
• بدوره بين sg يجب أن نضع مجموعتين من الأقواس: [] y []، على هذا النحو: "S [] [] g"
• داخل الأقواس الأولى كما قلت أعلاه ، سيظهر النص الذي نريد إزالته واستبداله بآخر جديد ، بينما في المجموعة الثانية من الأقواس ، سيظهر النص الجديد المراد وضعه ، باتباع المثال: "S [عائلتي] [نحن] ز"

بسيط أليس كذلك؟

التفسير هو في الواقع أكثر شمولاً مما هو ضروري للأمر ، فمن السهل جدًا فهم 🙂

Perl هي أكثر بكثير من مجرد وسيلة لاستبدال النص ، إنها لغة كاملة 😉

إذا كنت تريد معرفة المزيد عنها ، فقم بتثبيت الحزمة بيرل-وثيقة وإلقاء نظرة على ما يسمح به ، إنه مجرد كون مختلف.

بالمناسبة وللإغلاق ، بافتراض أنك تريد العثور على جميع ملفات .txt التي لديك في $ HOME / Documents / وفي كل منها استبدل "عائلتي" بـ "us" ، يمكنك الانضمام إلى find + perl لتحقيق ذلك:

find $HOME/Documentos/ -name *.txt -exec perl -p -i -e "s[mi familia][nosotros]g" {} \;

أو باستخدام حرف بدل:

perl -p -i -e "s[mi familia][nosotros]g" $HOME/Documentos/*.txt

تكمن مشكلة هذا المتغير الثاني في أنه لن يحل محل الملفات الموجودة في المجلدات الفرعية 🙂

على أي حال ، أتمنى أن تكون قد وجدت ذلك ممتعًا. بالنسبة لي كان مفيدًا حقًا ، يمكنني بالفعل استبدال النص مباشرةً من الجهاز ... رائع! 😀