Foro - Perl en Español

por **dbustos** » 2014-02-25 08:34 @398

Hola a todos.

Quiero correr un script (runant.pl) varias veces para lo que simplemente lo puse dentro de un while {}, pero una vez que lo corre una vez sale del loop y termina sin cumplir la condición del while. Entiendo que es básica la forma en que lo hice, pero también es básico mi conocimiento de Perl, ¡je,je!

¡Muchas a todos!

Esto es lo que escribí:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use File::Copy;
 
my $n = 1;
 
while ( $n < 4 ) {
    $oldlocation = "/home/bec/Documents/PINA-WSclient_03072013/proteins$n.input";
    $newlocation = "/home/bec/Documents/PINA-WSclient_03072013/proteins.input";
    copy( $oldlocation, $newlocation );
 
    my $debug = 1;
    use strict;
    my $HOME = $ENV{ANT_HOME};
    if ( $HOME eq "" ) {
        die "\n\nANT_HOME *MUST* be set!\n\n";
    }
 
    my $JAVACMD = $ENV{JAVACMD};
    $JAVACMD = "java" if $JAVACMD eq "";
 
    my $onnetware = 0;
    if ( $^O eq "NetWare" ) {
        $onnetware = 1;
    }
 
    my $oncygwin = ( $^O eq "cygwin" );
 
    my $s = ":";
    if (   ( $^O eq "MSWin32" )
        || ( $^O eq "dos" )
        || ( $^O eq "cygwin" )
        || ( $onnetware == 1 ) ) {
        $s = ";";
    }
 
    my $localpath = "$HOME/lib/ant-launcher.jar";
    my @ANT_OPTS  = split( " ", $ENV{ANT_OPTS} );
    my @ANT_ARGS  = split( " ", $ENV{ANT_ARGS} );
 
    if ( $ENV{JIKESPATH} ne "" ) {
        push @ANT_OPTS, "-Djikes.class.path=$ENV{JIKESPATH}";
    }
 
    my @ARGS;
    push @ARGS, @ANT_OPTS;
 
    my $CYGHOME = "";
 
    my $classpath = $ENV{CLASSPATH};
    if ( $oncygwin == 1 ) {
        $localpath = `cygpath --path --windows $localpath`;
        chomp($localpath);
        if ( !$classpath eq "" ) {
            $classpath = `cygpath --path --windows "$classpath"`;
            chomp($classpath);
        }
        $HOME = `cygpath --path --windows $HOME`;
        chomp($HOME);
        $CYGHOME = `cygpath --path --windows $ENV{HOME}`;
        chomp($CYGHOME);
    }
    push @ARGS, "-classpath", "$localpath";
    push @ARGS, "-Dant.home=$HOME";
    if ( !$CYGHOME eq "" ) {
        push @ARGS, "-Dcygwin.user.home=\"$CYGHOME\"";
    }
    push @ARGS, "org.apache.tools.ant.launch.Launcher", @ANT_ARGS;
    push @ARGS, @ARGV;
    if ( !$classpath eq "" ) {
        if ( $onnetware == 1 ) {
            push @ARGS, "-lib", "\$CLASSPATH";
        }
        else {
            push @ARGS, "-lib", "$classpath";
        }
    }
    print "\n $JAVACMD @ARGS\n\n" if ($debug);
 
    my $returnValue = system $JAVACMD, @ARGS;
    if ( $returnValue eq 0 ) {
        exit 0;
    }
    else {
        exit 1;
    }
 
    $n++;
}
 
Coloreado en 0.008 segundos,  usando GeSHi 1.0.8.4