Preguntas etiquetadas con perl

Soy nuevo en las secuencias de comandos CGI. Estoy intentando conectarme a otro servidor usando Net :: OpenSSH pero estoy dando el siguiente error #!/tools/openbin/perl/5.16.3/sparc-sun-solaris8/bin/perl use strict; use warnings; use Net::OpenSSH; my $host ="**********"; my $user_name = "*******"; my $password_value = "*********"; my $ssh = Net::OpenSSH->new(host => $host, user => …

1 perl  cgi 

Me gustaría extraer caracteres entre el primer y segundo guión bajo de los nombres de archivo en una carpeta y contar ese tipo de archivos presentes en ella. La carpeta contiene archivos en un formato particular como: 2305195303310_ABC_A08_1378408840043.hl7 2305195303310_ABC_A08_1378408840043.hl7 Q37984932T467566261_DEF_R03_1378825633215.hl7 37982442T467537201_DEF_R03_1378823455384.hl7 37982442T467537201_MNO_R03_1378823455384.hl7 2305195303310_ABC_A08_1378408840053.hl7 Q37984932T467566261_DEF_R03_1378825633215.hl7 37982442T467537201_MNO_R03_1378823455384.hl7 y así El resultado del …

1 shell  python  perl  bash-scripting 

Tengo los binarios: perl-5.10.1-3.tar.bz2 y no tengo acceso (privilegios de administrador) para ejecutar setup.exe para cygwin, mi pregunta es cómo puedo instalar manualmente dentro de cygwin el módulo para perl: perl-5.10.1-3.tar.bz2? (¿o tal vez puedo obtener las fuentes y compilar? ¿Alguien puede decirme por favor cómo?) Gracias

1 linux  perl  cygwin 

Estoy tratando de configurar la integración VCS de Bugzilla con Subversion. He instalado el cliente CollabNet Subversion CollabNetSubversion-client-1.6.16-1.i386.rpm que instala sus libs en / opt / CollabNet_Subversion. Ahora quiero instalar el paquete subversion-perl-1.6.16-2.4.i586.rpm pero la herramienta de línea de comandos RPM falla con problemas de dependencia: subversion = 1.6.16 is …

1 perl  svn  dependencies  rpm 

Tengo un archivo grande que contiene registros en varias líneas. ex: domain1 NS ns1 domain1 NS ns2 domain1 NS ns3 domain2 NS dnsx ¿Cuál podría ser la forma más rápida de generar un CSV del formulario? domain1,ns1,ns2,ns3 domain2, dnsx Probé scripts php y groovy, pero el tiempo de carga del …

1 regex  csv  perl  awk 

Aquí está el tutorial que estoy usando, que Google me ha asegurado que es de alta calidad: http://www.kitebird.com/articles/mysql-xml.html#TOC_5 Ahora, lo que estoy tratando de hacer es ejecutar algunos scripts de prueba en algunos archivos XML, portando los datos en mis tablas de base de datos MySQL. ¿Dónde escribo los comandos? …

1 windows-xp  mysql  xml  perl  parsing 

Estoy intentando implementar algo de mi antigua búsqueda de regex de notepad ++ en Perl. Estoy usando el siguiente comando. perl -i -pe 'BEGIN{undef $/;} s/\\cellx10464\\pard\\plain\\intbl\\s0\\ql\\fi0\\li0\\ri0\\sl320\\plain\\f4\\fs20\\b\\cf0 Patent Information\\b0(?:.*[\r\n]+){88}\\cellx10464\\pard\\plain\\intbl\\s0\\ql\\fi0\\li0\\ri0\\sl320\\plain\\f1\\fs20\\cf0 \\f1\\fs20\\cf0 US \d{11}(?:.*[\r\n]+){52}\\cellx10464\\pard\\plain\\intbl\\s0\\ql\\fi0\\li0\\ri0\\sl320\\plain\\f1\\fs20\\cf0 \\f1\\fs20\\cf0 (US [0-9]{5,7})[\r\n]+\\cell\\pard\\plain\\intbl\\s0\\ql\\fi0\\li0\\ri0\\sl320\\plain\\f1\\fs20\\cf0 \\f1\\fs20\\cf0 (\w\d)[\r\n]+\\cell\\pard\\plain\\intbl\\s0\\ql\\fi0\\li0\\ri0\\sl320\\plain\\f1\\fs20\\cf0 [a-zA-Z]{3} [0-9,]{3} [0-9]{4}[\r\n]+\\cell\\pard\\plain\\intbl\\s0\\ql\\fi0\\li0\\ri0\\sl320\\plain\\f1\\fs20\\cf0 \\f1\\fs20\\cf0 [\r\n]+\\cell\\pard\\plain\\intbl\\s0\\ql\\fi0\\li0\\ri0\\plain/tttttt$1 $2/smg' 1.rtf Editar pero está dando error (después de …

perl 

Yo uso mod_perl scripts bajo Apache 2.4.18 en un VPS bajo Ubuntu 16.04. Los scripts abren archivos desde el disco (plantillas de página web). De vez en cuando, dejan de ver estos archivos, el registro de errores del servidor está lleno de los siguientes errores: [TIEMPO] [: error] [pid PID: …

ubuntu  apache-http-server  perl 

Estoy intentando escribir una secuencia de comandos para cambiar el nombre de los archivos según una lista determinada. Para probar y asegurarse de que la lista se lea correctamente, tengo: print("start\n"); open(READFILE, "<prune.txt") || die "Couldn't open file"; print("file open\n"); while ($curline = <READFILE>){ print "$curline\n"; } close (READFILE); si …

perl 

Utilizo la siguiente sintaxis para capturar solo el número del nombre de host de la máquina echo machineLinux05 | sed s'/\./ /g' | awk '{print $1}' | sed 's/[^0-9]//g' 05 Pero de esta manera no es tan elegante. ¿Hay otra alternativa corta para capturar el número de la cadena?

linux  bash  shell  awk  perl 

¿Existe un programa para Terminal como el complemento iMacros para Firefox, que puede grabar lo que hice y luego hacer automáticamente el trabajo que he hecho? Espero que haya un programa de este tipo que me ayude a repetir el trabajo en la terminal, ¿algún consejo? Saludos

python  linux  perl  bash  terminal 

Hace algunos años, un amigo creó un 'punto de referencia' (Nota: No es un punto de referencia) mediante el cual mediríamos un aspecto en bruto de la potencia informática. Es decir, qué tan rápido (o incluso lento) la computadora podría contar en un gran número. Lo llamamos "el punto de …

linux  performance  perl  benchmarking 

Esto realmente me ha desconcertado: este código funciona bien ... $filename="name_of_file.pdf"; for ($x=0; $x<@pdf; $x++){ $file.=$pdf[$x]; } $file=~s/\*ref\*/$new_aff/g; # converts a variable within the PDF use Archive::Zip qw( :ERROR_CODES :CONSTANTS ); my $zip = Archive::Zip->new(); $now=time(); $save_zip=$now.".zip"; my $member = $zip->addString($file,$filename); $member->desiredCompressionMethod( COMPRESSION_DEFLATED ); $member->desiredCompressionLevel( 9 ); die 'write error' …

zip  perl 

perl-support.vim es un complemento increíble para aquellos que usan vim para escribir scripts en perl. Sí, lo he usado en Linux durante algún tiempo y funcionó perfectamente para mí. Pero recientemente encontré algunos problemas al intentar usarlo bajo Windows. Entre otros problemas, el mayor dolor de cabeza es que no …

vim  perl 

Soy nuevo en Perl. Estoy escribiendo el siguiente script para imprimir la información del tiempo de arranque del sistema desde el comando de Windows systeminfo. Mira algún problema aquí. Estoy obteniendo la salida de esta manera. Alguien podría ayudarme use strict; use warnings; my $filename = 'sysinfo.txt'; my @cmdout = …

perl