ASPN ActiveState Programmer Network
ActiveState
/ Home / Perl / PHP / Python / Tcl / XSLT /
/ Safari / My ASPN /
Cookbooks | Documentation | Mailing Lists | Modules | News Feeds | Products | User Groups


Recent Messages
List Archives
About the List
List Leaders
Subscription Options

View Subscriptions
Help

View by Topic
ActiveState
.NET Framework
Open Source
Perl
PHP
Python
Tcl
Web Services
XML & XSLT

View by Category
Database
General
SOAP
System Administration
Tools
User Interfaces
Web Programming
XML Programming


MyASPN >> Mail Archive >> activeperl
activeperl
FileUpload
by Kyriaki Gali other posts by this author
Nov 29 2004 2:58PM messages near this date
Cygwin build of perl5.8.5 | RE: checking that patches have been installed
This is a multi-part message in MIME format.

------=_NextPart_000_0134_01C4D623.E32F64F0
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Hello quys,

I have a question for you about FileUpload in asp scripts.
 I have used FileUpload only when i had  $Request-> Form->Items. Now i =
want to use it for  $Request-> Querystrings.
I wrote this

 my $fileup =3D $Request-> {FileUpload}{'file'}{BrowserFile};     # =
'file' =3D>    form item
 my $file11;
 my $filehandle =3D $Request-> {Form}{'file'};                            =
 #'file' =3D>    form item               =20
 while (<$filehandle> ) {
  $file11 .=3D $_;
 }

open (FILE,">  /billing/files/${cpfile}") || die "can't open $!\n";
flock(FILE,LOCK_EX);
print FILE $file11;
flock(FILE,LOCK_UN);
close (FILE);

what can i do to work with variables? for example  'file' =3D>    $file

Kyriaki Gali,
IT Applications Specialist
Kinetix Tele.com Support Center,
Tel & Fax: +30 2310 256140
GSM: +30 6947 723737
http://www.kinetix.gr
e-mail: support@[...].gr
------=_NextPart_000_0134_01C4D623.E32F64F0
Content-Type: text/html;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> 
<HTML> <HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1"> 
<META content=3D"MSHTML 6.00.2800.1476" name=3DGENERATOR> 
<STYLE> </STYLE>
</HEAD> 
<BODY bgColor=3D#ffffff> 
<DIV> <FONT face=3DTahoma size=3D2>Hello quys,</FONT></DIV>
<DIV> <FONT face=3DTahoma size=3D2></FONT>&nbsp;</DIV>
<DIV> <FONT face=3DTahoma size=3D2>I have a question for you about =
FileUpload in asp=20
scripts.</FONT> </DIV>
<DIV> <FONT face=3DTahoma size=3D2>&nbsp;I have used FileUpload only when =
i had=20
&nbsp;$Request-&gt;Form-&gt;Items. Now i want to use it=20
for&nbsp;&nbsp;$Request-&gt;Querystrings.</FONT> </DIV>
<DIV> <FONT face=3DTahoma size=3D2>I wrote this</FONT></DIV>
<DIV> <FONT face=3DTahoma size=3D2></FONT>&nbsp;</DIV>
<DIV> <FONT face=3DTahoma size=3D2>&nbsp;my $fileup =3D=20
$Request-&gt;{FileUpload}{'file'}{BrowserFile};&nbsp;&nbsp;&nbsp;&nbsp;=20
#&nbsp;'file' =3D&gt;&nbsp;&nbsp; form item<BR> &nbsp;my =
$file11;<BR> &nbsp;my=20
$filehandle =3D=20
$Request-&gt;{Form}{'file'};&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nb=
sp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbs=
p;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
#'file' =3D&gt;&nbsp;&nbsp; form=20
item&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nb=
sp;&nbsp;&nbsp;&nbsp;&nbsp;<BR> &nbsp;while=20
(&lt;$filehandle&gt;) {<BR> &nbsp;&nbsp;$file11 .=3D =
$_;<BR> &nbsp;}</FONT></DIV>
<DIV> <FONT face=3DTahoma size=3D2></FONT><FONT face=3DTahoma=20
size=3D2> </FONT>&nbsp;</DIV>
<DIV> <FONT face=3DTahoma size=3D2>open (FILE,"&gt; =
/billing/files/${cpfile}") || die=20
"can't open $!\n";<BR> flock(FILE,LOCK_EX);<BR>print FILE=20
$file11;<BR> flock(FILE,LOCK_UN);<BR>close (FILE);</FONT></DIV>
<DIV> <FONT face=3DTahoma size=3D2></FONT>&nbsp;</DIV>
<DIV> <FONT face=3DTahoma size=3D2>what can i do to work with variables? =
for=20
example&nbsp;&nbsp;'file' =3D&gt;&nbsp;&nbsp; $file</FONT> </DIV>
<DIV> <FONT face=3DTahoma size=3D2></FONT>&nbsp;</DIV>
<DIV> <FONT face=3DTahoma size=3D2>Kyriaki Gali,<BR>IT Applications=20
Specialist<BR> Kinetix Tele.com Support Center,<BR>Tel &amp; Fax: +30 =
2310=20
256140<BR> GSM: +30 6947 723737<BR><A=20
href=3D"http://www.kinetix.gr"> http://www.kinetix.gr</A><BR>e-mail: <A=20
href=3D"mailto:support@kinetix.gr"> support@[...].gr</A></FONT></DIV></B=
ODY> </HTML>

------=_NextPart_000_0134_01C4D623.E32F64F0--
Attachments:
unknown1


Privacy Policy | Email Opt-out | Feedback | Syndication
© ActiveState Software Inc. All rights reserved