Scripts - Tutorials - Forum - Downloads - Showcase - Contact

Artikels

VPN vergelijken

Algemeen

Beginpagina

FAQ

Grafische worm (243)

Links

Nieuwsartikels

Nieuwsarchief

Boeken programmeren

Overzicht

Samenwerken

Webhosting

Zoek op Sitemasters

Leden

Registreren

Ledenlijst

Ons team

Links

webhostingtop10.be

Sociale media

Follow @sitemasters

Sitemasters

Adverteren op Sitemasters?

Contacteer ons

RSS

Link naar ons

Donaties

Poll

Je moet ingelogd zijn om te stemmen.

Statistieken

Linkpartners

Forum

Categorieën > PHP

perl script oproepen in php en terug naar php gaan.

Hebus - 01/09/2008 12:14

Nieuw lid

ik moet files uploaden groter dan 100mb.
En de enig optie die mijn provider (host op het werk zelf) geeft
is uploaden via een perl script.

dit is het perl script. werkt via een php fomulier type=file etc.

php code - Bekijk de code zonder highlighting - Klap code in

#!/usr/bin/perl -wT

use strict;
use CGI;
use CGI::Carp qw ( fatalsToBrowser );
use File::Basename;

$CGI::POST_MAX = 1024 * 150000;
my $safe_filename_characters = "a-zA-Z0-9_.-";
my $upload_dir = "../Films";

my $query = new CGI;
my $filename = $query->param("film_file");
my $email_address = $query->param("email_address");

if ( !$filename )
{
 print $query->header ( );
 print "There was a problem uploading your photo (try a smaller file).";
 exit;
}

my ( $name, $path, $extension ) = fileparse ( $filename, '\..*' );
$filename = $name . $extension;
$filename =~ tr/ /_/;
$filename =~ s/[^$safe_filename_characters]//g;

if ( $filename =~ /^([$safe_filename_characters]+)$/ )
{
 $filename = $1;
}
else
{
 die "Filename contains invalid characters";
}

my $upload_filehandle = $query->upload("film_file");

open ( UPLOADFILE, ">$upload_dir/$filename" ) or die "$!";
binmode UPLOADFILE;

while ( <$upload_filehandle> )
{
 print UPLOADFILE;
}

close UPLOADFILE;

print $query->header ( );

;

#!/usr/bin/perl -wT
 
use strict;
use CGI;
use CGI::Carp qw ( fatalsToBrowser );
use File::Basename;
 
$CGI::POST_MAX = 1024 * 150000;
my $safe_filename_characters = "a-zA-Z0-9_.-";
my $upload_dir = "../Films";
 
my $query = new CGI;
my $filename = $query->param("film_file");
my $email_address = $query->param("email_address");
 
if ( !$filename )
{
 print $query->header ( );
 print "There was a problem uploading your photo (try a smaller file).";
 exit;
}
 
my ( $name, $path, $extension ) = fileparse ( $filename, '\..*' );
$filename = $name . $extension;
$filename =~ tr/ /_/;
$filename =~ s/[^$safe_filename_characters]//g;
 
if ( $filename =~ /^([$safe_filename_characters]+)$/ )
{
 $filename = $1;
}
else
{
 die "Filename contains invalid characters";
}
 
my $upload_filehandle = $query->upload("film_file");
 
open ( UPLOADFILE, ">$upload_dir/$filename" ) or die "$!";
binmode UPLOADFILE;
 
while ( <$upload_filehandle> )
{
 print UPLOADFILE;
}
 
close UPLOADFILE;
 
print $query->header ( );
 
;

Ik ken persoonlijk niks van perl dus heb ik naar een script gezocht dat
werkt (en veilig is, volgens de comments).
Script werkt met een form (type=file etc. ...) en van daaruit wordt dan het
perl script opgeroepen, dit werkt.

Nu heb ik het probleem dat ik dit perl script eigenlijk moet aanroepen via
php en (niet direct via action van form )
En jammer genoeg heb ik hier maar heel weinig (of onduidelijke) uitleg over
terug gevonden op het net.

Dus:

1- Ik vul alle gegevens in in het formulier, oa ook kleine bestanden die ik
via php zelf laat afhandelen.
En oa dus ook <input name="film_file" type="file" id="film_file"
size="21" /> (deze is dus veel te groot om via php te verwerken)

2-Submit formulier terug naar zichzelf & php handelt alles af upload de
kleine bestanden of wat er ook verder met moet gebeuren.
Nu zou dus ook de grote file moeten geupload worden....
Dus oproepen van het perl script dat dan de file upload en dan
terug naar php.

Nu heb ik oa dit al geprobeerd en nog een boel andere dingen...
exec('../cgi-bin/upload.cgi'.' '.EscapeShellArg($film_file)); $POST_ ...
ook getest.

Maar geen enkele wil werken, ik heb dus geen enkel idee hoe ik de file
gegevens kaan doorsturen naar het perl script,
naast de film_file variabele zou ik nog een tweede variabele $locatie (map
waar de upload moet komen) moeten kunnen doorsturen.

4 antwoorden

Gesponsorde links

Stijn - 01/09/2008 14:33
PHP expert		Als je dit perl script wilt uitvoeren via php moet je PHP.net: shell_exec gebruiken. php code - Bekijk de code zonder highlighting - Klap code in $output = shell_exec("perl script.pl"); echo $output; $output = shell_exec("perl script.pl"); echo $output;

Hebus - 05/09/2008 15:21 (laatste wijziging 05/09/2008 15:24)
Nieuw lid		sry ik krijg het maar niet aan de praat. Ku je me ff bij het handje nemen, want mijn gedult is op om nog langer te prutsen aan dit stukje. De veldnaam voor het uploaden van de file die ik gebruik is film_file dus in het php script kan ik die aanroepen met $_FILES["film_file"] en eventueel nog daar achter ["type"] of ["name"] maar hoe krijg ik die geg naar het script verzonden? basis code is dus. (maar dan stuur je dus geen geg naar het script. php code - Bekijk de code zonder highlighting - Klap code in echo shell_exec("../cgi-bin/upload.cgi "); echo shell_exec("../cgi-bin/upload.cgi "); als ik bovenstaande script rechtstreek uitvoer als ik een formulier submit lukt het wel, maar ik zit dus met die tussenstap :'

timmie_loots - 05/09/2008 18:59
PHP gevorderde		Wat is de reden dat hier alleen Perl voor gebruikt kan worden? Als het komt omdat PHP zo ingesteld is dat het geen grote bestanden zal accepteren, dan gaat dit natuurlijk nooit lukken. Je moet dan direct naar het Perl-script posten, niet eerst via PHP.

Hebus - 08/09/2008 08:42 (laatste wijziging 08/09/2008 08:44)
Nieuw lid		Hm daar zeg je zoiets ... php is beperkt tot 8MB , en de ftp php functie is afgezet. Dus dit gaat niet lukken ? Ik zit nu te denken, zou het niet voor elkaar te krijgen zijn om eerst het perl script op te roepen, en dat deze op zijn beurt de rest van de data naar de php verwerking stuurt ? Mar geen idee hoe ik dit moet done

Gesponsorde links

Dit onderwerp is gesloten.

Actiefste leden van de maand

Actieve forumberichten