Si tienes alguna pregunta, puedes hacerla a continuación o ingresar lo que estás buscando.
¿Existe un equivalente de “pwd -L” en Perl? Quiero obtener el directorio de trabajo actual sin resolver los enlaces simbólicos. Mi directorio de trabajo actual es “/path1/dir1/dir2/dir3”, y aquí dir1 es un enlace simbólico a test1/test2. Quiero obtener el directorio de trabajo actual como “/path1/dir1/dir2/dir3” mediante un script en Perl. . . . Read more
Tengo un archivo JSON y quiero verificar si existen o no las claves, si las claves están vacías o no. Ya he hecho este tipo de verificación en el siguiente script. Pero aquí tengo “children” que es un array vacío. ¿Cómo puedo ver si este array existe o no y . . . Read more
Estoy intentando comprobar una subcadena exacta “tool” en una línea. Donde estoy intentando usar la siguiente expresión regular para lograr lo mismo. my $line = “test git_toolk_test is git”; if ($line =~ m/(\w)*tool(\w)*/){ print “============MATCH=======\n”; } Esto coincide con “toolk”. Pero en este caso, solo estoy buscando que coincida la . . . Read more
Obtuve de un servidor Linux un archivo XML en una máquina con Windows 10. El archivo estaba codificado en base64. Decodifiqué el XML usando un script Perl que usa la función decode_base64 de MIME::Base64. Probé con otro script Perl si está bien formado, pero este no era el caso: C:\test>perl . . . Read more
Estoy intentando capturar el SQL DDL “CREATE” de un volcado de esquema de PostgreSQL que se ve así: SET default_table access_method = heap; CREATE TABLE schema_name.table_name ( col1 bigint, col2 text ); ALTER TABLE schema_name.table_name OWNER TO user; CREATE INDEX index ON schema_name.table_name USING btree (col1); Lo que quiero es: . . . Read more