|
Для этого введите команду:
chmod +x test1.pl
Затем проверьте где у вас Перл. Для этого введите:
which perl
Система вам выдаст что то вроде:
/usr/bin/perl
Если:
perl: Command not found.
То тогда закройте книжку и ложитесь спать. У вас просто нет Перл или он не установлен. А мне остается послать вас к системному администратору или к
man(для переводчиков–
manсокращение от
manualа не то что вы подумали).
Теперь проверьте что бы строка 01 содержала то что выдала команда
which.
Если совпало то введите:
test1.pl
и бъюсь на 50$ что и теперь программа не заработает, так как правильней
ввести:
./test1.pl
Если я проиграл, то не радуйтесь. Да же если вам удалось запустить программу как
test1.plэто значит, что у вас будут неприятности в будущем.
Пример 2Данная программа выводит на экран все ваши секреты. А именно файл
/etc/passwd.
#!/usr/local/bin/perl
open(PASS, «while()
{
print;
}
close(PASS);
Пояснения:
open(PASS, ««Открыть» файл т.е. создать указатель файла
PASSи в случае ошибки выдать «Файл не найден!» и закончить программу.
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– имя пользователя и его описание.
|
