Tengo el script Perl y necesito determinar la ruta completa y el nombre del archivo durante la ejecución. Descubrí que, dependiendo de cómo llames, el script $0varía y, a veces, contiene el fullpath+filenamey, a veces, solo filename. Debido a que el directorio de trabajo también puede variar, no...
Sigo imprimiendo mi hash como # de cubos / # asignado. ¿Cómo imprimo el contenido de mi hash? Sin usar un whilebucle sería más preferible (por ejemplo, una línea sería lo
Tengo algunos archivos que me gustaría eliminar la última línea nueva si es el último carácter de un archivo. od -cme muestra que el comando que ejecuto escribe el archivo con una nueva línea al final: 0013600 n t > \n He intentado algunos trucos con sed, pero lo mejor que se me ocurre no es...
Tengo una matriz en Perl: my @my_array = ("one","two","three","two","three"); ¿Cómo elimino los duplicados de la
Versión larga... Un compañero de trabajo afirmó hoy después de ver mi uso while (1)en un script de Perl que for (;;)es más rápido. Argumenté que deberían ser los mismos con la esperanza de que el intérprete optimizara cualquier diferencia. Configuré un script que ejecutaría 1,000,000,000 para...
Bloqueado . Esta pregunta y sus respuestas están bloqueadas porque la pregunta está fuera de tema pero tiene un significado histórico. Actualmente no acepta nuevas respuestas o interacciones. ¿Cuáles son algunas de las características de lenguaje realmente útiles...
¿Alguien puede explicar la diferencia entre metacaracteres \by \wexpresiones regulares? Tengo entendido que estos dos metacaracteres se usan para límites de palabras. Además de esto, ¿qué meta carácter es eficiente para el contenido
Entiendo que uno usa la palabra clave "bless" en Perl dentro del método "nuevo" de una clase: sub new { my $self = bless { }; return $self; } Pero, ¿qué hace exactamente "bendecir" a esa referencia hash?
Me gustaría agregar un prefijo en todas las carpetas y directorios. Ejemplo: yo tengo Hi.jpg 1.txt folder/ this.file_is.here.png another_folder.ok/ Me gustaría agregar el prefijo
Estoy trabajando en un script de Perl. ¿Cómo puedo pasarle los parámetros de la línea de comando? Ejemplo: script.pl "string1"
¿Cómo actualizo todos mis módulos CPAN a sus últimas
Me encanta hacer este tipo de cosas en Perl: $foo = $bar || $bazasignar $baza $foosi $barestá vacío o indefinido. También tiene $foo ||= $bletchque sólo se asigne $bletcha $foosi $foono está definido o vaciar. El operador ternario en esta situación es tedioso y cansado. ¿Seguramente hay un método...
Quiero mostrar archivos PDF a mis usuarios. La razón por la que uso cgi para mostrar el pdf es que quiero rastrear los clics del pdf y ocultar la ubicación real del pdf guardado. He estado buscando en Internet y solo encontré cómo mostrar el cuadro de diálogo de guardado a los usuarios y crear un...
Estoy intentando abrir un archivo .html como una cadena larga y grande. Esto es lo que tengo: open(FILE, 'index.html') or die "Can't read file 'filename' [$!]\n"; $document = <FILE>; close (FILE); print $document; lo que resulta en: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01...
En otra pregunta de Stack Overflow, Leon Timmermans afirmó: Te aconsejo que no uses prototipos. Tienen sus usos, pero no en la mayoría de los casos y definitivamente no en este. ¿Por qué podría ser esto cierto (o no)? Casi siempre proporciono prototipos para mis funciones de Perl, y nunca...
¿Cómo puedo comprobar si una determinada cadena contiene una determinada subcadena, utilizando Perl? Más específicamente, quiero ver si s1.domain.comestá presente en la variable de cadena
¿Cómo le digo a CPAN que instale todas las dependencias? Intenté configurar estos en cpan: cpan> o conf prerequisites_policy follow cpan> o conf commit Todavía tuve que responder "y" un par de veces (pero menos que antes, parece). ¿Hay alguna manera de hacer que siempre se instale? Quiero...
Tengo un camino relativo $base_path = "input/myMock.TGZ"; myMock.TGZes el nombre del archivo ubicado en la carpeta de entrada. El nombre del archivo puede cambiar. Pero el camino siempre se almacena en $base_path. Necesito comprobar si el archivo existe en formato
En Perl \Scoincide con cualquier carácter que no sea un espacio en blanco. ¿Cómo puedo hacer coincidir cualquier carácter que no sea un espacio en blanco, excepto una barra invertida
Estoy intentando escribir un script en Perl usando el pragma "utf8" y obtengo resultados inesperados. Estoy usando Mac OS X 10.5 (Leopard) y estoy editando con TextMate. Todas mis configuraciones tanto para mi editor como para mi sistema operativo están predeterminadas para escribir archivos en...