Ver Tema - Llamar subfuncion de un script para utilizarlo en otro

SistemaJP · 2011-08-17 12:48 @575

Hola soy nuevo aquí. Espero estén muy bien y me puedan ayudar, bueno al punto.

Tengo una función llamada &table_split(); dentro de un script llamado test1.pl

La función va así:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

sub table_split
{
        print "Esta squi-..\n";
        my $receive_fptbl= $_[0];
        if($receive_fptbl eq 1)
        {
                my $name_cws= $_[1];
                open (SPFILE,"$name_cws");
                $. = 0;
                while (<SPFILE>)
                {
                        chomp($str_spfile = $_);
                        print SPTTABLE "$str_spfile\n"; 
                        if($str_spfile =~ /^\s*\D+\s*\#\s*\w+\d+\s*/)
                        {
                                chomp($Tname=$str_spfile);
                                $Tname =~ s/\s*\D+\s*\#\s//;
                                push(@table,$Tname);
                                close(SPTTABLE);
                                $file_cws_tmp = "$Tname.cws.temp";
                                unlink("$file_cws_tmp");
                                open(SPTTABLE, ">>$file_cws_tmp");
                                print SPTTABLE "C \# $Tname\n";
                        }
                        $str_spfile =~ s/(\d)\s+(\d)/$1,$2/g;   #print"$str_line\n";
                        push(@table,$str_spfile);
                }
                close(SPFILE);
        }
}

Y la quiero llamar desde test2.pl pasando estos parámetros:

($bool_call1, $file) (1, file.txt)

He intentado con require sin ningún éxito, espero me puedan ayudar...

explorer · 2011-08-17 13:53 @620

Bienvenido a los foros de Perl en español, SistemaJP.

Mira este hilo. Con la ayuda de do() puedes importar código Perl dentro de tu programa.

Pasar parámetros a un package

Aparte de eso, me gustaría ver algún ejemplo del fichero que estás tratando en la función table_split(), ya que, según veo, algunas cosas se pueden simplificar.

Por ejemplo:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

                                unlink("$file_cws_tmp");
                                open(SPTTABLE, ">>$file_cws_tmp");

se puede resumir en:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

                                open(SPTTABLE, ">$file_cws_tmp");

SistemaJP · 2011-08-17 14:12 @633

Muchas gracias, explorer, he leído lo que me recomendaste y creo que me funcionará, aún no lo he implementado, estoy un poco corto de tiempo y decidí usar el system() para mandar llamar el script junto con un argumento que me lleva directo a la función.

En cuanto a mi lectura de archivos está así:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

while (<SPFILE>)
        {
                chomp($str_spfile = $_);
                
                #print"$str_spfile\n";  
                print SPTTABLE "$str_spfile\n"; 
                if($str_spfile =~ /^\s*\D+\s*\#\s*\w+\d+\s*/)
                {
                        
                        chomp($Tname=$str_spfile);
                        $Tname =~ s/\s*\D+\s*\#\s//;
                        chomp($tname_file=$Tname);
                        $tname_file =~ tr/A-Z/a-z/; 
                        #print "\nNEW---->$Tname\n";
                        push(@table,$Tname);
                        close(SPTTABLE);
                        $file_tmp = "$path_log/$tname_file.temp";
                        unlink("$file_cws_tmp");
                        open(SPTTABLE, ">>$file_tmp");
                        print SPTTABLE "C \# $Tname\n";
                        
                }
                $str_spfile =~ s/(\d)\s+(\d)/$1,$2/g;   #print"$str_line\n";
                push(@table,$str_spfile);
        }
        close(SPFILE); 

El unlink() está porque tengo este tipo de archivos.

test.txt:
C # PWC098
Datos muchos datos
C # AXC128
Datos muchos datos
C # RTC094
Datos muchos datos
C # ASQ020

Entonces divido cada vez que encuentre mi expresión en un archivo nuevo y como las ejecuciones deben de ser actualizaciones...

Espera...

Tienes razón, de esa manera ya no debería de utilizar el unlink(), buen punto, gracias, explorer.

Lo que pasa es que llevo aproximadamente un mes con Perl y aun me fallan algunas cosas... =P

explorer · 2011-08-17 19:00 @833

Yo aún no veo claro algunos pasos, pero mi versión sería así:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

my $SPTTABLE;
 
while (my $str_spfile = <SPFILE>) {
 
    if ( $str_spfile =~ /^\w+ # (\w+)/ ) {      # C # PWC098
 
        $Tname = $1;
        push @table, $Tname;
 
        close $SPTTABLE if $SPTTABLE;
 
        my $file_tmp = "$path_log/" . lc($Tname) . '.temp';
 
        open  $SPTTABLE, q[>], $file_tmp;
        print $SPTTABLE "C # $Tname\n";
 
        next;
    }
    else {
        print $SPTTABLE $str_spfile;
    }
 
    chomp $str_spfile;
    $str_spfile =~ s/(\d)\s+(\d)/$1,$2/g;    #print"$str_line\n";
 
    push @table, $str_spfile;
}
 
close SPFILE;
close $SPTTABLE if $SPTTABLE;

Seguro que la segunda parte está mal, pero es porque no está explicado qué es lo que se quiere hacer. Es lo que pasa con la técnica de "programar a ciegas"

Publicidad

Socializa