Perl programing/begin icon

Perl programing/begin



НазваниеPerl programing/begin
Дата конвертации29.07.2012
Размер6.65 Kb.
ТипДокументы
1. /Perl programing/annot.txt
2. /Perl programing/begin.txt
3. /Perl programing/books.txt
4. /Perl programing/contest.txt
5. /Perl programing/dat.txt
6. /Perl programing/debug.txt
7. /Perl programing/form.txt
8. /Perl programing/func.txt
9. /Perl programing/internet.txt
10. /Perl programing/let1.txt
11. /Perl programing/mod.txt
12. /Perl programing/op.txt
13. /Perl programing/re.txt
14. /Perl programing/run.txt
15. /Perl programing/sub.txt
16. /Perl programing/syntax.txt
17. /Perl programing/sysvar.txt
         * пФ РТПУФПЗП Л УМПЦОПНХ * 

     рТЕЦДЕ  ЮЕН  РТЙУФХРЙФШ Л РПУМЕДПЧБФЕМШОПНХ ПЪОБЛПНМЕОЙА У
ОЕ ЪОБЛПНЩН ДМС ЧБУ СЪЩЛПН, ДПМЦЕО ПЗПЧПТЙФШУС Й  УЛБЪБФШ,  ЮФП
ЧУЕ РТЙНЕТЩ ДБ Й УБН СЪЩЛ ПРЙУБОЙА ЛПФПТПЗП РПУЧСЭЕОБ ЬФБ ЛОЙЗБ
ЬФП Perl ЧЕТУЙЙ 5.003 ДМС ПРЕТБГЙПООПК УЙУФЕНЩ  FreeBSD  ЧЕТУЙЙ
2.01.   уХЭЕУФЧХАФ  ТЕБМЙЪБГЙЙ  ЬФПЗП  СЪЩЛБ  ДМС  ПРЕТБГЙПООЩИ
УЙУФЕН OS/2 , MS-DOS Й Windows NT ОП  ПОЙ  ОЕНОПЗП  ПФУФБАФ  РП
ЧПЪНПЦОПУФСН ПФ ПТЙЗЙОБМБ, ТПЦДЕООПЗП Ч ОЕДТБИ аОЙЛУБ.

        рТЙНЕТ 1 чЧЕДЙФЕ Ч ЖБКМ test1.pl УМЕДХАЭЙЕ УФТПЛЙ:

		#!/usr/local/bin/perl
		# уПДЕТЦЙНПЕ ЖБКМБ test1.pl
		print "оБЫЕ чБН У ЛЙУФПЮЛПК!\n";

б ФЕРЕТШ РПДТПВОП ТБЪВЕТЕН ЛБЦДХА УФТПЛХ.

#!/usr/local/bin/perl
	дБООБС УФТПЛБ ДПМЦОБ ВЩФШ РЕТЧПК Ч МАВПК рЕМ-РТПЗТБННЕ.
пОБ ХЛБЪЩЧБОЕФ УЙУФЕНОПНХ ЙОФЕТРТЕФБФПТХ ЮФП ДБООЩК ЖБКМ - ЬФП  рЕМ-РТПЗТБННБ.

# уПДЕТЦЙНПЕ ЖБКМБ test1.pl
	ьФБ УФТПЛБ ОБЪЩЧБЕФУС ЛПННЕОФБТЙЕН. пОБ ЧУЕЗДБ ОБЮЙОБЕФУС
УЙНЧПМПН '#' Й ЪБЛБОЮЙЧБЕФУС ФБЛЙН  ПВЯСУОЕОЙЕН ЮФП ЛБЛ ЗПЧПТЙМ
ЧЕМЙЛЙК  иПДЦБ оБУТЕДДЙО "ЬФП ФПОЛЙК ЖЙМПУПЧУЛЙК
ЧПРТПУ", Б ЗПЧПТС РТПУФЩН СЪЩЛПН ЪДЕУШ НПЦОП РЙУБФШ ЧУЕ ЮФП ХЗПДОП.
дБЦЕ РПЦЕМБОЙЕ  ТХЛПЧПДУФЧХ. хЦ ЪДЕУШ ПОП ФПЮОП ДП ОЕЗП ОЕ
ДПКДЕФ.

print "оБЫЕ чБН У ЛЙУФПЮЛПК!\n";
	уБНБС РПУМЕДОСС ОХ Й ЛПОЕЮОП ЗМБЧОБС. пОБ РТПУФП ЧЩЧПДЙФ
ОБ ЬЛТБО ОБДРЙУШ "оБЫЕ чБН У ЛЙУФПЮЛПК!".

ъДЕУШ УМПЧП print - ЬФП ЛПНБОДБ "ЧЩЧЕУФЙ". чУЕ ЮФП Ч ЛБЧЩЮЛБИ - ЬФП УЙНЧПМЩ,
\n - РЕТЕЧПД УФТПЛЙ Й ';' - РТЙЪОБЛ ЛПОГБ ЛПНБОДЩ. пО ПВСЪБФЕМЕО.
ч ПДОПК УФТПЛЕ НПЦЕФ ВЩФШ ОЕУЛПМШЛП ЛПНБОД Й ЧУЕ ПОЙ ДПМЦОЩ ЪБЧЕТЫБФШУС
УЙНЧПМПН ';'.
рПУМЕ ОЕЗП НПЦЕФ ВЩФШ УЙНЧПМ '#' - ЬФП ЪОБЮЙФ ПУФБФПЛ УФТПЛЙ УЮЙФБЕФУС ЛПННЕОФБТЙЕН. оБД ЬФПК УФТПЛПК БЧФПТХ РТЙЫМПУШ ВПМШЫЕ ЧУЕЗП РПМПНБФШ ЗПМПЧХ ФБЛ ЛБЛ Ч ОЕЕ РПУФПСООП МЕЪМЙ ЛБЛЙЕ ФП УФТБООЩЕ "hello", "hello all", "рПУФТПЕНУС Й УРБУЕНУС", "уФТПК ОБЫЕ УРБУЕОЙЕ" Й Ф.Д Й Ф.Р. еУМЙ ЧЩ ОЙЛПЗДБ ОЕ ТБВПФБМЙ У рЕМ, ФП ВЯАУШ ОБ УРПТ Ч 10$, ЮФП ДБООБС РТПЗТБННБ УТБЪХ Х ЧБУ ОЕ ЪБТБВПФБЕФ! оЕ РПФПНХ ЮФП ПОБ ОЕ ЧЕТОБ, Б РПФПНХ ЮФП "оЕМШЪС ПВЯСФШ ОЕПВЯСФОПЕ". уТБЪХ, РПФПН НПЦОП, ДБ Й ФП ЮБУФСНЙ. уОБЮБМП УДЕМБКФЕ ЧБЫ ЖБКМ test1.pl ЙУРПМОСЕНЩН. дМС ЬФПЗП ЧЧЕДЙФЕ ЛПНБОДХ: 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, ") { print; } close(PASS); рПСУОЕОЙС: open(PASS, ") юЙФБФШ РП ПДОПК УФТПЛЕ ЖБКМБ Ч РЕТЕНЕООХА РП ХНПМЮБОЙА $_. { пФЛТЩФШ ВМПЛ ПРЕТБФПТПЧ. print; чЩЧЕУФЙ ОБ ЬЛТБО РЕТЕНЕООХА РП ХНПМЮБОЙА $_ } лПОЕГ ВМПЛБ. close(PASS); ъБЛТЩФШ ЖБКМ. ьФПЗП НПЦОП Й ОЕ ДЕМБФШ ФБЛ-ЛБЛ ЖБКМ БЧФПНБФЙЮЕУЛЙ ЪБЛТПЕФУС РПУМЕ ПЛПОЮБОЙС РТПЗТБННЩ. тЕЪХМШФБФ ТБВПФЩ ЬФПК РТПЗТБННЩ ФПФ ЦЕ ЮФП Й ЛПНБОДЩ cat /etc/passwd. рП ЬЛТБОХ РТПВЕЦБМЙ ОЕРПОСФОЩЕ УФТПЛЙ ОП ЪБФП ФЕРЕТШ РЕТЕД ЧБНЙ ПФЛТЩФЩ ЗПТЙЪПОФЩ рЕМ РТПЗТБННЙТПЧБОЙС! чУЕ РПУМЕДХАЭЙЕ РТЙНЕТЩ ВХДХФ ТБЪЧЙФЙЕН ЬФПК РТПЗТБННЩ Й ПОБ РТЕЧТБФЙФУС ЙЪ ЗБДЛПЗП ХФЕОЛБ Ч РТЕЛТБУОПЗП МЕВЕДС (ОЕ ЗЕОЕТБМБ). рТЙНЕТ 3 тБЪДЕМЕОЕЙЕ РПМЕК. #!/usr/local/bin/perl open(PASS, ") { ($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 programing/begin iconДокументы
1. /perl/Perl.txt
Perl programing/begin iconWe begin, we begin We begin and can't repay

Perl programing/begin iconДокументы
1. /ЯЗЫК ПРОГРАММИРОВАНИЯ PERL/Perl1.txt
2. /ЯЗЫК...

Perl programing/begin iconДокументы
1. /ЯЗЫК ПРОГРАММИРОВАНИЯ PERL/Perl1.txt
2. /ЯЗЫК...

Perl programing/begin iconДокументы
1. /Perl.txt
Perl programing/begin iconДокументы
1. /Perl. Модули.txt
Perl programing/begin iconДокументы
1. /Perl. Предпрограммы.txt
Perl programing/begin iconДокументы
1. /Perl. Синтаксис.txt
Perl programing/begin iconДокументы
1. /Perl. Форматы.txt
Perl programing/begin iconДокументы
1. /Perl. Шаблоны.txt
Разместите кнопку на своём сайте:
Документы


База данных защищена авторским правом ©podelise.ru 2000-2014
При копировании материала обязательно указание активной ссылки открытой для индексации.
обратиться к администрации
Документы

Разработка сайта — Веб студия Адаманов