Determining if a file exists (PERL) : perl, file, exists

1. Adam314 101,866
2. ozo 31,828
3. Tintin 22,500
4. FishMonger 22,070
5. mrjoltcola 17,300
6. nemws1 13,100
7. ahoffmann 12,122
8. kawas 12,075
9. caterham... 7,750
10. Ray_Pas... 5,200
11. dcesari 4,600
12. cj_1969 4,500
13. Morcalavin 4,300
14. sedgwick 4,000
14. duncancu... 4,000
14. lexxwern 4,000
14. vikaskhoria 4,000
14. selvol 4,000
14. David_Bo... 4,000
20. bounsy 3,800
21. mplungjan 3,670
22. climbgunks 3,600
23. fibo 3,500
24. edster9... 3,075
25. oleber 3,000
25. BrianMM 3,000
25. SidFishes 3,000

1. Tintin 365,336
2. ahoffmann 351,285
3. ozo 274,797
4. Adam314 256,803
5. maneshr 132,537
6. FishMonger 125,550
7. Peewee 52,613
8. kandura 49,055
9. mouatts 49,010
10. Perl_Diver 45,042
11. teraplane 34,495
12. dorward 30,623
13. mjcoyne 30,171
14. mplungjan 26,395
15. hielo 21,550
16. faster 21,210
17. jhurst 20,492
18. b0lsc0tt 20,272
19. dutchfoxer 19,305
20. kawas 19,275
21. MasseyM 18,530
22. icd 17,330
23. mrjoltcola 17,300
24. alamo 16,470
25. inq123 16,467

	[x] Posted via EE Mobile
	Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again.

03/09/2004 at 04:25AM PST, ID: 20912237

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

5.8

Determining if a file exists (PERL)

Asked by DavidLeeding in CGI Scripting

Tags: perl, file, exists

Hi

Although I have a background in programming, PERL is completely new to me...and I'm getting nowhere fast!! Hoping you can help!

I have obtained a PERL script that is used in conjunction with a web form to upload a customer's file (or files) to a server. The script is working perfectly except for one flaw...if the user's file does not exist locally (eg the user typed an invalid file name), the script still acts as though the file *was* uploaded successfully. In fact, it creates a zero-length file on the server, and reports to the user that the file was uploaded.

Ideally, I'd like the script to fail gracefully if the filename does not exist locally.

Can this be done???

The following is an extract of the script to give you some context. I have marked the area where I think (?) the appropriate test would go (assuming there is something that can be done).

$ERROR_BADFILE = "/ord_err1.htm";
$SAVE_DIRECTORY = "/home/usrname/www/orders";
...
$| = 1;
chop $SAVE_DIRECTORY if ($SAVE_DIRECTORY =~ /\/$/);
use CGI qw(:standard); # Script uses CGI.pm
$query = new CGI;

foreach $key (sort {$a <=> $b} $query->param()) {
next if ($key =~ /^\s*$/);
next if ($query->param($key) =~ /^\s*$/);
next if ($key !~ /^file-to-upload-(\d+)$/);
$Number = $1;

if ($query->param($key) =~ /([^\/\\]+)$/) {
$Filename = $1;
$Filename =~ s/^\.+//;
$File_Handle = $query->param($key);

#### --> Test in here? if ( ! (file exists locally)) {
#### redirect to error page (ie $ERROR_BADFILE)
#### then exit

} else {
print $query->redirect($ERROR_BADFILE);
exit;
}

Hoping someone can enlighten me!!

Thanks

David

View the Solution FREE for 30 Days

20091028-EE-VQP-85

Determining if a file exists (PERL)

Asked by DavidLeeding in CGI Scripting

Tags: perl, file, exists

About this solution