nadejnei.net

Эта страница только для чтения. Вы можете посмотреть её исходный текст, но не можете его изменить. Сообщите администратору, если считаете, что это неправильно.

Perl — высокоуровневый интерпретируемый динамический язык программирования общего назначения, созданный Ларри Уоллом, лингвистом по образованию. Название языка представляет собой аббревиатуру, которая расшифровывается как Practical Extraction and Report Language — «практический язык для извлечения данных и составления отчётов»[1]. Первоначально аббревиатура состояла из пяти символов и в таком виде в точности совпадала с английским словом pearl («жемчужина»). Но затем стало известно, что такой язык существует (см. PEARL (англ.)), и букву «a» убрали. Талисманом языка Perl является верблюд — не слишком красивое, но очень выносливое животное, способное выполнять тяжёлую работу.


Рассмотрим работу PERL на примерах: 

для разбора будет использоваться файл cars.txt 

привет мир.

''
#!/usr/bin/perl\\
print "Привет Мир \n"\\
''

вывод файла:

''
#!/usr/bin/perl \\

open(CARS,"./cars.txt")|| die "Файл не найден";\\
while (<CARS>)\\
{\\
print ;\\

}\\
close(CARS);\\

''

Работа с полями: 

''
#!/usr/bin/perl\\
open(CARS, "./cars.txt") || die "Файл не найден!";\\
while(<CARS>)\\
 {
($proizv,$mod,$gw,$prob,$cena) = split(' ');\\
print "Производитель: \t $proizv \t Стоимость \t $mod\n";\\
  }\\
close(CARS);\\
''

Чтение чужого вывода.

''
#!/usr/bin/perl\\
open(CARS, "sort ./cars.txt|") || die "Файл не найден!";\\
while(<CARS>)\\
 {\\
($proizv,$mod,$gw,$prob,$cena) = split(' ');\\
print "Производитель: \t $proizv \t Стоимость \t $mod\n";\\
  }\\
close(CARS);\\
''

[[http://www.opennet.ru/docs/RUS/perl-maslov/|Статья про PERL]]

nadejnei.net

Инструменты пользователя

Инструменты сайта

Инструменты страницы