Foro - Perl en Español

Buenas. Es la primera vez que escribo en este post, y me gustaría consultar una duda que tengo.

El problema es que quiero usar mkdir(), pero la dirección nueva se encuentra en varias variables.

Me explico: yo tengo un directorio que es, por ejemplo, ./home/pepe, y quiero crear uno nuevo de la siguiente forma ./home/p/pepe/. El nuevo directorio contiene un nivel más, con la primera letra de la carpeta pepe. Así, si tuviéramos ./home/hola, el nuevo directorio sería ./home/h/hola.

Entonces, por una parte, tengo una variable constante que contiene ./home. Otra variable con la letra inicial de la correspondiente carpeta (p.e., /p) y otra variable con el resto de la ruta (p.e., /pepe).

El problema viene a la hora de hacer el mkdir(). Yo pongo mkdir($var1,$var2,$var3,0777), pero me lanza un error de demasiados argumentos. Entonces he estado buscando pero no encuentro la forma de hacerlo correctamente. Porque también he intentado unirlo todo en un vector pero no funciona (creo que devuelve el número de campos). También he intentado unirlo todo en una variable de la forma $nueva_var = "$var1$var2$var3";

Ojalá alguien me pueda ayudar o dar alguna idea. Muchas gracias y perdonad si he puesto algo mal, pero ando muy verde.

¡Un saludo!

Bienvenido a los foros de Perl en Español, scr.

Prueba con


Usamos la interpolación de las dobles comillas para que las una.

Como, además, por defecto, mkdir() pone permisos según una máscara 0777, pues entonces no hace falta que la pongas.

Otra forma:


El operador '.' realiza la concatenación de cadenas de caracteres.

Lo que me extraña es que te falle la segunda solución, la de unirla antes en una variable aparte.

Sería interesante ver el código que falla, al menos esas líneas.

Hola, muchas gracias por contestar tan rápido.

He solucionado en parte el problema. En principio ya tengo la nueva dirección que quiero. Lo he hecho de la siguiente manera:



Pero creo que ahora el error está en el fichero que abro (passwd), porque me lanza este error:

Código: Seleccionar todo

   No existe el fichero o directorio at (...) linea 415, <PASSWD> (este es el manejador que he usado para abrir el fichero) linea 6

Entonces supongo que antes de crear el directorio, necesito cambiar el directorio de casa del usuario de la línea 6 y después hacer el mkdir(), pero no sé cómo cambiar el contenido del fichero passwd (creo que esto lo respondiste en otro post, voy a buscar).

Muchas gracias.

Esas 3 líneas indican que a $var2 le faltaba el'/' final, por lo que no responde a la definición que dabas en el primer mensaje.

Debes estar seguro de qué contienen todos los componentes, para luego saber cómo debes unirlos.

Por ejemplo, yo adopto la estrategia de que ningún nombre de directorio debe contener el separador de ficheros, porque lo pondré más tarde, y así, hacerlo más visual:



Observa que en caso de fallo imprimo el valor de la variable, encerrada entre corchetes, para saber exactamente qué es lo que le he pasado a mkdir().

Hola, haciendo lo último que me dijiste me ha funcionado la primera vez al intentarlo.

Después he borrado las carpetas que se crearon manualmente, y al intentarlo otra vez, me ha vuelto a salir el mismo error.

Me he asegurado de que el fichero passwd contuviese los mismos datos, y así es, no ha cambiado nada. De todas formas lo reemplacé por el original, por si acaso, pero nada, me sigue saliendo el mismo fallo. Y no lo entiendo, porque según dice, no existe la ruta ../home/pepe, cuando en realidad sí existe. Algo le debo estar pasando mal.
Un saludo.

Fíjate que ../home/pepe es un camino relativo, así que depende de en dónde se esté haciendo esa pregunta, puede resultar la respuesta verdadera o falsa.

¿No estarás haciendo chdir() dentro del programa de forma descontrolada?

Usa el módulo Cwd si necesitas saber dónde estás.

Hola, al final lo solucioné con mkpath().
Muchas gracias.