Bonjour,

Je ne sais pas si qqn a deja developpe du perl avec mason : en fait, c du code perl embarque dans des pages html.
Le probleme que j'ai est que sur la page, je charge un fichier mais que pour le site seb, ce fichier n'existe pas.
Ce fichier existe bel et bien et je suppose que l'erreur vient du path ou alors le fichier doit absolument etre au meme endroit que le script ?!
Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
<html>
<head>
<title>Stupid title</title>
<!--link rel="stylesheet" type="text/css" href="/style/main.css"-->
</head>
<body>
<%text>
This is my first page. Just want to reproduce what I have written down on a paper.<br>
See if it goes to a new line itself ! :-0 <br>
No we have to put the html command to make a newline &lt;br&gt;
</%text>
 
<& 'add.mcomp' &>
 
</body>
</html>
 
 
<& '../autohandler.mcomp' &>
<!--
<%flags>
inherit => undef
</%flags>
-->
 
ca c'est ma page d'accueil
 
<p>If you want to load a file 
	<ul>
		<li>press the <strong>Browse</strong> button</li>
		<li>select a file</li>
		<li>press the <strong>Add This File</strong> button.</li>
	</ul>
</p>
 
<form action="input/addfile.mason" method="post">
<table>
	<tr>
		<td align="right">File :</td>
		<td align="left" height=10><input id="input" name="inputfile" type="file"></td>
	</tr>
</table>
<p><input type="submit" value="Submit"></p>
</form>
 ca c'est le contenu de 'add.mcomp'
 
<html>
<head>
<title>New web page</title>
</head>
<body>
<p>File explored</p>
 
<%perl>
use strict;
use diagnostics;
my $infilename = " ";
eval{
	$infilename = $inputfile;
	open INFILE,$infilename
		or die "Can't open file '$infilename' \n";
};
if ($@){
    print "Can't open file '$infilename', program halting. \n "; 
    print "File not found ";
} else {
	print "Okay, file named $infilename exists, continuing \n"; 
	print "\n";
}
 
</%perl>
 
 
</body>
</html>
 
<%args>
	$inputfile
</%args>
 
<%flags>
inherit => undef
</%flags>
et voici le script perl dont le travail est de me dire si le fichier existe et peut donc etre lu.

Si qqn a un quelconque indice, ca pourrait me debloquer.

Le fichier que j'essaie de charger a un chemin comme suit : "L:\repertoire\fich.txt"

Merci

[Edit]Balises [ code ] et [ /code ] ajoutées, n'importe comment, par 2Eurocents.
Merci d'éditer le message pour les placer correctement et de les utiliser chaque fois qu'il faut mettre le code en valeur[/Edit]