I dont know why this code doesn't create me the dirs!!! anyone can help a nerd as me ? thanks!#!/usr/local/bin/perl @arValores = (); $vDirectorio_read = "txt_entrada.txt"; $vDirectorio_write = "c:\\Datos_dms"; $vPermisos = 0777; open (LECTOR, "<$vDirectorio_read") or die "Entrada nanay"; while (<LECTOR>) { if (/(.+?)/) { $vTemp = $_; push @arValores, $vTemp; #print "$vTemp\n"; } } close LECTOR; mkdir $vDirectorio_write, oct($vPermisos); foreach $vTemp2 (@arValores){ print "$vTemp2\n"; mkdir "c:\\datos_dms\\$vTemp2\n" or warn "No se ha podido crear el + directorio $vTemp2\n"; } exit 0;
In reply to Whats its bad here? by Sombrerero_loco
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |