Re: Cómo enviar instrucciones a un programa desde Perl
Publicado: 2011-09-10 09:18 @429
Ahora lo estoy intentando con el programa que me pusiste de ejemplo, el BLAST, pero no parece que funciona la cosa... te pongo el código a ver si puedes detectar en qué he metido la pata esta vez...
Creo que he aplicado todos tus consejos con diligencia.
Creo que he aplicado todos tus consejos con diligencia.
Using perl Syntax Highlighting
- #!c:/perl/bin/perl.exe
- use warnings;
- use strict;
- use CGI ':standard';
- my $file = param('file');
- my $evalue = param('evalue');
- my $program = param('program');
- my $filename = "$$" . "$^T" . "$file" . "\.txt";
- my $lightweight_fh;
- my $io_handle;
- my $bytesread;
- $lightweight_fh = upload('file');
- if ( defined $lightweight_fh ) {
- $io_handle = $lightweight_fh->handle;
- open( OUTFILE, '>>' . "C:/xampp/htdocs/DB/Uploads/$filename" ) || die "failed to open output for write: $!";
- binmode(OUTFILE);
- while ( $bytesread = $io_handle->read( my $buffer, 2048 ) ) {
- print OUTFILE $buffer;
- }
- my $resultado
- = qx("C:/Archivos de programa/NCBI/BLAST/bin/'$program'.exe" -query "C:/xampp/htdocs/DB/Uploads/$filename" -db "C:/Archivos de programa/NCBI/BLAST/db/OXPHOS" -out "C:/xampp/htdocs/DB/Results/$filename.out");
- close OUTFILE;
- }
- my $report = "C:/xampp/htdocs/DB/Results/$filename.out";
- print
- qq(<A HREF='Results/$report' TARGET='_blank'>-Open in browser or Right click to download file-</A><br><br><br><br><br>\n);
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4