Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Cita de: krizalidk en 7 Febrero 2014, 22:42 PM
te comento hice un bat asi de esta forma
at 8:00 /every:L,M,X,J,V defrag C
pero que esto se aplique a cualquier usuario del dominio que se conecte
Y vas a poder acceder a ellos perfectamente aunque estén en otra unidad. 
Dim Numero
Numero = 0.33
Numero = Numero * 100
Msgbox Numero & "/100"
#!/usr/bin/perl
print "Hola Mundo!"; # Imprimimos en pantalla el saludo
#!/usr/bin/perl
my $cadena = "hola soy una cadena\n";
my $numero = 1;
my $n1 = 2;
my $n2 = 3;
print $cadena;
print $n1 + $n2 . "\n"; # suma e imprime los valores de las variables
print $n1 . $n2 . "\n"; # Concatena los numeros (Los tata como cadena)
print "$n1$n2\n"; # Otra forma de hacer lo de la linea de arriba
exit;
#!/usr/bin/perl
my @array; # array sin inicializar
my @animales = ('Gato','Perro','Pez'); # array inicializado
print "$animales[0]\n"; #imprimimos el primer elemento del array 'Gato'
print "$animales[1]\n"; #imprimimos el segundo elemento del array 'Perro'#!/usr/bin/perl
my @animales = ('Gato','Perro','Pez'); # array inicializado
print "El ultimo animal de la lista es el: $animales[2]\n";
push @animales,"Foca";
print "Ahora el ultimo animal es: $animales[3]\n";
pop @animales;
pop @animales;
print "Ahora el animal $animales[3] no esta\n";
print "El ultimo animal ahora es: $animales[1]\n";
#!/usr/bin/perl
my $n1 = 5;
my $n2 = 3;
my $c1 = '5';
my $c2 = '5';
print "Trata los numeros como cadena: $n1$n2\n"; # devolvera 85
print $c1 + $c2 . "\n"; # devolvera 10my $var = 1;
$var++; # Incremento en uno el valor de la variable
print $var . "\n";
$var--; # Decremento en uno de valor de la variable
print $var . "\n";open(FILE,"archivo.txt") || die("No se puedo abrir el archivo");#!/usr/bin/perl
my $var = 1;
if ($var == 1) # sentencia if
{
# si $var es igual a uno se ejecuta lo que esta aqui
print "\$var es igual a 1\n";
}else{
# si no es igual a uno se ejecuta esto
print "\$var NO tiene valor 1\n";
}
system("PAUSE"); # con system enviamos comandos al sistema#!/usr/bin/perl
my $var = 1;
print "$var\n";
print "\$var\n";
system("PAUSE"); if (Comparacion) # se realiza la comparacion
{
}elsif (comparacion) # si no se cumple la de arriba se vuelve a ralizar otra comparacion
{
}elsif (Comparacion) # Si no se cumple la de arriba de vuelve a realizar otra comparacion
{
}else{ # Si no se cumple ninguna de las anteriores se ejecuta esta
}#!/usr/bin/perl
my $var = 1;
if ($var == 2) # se realiza la comparacion
{
print "Es igual a 2\n";
}elsif ($var == 3) # si no se cumple la de arriba se vuelve a ralizar otra comparacion
{
print "Es igual a 2\n";
}elsif ($var == 3) # Si no se cumple la de arriba de vuelve a realizar otra comparacion
{
print "Es igual a 2\n";
}else{ # Si no se cumple ninguna de las anteriores se ejecuta esta
print "No es igual a ninguna de las anteriores\n";
}
system("PAUSE");my $c1 = "hola";
my $c2 = "adios";
my $n1 = 1;
my $n2 = 2;
if ($c1 eq $c2) # sentencia CORRECTA
{
# Si son iguales de ejecuta
}
if ($c1 == $c2) # sentencia ERRONEA
{
# Si son iguales de ejecuta
}
if ($n1 eq $n2) # sentencia ERRONEA
{
# Si son iguales de ejecuta
}
if ($n1 == $n2) # sentencia CORRECTA
{
# Si son iguales de ejecuta
}for (my $i = 0; $i<10; $i++) # se repite 10 veces
{
print "$i \n";
}for my $i (1..10) # Se repite 10 veces
{
print "$i\n";
}while (1)
{
print "while!\n";
}my $i = 0;
my $num = 0;
while ($i<3)
{
$num = $num + <STDIN>;
#$num += <STDIN>; # esta linea hace exáctamente lo mismo que lo de arriba.
$i++;
}
print "Suma totalde los numeros: $num\n";