Menghindari pengungkapan biasa di Perl - dummies

Memasuki salah ketik atau dua saat mengerjakan program Perl tidak jarang terjadi. Tapi ketika Anda mencoba menjalankan sebuah program yang berisi entri teks tergelincir, Perl biasanya menjadi bingung dan mengatakannya kepada Anda dengan melaporkan kesalahan. Reaksi alami bagi kebanyakan orang, bahkan pengalaman bertahun-tahun dalam pemrograman, adalah khawatir atau marah atau keduanya saat pesan kesalahan muncul.

Jangan panik Tarik napas dalam-dalam. Ambil napas panjang dan pelan. Serius, Anda tidak bisa sampai ke akar masalahnya jika Anda merasa tegang dan terganggu. Tidak peduli berapa tahun Anda memprogram, Anda selalu menemukan beberapa kesalahan dalam kode yang Anda tulis.

Jadi, sekarang Anda (mudah-mudahan!) Sedikit lebih tenang, Anda bisa mulai menghargai kenyataan bahwa Perl memiliki pesan kesalahan yang lebih bermanfaat daripada hampir semua bahasa pemrograman lainnya. Pesannya tidak selalu tepat untuk uang, tapi bisa membuat Anda cukup dekat dengan tempat di mana masalahnya terletak pada pencarian minimal di pihak Anda.

Perl memiliki banyak pesan kesalahan, tapi beberapa pasti muncul lebih banyak daripada yang lain karena beberapa kesalahan umum yang tampaknya dilakukan setiap orang. Hasil kesalahan berikut dari kesalahan entri teks biasa yang dapat Anda hindari dengan mudah.

Melupakan titik koma

Mungkin pesan kesalahan paling umum yang Anda lihat saat memprogram di Perl terlihat seperti ini:

# syntax error, near "open"

File 'counter1. pl '; Baris 10

# Eksekusi dibatalkan karena kesalahan kompilasi.

Anda bisa melihat dan melihat Baris 10, yang berisi pernyataan terbuka, dan Anda tidak akan melihat ada yang salah dengan itu. Caranya di sini adalah untuk memeriksa pernyataan yang datang sebelum pernyataan terbuka dan lihat apakah itu berakhir dengan titik koma. (Perl tahu bahwa sebuah pernyataan hanya berakhir saat ia menemukan titik koma.) Dalam kasus ini, kesalahan disebabkan oleh titik koma yang hilang pada akhir Baris 7 program:

$ TheFile = "contoh. txt "

Melupakan tanda kutip

Jenis pesan kesalahan berikut bisa sangat membuat frustrasi jika Anda tidak mengetahui perbaikan cepat:

# Kata yang jarang ditemukan di tempat yang diharapkan operator, dekat

#" buka (INFILE, $ TheFile) atau matikan string "The"

# (Mungkin ada pelarian multi-line "mulai dari

# line 7)

File 'counter1. pl '; Baris 10

Kesalahan ini sama dengan melupakan titik koma; Sebagai gantinya, ini adalah tanda kutip yang secara tidak sengaja dihilangkan:

$ TheFile = "sample. txt;

Dalam kasus ini, Perl melakukan pekerjaan dengan baik untuk menebak apa yang salah, menunjukkan bahwa string multi-line pelarian "pada jalur 7 adalah masalahnya, yang benar sekali.

Memasuki satu tanda kurung terlalu banyak atau terlalu sedikit

Bila Anda memiliki banyak tanda kurung buka dan tutup dalam sebuah program, mudah untuk memasukkan yang lain secara tidak sengaja. Jika itu yang terjadi, Anda mungkin melihat pesan dari Perl yang membaca sesuatu seperti ini:

# syntax error, near ") eq"

File 'counter1. pl '; Baris 38

# kesalahan sintaks, dekat "}"

Berkas 'counter1. pl '; Baris 42

Di sini, Perl tidak dapat menentukan di mana kesalahannya sebenarnya, tapi sebenarnya benar pada dugaan pertama: Baris 38 berisi tanda kurung sebelah kanan:

jika (substr ($ TheLine, $ CharPos, 1)) eq "")

Memiliki satu tanda kurung terlalu sedikit dalam program Perl dapat menyebabkan masalah yang sulit ditemukan:

# Tidak dapat menggunakan item konstan sebagai argumen kiri yang implisit ->,

# dekat "1}"

File 'counter1. pl '; Baris 39

# Scalar menemukan lokasi yang diharapkan operator, dekat "$ CharPos"

File 'counter1. pl '; Baris 40

# (Titik koma yang tidak ada pada baris sebelumnya?)

# kesalahan sintaks, dekat "$ CharPos"

File 'counter1. pl '; Baris 40

Yarp! Semua ini diproduksi karena tanda kurung terakhir pada Baris 38 hilang:

jika (substr ($ TheLine, $ CharPos, 1) eq ""

Berikut adalah pelajaran bagus lainnya untuk memburu kesalahan pengetikan: Mulai dari mana Perl mengatakan itu menemukan kesalahan.Jika Anda tidak menemukan kesalahan di sana, naik satu atau dua baris dan lihat apakah masalah dimulai lebih awal.

Kata terakhir dari saran: Percayalah Perl untuk menemukan kesalahan ketik yang sederhana untuk Anda (di mana itu dapat), dan ingat bahwa itu memberi Anda semua bantuan yang bisa dilakukan, yang lebih dari yang dapat Anda katakan untuk banyak bahasa pemrograman.