Perl adalah bahasa pemrograman dinamis tingkat tinggi, bertujuan umum, ditafsirkan. Ini awalnya dikembangkan oleh Larry Wall sebagai bahasa scripting Unix untuk keperluan umum untuk membuat pemrosesan laporan lebih mudah, selama periode dengan dukungan dari komunitas open source, telah berkembang dan matang untuk digunakan untuk pemrograman grafis, administrasi sistem, pemrograman jaringan, keuangan , bioinformatika, dan aplikasi teknik lainnya.
Mengganti string dalam file berdasarkan kriteria pencarian tertentu adalah tugas yang sangat umum. Bagaimana bisa saya ganti string foodengan bardi semua file di direktori saat ini? melakukan hal yang sama secara rekursif untuk sub direktori? ganti hanya jika nama file cocok dengan string...
Dalam dokumentasi Perl, perlrun (1) menyarankan meluncurkan skrip Perl menggunakan header bilingual shell / Perl: #!/bin/sh #! -*-perl-*- eval 'exec perl -x -wS $0 ${1+"$@"}' if 0; Apa ${1+"$@"}artinya Saya mencoba menggunakan "$@"sebagai gantinya (menggunakan Bash sebagai / bin / sh), dan...
Saya memiliki daftar direktori dan subdirektori yang berisi file csv besar. Ada sekitar 500 juta baris dalam file-file ini, masing-masing adalah catatan. Saya ingin tahu Berapa banyak baris dalam setiap file. Berapa banyak baris dalam direktori. Berapa banyak garis secara total Yang paling...
Berasal dari administrasi Windows, saya ingin menggali lebih dalam di Linux (Debian). Salah satu pertanyaan saya yang membara, saya tidak bisa menjawab pencarian di web (tidak menemukannya) adalah: bagaimana saya bisa mencapai apa yang disebut remoting "satu-ke-banyak" seperti di PowerShell for...
Menggunakan alat baris perintah umum seperti sed atau awk, apakah mungkin untuk bergabung dengan semua baris yang diakhiri dengan karakter yang diberikan, seperti backslash? Misalnya, diberikan file: foo bar \ bash \ baz dude \ happy Saya ingin mendapatkan hasil ini: foo bar bash baz dude...
File1 isi: line1-file1 "1" line2-file1 "2" line3-file1 "3" line4-file1 "4" File2 isi: line1-file2 "25" line2-file2 "24" Pointer-file2 "23" line4-file2 "22" line5-file2 "21" Setelah eksekusi skrip perl / shell, File2konten harus menjadi: line1-file2 "25" line2-file2 "24" line1-file1...
CATATAN: Pertanyaan ini merupakan pelengkap dari T&J ini: Bagaimana cara "grep" untuk panjang garis * tidak * dalam rentang tertentu? Saya hanya perlu mendapatkan baris dari file teks (daftar kata, dipisahkan dengan baris baru) yang memiliki rentang panjang minimum atau sama dengan 3...
Mengapa Perl diinstal secara default dengan sebagian besar distribusi
Saya memiliki sejumlah file CSV besar dan menginginkannya dalam TSV (format tab terpisah). Masalahnya adalah ada koma di bidang file CSV, misalnya: A,,C,"D,E,F","G",I,"K,L,M",Z Output yang diharapkan: A C D,E,F G I K,L,M Z (di mana spasi putih di antaranya adalah tab 'sulit') Saya memiliki...
Rupanya, berlari: perl -n -e 'some perl code' * Atau find . ... -exec perl -n -e '...' {} + (sama dengan -pbukannya -n) Atau perl -e 'some code using <>' * sering ditemukan dalam satu baris yang diposting di situs ini, memiliki implikasi keamanan. Apa masalahnya? Bagaimana cara...
Dalam skrip "support / apxs.in" proyek Apache httpd , sebuah teks yang dikelilingi dengan @tanda muncul setelahnya #!. Artinya, baris pertama skrip adalah: #!@perlbin@ -w Apakah ini hal Perl atau kernel UNIX? Dengan kata lain, apakah mungkin untuk mengeksekusi skrip ini menggunakan...
Saya ingin menghapus kolom terakhir dari file txt, sementara saya tidak tahu apa nomor kolomnya. Bagaimana saya bisa melakukan ini? Contoh: Memasukkan: 1223 1234 1323 ... 2222 123 1233 1234 1233 ... 3444 125 0000 5553 3455 ... 2334 222 Dan saya ingin hasil saya menjadi: 1223 1234 1323 ......
Di bawah ini adalah teks dalam file: Pseudo name=Apple Code=42B state=fault Pseudo name=Prance Code=43B state=good Saya perlu grep untuk "42B" dan mendapatkan output dari teks di atas seperti: Pseudo name=Apple Code=42B state=fault Adakah yang punya ide tentang cara mencapai ini menggunakan...
Pada sistem Debian saya (well, sistem LMDE saya, tetapi cukup dekat), saya memiliki setidaknya 3 renameprogram berbeda : /usr/local/bin/rename: Ini adalah skrip Perl, yang ditulis oleh Tom Christiansen. Anehnya, saya tidak dapat menemukan paket mana yang menginstalnya: $ dpkg -S...
Saya punya file teks ( devel.xml). Saya menambahkan kata REPLACETHIS untuk menggantikan string ini dengan konten dalam file yang berbeda ( temp.txt). Hal terdekat yang saya miliki adalah ini: sed -i -e "/REPLACETHIS/r temp.TXT" -e "s///" devel.txt; Ini menyisipkan konten setelah string, dan...
Ketika saya melakukan 'top', saya melihat proses skrip perl saya dalam keadaan 'S'. Apakah ada cara untuk mengetahui, apa yang membuat proses perl ini dalam kondisi tidur dan cara untuk membangunkannya? Cara apa pun untuk debug untuk memberikan lebih banyak wawasan tentang baris dalam skrip perl...
Saya hanya melompat ke dunia unix dari dunia yang berbeda, dan ingin tahu apakah while true do /someperlscript.pl done Script perl itu sendiri secara internal memiliki pengamat folder / file yang dijalankan ketika file diubah di lokasi target. Apakah ini ( while true) ide yang bagus? Jika...
Saya ingin membuka terminal, membaginya menjadi katakanlah 9 bagian (3x3) dan menjalankan beberapa skrip bash. Tetapi untuk setiap terminal bagian skrip berbeda. Bisakah ini dilakukan dengan menggunakan perl, python atau bahkan bash? Bagaimana saya bisa beralih di antara terminal-terminal kecil...
Ingin agar setiap baris dalam file diulang beberapa kali. mis. minta setiap baris diulang empat kali: a b c menjadi: a a a a b b b b c c c c Saya telah melakukan beberapa pencarian, dan ada banyak pertanyaan dan jawaban di sepanjang baris melakukan kebalikan, misalnya menggabungkan garis...
Ubuntu 10.10 hadir dengan Perl 5.10.1 yang sudah diinstal sebelumnya, tetapi anehnya perldocbukan bagian dari paket. $ perldoc You need to install the perl-doc package to use this program. Bagaimana saya bisa membuat fitur ini