Re: Perl code Question - renaming a file for upload

You certainly could use rename. You would have to use it after because the file would have to
exist first to be able to rename it.

Greg
--- Douglas Brantz <[email protected]> wrote:

> Should I use the rename function before the file is uploaded or after? -
>  I'm not sure if I can change the name of the file before its uploaded - 
> it seems I might have to change it on the server after the upload?
> Modified script below -
> 
> Thanks in advance -
> 
> 
> 
> Douglas Brantz wrote:
> > That didn't seem to work - still uploads file with original name. In 
> > the example I upload 1 file and form# 405 is added to the beginning of 
> > the file name for Mysql -
> > below the list you see the File that is getting uploaded.
> >
> > current: 405File1faapage.pdf
> > proposed:
> > syll1:
> > syll2:
> > csheet:
> > psheet:
> >
> > File being uploaded: File1faapage.pdf
> >
> > --------------------------------------------------------------------------------------- 
> >
> >
> > Greg Meckes wrote:
> >> Couldn't you just say?:
> >>
> >> open (STORAGE, ">$dir/$p$file_name")
> >>
> >>
> >>
> >> --- Douglas Brantz <[email protected]> wrote:
> >>
> >>  
> >>> I need to upload a file to the server and I have that working, but I 
> >>> want to add the form# to the front of the file:
> >>> I can do this to the filename stored in Mysql but how do I change 
> >>> the name of the file being uploaded to the server?
> >>> -
> >>> The variable for form number is $p
> >>>
> >>> I thought I could do this somewhere in this part of the code?
> >>>
> >>> sub Get_File_Name{
> >>> if ($ENV{HTTP_USER_AGENT}=~/win/i){
> >>> fileparse_set_fstype("MSDOS");
> >>> }
> >>> elsif($ENV{HTTP_USER_AGENT}=~/mac/i){
> >>> fileparse_set_fstype("MacOS");
> >>> }
> >>> my $full_name = shift;
> >>> $full_name = basename($full_name);
> >
> >>> $full_name = "$p$full_name";  ##>> Added this so I can get the file 
> >>> name with form# for Mysql
> >>>     $full_name =~ s!\s!\_!g;
> >>> return($full_name);
> >>> }
> >>> sub Store_File{
> >>> my $file_handle = shift;
> >>> my $file_name = shift;
> >>> my $data;
> >>> #my $mime = uploadInfo($File_handle)->{'Content-Type'};
> >>> open (STORAGE, ">$dir/$file_name")  ##  Tried 
> >>> "..>$dir/$p$file_name");  but it didnt' work.
> >>> or die "Error: $!\n";
> >>> #if($mime !~ /text/){
> >>> binmode ($file_handle);
> >>> binmode (STORAGE);
> >>> #}
> >>> while( read($file_handle, $data, 1024) ){
> >>> print STORAGE $data;
> >>> }
> >>> close STORAGE;
> >>> }
> >>>
> >>> -- 
> >>> Douglas Brantz
> >>> Computer consultant
> >>> College of Fine & Applied Arts
> >>> Appalachian State University
> >>> Boone, NC 28608
> >>>
> >>> 828-262-6549 – office
> >>> 828-262-6312 - fax
> >>>
> >>>
> >>> -- 
> >>> MySQL Perl Mailing List
> >>> For list archives: http://lists.mysql.com/perl
> >>> To unsubscribe:    
> >>> http://lists.mysql.com/[email protected]
> >>>
> >>>
> >>>     
> >>
> >>
> >>   
> >
> 
> -- 
> Douglas Brantz
> Computer consultant
> College of Fine & Applied Arts
> Appalachian State University
> Boone, NC 28608
> 
> 828-262-6549 – office
> 828-262-6312 - fax
> 
> 
> -- 
> MySQL Perl Mailing List
> For list archives: http://lists.mysql.com/perl
> To unsubscribe:    http://lists.mysql.com/[email protected]
> 
> 


-- 
MySQL Perl Mailing List
For list archives: http://lists.mysql.com/perl
To unsubscribe:    http://lists.mysql.com/[email protected]