Tengo una función llamada &table_split(); dentro de un script llamado test1.pl
La función va así:
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);
- }
- }
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
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...