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);