perl

Parece haber un nuevo pragma llamado parent eso hace más o menos lo mismo que base. ¿Qué hace parent que justifica un nuevo módulo (no básico)? Me estoy perdiendo algo?

use strict; my $var = NULL; Generará un error de Bareword "NULL" not allowed while "strict subs" in use

En Python, si hago esto: print "4" * 4 Consigo > "4444" En Perl, obtendría > 16 ¿Hay una manera fácil de hacer lo primero en Perl?

Tengo el siguiente código Perl que se basa en Term::ReadKey para obtener el ancho de la terminal; Mi compilación NetBSD no ti ... p); Estoy usando Perl 5.8.7 en NetBSD y 5.8.8 en CygWin Puedes ayudar ¿implementar esto en mi guión de manera más efectiva?

Otra pregunta me hizo pensar en diferentes métodos de reutilización de código: use vs. require vs. do Veo muchos posts aqu ... entre require ModuleName y require "file.pl"? ¿Es alguna vez una buena idea usar require "file.pl"? Por qué o por qué no?

Me gustaría hacer lo siguiente: $find="start (.*) end"; $replace="foo \1 bar"; $var = "start middle end"; $var =~ s/$find/$ ... poco: $replace='foo \1 bar'; De alguna manera me estoy perdiendo algo con respecto a la fuga. Arreglé la 's' que faltaba

¿Cómo puedo comprobar si un módulo Perl es parte del núcleo, es decir, es parte de la instalación estándar? Estoy buscando: ... áquina? (¿Cómo puedo saber qué módulos se proporcionaron originalmente con la instalación específica de Perl en una máquina?)

Después de haber leído una serie de preguntas/respuestas en las últimas semanas, he visto el uso de \d en las expresiones reg ... -name \*pm | xargs grep '\\d' | wc -l 298 $find /System/Library/Perl/5.8.8/ -name \*pm | xargs grep '\[0-9\]' | wc -l 26

Estoy tratando de manejar un montón de archivos, y tengo que alterar a continuación para eliminar la información extraña en l ... n el medio o al final, y de longitud variable. ¿Cómo sería la expresión regular? Se prefiere la sintaxis de Perl o Python.

Tengo un script Perl que cuenta el número de ocurrencias de varias cadenas en un archivo de texto. Quiero ser capaz de compro ... } else { $n = ($strings{$string}); $strings{$string} = $n +1; } } }

Tengo dos matrices de cadenas que me gustaría comparar para la igualdad: my @array1 = ("part1", "part2", "part3", "part4"); ... haber una forma incorporada de hacerlo. ¿Lo hay? Editar: lamentablemente, no tengo acceso a 5.10+ o componentes opcionales.

Para ver si existe un archivo antes de usarlo, podemos usar: if (-e "filename.cgi") { #proceed with your code } Pero, ¿cómo identificar un directorio existe o no?

¿Cómo puedo convertir unix tiempo a calendario hindúWikipedia el tiempo y al revés en php, Perl ¿o Python o Java? Sé que pu ... Lun.). Cuan puedo realizar la misma tarea? Y si no hay absolutamente ningún scrips por ahí, ¿cómo puedo escribirlo yo mismo?

Una característica de Perl poco conocida son los atributos. Sin embargo, la documentación oficial está haciendo un mal trab ... usted explica (con ejemplos del mundo real si es posible) ¿para qué atributos son buenos y qué sucede detrás de las puertas?

¿Cuál es el equivalente en Perl de strlen()?

Tengo un formulario que se parece a esto <form action="receiver.pl" method="post"> <input name="signed" type="che ... necer en la misma página, cuando se hace clic en Enviar, pero todavía tengo receiver.pl ejecutado. ¿Cómo se debe hacer eso?

Tengo un módulo en el directorio padre de mi script y me gustaría 'uso' de ella. Si lo hago use '../Foo.pm'; Tengo errore ... raté de hacer: push @INC, '..'; use EPMS; Y .. aparentemente no aparece en @INC Me estoy volviendo loco! ¿Qué pasa aquí?

Sé que este tipo de preguntas ya se han hecho muchas veces antes. La razón por la que vengo aquí de nuevo es que siento que m ... _string/sm; open OUTFILE, ">", $full_file_path or die "Could not open file. $!"; print OUTFILE ($string); close OUTFILE;

¿Cómo puedo ejecutar un script Perl en OS X? Honestamente no puedo encontrar la respuesta en ninguna parte! Presumiblemente tengo que ejecutar un comando en la Terminal, pero ¿qué? (Sé que esta es una pregunta básica y estúpida)

Tengo dos preguntas sobre la función Perl open: 1) Me parece recordar de Las Mejores Prácticas de Perl que la versión de ... (OUT, '>>', $file); ¿Es una cosa strict? Me parece recordar ser capaz de usar OUT con strict pero no puedo recordar.