If имате масив, можете линия през него лесно с foreach:
<предварително>a = ("куче", "котка", "змиорка"); foreach $ б (a) {$ печат б, " \\ Н ";} <р> Foreach отнема всеки елемент отa масив и го поставя в $ б доa е изчерпана
PERL Забележка <р> Трябва да използвате ". започне " и " край " ,.. скоби - {} - дори и за един ред
Функции
<р> Можете да създават подпрограма с думата подводницата Всички променливи предадени на подпрограмата пристигат в масив наречен _ Поради това. следния код работи:
<предварително> шоу ("котка", "куче", "змиорка"); суб шоу {за ($ I = 0; $ аз < = $ # _; $ аз ++) {печат $ _ [$ аз], " \\ Н ";}}
Не забравяйте, че $ # връща най-висок индекс в масива (броя на елементите минус 1), така че $ # _ е броят на параметрите минус 1. Ако Вас като този вид тъпота, а след това ще ви обичам PERL
<р> Можете да декларират локални променливи в подпрограма с думата местно, както в:.
<предварително> суб ххх {местно ($ а, $ б, $ в) ...} <р> Можете също така да се обадите функция се използва &усилвател;, както в:
<предварително> &усилвател; шоу ("а", "б", "в"); <п> The &усилвател; символ се изисква само когато има неяснота, но някои програмисти го използват през цялото време.
<р> За да се върнете на стойност от подпрограма, използвайте връщането дума.
Reading
четене от STDIN
За да прочетете в данни от стандартния вход (стандарт в), използвайте дръжката STDIN. Например:
<предварително> печат " Въведете висок брой: "; $ аз = < STDIN >; за ($ к = 0; $ к < = $ аз; $ й ++) {$ печат й, " \\ Н "; } <р> Стига да въведете цяло число, тази програма ще работи както се очаква. < STDIN > чете ред наведнъж. Можете да използвате и getc да чете един символ, както в:
<предварително> $ аз = getc (STDIN); <п> или използвайте чете:
<предварително> чете (STDIN, $ аз, 1);
1 в третия параметър на командата за четене е дължината на входа за четене.
Променливи Reading Околна среда <р> PERL определя глобален хеш име ENV, и можете да го използвате за извличане на стойностите на околната среда променливи. Например:
<предварително> печат $ ENV {"PATH"}; Reading Command Line Аргументи <р> PERL определя глобален масив ARGV, която съдържа всички команди аргументи подадени на скрипта. $ # ARGV е броят на аргументите, подадени минус 1, $ ARGV [0] е първият аргумент преминал, $ A
