Why do you manage does not upload directly into your PERL script? To manage the upload, you must:
1. Declare the HTML form in "multipart", with the following line:
Code:
print $ testcgi-> start (-method => "POST",
-Action => "test.pl"
-Name => "ifroumla");
2. Declaring a field for the user to define the import file:
Code:
Code:
print $ testcgi-> FileField (-name => 'dumpdata',-size => 50);
(There are other properties available, I think In particular with a filter extensions it seems to me)
3. Recover the file if the user submitted the form with its roster set:
Code:
if ( defined \ $ testcgi-> param ('testing code'))
(
my $ f_hd = $ testcgi-> param ('testing code');
while (<$ f_hd>)
(
chomp;
# Manage data read
)
)
Bookmarks