Visit The New, Modern Unix Linux Community


Perl , uploading empty file.


 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting Perl , uploading empty file.
# 1  
Perl , uploading empty file.

Hi

The below script used to work fine. Suddenly it's uploading empty file. I am very new to perl. Please help me to find out the problem.


Code:
#!/usr/bin/perl
#script: upload.pl

use CGI qw/:standard/;

print header,
    start_html('File upload');
print_form();
print_results() if param;
print end_html;

sub print_form {
  print h3('Upload Fusion File');
  
  print start_multipart_form(),
    filefield(-name=>'upload',-size=>40),
    submit(-label=>'Upload File'),
    end_form;
}

sub print_results {
  my $length;
  my $file = param('upload');
  print "<hr>";
  if (!$file) {
     print '<br>Please select file to upload';
  } else {
    ($filename) = (split /\\/ , (split /\// , $file)[-1])[-1];
    #$filename = lc $filename;
    open(UPLOAD, ">./fusion_files/$filename") || 
      print "Cannot open $filename: $!";

    while (<$file>) {
      $length += length($_);
      print UPLOAD $_;
    }
    close(UPLOAD);
    print '<br><b>Showing process activities</b>';
    print '<br>File Name : ',$filename, '<br>File Size: ',$length,' bytes';
    print '<br>Starting main processing.....<br>This may take few minutes depending on number of lines in the file.';
    print '<SCRIPT language="JavaScript"> top.work.frame3.location.href="'.$ENV{'PANEL_WEB'}.'/adr/core/load/?M=D";</SCRIPT>';
  }
}

# 2  
Can we see the entire response page?
# 3  
From the give code, I see one issue. You should open the $file for reading before the while loop.

Code:
    open INFILE, "<$file" || die;
    while (<INFILE>) {
      $length += length($_);
      print UPLOAD $_;
    }


Previous Thread | Next Thread
Thread Tools Search this Thread
Search this Thread:
Advanced Search

Test Your Knowledge in Computers #555
Difficulty: Easy
In C, if double b = 3.14159265359; printf("b=%10f ", b); then the output with be b=3.141593
True or False?

10 More Discussions You Might Find Interesting

1. UNIX for Advanced & Expert Users

SFTP Resticting Only Uploading Of A File

I have setup our SFTP server: SFTP Setup: /etc/ssh/sshd_config: Subsystem sftp internal-sftp Match Group sftpusers PasswordAuthentication yes ChrootDirectory /srv/sftponly AllowTCPForwarding no X11Forwarding no ForceCommand internal-sftp Adding the... (5 Replies)
Discussion started by: metallica1973
5 Replies

2. Shell Programming and Scripting

Uploading excel sheet to sharepoint portal using perl

Thourgh Perl scripting, Is it possible to upload excel sheet to sharepoint portal ? If the answer is YES.. Could you please share your thoughts and required CPAN modules or any examples to proceed further? Regards, Giridhar S ---------- Post updated at 04:26 AM ---------- Previous update... (0 Replies)
Discussion started by: giridhar276
0 Replies

3. Shell Programming and Scripting

Uploading a file in ftp by culr?

I have ftp url, username and passwd. My file is named app.log. How do I upload this to my ftp server??? I read the manual but I didn't understand much...:cool: (4 Replies)
Discussion started by: hakermania
4 Replies

4. Shell Programming and Scripting

Issue in uploading file using sftp

Hi I'm using this script to upload a file from local system to sftp server. But in the log file i'm getting an error "Error during upload" Can you please help me out ... ### CONFIGURATION LOCAL_DIR=/abc/out FILE_MASK="File*.txt" LOG_DIR=/abc/error/File_`date "+%Y%m%d%H%M%S"`.LOG... (3 Replies)
Discussion started by: Jaychandra
3 Replies

5. Solaris

Issue With File Permissions while uploading

one of the business users is ftping files into unix box using user name ftp_user, where as i am using infa_user to login into same unix box. When i am trying to access those or copy over those files from upload directory it says permission denied. Though i know the password of ftp_user to... (4 Replies)
Discussion started by: Ariean
4 Replies

6. UNIX for Dummies Questions & Answers

Getting same exit status for empty and non empty file

Hi All, I am checking for a empty input file to do some further action , but I am getting exit status 0 in both the cases , for empty and non empty file both. The value of $? is coming 0 in if part also and else part too. #!/bin/ksh if ]; then echo "data" # exit 0 echo "$?" else... (4 Replies)
Discussion started by: mavesum
4 Replies

7. UNIX for Dummies Questions & Answers

How to check for empty file in Perl?

Hi, May I know how to check for empty file in Perl. Iam missing something, somewhere. #!/usr/bin/perl my $open_dir = '/path/'; my $file; my $ma = "abc_.*.\.psv\$" opendir(VAR, $open_dir) or die "Can't open $oepn_dir: $!\n"; while( defined ($file = readdir VAR) ) #read all... (1 Reply)
Discussion started by: deepakwins
1 Replies

8. Shell Programming and Scripting

Uploading a flat file into the database.

I want to upload a text file into the database. what is the command for that? Thanks in Advance. (1 Reply)
Discussion started by: Balkrishna
1 Replies

9. Shell Programming and Scripting

printing an empty line in a file (perl)

I know this must be really easy, but i can't get it to work I've got a perl script, with a file. I want to print an empty line, and the following doesn't seem to work: print nameoffile "\n" thanks for your help!! (3 Replies)
Discussion started by: kfad
3 Replies

10. UNIX for Advanced & Expert Users

Perl Uploading Files

Using perl 5.8.0, Linux 2.4.20-30.9, RedHat 9.0. We have many .cgi's that allow privileged users to upload files to the server through a web browser. We've had these .cgi's for years and have never had any problems with them. Recently the files being uploaded are sometimes being given 600... (16 Replies)
Discussion started by: sstevens
16 Replies

Featured Tech Videos