แทนที่ข้อความในไฟล์ด้วยคำสั่งเดียว: perl

ในบางโอกาสเราต้องการแทนที่ข้อความภายในไฟล์เช่นเปลี่ยนไฟล์ Document.txt ทุกสิ่งที่ "ครอบครัวของฉัน" พูดเพื่อ "เรา" เพื่อให้บรรลุสิ่งนี้เราสามารถใช้โปรแกรมแก้ไขข้อความที่เราต้องการ (Kate, Gedit, SublimeText ฯลฯ ) แต่การรู้จักตัวแปรวิธีอื่น ๆ เพื่อให้ได้ผลลัพธ์ที่เหมือนกันเป็นสิ่งที่ดีเสมอ

มันเกิดขึ้นด้วย นิพจน์ทั่วไป สิ่งนี้สามารถทำได้คำสั่ง sed นั้นงดงามมากมีรูปแบบและตัวเลือกที่ไม่มีที่สิ้นสุด แต่ ... สำหรับผู้ที่ต้องการแทนที่ข้อความจาก วิธีที่ซับซ้อนน้อยที่สุดเท่าที่จะทำได้สำหรับพวกเขาฉันนำตัวแปรที่ง่ายกว่านี้มาให้:

ตามตัวอย่างเรามีไฟล์ Document.txt ตั้งอยู่ใน $ HOME / Document.txt ด้วยข้อความต่อไปนี้:

(... ) ครอบครัวของฉัน ก็เหมือนกับพวกเขาทั้งหมดเช่นของคุณหรือของเพื่อนบ้าน ในความเป็นจริง ครอบครัวของฉัน เราพยายามที่จะเป็นคนที่มีความรับผิดชอบและในสายตาของสังคมถูกต้องทางการเมืองและสังคม อย่างไรก็ตามในบ้านของฉันมีแกะดำและนั่นคือบทบาทของฉันฮ่า ๆ ! ฉันเป็นคนหนึ่งที่ไม่กลัวที่จะพูดในสิ่งที่เขาคิดมาโดยตลอด (แม้ว่าจะไม่ถูกต้องในสายตาของสังคมก็ตาม) แม้ว่าในความเป็นจริงแล้วครอบครัวของฉันจะเบื่อหน่ายกับ สิ่งสกปรก สังคมปัจจุบัน

ด้วยคำสั่งต่อไปนี้คุณจะเปลี่ยน«ครอบครัวของฉัน"โดย"nosotros":

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

มันง่ายมาก🙂

ดังนั้นข้อความจะเป็น:

(... ) nosotros ก็เหมือนกับพวกเขาทั้งหมดเช่นของคุณหรือของเพื่อนบ้าน ในความเป็นจริง nosotros เราพยายามที่จะเป็นคนที่มีความรับผิดชอบและในสายตาของสังคมถูกต้องทางการเมืองและสังคม อย่างไรก็ตามในบ้านของฉันมีแกะดำและนั่นคือบทบาทของฉันฮ่า ๆ ! ฉันเป็นคนหนึ่งที่ไม่กลัวที่จะพูดในสิ่งที่เขาคิดมาโดยตลอด (แม้ว่าจะไม่ถูกต้องในสายตาของสังคมก็ตาม) แม้ว่าในความเป็นจริงแล้วครอบครัวของฉันจะเบื่อหน่ายกับ สิ่งสกปรก สังคมปัจจุบัน

ไวยากรณ์คือ:

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

คำสั่งอาจดูซับซ้อนไปหน่อยลองแยกย่อยและอธิบายเพิ่มเติมง่ายๆ simply

• Perl : สิ่งที่เราจะใช้ perl
• -pi : Píอย่างไร π (ค่าประมาณ 3.14)
• -e : E ลองนึกภาพสำหรับ« e เพื่อดำเนินการ» ^ - ^
• จากนั้นในเครื่องหมายคำพูด » เราเปิดด้วยไฟล์ s และเราปิดด้วย g: "sg" …ลองนึกภาพ S for Start และ G สำหรับ Game Over 😀
• เลี้ยวระหว่าง sg เราต้องใส่วงเล็บสองชุด: [] y []เป็นอย่างนั้น: "S [] [] g"
• ในวงเล็บแรกตามที่ฉันได้กล่าวไว้ข้างต้นข้อความที่เราต้องการลบและแทนที่ด้วยข้อความใหม่จะไปในขณะที่ในวงเล็บชุดที่สองข้อความใหม่ที่จะใส่จะไปตามตัวอย่าง: "S [ครอบครัวของฉัน] [เรา] g"

เรียบง่ายใช่ไหม

จริงๆแล้วคำอธิบายนั้นครอบคลุมมากกว่าที่จำเป็นสำหรับคำสั่งมันค่อนข้างง่ายที่จะเข้าใจ🙂

Perl เป็นมากกว่าวิธีการแทนที่ข้อความเป็นภาษาทั้งหมด😉

หากคุณต้องการเรียนรู้เพิ่มเติมให้ติดตั้งแพคเกจ Perl-doc และดู whooodo สิ่งที่อนุญาตมันเป็นเพียงจักรวาลที่แตกต่างกัน

โดยวิธีการและเพื่อปิดสมมติว่าคุณต้องการค้นหาไฟล์. txt ทั้งหมดที่คุณมีใน $ HOME / Documents / และในแต่ละไฟล์แทนที่ "my family" ด้วย "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

ปัญหาของตัวแปรที่สองนี้คือจะไม่แทนที่ในไฟล์ที่อยู่ในโฟลเดอร์ย่อย🙂

อย่างไรก็ตามฉันหวังว่าคุณจะพบว่ามันน่าสนใจ สำหรับฉันมันมีประโยชน์มากฉันสามารถแทนที่ข้อความได้โดยตรงจากเทอร์มินัล ... เยี่ยมมาก! 😀