рдкрд░реНрд▓ рднрд╛рд╖рд╛ рд╡рд┐рдХрд╛рд╕рдХрд░реНрддрд╛рд╣рд░реВрдХреЛ рдЖрдЬрдХреЛ рднрд░реНрдЪреБрдЕрд▓ рд╕рдореНрдореЗрд▓рдирдорд╛
рд╕рдВрд╕реНрдХрд░рдг рд╕рдВрдЦреНрдпрд╛рдорд╛ рдорд╣рддреНрддреНрд╡рдкреВрд░реНрдг рдкрд░рд┐рд╡рд░реНрддрдирд▓реЗ рдкрдЫрд╛рдбрд┐ рдЕрдиреБрдХреВрд▓рддрд╛рдХреЛ рдЙрд▓реНрд▓реЗрдЦрдиреАрдп рдЙрд▓реНрд▓рдЩреНрдШрди рдмрд┐рдирд╛ рдкрд░реНрд▓ рднрд╛рд╖рд╛рдХреЛ рдХрд╛рд░реНрдпрдХреНрд╖рдорддрд╛ рдмрдврд╛рдЙрдирдХреЛ рд▓рд╛рдЧрд┐ рдирдпрд╛рдБ рдореЛрдбреЗрд▓рдорд╛ рд╕рдВрдХреНрд░рдордгрдХреЛ рд▓рд╛рдЧрд┐ рдПрдХ рдкреНрд░рдХрд╛рд░рдХреЛ рд╡рд┐рднрд╛рдЬрдХрдХреЛ рд░реВрдкрдорд╛ рдХрд╛рд░реНрдп рдЧрд░реНрдиреЗрдЫред
Perl 7 рдХреЛ рд░рд┐рд▓реАрдЬрд▓реЗ рдирдпрд╛рдБ рд╡рд┐рдХрд╛рд╕рдХрд░реНрддрд╛рд╣рд░реВрд▓рд╛рдИ Perl рдорд╛ рдЖрдХрд░реНрд╖рд┐рдд рдЧрд░реНрди рд░ рдЕрд╡рд╕реНрдерд┐рдд рдкрд░рд┐рдпреЛрдЬрдирд╛рд╣рд░реВрдХреЛ рдХреЛрдб рдЖрдзрд╛рд░рд╕рдБрдЧ рдЕрдиреБрдХреВрд▓рддрд╛ рдХрд╛рдпрдо рд░рд╛рдЦреНрджреИ рднрд╛рд╖рд╛рдорд╛ рдорд╣рддреНрддреНрд╡рдкреВрд░реНрдг рдирдпрд╛рдБ рд╕реБрд╡рд┐рдзрд╛рд╣рд░реВ рдердкреНрдиреЗ рдкреНрд░рдХреНрд░рд┐рдпрд╛рд▓рд╛рдИ рд╕реБрд╡реНрдпрд╡рд╕реНрдерд┐рдд рдЧрд░реНрди рдорджреНрджрдд рдЧрд░реНрдиреЗ рдЕрдкреЗрдХреНрд╖рд╛ рдЧрд░рд┐рдПрдХреЛ рдЫред рдирдореНрдмрд░ 7 рдЫрдиреЛрдЯ рдЧрд░рд┐рдПрдХреЛ рдерд┐рдпреЛ рдХрд┐рдирднрдиреЗ Perl 6 рдЕрд╣рд┐рд▓реЗрдХреЛ рднрд╛рд╖рд╛ рд╡рд┐рдХрд╛рд╕ рдЧрд░реНрди рдкреНрд░рдпреЛрдЧ рдЧрд░рд┐рдПрдХреЛ рдерд┐рдпреЛ
Perl 7 рдорд╛ рд╕рдмреИрднрдиреНрджрд╛ рдЙрд▓реНрд▓реЗрдЦрдиреАрдп рдкрд░рд┐рд╡рд░реНрддрди рд╕рдорд╛рд╡реЗрд╢ рдЫ "
Perl 7 рд▓реЗ рдкреВрд░реНрд╡рдирд┐рд░реНрдзрд╛рд░рд┐рдд рд░реВрдкрдорд╛ рдкрд╣рд┐рд▓реЗ рдиреИ рдЕрд╡рд╕реНрдерд┐рдд рдкреНрд░рдпреЛрдЧрд╛рддреНрдордХ рд╕реБрд╡рд┐рдзрд╛рд╣рд░реВ рдЬрд╕реНрддреИ рд╕реНрдерд┐рд░ рд░ рд╕рдХреНрд╖рдо рдЧрд░реНрдиреЗ рдЖрд╢рд╛ рдЧрд░реНрджрдЫ
Perl 7 рдорд╛ рдкреВрд░реНрд╡рдирд┐рд░реНрдзрд╛рд░рд┐рдд рд░реВрдкрдорд╛ рдЕрд╕рдХреНрд╖рдо рд╣реБрдиреЗ рджрд╛рд╡реЗрджрд╛рд░рд╣рд░реВ рд╣реБрдиреН:
- рдЕрдкреНрд░рддреНрдпрдХреНрд╖ рд╡рд╕реНрддреБ рдХрд▓ рдиреЛрдЯреЗрд╢рди ("
рдХреБрдиреИ рд╕реБрд╡рд┐рдзрд╛ рдЫреИрди qw (рдЕрдкреНрд░рддреНрдпрдХреНрд╖) ") "->" ("$object->$method(@param)" рдХреЛ рд╕рдЯреНрдЯрд╛рдорд╛ рд╕реНрдкреЗрд╕ рдкреНрд░рдпреЛрдЧ рдЧрд░реА рд╡рд╕реНрддреБрд╣рд░реВ рдХрд▓ рдЧрд░реНрдиреЗ рдПрдЙрдЯрд╛ рд▓рд┐рдЧреЗрд╕реА рддрд░рд┐рдХрд╛ рд╣реЛред рдЙрджрд╛рд╣рд░рдг рдХреЛ рд▓рд╛рдЧреА, "my $cgi = new CGI" рдХреЛ рд╕рдЯреНрдЯрд╛ рддрдкрд╛рдИрд▓реЗ рд╕рдзреИрдВ "my $cgi = CGI->рдирдпрд╛рдБ" рдкреНрд░рдпреЛрдЧ рдЧрд░реНрдиреБрд╣реБрдиреЗрдЫред - рдХреБрдиреИ рдЪрд▓ рдШреЛрд╖рдгрд╛ рдмрд┐рдирд╛ рдмреЗрдпрд░ рдлрд╛рдЗрд▓ рд╡рд░реНрдгрдирдХрд░реНрддрд╛ ("
рдХреБрдиреИ bareword ::filehandle рдЫреИрди ") - "open FH, $file" рдЬрд╕реНрддрд╛ рдирд┐рд░реНрдорд╛рдгрд╣рд░реВ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрджрд╛ рддреНрд░реБрдЯрд┐ рдирд┐рдореНрддреНрдпрд╛рдЙрдиреЗрдЫ, рддрдкрд╛рдИрдВрд▓реЗ "open my $fh, $file" рдкреНрд░рдпреЛрдЧ рдЧрд░реНрдиреБрдкрд░реНрдЫред рдкрд░рд┐рд╡рд░реНрддрдирд▓реЗ рдорд╛рдирдХ рдлрд╛рдЗрд▓ рд╡рд░реНрдгрдирдХрд░реНрддрд╛ STDIN, STDOUT, STDERR, ARGV, ARGVOUT рд░ DATA рд▓рд╛рдИ рдЕрд╕рд░ рдЧрд░реНрдиреЗ рдЫреИрдиред - рдкрд░реНрд▓ 4 рд╢реИрд▓реА рдбрдореА рдмрд╣реБрдЖрдпрд╛рдореА рдПрд░реЗ рд░ рд╣реНрдпрд╛рд╕ ("
рдмрд╣реБрдЖрдпрд╛рдорд┐рдХ рдЫреИрди ┬л)ред
рдЙрджрд╛рд╣рд░рдгрдХрд╛ рд▓рд╛рдЧрд┐, "$hash{1, 2}" рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрджрд╛ рддреНрд░реБрдЯрд┐ рдирд┐рдореНрддреНрдпрд╛рдЙрдБрдЫ; рддрдкрд╛рдИрдВрд▓реЗ рдордзреНрдпрд╡рд░реНрддреА рдПрд░реЗ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрди рдЖрд╡рд╢реНрдпрдХ рдЫ, рдЙрджрд╛рд╣рд░рдгрдХрд╛ рд▓рд╛рдЧрд┐ "$hash{join($;, 1, 2)}"ред - Perl 4 рд╢реИрд▓реАрдорд╛ рдкреНрд░реЛрдЯреЛрдЯрд╛рдЗрдкрд╣рд░реВ рдШреЛрд╖рдгрд╛ рдЧрд░реНрджреИ (рддрдкрд╛рдИрдВрд▓реЗ "рдкреНрд░рдпреЛрдЧ : рдкреНрд░реЛрдЯреЛрдЯрд╛рдЗрдк()" рдкреНрд░рдпреЛрдЧ рдЧрд░реНрди рдЖрд╡рд╢реНрдпрдХ рдЫ)ред
рдзреЗрд░реИ рдЯрд╛рдврд╛рдХреЛ рдпреЛрдЬрдирд╛рд╣рд░реВрдорд╛, рддрд┐рдиреАрд╣рд░реВрд▓реЗ рдкреВрд░реНрд╡рдирд┐рд░реНрдзрд╛рд░рд┐рдд рд░реВрдкрдорд╛ рдпреБрдирд┐рдХреЛрдб рд╕рдорд░реНрдерди рд╕рдХреНрд╖рдо рдЧрд░реНрдиреЗ рдЕрдкреЗрдХреНрд╖рд╛ рдЧрд░реНрдЫрдиреН, рдЬрд╕рд▓реЗ рд╡рд┐рдХрд╛рд╕рдХрд░реНрддрд╛рд╣рд░реВрд▓рд╛рдИ рдХреЛрдбрдорд╛ "utf8 рдкреНрд░рдпреЛрдЧ рдЧрд░реНрдиреБрд╣реЛрд╕реН" рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрдирдмрд╛рдЯ рдмрдЪрд╛рдЙрдиреЗрдЫред рдирдпрд╛рдБ рдкреВрд░реНрд╡рдирд┐рд░реНрдзрд╛рд░рд┐рдд рд╕реЗрдЯрд┐рдЩрд╣рд░реВрдорд╛ рд╕рдорд╕реНрдпрд╛ рднрдПрдХрд╛ рдореЛрдбреНрдпреБрд▓рд╣рд░реВ рд░ рд╕реНрдХреНрд░рд┐рдкреНрдЯрд╣рд░реВрдХрд╛ рд▓рд╛рдЧрд┐, рдХреЛрдбрдорд╛ "compat::perl5 рдкреНрд░рдпреЛрдЧ рдЧрд░реНрдиреБрд╣реЛрд╕реН" рд▓рд╛рдЗрди рдердкреЗрд░ Perl 5 рд╡реНрдпрд╡рд╣рд╛рд░рдорд╛ рдлрд░реНрдХрди рд╕рдореНрднрд╡ рдЫред рд╡реНрдпрдХреНрддрд┐рдЧрдд рд╕реЗрдЯрд┐рдЩрд╣рд░реВ рдкрдирд┐ рдмрдЪрдд рд╣реБрдиреЗрдЫ рд░ рд╡реНрдпрдХреНрддрд┐рдЧрдд рд░реВрдкрдорд╛ рдкрд░рд┐рд╡рд░реНрддрди рдЧрд░реНрди рд╕рдХрд┐рдиреНрдЫред
рд╕реНрд░реЛрдд: opennet.ru