perldlp - Dalam talian dalam Awan

JADUAL:

NAMA

perldl - Cangkang mudah untuk PDL (lihat juga pdl2)

SINOPSIS

Gunakan PDL secara interaktif:

bash$ perldl
pdl> $a = turutan(10) # atau mana-mana perintah perl atau PDL lain

bash$ pdl
pdl> cetak "Hello, dunia!\n";

Jalankan skrip:

bash$ cat > pdlscript
#!/usr/bin/pdl
cetak "Hello, dunia!\n";
...

DESCRIPTION

Program yang perldl ialah cangkerang ringkas (ditulis dalam perl) untuk kegunaan interaktif PDL. Ia
terdiri daripada antara muka baris arahan yang menyokong tafsiran segera perl
perintah dan ungkapan. Ungkapan Perl, termasuk binaan PDL, boleh dimasukkan
terus pada papan kekunci dan disusun dan dilaksanakan serta-merta. Sintaksnya tidak
betul-betul sama dengan Perl, kerana dalam kebanyakan keadaan menamatkan garis menyebabkan serta-merta
pelaksanaan arahan yang dimasukkan setakat ini (tiada trailing ';' diperlukan).

Sinonimnya pdl ialah boleh laku tersusun yang berguna sebagai penterjemah skrip menggunakan UNIX
sintaks shebang ("#!"). Ini berguna untuk menjana dan melaksanakan semula arahan-jurnal
fail dari perldl.

. perldl shell menjalankan fail permulaan awal ("~/.perldlrc") yang boleh digunakan untuk pramuat
modul perl atau konfigurasikan persekitaran perl global. Ia mempunyai mekanisme laluan untuk
autoloading subrutin perl. Terdapat mekanisme perintah-sejarah, dan beberapa yang lain
ciri berguna seperti prapemprosesan arahan, pintasan untuk arahan yang biasa digunakan seperti
sebagai "cetak", dan keupayaan untuk melaksanakan kod sewenang-wenangnya apabila gesaan dicetak.

Bergantung pada tetapan konfigurasi anda, perldl boleh ditetapkan untuk menghormati atau mengabaikan ^D
aksara (akhir fail) apabila dihantar dari terminal, atau untuk cuba melakukan Perkara yang Betul
apabila binaan blok yang merentangi berbilang baris ditemui.

perldl and pdl menyokong beberapa pilihan baris arahan, yang dibincangkan berhampiran penghujung
dokumen ini.

Rujukan manual & talian membantu
Manual rujukan PDL dan bantuan dalam talian tersedia dari dalam perldl, menggunakan membantu
and sesuai perintah (yang juga boleh disingkatkan ? and ??.) Yang membantu perintah sahaja
mencetak ringkasan sintaks bantuan, dan membantu akan mencetak dokumentasi POD daripada
modul yang anda sebutkan (POD ialah format Perl untuk membenamkan dokumentasi dalam perl anda
kod; lihat perlpod untuk butiran).

Jika anda memasukkan dokumentasi POD dalam subrutin autoload anda (lihat jalan mekanisme di bawah),
kemudian kedua-duanya membantu and sesuai akan menemuinya dan boleh memformat dan memaparkannya atas permintaan.

Sejarah mekanisme
Jika anda mempunyai modul perl ReadLines dan ReadKeys dipasang, maka perldl menyokong a
sejarah dan mekanisme penyuntingan baris menggunakan kekunci penyuntingan yang serupa dengan emacs. 500 terakhir
arahan sentiasa disimpan dalam fail .perldl_hist dalam direktori rumah anda antara
sesi. Tetapkan $PERLDL::HISTFILESIZE untuk menukar bilangan baris yang disimpan. Perintah "l
[number]" menunjukkan kepada anda perintah "nombor" terakhir yang anda taip dengan "nombor" lalai kepada 20.

cth:

bash$ perldl
ReadLines didayakan
pdl> $a = rfits "foo.fits"
BITPIX = -32 saiz = 88504 piksel
Membaca 354016 bait
BSCALE = && BZERO =

pdl> log imej($a+400)
Memaparkan imej 299 x 296 daripada 4.6939525604248 hingga 9.67116928100586 ...

Perintah pelaksanaan
Jika anda memasukkan arahan mudah di perldl baris arahan, ia segera dilaksanakan dalam a
Perl "eval()". Persekitaran hampir sama dengan skrip perl, dengan
beberapa pengecualian penting:

· $_ tidak dipelihara merentas baris

$_ digunakan untuk memegang baris arahan untuk pemprosesan awal, jadi pada permulaan
pemprosesan setiap baris arahan, $_ mengandungi arahan itu sendiri. Gunakan pembolehubah lain
daripada $_ untuk menyimpan nilai merentas baris.

· Skop tidak dipelihara merentasi baris

Setiap baris arahan dilaksanakan dalam blok "eval" yang berasingan dalam perl, jadi skop
arahan seperti "saya" dan "tempatan" mungkin tidak berfungsi dengan tepat seperti yang diharapkan -- khususnya,
jika anda mengisytiharkan pembolehubah dengan "my", ia adalah setempat kepada baris arahan tertentu pada
yang anda taip arahan "saya", yang bermaksud bahawa ia akan sejat sebelum yang seterusnya
gesaan dicetak. (Anda boleh menggunakan pembolehubah "saya" dalam blok berbilang baris atau untuk mengasingkan
nilai dalam satu baris arahan, sudah tentu).

NOTA: pdl2 mengekalkan skop leksikal antara baris.

· Pelaksanaan adalah serta-merta

Dalam kebanyakan keadaan, sebaik sahaja anda menamatkan baris input baris itu dihuraikan dan
dilaksanakan. Ini memecahkan pergantungan biasa Perl pada koma bertitik sebagai pembatas perintah.
Contohnya, ungkapan dua baris

cetak "Hello",
"dunia";

mencetak frasa "Hello world" dalam Perl, tetapi (dalam kebanyakan keadaan) "Hello " dalam
perldl.

· Pelaksanaan berbilang talian

Dalam mod berbilang talian (yang didayakan secara lalai, lihat Shell pembolehubah, di bawah), perldl
mencari carian untuk binaan seperti blok dengan pendakap kerinting, kurungan, petikan,
dan pembatas yang berkaitan. Jika anda membiarkan binaan sedemikian terbuka, perldl menerima lebih banyak baris
input sehingga anda menutup binaan atau secara eksplisit menamatkan ungkapan berbilang baris dengan
^D. Mengikuti contoh di atas, frasa

{ cetak "Hello",
"dunia"; }

akan mencetak "Hello world" daripada Perl atau (dalam mod berbilang baris) perldl.

Amaran: Penghuraian berbilang baris menggunakan Teks Damian Conway::Modul Seimbang, yang
mengandungi beberapa kelemahan -- jadi ia boleh tertipu oleh pengendali seperti petikan seperti "q/.../",
termasuk dokumentasi POD, petikan "<<" berbilang baris, dan beberapa pelik-tetapi-
padanan "m/.../" yang sah dan penggantian "s/.../.../". Dalam kes sedemikian, gunakan ^D untuk menutup
keluar binaan berbilang baris dan kompilasi-dan-eksekusi daya.

Jika anda ingin mengekalkan tingkah laku ini dalam skrip (contohnya untuk memainkan semula jurnal arahan
fail; lihat di bawah tentang cara menciptanya), anda boleh gunakan pdl bukan perl sebagai jurubahasa
dalam baris shebang awal skrip.

Mengakhiri "perldl"
Sesi "perldl" boleh ditamatkan dengan mana-mana arahan "berhenti", "keluar" atau
singkatan "x" atau "q". Jika pengendalian EOF dihidupkan (lalai) anda juga boleh menaip ^D
pada arahan arahan.

Jika input arahan BUKAN terminal (contohnya jika anda menjalankan daripada arahan
fail jurnal), maka EOF akan sentiasa ditamatkan perldl.

Mengakhiri arahan (Ctrl-C pengendalian)
Perintah yang dilaksanakan dalam "perldl" boleh ditamatkan lebih awal menggunakan "Ctrl-C" (atau
mana-mana jujukan kunci menghantar isyarat INT kepada proses pada terminal anda). Dengan syarat anda
Kod PDL tidak mengabaikan "signint" ini sepatutnya membawa anda kembali pada arahan "perldl".
segera:

pdl> $result = start_lengthy_computation()

Ctrl-C dikesan

pdl>

pintasan and alias
· Alias ​​cangkerang "p" menjadi bentuk pendek "cetak" yang mudah, cth

pdl> p satu 5,3

[
[1 1 1 1 1]
[1 1 1 1 1]
[1 1 1 1 1]
]

· "q" dan "x" adalah singkatan untuk "berhenti".

· "l" menyenaraikan penimbal sejarah

pdl> l # senaraikan 20 arahan terakhir

pdl> l 40 # senaraikan 40 arahan terakhir

· "?" adalah alias untuk bantuan

pdl> ? pdl2 # dapatkan bantuan untuk shell pdl2 baharu

· "??" ialah alias untuk apropos

pdl> ?? PDL::Dok

· bantuan, apropos, penggunaan dan sig: semua perkataan selepas arahan ini digunakan secara verbatim dan bukan
dinilai oleh perl. Jadi anda boleh menulis, contohnya,

pdl> bantu membantu

bukan

pdl> bantu 'tolong'

Barisan arahan pilihan
perldl and pdl menyokong beberapa pilihan baris arahan untuk melaraskan tingkah laku sesi.
Kebanyakannya adalah bersamaan dengan arahan yang boleh dimasukkan di pdl> segera. Mereka ialah:

-melahap
Muatkan OpenGL apabila memulakan shell (modul OpenGL perl, yang boleh didapati daripada
CPAN mesti dipasang). Ini membolehkan pemprosesan gelung acara baris baca. Jangan gunakan dengan
-tk.

-tk Muatkan Tk apabila memulakan shell (modul perl Tk, yang tersedia daripada CPAN mesti
dipasang). Ini membolehkan pemprosesan gelung acara baris baca. Jangan gunakan dengan -glut.

-f fail
Memuatkan fail sebelum memproses sebarang input pengguna. Sebarang ralat semasa pelaksanaan
fail itu membawa maut.

-w Berjalan dengan mesej amaran (iaitu perl biasa "-w" amaran) dihidupkan.

-Modul M
Memuatkan modul sebelum memproses sebarang input pengguna. Bandingkan "perl" yang sepadan
suis.

-m modul
Memunggah modul sebelum memproses sebarang input pengguna.

-Saya direktori
Menambah direktori pada laluan sertakan. (iaitu tatasusunan @INC) Bandingkan "perl" yang sepadan
suis.

-V Mencetak ringkasan konfigurasi PDL. Maklumat ini harus disertakan dengan mana-mana pepijat PDL
laporan. Bandingkan suis "perl" yang sepadan.

. startup fail ~/.perldlrc
Jika fail ~/.perldlrc didapati ia bersumber pada permulaan untuk memuatkan modul lalai, ditetapkan
pembolehubah shell, dsb. Jika TIDAK ditemui fail pengedaran PDL/default.perldlrc is
baca sebaliknya. Ini memuatkan pelbagai modul yang dianggap berguna secara lalai, dan yang memastikan
keserasian dengan v1.11. Jika anda tidak menyukai ini dan mahukan set anda yang lebih ringkas
modul kegemaran sendiri mudah buat sendiri ~/.perldlrc. Anda mungkin ingin bermula dari
sedia ada PDL/default.perldlrc sebagai templat kerana ia tidak akan diperoleh setelah anda menggantikannya
ia dengan versi anda sendiri.

Untuk menetapkan lebih banyak lagi lalai tempatan fail local.perldlrc (dalam direktori semasa) ialah
bersumberkan jika ditemui. Ini membolehkan anda memuatkan modul dan menentukan subrutin untuk projek dalam
direktori semasa.

Nama itu dipilih secara khusus kerana didapati fail tersembunyi TIDAK dikehendaki dalam ini
keadaan.

Fail permulaan biasanya harus mengandungi "use PDL::AutoLoader;", seperti yang lebih bagus
ciri interaktif tidak akan berfungsi tanpanya.

Shell pembolehubah
Pembolehubah cangkang: (Nota: jika anda tidak menyukai lalai, tukarkannya ~/.perldlrc)

· $PERLDL::ESCAPE - nilai lalai '#'

Mana-mana baris yang bermula dengan watak ini dianggap sebagai pelarian shell. Nilai lalai
dipilih kerana ia melepaskan kod daripada penterjemah perl standard.

· $PERLDL::HISTFILESIZE - nilai lalai 500

Ini ialah bilangan baris sejarah perintah shell perldl untuk disimpan.

· $PERLDL::PAGER - nilai lalai "lebih"

Program luaran untuk menapis output arahan. Menggunakan "lebih" mencetak output satu
skrin pada satu masa. Pada Unix, tetapan halaman(1) dan $PERLDL::PAGER kepada "tee -a outfile"
akan menyimpan rekod output yang dihasilkan oleh arahan perldl berikutnya (tanpa
paging).

· $PERLDL::PROMPT - nilai lalai 'pdl> '

Cukup dikatakan Tetapi juga boleh ditetapkan kepada rujukan subrutin, cth $PERLDL::PROMPT =
sub {join(':',(gmtime)[2,1,0]).'> '} meletakkan masa semasa ke dalam gesaan.

· $PERLDL::MULTI - nilai lalai 1

Jika ini ditetapkan kepada nilai sebenar, maka perldl akan menghuraikan blok perl berbilang baris: your
input tidak akan dilaksanakan sehingga anda menamatkan barisan tanpa pengendali kumpulan tertunggak
(seperti petikan, blok, kurungan atau kurungan) masih aktif. Garis kesinambungan
mempunyai gesaan berbeza yang menunjukkan kepada anda pembatas yang masih aktif.

Ambil perhatian bahawa ini bukan (belum!) Penghurai perl yang lengkap. Khususnya, Teks::Seimbang
nampaknya boleh mengabaikan operator memetik seperti "q/ ... /" dalam baris, tetapi tidak
untuk dapat memanjangkannya merentasi baris. Begitu juga, tiada sokongan untuk '<<'
pengendali.

Rentetan konvensional berbilang talian dan kumpulan {}, [] dan () disokong dengan baik.

· $PERLDL::NO_EOF - nilai lalai 0 / 1 pada MSWin32

Melindungi daripada penggunaan "^D" secara tidak sengaja dari terminal. Jika ini ditetapkan kepada benar
nilai, maka anda tidak boleh keluar dari perldl secara tidak sengaja dengan menaip "^D". Jika anda menetapkannya kepada a
nilai lebih besar daripada 1 (dan PERLDL::MULTI ditetapkan), maka anda tidak boleh menggunakan "^D" untuk keluar
arahan berbilang talian sama ada. Jika anda menghantar arahan dari fail atau paip, ini
pembolehubah tidak mempunyai kesan.

· $HOME

Direktori rumah pengguna

· $PERLDL::TERM

Ini ialah objek Term::ReadLine yang dikaitkan dengan shell perldl. Ia boleh digunakan oleh
rutin dipanggil dari perldl jika arahan anda interaktif.

· $PDL::toolongtoprint

Pdls saiz maksimum untuk dicetak (lalai kepada 10,000 elemen). Ini bukan sekadar a
Pembolehubah "perldl" atau "pdl2" tetapi ia adalah sesuatu yang biasanya diperlukan dalam
sesi penyahpepijatan interaktif.

Melaksanakan skrip dari yang "perldl" segera
Idiom yang berguna untuk membangunkan skrip perldl atau fungsi penyuntingan dalam talian ialah

pdl> # skrip emacs &
-- tambah kod perldl pada skrip dan simpan fail

pdl> buat 'skrip'

-- gantikan editor berasaskan tetingkap kegemaran anda untuk 'emacs' (anda juga mungkin perlu menukar
'&' pada sistem bukan Unix).

Menjalankan "buat 'skrip'" sekali lagi mengemas kini sebarang pembolehubah dan definisi fungsi daripada
versi semasa 'skrip'.

Melaksanakan perldl skrip dari yang arahan selaras
Skrip PDL hanyalah skrip perl yang menggunakan PDL (dan mungkin PDL::NiceSlice).
Tetapi bagi yang benar-benar malas, perldl boleh dipanggil sebagai penterjemah skrip. Kerana perldl adalah
itu sendiri adalah skrip perl yang ditafsirkan, kebanyakan unices tidak membenarkan anda menyebut "#!/usr/bin/perldl"
di bahagian atas skrip anda.

Sebaliknya, sebut "#!/usr/bin/pdl" dan skrip anda akan dilaksanakan sama seperti anda menaipnya,
baris demi baris, ke dalam shell perldl.

Perintah prapemprosesan
NOTA: Ciri ini digunakan secara lalai oleh PDL::NiceSlice. Lihat di bawah untuk lebih lanjut mengenai menghiris
pada gesaan "perldl".

Dalam sesetengah kes, adalah mudah untuk memproses arahan sebelum ia dihantar ke perl untuk
perlaksanaan. Sebagai contoh, ini adalah kes di mana cangkerang dipersembahkan kepada orang ramai
tidak biasa dengan perl tetapi yang ingin mengambil kesempatan daripada arahan yang ditambahkan secara tempatan (cth
secara automatik memetik hujah kepada arahan tertentu).

*NOTA*: Antara muka prapemprosesan telah berubah daripada versi terdahulu! Cara lama menggunakan
$PERLDL::PREPROCESS masih akan berfungsi tetapi sudah tidak digunakan lagi dan mungkin hilang dalam
masa depan.

Anda boleh mendayakan prapemprosesan dengan mendaftarkan penapis dengan fungsi "preproc_add".
"preproc_add" mengambil satu hujah iaitu penapis yang akan dipasang. Penapis ialah Perl
rujukan kod (biasanya ditetapkan dalam fail konfigurasi tempatan) yang akan dipanggil, dengan
rentetan arahan semasa sebagai hujah, sejurus sebelum rentetan dilaksanakan oleh shell.
Rentetan yang diubah suai hendaklah dikembalikan. Ambil perhatian bahawa anda boleh membuat "perldl" sepenuhnya
tidak boleh digunakan jika anda gagal mengembalikan rentetan yang diubah suai; berhenti adalah satu-satunya pilihan anda.

Penapis boleh dialih keluar daripada saluran paip prapemprosesan dengan memanggil "preproc_del" dengan
penapis untuk dialih keluar sebagai hujah. Untuk mengetahui sama ada penapis sedang dipasang dalam
saluran paip prapemprosesan menggunakan "preproc_registered":

pdl> preproc_add $myfilter melainkan praproc_registered $myfilter;

Versi sebelumnya "perldl" menggunakan pembolehubah $PERLDL::PREPROCESS. Ini masih akan berfungsi
tetapi harus dielakkan. Sila tukar skrip anda untuk menggunakan fungsi "preproc_add" dsb.

Kod berikut akan menyemak panggilan untuk berfungsi 'mysub' dan argumen kurungan dengan
qw.

$filter = preproc_add sub {
$str saya = shift;
$str =~ s/^\s+//; # Jalur utama ruang
jika ($str =~ /^mysub/) {
my ($command, $arguments) = split(/\s+/,$str, 2);
$str = "$command qw( $arguments )"
jika (ditakrifkan $argumen && $argumen !~ /^qw/);
};
# Kembalikan rentetan input, diubah suai mengikut keperluan
pulangkan $str;
};

Ini akan menukar:

pdl> mysub arg1 arg2

kepada

pdl> mysub qw( arg1 arg2 )

yang Perl akan faham sebagai senarai. Jelas sekali, sedikit lagi usaha diperlukan untuk
semak kes di mana pemanggil telah membekalkan senarai biasa (dan tidak memerlukan
petikan automatik) atau interpolasi berubah diperlukan.

Anda boleh mengalih keluar prapemproses ini menggunakan fungsi "preproc_del" yang memerlukan satu hujah
(penapis yang hendak dialih keluar, ia mestilah coderef yang sama yang dikembalikan daripada coderef sebelumnya
panggilan "preproc_add"):

pdl> preproc_del $filter;

Contoh penggunaan sebenar boleh didapati dalam skrip "perldl". Tengok fungsi
"trans" untuk melihat cara prapemproses niceslicing didayakan/dilumpuhkan.

"perldl" and PDL::NiceSlice
PDL::NiceSlice memperkenalkan sintaks penghirisan yang lebih mudah untuk piddles. Dalam arus
versi "perldl" dan "pdl2" niceslicing didayakan secara lalai (jika CPAN yang diperlukan
modul dipasang pada mesin anda).

Pada permulaan "perldl" akan memberitahu anda jika niceslicing didayakan. Mesej permulaan akan
mengandungi maklumat untuk tujuan ini, sesuatu seperti ini:

cangkerang perlDL v1.XX
PDL datang dengan SAMA SEKALI TIADA WARANTI. Untuk butiran, lihat fail
'MENYALIN' dalam edaran PDL. Ini adalah perisian percuma dan anda
dialu-alukan untuk mengagihkannya semula dalam keadaan tertentu, lihat
fail yang sama untuk butiran.
ReadLines, NiceSlice didayakan
Membaca /home/csoelle/.perldlrc...
Taip 'demo' untuk demo dalam talian
Memuatkan PDL v2.XX

Apabila anda mendapat mesej sedemikian yang menunjukkan "NiceSlice" didayakan, anda boleh menggunakan yang dipertingkatkan
sintaks menghiris:

pdl> $a = urutan 10;
pdl> p $a(3:8:2)

Untuk butiran rujuk PDL::NiceSlice.

PDL::NiceSlice memasang penapis dalam saluran paip prapemprosesan (lihat di atas) untuk membolehkan
sintaks penghirisan dipertingkatkan. Anda boleh menggunakan beberapa arahan dalam shell "perldl" untuk menukar ini
prapemrosesan hidup atau mati dan juga semak secara eksplisit penggantian yang NiceSlice
penapis membuat.

Anda boleh menghidupkan dan mematikan penapis PDL::NiceSlice dengan menaip

pdl> trans # hidupkan niceslicing

and

pdl> notrans # matikan pemotongan bagus

masing-masing. Penapis dihidupkan secara lalai.

Untuk melihat cara arahan anda diterjemahkan, hidupkan pelaporan:

pdl> laporan 1;
pdl> p $a(3:8:2)
diproses p $a->slice([3,8,2])
[3 5 7]

Begitu juga, matikan pelaporan mengikut keperluan

pdl> laporan 0;
pdl> p $a(3:8:2)
[3 5 7]

Pelaporan dimatikan secara lalai.

Secara automatik melaksanakan Matlamat sendiri cangkuk
Pembolehubah @PERLDL::AUTO ialah senarai ringkas rentetan kod perl dan/atau rujukan kod. Ia
digunakan untuk menentukan kod untuk dilaksanakan secara automatik setiap kali pengguna memasuki baris baharu.

Contoh mudah ialah mencetak masa setiap arahan:

pdl> tolak @PERLDL::AUTO,'print scalar(gmtime),"\n"'

pdl> cetak sifar(3,3)
Ahad 3 Mei 04:49:05 1998

[
[0 0 0]
[0 0 0]
[0 0 0]
]

pdl> cetak "Boo"
Ahad 3 Mei 04:49:18 1998
Boo
pdl>

Atau untuk memastikan sebarang perubahan dalam fail 'local.perldlrc' sentiasa diambil :-

pdl> tolak @PERLDL::AUTO,"lakukan 'local.perldlrc'"

Kod ini sudah tentu boleh dimasukkan *dalam* 'local.perldlrc', tetapi berhati-hati :-) [Petunjuk: tambah
"kecuali ($mula++)" ke atas untuk memastikan ia hanya dilakukan sekali!]

Satu lagi contoh aplikasi adalah sebagai cangkuk untuk Autoloaders (cth PDL::AutoLoader) untuk menambah
kod juga yang membolehkan mereka mengimbas semula fail mereka secara automatik untuk perubahan. Ini adalah
sangat mudah di baris arahan interaktif. Memandangkan cangkuk ini hanya di dalam cangkerang
ia tidak mengenakan ketidakcekapan pada skrip PDL.

Akhirnya ambil perhatian bahawa ini adalah kemudahan yang sangat berkuasa - yang bermaksud ia harus digunakan dengan
berhati-hati!

Gunakan perldlp dalam talian menggunakan perkhidmatan onworks.net