Los Juegos de Invierno de Scripting de 2008

Evento 7 de nivel principiante: Detectar errores

On This Page

	Acerca de este evento
	Escenario del evento
	Cómo participar

Acerca de este evento

Top of page

Escenario del evento

Cualquiera que haya escrito scripts o que haya tenido que modificar scripts existentes, sabe que una gran parte del tiempo se gasta en realizar la depuración. Para este evento, va a tener la oportunidad de probar sus habilidades para la depuración. Se le proporcionará un script y tendrá que buscar los errores que contenga con el fin de hacer que funcione. La clave de este ejercicio es no volver a escribir el script, sino trabajar con el script que se le proporciona. Recibirá instrucciones de lo que se espera que haga y tendrá que realizar las modificaciones necesarias para hacer que el script funcione. Puede mover líneas de código y modificarlas, pero no puede eliminarlas ni agregar líneas totalmente nuevas.

VBScript y Windows PowerShell

Se espera que estos scripts realicen las siguientes acciones:

Pista: Colocamos 10 errores en las versiones correctas de cada uno de estos scripts para crear las versiones con errores.

Aquí tiene los scripts (que también están disponibles en el Paquete de Participantes de los Juegos de Scripting de 2008)):

VBScript:

Set objFSO = CreateObject("FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\scripts")

dtmOld = DateAdd("m", -10, Now)
 
AllFolders objFolder

CopyTextFiles objFolder

Sub AllFolders Folder
    For Each objFolder in Folder.SubFolders

        CopyTextFiles subfolder
        AllFolders Subfolder

    Next
End Sub


Sub CopyTextFiles(subFolder)

    colFiles = SubFolder.Files

    For Each objFile in colFiles
        arrSplitName = Split(objFile.Name, ".")
        strExtension = arrSplitName(UBound(arrSplitName) - 1)
        If strExtension = "txt" and objFile.DateCreated > dtmOld Then
            objFSO.CopyFile objFile.Path, "C:\old\"
            Wscript.Echo objFile.Name
            i = i + 1
        Edn If
    Next

End

Wscript.Echo
Wscript.Echo "Total Files: " & i

PowerShell:

for ($i in Get-ChildItem C:\Scripts)
(
    if {($i.CreationTime -gt ($(Get-Date).AddMonths(-10))) and ($i.Extension = "txt")}
    {
#        Copy-Item $i.FullName C:\old
         $i.Name
         $x = $x + 1
    }
)

""
"Total Files: " + $y

Perl

La edición de Perl para este evento es un poco diferente. El tratamiento de fechas en Perl puede ser bastante complicado, especialmente si no tiene instalados los módulos necesarios. No quisimos dar por supuesto que todos tienen estos módulos instalados ni complicar demasiado este evento. Por tanto, el script que vamos a mostrarle sólo debe realizar las siguientes acciones:

Pista: Hemos colocado 5 errores en el script correcto para producir este script.

Aquí tiene el script con errores (también disponible en el Paquete de Participantes de los Juegos de Scripting de 2008)):

use File::Copy;
File::Find;

File::Find::find({wanted => \&wanted}, 'C:\Scripts');
print "\nTotal Files: " . $count;

exit;

sub wanted (

    my $count = 0;

    /\.txt$/ or return;
    my $filename = $_;
    print "$filename \n";
    my $newfile = "C:\\old\\" . "$_";

    copy($File::Find::name, $newfile) or die "Copy failed: $!";
    $count = $cout + 1

)

Top of page

Cómo participar

Una vez que haya completado su script, haga clic en el vínculo correspondiente para enviar su participación:

Si el vínculo no abre automáticamente un mensaje con una dirección predeterminada, envíe un correo electrónico a scripter@microsoft.com y en el asunto del mensaje, escriba Beginner VBScript: Event 7; Beginner Windows PowerShell: Event 7; o Beginner Perl: Event 7.

Lo único que debe hacer es pegar su código en el cuerpo del mensaje y, a continuación, enviar el correo. También puede incluir los datos siguientes:

Sólo necesita escribir estos datos en la parte superior del correo electrónico. Si lo hace así, su correo electrónico (suponiendo que esté enviando su participación para la división de VBScript) probablemente tendrá este aspecto:

Ken Myer
USA
Northern Iowa User Group

For i = 1 to 100
    Wscript.Echo i
Next

Top of page