คำถามติดแท็ก perl

ฉันกำลังเล่นกับสคริปต์ perl ที่จะนำผู้ใช้ป้อนด้วยต่อไปนี้: system( qw( stty -echo ) ); $? == 0 or die "Error unable to disable character printing.\n"; print "$prompt: "; my $input = <STDIN>; ฉันคิดว่าฉันจะสามารถตอบสนองโดยใช้ echo ได้ แต่ดูเหมือนว่าจะขัดแย้งกับคำสั่ง stty -echo และสร้างข้อผิดพลาดต่อไปนี้: stty: standard input: Inappropriate ioctl for device โดยไม่ต้องเปลี่ยนสคริปต์ perl สิ่งที่สามารถทำได้ใน bash ที่จะผ่านในการป้อนข้อมูลหรือไม่ ทำให้เกิดปัญหาอะไร

9 bash  perl  stty 

ฉันต้องการค้นหาและแทนที่อักขระที่ไม่รู้จักทั้งหมดในบางไฟล์ที่มีชื่อเหมือนกัน เมื่อเปิดไฟล์ดังกล่าวด้วย vi ฉันอ่านรหัส <91> สำหรับตัวละครนั้น เมื่อเปิดมันด้วยนาโนฉันอ่าน "เครื่องหมายคำถาม" ในรูปเพชร (สีดำสลัว) ฉันต้องการแทนที่ตัวละครที่ไม่รู้จักด้วยเครื่องหมายคำพูด (') ฉันพยายามหลายวิธีโดยไม่มีโชค ฉันเหนื่อย: find ./ -name filename.txt -exec perl -i~ -pe "s/\x91/'/" {} \; find ./ -name filename.txt -exec sed -i "s/\x91/'/g" {} \; แก้ไข ข้อมูลเพิ่มเติมเกี่ยวกับตัวละคร: Hexadecimal: 91 68 74 74 Decimal: 145 104 116 116 Octal: 221 150 …

9 sed  wildcards  perl  replace  file-search 

ตั้งแต่ผมอัพเกรดคอมพิวเตอร์ของฉันจาก (k) อูบุนตู 12.04-12.10 sendemailฉันได้รับข้อความแสดงข้อผิดพลาดนี้เมื่อพยายามที่จะส่งอีเมลโดยใช้ การติดตั้ง IO :: Socket :: SSL เวอร์ชันเก่าไม่ใช่ตัวเลือก ฉันรู้สึกว่าทุกอย่างทำงานได้อย่างที่ควรจะเป็นและข้อความก็เป็นเพียงคำเตือน ฉันจะกำจัดข้อความนี้ได้อย่างไร SSL.pm ฉันคิดว่าด้านล่างเกี่ยวข้องกับปัญหา (/usr/share/perl5/IO/Socket/SSL.pm) 34 use constant DEFAULT_VERSION => 'SSLv23:!SSLv2'; ... 251 my %default_args = ( 252 Proto => 'tcp', 253 SSL_server => $is_server, 254 SSL_use_cert => $is_server, 255 SSL_check_crl => 0, 256 SSL_version => DEFAULT_VERSION, 257 …

9 perl  ssl  ubuntu 

ฉันต้องการสร้างรายการไฟล์ที่มี: ชื่อเดียวกัน เนื้อหาที่แตกต่าง ในไดเรกทอรี (รวมถึงไดเรกทอรีลูกและเนื้อหาทั้งหมด) วิธีการทำ? ทุบตี Perl อะไรก็ได้ ดังนั้นไฟล์สองไฟล์ที่มีชื่อเหมือนกันและเนื้อหาเดียวกันไม่ควรแสดงขึ้นมา

9 bash  find  directory  perl  recursive 

ปิด คำถามนี้ต้องการรายละเอียดหรือความคมชัด ไม่ยอมรับคำตอบในขณะนี้ ต้องการปรับปรุงคำถามนี้หรือไม่ เพิ่มรายละเอียดและชี้แจงปัญหาโดยแก้ไขโพสต์นี้ ปิดให้บริการใน5 ปีที่ผ่านมา ฉันกำลังพยายามใช้ sed หรือ awk เพื่อแทนที่ 5 บรรทัดในไฟล์ smb แต่ฉันไม่มีความคิดวิธีจัดการกับการขึ้นบรรทัดใหม่

9 sed  awk  scripting  perl