Бесплатная библиотека, читать онлайн, скачать книги txt

БОЛЬШАЯ БЕСПЛАТНАЯ БИБЛИОТЕКА

МЕЧТА ЛЮБОГО КНИГОЛЮБА

Вторник, 07 мая, 22:26

Авторизация    Регистрация
Дамы и господа! Электронные книги в библиотеке бесплатны. Вы можете их читать онлайн или же бесплатно скачать в любом из выбранных форматов: txt, jar и zip. Обратите внимание, что качественные электронные и бумажные книги можно приобрести в специализированных электронных библиотеках и книжных магазинах (Litres, Read.ru и т.д.).

ПОСЛЕДНИЕ ОТЗЫВЫ О КНИГАХ

Михаил (19.04.2017 - 06:11:11)
книге:  Петля и камень на зелёной траве

Потрясающая книга. Не понравится только нацистам.

Антихрист666 (18.04.2017 - 21:05:58)
книге:  Дом чудовищ (Подвал)

Классное чтиво!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Ладно, теперь поспешили вы... (18.04.2017 - 20:50:34)
книге:  Физики шутят

"Не для сайта!" – это не имя. Я пытался завершить нашу затянувшуюся неудачную переписку, оставшуюся за окном сайта, а вы вын... >>

Роман (18.04.2017 - 18:12:26)
книге:  Если хочешь быть богатым и счастливым не ходи в школу?

Прочитал все его книги! Великий человек, кардинально изменил мою жизнь.

АНДРЕЙ (18.04.2017 - 16:42:55)
книге:  Технология власти

ПОЛЕЗНАЯ КНИГА. Жаль, что мало в России тех, кто прочитал...

Читать все отзывы о книгах

Обои для рабочего стола

СЛУЧАЙНОЕ ПРОИЗВЕДЕНИЕ

Зеленоглазая, холодная, седая...
Засов, открыв, в ухмылке зубы, скаля,
Дыханьем страха, ворона крылом
Ночь одиночества тоской вползает в дом.
Стезя отвергнутых, я так тебя желала,
До хрипоты, до боли вглядываясь в даль.
Звала, явилась ты и предо мной предстала:
Жизнь-пустота, надежд утерянный Грааль.
Свой, выбрав путь, держаться до конца.... >>

13.05.10 - 05:18
Автор неизвестен

Читать онлайн произведения


Хотите чтобы ваше произведение или ваш любимый стишок появились здесь? добавьте его!

Поделись ссылкой

Введение в Perl   ::   Маслов Владимир Викторович

Страница: 2 из 31
 


while()

Читать по одной строке файла в переменную по умолчанию $ _.

{

Открыть блок операторов .

print;

Вывести на экран переменную по умолчанию $_

}

Конец блока.

close(PASS);

Закрыть файл. Этого можно и не делать так-как файл автоматически закроется после окончания программы.

Результат работы этой программы тот же что и команды cat /etc/passwd .

По экрану пробежали непонятные строки но зато теперь перед вами открыты горизонты Перл программирования!

Все последующие примеры будут развитием этой программы и она превратится из гадкого утенка в прекрасного лебедя (не генерала).

Пример 3 Разделение полей.

#!/usr/local/bin/perl

open(PASS, «
while()

{

($login, $pass, $uid, $gid, $name, $home_dir, $shell) = split(':');

print «$login \t $name\n»;

}

close(PASS);

Пояснение:

($login, $pass, $uid, $gid, $name, $home_dir, $shell) = split(':');

Присвоить указанным переменным поля входной строки, считая разделителем символ ' : '.

print «$login \t $name\n»;

Вывести login – имя пользователя и его описание. Поля разделены символом ' \t ' – табуляции.

Пример 4 Вывести имена пользователей отсортированных по группам.

#!/usr/local/bin/perl

open(PASS, «sort -n -t : +3 -4 +0 /etc/passwd|») || die «Файл не найден!»;

while()

{

($login, $pass, $uid, $gid, $name, $home_dir, $shell) = split(':');

print «$login \t $gid \t $name\n»;

}

close(PASS);

Поеснения:

open(PASS, «sort -n -t : +3 -4 +0 /etc/passwd|») || die «Файл не найден!»;

В данной строке весь фокус! Входным файлом для нашей программы стал выход команды sort которая и отсортирует входные данные.

Форматированный вывод.



Ну а теперь напечатаем на экране все наши данные в удобной форме.

#!/usr/local/bin/perl

open(PASS, «sort -n -t : +3 -4 +0 /etc/passwd|») || die «Файл не найден!»;

while()

{

($login, $pass, $uid, $gid, $name, $home_dir, $shell) = split(':');

write(); # Форматированный ывод данных.

}

close(PASS);

exit 0; # Завершение программы

############ Описание формы вывода ##################

format STDOUT =

Пользователь:

^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

$name

^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

$name

^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

$name

Login:@<<<<<<<< Uid:@<<< Gid:@<<< Home dir:@<<<<<<<<<<<<<<<<<<<<<

$login, $uid, $gid, $home_dir

. # Это последняя строка программы

Фрагмент результата:

Пользователь: Калужский ликеро-водочный завод. Лучшие водки и

настойки. Звонить только перед праздником Кострикову

Анатолию т. 2-23-06,,,

Login:uucryst Uid:1055 Gid:66 Home dir:/var/spool/uucppublic/

Пользователь: Торговый Дом Дилен,,,

Login:uudilen Uid:1075 Gid:66 Home dir:/var/spool/uucppublic

Если вам интересно узнать как работает эта программа, то переверните

страницу и начините свое путешествие в мире Перл.

Желаю удачи!



Запуск интерпретатора Перл

Синтаксис:

perl [ключи] файл аргументы

Перед стартом Перл ищет скрипт (программу) в следующем порядке:

1. В командной строке если указан ключ ' -e '

2. Содержимое файла указанного в командной строке. В первой строке можно указывать #!/usr/bin/perl для «автоматического» запуска скрипта.

3. Стандартный ввод/вывод если не указан файл или аргументы содержащие имя файла. Для передачи аргументов скрипту из стандартного потока имя файла в командной строке обозначается символом ' - '.

В методах 1 и 2 Перл сканирует строки начиная с первой если не указан ключ ' -x ', в противном случае началом программы считается строка с символами ' #! ' в начале и содержащая слово ' perl '.

Концом программы считается строка ' __END__ '.

В строке с ' #! ' можно указывать и ключи. Например ' #!/bin/perl -d ' для отладки программ.

После «обнаружения» скрипта Перл компилирует его целиком во внутреннее представление. Если обнаруживаются ошибки то выполнение прекращается. Если ошибок нет он выполняется. Если скрипт заканчивается без команд exit() или die() то по умолчанию выполняется команда exit(0) обозначающая нормальное завершение программы.

Ключи:

-Oцифры

Код символа-разделителя записей. По умолчанию \0 .

-a

Включает режим автоматического разделения ( split ) переменной $_ в массив $F .

123>>31


В тексте попалась красивая цитата? Добавьте её в коллекцию цитат!
Пятьдесят оттенков серогоЭ. Л. Джеймс149,90 руб.
На пятьдесят оттенков темнееЭ. Л. Джеймс149,90 руб.
Волк с Уолл-стритДжордан Белфорт119,90 руб.
Дневник свекровиМария Метлицкая79,99 руб.


copyright © Бесплатная библиотека,    контакты: [email protected]