similar alfabéticamente al antedicho, pero clasificado foreach mi $next_name (claves de ordenación %addressbook) { " de la impresión; $next_name vive en $addressbook {} \ n" de $next_name; ; }

Estructuras de control

considera también:

las estructuras de control del Perl

El Perl tiene varias clases de estructuras de control.

Tiene estructuras de control block-oriented, similares a ésas en la C, el Javascript, y los lenguajes de programación de Java . Las condiciones son rodeadas por paréntesis, y los bloques de gestión son rodeados por los apoyos:

etiqueta del mientras que (cond del ) {…} etiqueta del mientras que (el cond del ) {…} continuar {…} etiqueta del para (init-expr del ; cond-expr del ; aumento-expr del ) {…} var (lista del foreach de la etiqueta ) {…} el var (lista del foreach de la etiqueta ) {…} continúa {…} si (cond del ) {…} si (cond del ) {…} {…} si (cond del ) {…} elsif (cond del ) {…} {…}

Donde solamente está estando controlada una sola declaración, los modificantes de la declaración proporcionan un sintaxis más sucinto:

declaración del si cond del ; declaración del a menos que cond del ; declaración del mientras que cond del ; declaración del hasta el cond del ; lista foreach de la declaración del ;

Los operadores lógicos del cortocircuito son de uso general afectar a flujo de control en el nivel de la expresión:

expr del y expr del expr && expr expr del o expr del expr || expr

(El " and" y " or" los operadores son similares al && y al || pero tienen precedencia más baja, que hace más fácil utilizarlos para controlar declaraciones enteras.)

Las palabras claves next (que corresponde a continue de la c), last (que corresponde a break de la c), return, y redo son expresiones, así que ellas del control de flujo se pueden utilizar con los operadores del cortocircuito.

El Perl también tiene dos construcciones de colocación implícitas, que tiene dos formas:

el resulta la lista del de = del grep {…} el resulta el expr, lista del de = del grep del el resulta = la lista mapa {…} el resulta = el expr, lista mapa del

grep vuelve todos los elementos de la lista del para los cuales el bloque de gestión o la expresión evalúe para verdad. map evalúa el bloque de gestión o la expresión para cada elemento de la lista del y devuelve una lista de los valores resultantes. Estas construcciones permiten un estilo simple de la programación funcional .

Encima de hasta que el lanzamiento 5.0, allí no fuera ninguna declaración de interruptor en Perl 5.0 hacia adelante, una declaración de la rama de la multi-manera llamada given/when está disponible, que toma la forma siguiente:

dado (expr del ) {cuando (cond del ) {…} defecto {…}}

Sintácticamente, esta estructura se comporta semejantemente a la declaración de interruptor 's encontrada en otras idiomas, pero con algunas diferencias importantes. El más grande es ése las estructuras desemejantes del interruptor/del caso, dadas/cuando las declaraciones rompen la ejecución después de la primera rama acertada, algo que para comandos de rotura explícitamente definidos que esperan. Inversamente, explícito continúa son en lugar de otro necesario emular a comportamiento del interruptor.

Para ésas no usar el lanzamiento 5.0, la documentación del Perl describe una media docena maneras de alcanzar el mismo efecto usando otras estructuras de control. Hay también un módulo de interruptor, que proporciona la funcionalidad modelada en el reajuste próximo del Perl 6 .

El Perl incluye una declaración del goto label, pero se utiliza raramente. Las situaciones donde un goto se pide en otras idiomas no ocurren como a menudo en el Perl debido a su anchura de las opciones del control de flujo.

lang=" del Llamada de una subrutina Paréntesis del

se requieren aquí si la subrutina se define más adelante en el código foo (); &foo; # (esto también trabaja)

que define una subrutina foo secundario {…}

foo; # aquí paréntesis no se requieren

Una lista de discusiones se puede proporcionar después del nombre de la subrutina. Las discusiones pueden ser escalares, listas, o desmenuzan.

foo $x, @y, %z;

Los parámetros a una subrutina no necesitan ser declarados en cuanto a número o tipo; de hecho, pueden variar de llamada a la llamada. Cualquier validación de parámetros se debe realizar explícitamente dentro de la subrutina.

Los órdenes se amplían a sus elementos, desmenuzan se amplían a una lista de pares de la llave/del valor, y la porción entera se pasa en la subrutina como una lista plana de escalares.

Se pasan cualesquiera discusiones estar disponible para la subrutina en el arsenal especial @_. Los elementos de @_ aliased a las discusiones reales; el cambio de un elemento de @_ cambia la discusión correspondiente.

Los elementos de @_ se pueden alcanzar por la subindicación él de la manera habitual.

lang=" del $_, $_

Sin embargo, el código resultante puede ser difícil de leer, y los parámetros tienen semántica de la pasar-por-referencia, que puede ser indeseable.

Un idioma común es asignar @_ a una lista de variables nombradas.

lang=" del mi ($x, $y, $z) = @_;

Esto proporciona los nombres de parámetro mnemónicos y ejecuta la semántica del pasar-por-valor . La palabra clave de my indica que las variables siguientes scoped léxico al bloque que contiene.

Otro idioma es cambiar de puesto parámetros apagado de @_. Esto es especialmente común cuando la subrutina toma solamente una discusión, o para manejar la discusión de $self en módulos orientados al objeto.

lang=" del mi $x = cambio;

Las subrutinas pueden asignar @_ a un picadillo para simular discusiones nombradas; esto se recomienda en las mejores prácticas del Perl del para las subrutinas que son probables nunca tener más de tres parámetros.

lang=" del function1 secundarios { mi %args = @_; " de la impresión; “x” discusión era “” \ n" de $args {x}; ; } function1 (=> 23 de x);

Las subrutinas pueden volver valores.

lang=" del volver 42, $x, @y, %z;

Si la subrutina no sale vía una declaración de return, después vuelve la expresión pasada evaluada dentro del cuerpo de la subrutina. Los órdenes y desmenuzan en el valor de vuelta se amplían a las listas de escalares, apenas pues están para las discusiones.

La expresión vuelta se evalúa en el contexto de llamada de la subrutina; esto puede sorprender el descuidado.

lang=" del lista secundaria {(4, 5, 6)} arsenal secundario {@x = (4, 5, 6); @x}

$x = lista; # vuelve 6 - elemento pasado de la lista $x = arsenal; # vuelve 3 - número de elementos en lista @x = lista; # vuelve (4, 5, 6) @x = arsenal; # vuelve (4, 5, 6)

Una subrutina puede descubrir su contexto de llamada con la función de wantarray.

lang=" del sub cualquiera { ¿volver wantarray? (1, 2): " Oranges" ; }

$x = cualquiera; # " de las vueltas; Oranges" @x = cualquiera; # vuelve (1, 2)

Expresiones regulares

El sintaxis de la expresión regular del Perl fue tomado original de expresiones regulares de la versión 8 de Unix. Sin embargo, divergió antes de que el primer lanzamiento del Perl, y ha venido desde entonces incluye muchas más características. Otras idiomas y usos ahora están adoptando las expresiones regulares compatibles del Perl sobre expresiones regulares POSIX incluyendo PHP, el rubí, el Java, el marco .NET de Microsoft, y el servidor de HTTP de Apache .

El sintaxis de la expresión regular es extremadamente compacto, debido a historia. Los primeros dialectos de la expresión regular eran solamente levemente más expresivos que los globs, y el sintaxis fue diseñado de modo que una expresión se asemejara al texto que empareja. Esto significada usar no más que un solo carácter de puntuación o un par de carácteres de delimitación para expresar el pocos apoyó aserciones. En un cierto plazo, la expresividad de expresiones regulares creció enormemente, pero el diseño del sintaxis nunca fue revisado y continúa confiando en la puntuación. Consecuentemente, las expresiones regulares pueden ser secretas y extremadamente densas.

Aplicaciones

lang=" del =~ m/abc/de $x

evalúa para verdad el si y solamente si la secuencia $x empareja la expresión regular abc.

El operador (substituto) de s///, por una parte, especifica una búsqueda y substituye la operación:

lang=" del =~ s/abc/aBc/de $x; # upcase el b

Otro uso de expresiones regulares es especificar los delimitadores para la función de split:

lang=" del los @words = partieron,/, del m $line;

La función de split crea una lista de las partes de la secuencia separada por los fósforos de la expresión regular. En este ejemplo, una línea se divide en una lista de sus piezas coma-separadas, y esta lista entonces se asigna al arsenal de @words.

Sintaxis

lang=" del =~ m/a de $x (.)c; # captura el carácter entre “a” y “c”

Las expresiones regulares del Perl pueden tomar los modificantes del . Éstos son los sufijos single-letter que modifican el significado de la expresión:

lang=" del =~ m/abc/i de $x; # fósforo sin diferenciación entre mayúsculas y minúsculas del patrón =~ s/abc/aBc/g de $x; # la búsqueda global y substituye

Puesto que las expresiones regulares pueden ser densas y secretas debido a su sintaxis compacto, el modificante de /x fue agregado en el Perl para ayudar a programadores a escribir expresiones regulares más legibles. Permite que los programadores pongan el whitespace y comenta dentro de expresiones regulares de :

lang=" del =~ de $x m/a # fósforo “a” . # seguido por cualquie carácter c # entonces seguido por el 'c'character /x;

Interfaces de base de datos

En versiones tempranas del Perl, los interfaces de base de datos fueron creados reconectando al intérprete con una biblioteca de la base de datos del cliente-lado. Esto era suficientemente difícil que fue hecha solamente para algunas de las bases de datos más importantes y más ampliamente utilizadas, y restringió el perl resultante ejecutable a usar apenas un interfaz de base de datos a la vez.

En Perl 5, los interfaces de base de datos son ejecutados por los módulos del Perl DBI . El módulo de DBI (interfaz de base de datos) presenta un solo, interfaz de la base de datos-independiente a los usos del Perl, mientras que los módulos de DBD (conductor de la base de datos) manejan los detalles de tener acceso unas 50 diversas bases de datos; hay conductores de DBD para la mayoría de las bases de datos del SQL del ANSI .

DBI proporciona la puesta en antememoria para las manijas de la base de datos y las preguntas, que pueden mejorar grandemente funcionamiento en ambientes duraderos de la ejecución tales como Mod_perl, ayudando a sistemas en grandes cantidades evitan puntos de la carga como en el efecto de Slashdot.

Funcionamiento comparativo

Los programas del Perl pueden comenzar más lentamente los programas que similares en idiomas compiladas porque el Perl tiene que compilar la fuente cada vez él funcionan. En una charla en el YAPC:: Conferencia y artículo subsecuente, " de Europa 2005 ; Un Start" oportuno;, Jean-Louis Leroy encontró que sus programas del Perl llevaron mucho más de largo el funcionamiento que él esperó porque el intérprete de Perl pasó mucho del tiempo que encontraba que los módulos debido a su over-large incluyen la trayectoria. Porque el precompilar sigue siendo una parte experimental de Perl - desemejante de el de Java, del pitón, y del rubí - los programas del Perl pagan esta pena de arriba en cada ejecución. Cuando el amortizó durante una fase duradera, el tiempo de lanzamiento no es típicamente substancial, pero la medida de los tiempos de ejecución muy cortos puede ser sesgada a menudo como se encuentra a menudo en pruebas patrones.

Un número de herramientas se han introducido para mejorar esta situación, la primera cuyo era el Mod_perl de Apache, que intentó tratar una de las razones mas comunes que los pequeños programas del Perl fueron invocados rápido: Desarrollo del Web del cgi . El ActivePerl, vía el ISAPI de Microsoft proporciona mejoras similares del funcionamiento.

Optimización

En tales situaciones, las rutinas más críticas de un programa del Perl se pueden escribir en otras idiomas tales como C o ensamblador, que se pueden conectar con el Perl vía los módulos en línea simples o el mecanismo más complejo pero más flexible XS . Nicholas Clark, revelador de la base del Perl, discute algunas compensaciones de diseño del Perl y algunas soluciones en cuando el Perl no es bastante absolutamente rápido.

En casos extremos, el Perl óptimo puede requerir el conocimiento íntimo de los funcionamientos del intérprete algo que habilidad con algoritmos, la lengua del Perl, o principios generales de optimización.

Futuro

considera también:

l Perl 6 En la conferencia 2000 del Perl, Jon Orwant hizo un caso para una nueva iniciativa importante de la lengua. Esto llevó a una decisión para comenzar el trabajo sobre un reajuste de la lengua, ser llamado las ofertas del Perl 6. para las nuevas características de lengua fueron solicitados de la comunidad del Perl at large, y sobre 300 el RFCs fueron sometidos.

La pared de Larry pasó a próximos años que digerían el RFCs y que los sintetizaban en un marco coherente para Perl 6. Él ha presentado su diseño para Perl 6 en una serie de los documentos llamados " apocalypses", que se numeran para corresponder a los capítulos en el que programa Perl (" El camello Book"). La corriente, especificación no todavía concluida de Perl 6 se encapsula en los documentos del diseño llamados Synopses, que se numeran para corresponder a las apocalipsis.

El Perl 6 no se piensa para ser posterior - compatible, aunque habrá un modo de compatibilidad.

En el 2001, era decidido que el Perl 6 funcionaría en una máquina virtual en las diferentes lenguas llamada el loro . Esto significará que otras idiomas que apuntan el loro tendrán el acceso nativo al CPAN, permitiendo un cierto nivel de desarrollo en las diferentes lenguas.

En la espiga de Audrey 2005 creó el proyecto de los barros amasados, una puesta en práctica de Perl 6 en el Haskell . Esto debía y continúa actuar como plataforma de la prueba para la lengua del Perl 6 (a parte del desarrollo de la puesta en práctica real) que permitía que los diseñadores de la lengua exploren. Los barros amasados proyectan frezaron a comunidad en las diferentes lenguas activa del Perl/de Haskell centrada alrededor del canal del IRC de Freenode #perl6.

Un número de características en la lengua del Perl 6 ahora demuestran semejanzas con Haskell, y el Perl 6 ha sido abrazado por la comunidad de Haskell como lengua scripting potencial.

El en fecha 2006, Perl 6, loro, y los barros amasados están en el desarrollo activo, y un nuevo módulo para Perl 5 llamó el v6 permite que un cierto código del Perl 6 funcione directo encima de Perl 5.

En 2006, un esfuerzo fue comenzado para tener nave de las distribuciones del Perl de Windows con un recopilador, para hacer la necesidad de paquetes binarios en Windows redundante. Algunos los resultados tempranos de esto incluyen el Perl del macro-instalador y de la vainilla de CamelPack y el Perl de la fresa.

El desarrollo de Perl 5 también está continuando.10 fue lanzado en diciembre de 2007, con algunas nuevas características influenciadas por el diseño de Perl 6.

La comunidad del Perl

Estado de la cebolla

Cada charla es primera dada en las varias conferencias del Perl y también publicada eventual en línea.

Pasatiempos

JAPHs

En el lenguaje de la cultura del Perl, los programadores del Perl se conocen como piratas informáticos del Perl, y de esto derivan la práctica de los programas del cortocircuito de la escritura de imprimir el " de la frase; apenas otro pirata informático, " del Perl;. En el alcohol del concepto original, estos programas son ofuscados moderado y bastante cortos para caber en la firma de un email o de un mensaje del USENET. El " canonical" JAPH incluye la coma en el extremo, aunque esto se omita a menudo.

Golf del Perl

Ofuscación

Poesía

Cumbre de CPAN

La comunidad del Perl ha puesto el " a un lado; " de la cumbre ; el namespace para los módulos que son diversión en naturaleza (solamente su alcance ha ensanchado para incluir código exploratorio o experimental o cualquier otro módulo que no se signifique para ser utilizado nunca en la producción). Algunos de los módulos de la cumbre se ejecutan deliberadamente de maneras graciosamente. Esto incluye el Acme:: Bleach, uno de los primeros módulos en el Acme:: namespace de , que permite que el código fuente del programa sea " whitened" (es decir, todos los carácteres substituidos por el whitespace) pero todavía trabajar.

Éstos son también ejemplos del " filters" de la fuente; ; bibliotecas que transforman el texto de un programa antes de la lectura él.

Lectura adicional