<div style="font-size: small; font-family:
tahoma,verdana,lucida,sans-serif;">Supondo que vc está usando linux...<br>
<br>
Abre os dois scripts no VIM, veja se um deles está no formato [DOS] (vai
aparecer lah em baixo do vim/vi).<br>
<br>
No que aparecer DOS vc digita o comando no vim set ff=unix e salva depois<br>
<br>
Se ambos estiverem 755 e no formato unix.. vc vai ser feliz.<br>
<br>
[]s<br><br><div id="__assinatura__">
------------------------------------------------------<br>Rodolfo Sikora -
Desenvolvimento e Operações
<br>Inova Tecnologias de Informação
<br>Fone: 11 5049.1234
</div><br><blockquote style="border-left: 2px solid rgb(0, 0, 0);
padding-right: 0px; padding-left: 5px; margin-left: 5px; margin-right: 0px;">
<div style="font-family: arial; font-style: normal; font-variant: normal;
font-weight: normal; font-size: 10pt; line-height: normal; font-size-adjust:
none; font-stretch: normal;">----- Original Message ----- </div><div
style="background: rgb(228, 228, 228) none repeat scroll 0%;
-moz-background-clip: initial; -moz-background-origin: initial;
-moz-background-inline-policy: initial; font-family: arial; font-style: normal;
font-variant: normal; font-weight: normal; font-size: 10pt; line-height:
normal; font-size-adjust: none; font-stretch: normal;"><b>De:</b> kamusbr
<kamusbr@gmail.com></div><div style="font-family: arial; font-style:
normal; font-variant: normal; font-weight: normal; font-size: 10pt;
line-height: normal; font-size-adjust: none; font-stretch: normal;"><b>Para:
</b> Cascavel Perl Mongers <cascavel-pm@pm.org></div><div
style="font-family: arial; font-style: normal; font-variant: normal;
font-weight: normal; font-size: 10pt; line-height: normal; font-size-adjust:
none; font-stretch: normal;"><b>Data:</b> 22/06/2005 00:27</div><div
style="font-family: arial; font-style: normal; font-variant: normal;
font-weight: normal; font-size: 10pt; line-height: normal; font-size-adjust:
none; font-stretch: normal;"><b>Assunto:</b> [Cascavel-pm] Scripts iguais mas
resultados diferentes</div><div><br></div>Pessoal, gostaria de saber uma coisa,
estava testando uns códigos q<br>
peguei em alguns lugares na Internet e no mínimo estou achando curioso o<br>
comportamento de um deles...<br>
<br>
Primeira coisa, no meu micro fiz o seguinte:<br>
<br>
robson@diamante:~/Desenvolvimento/perl$ diff data.pl data4.pl<br>
robson@diamante:~/Desenvolvimento/perl$<br>
<br>
ambos no memso diretório e sem diferenças...<br>
<br>
mas qnd executo pelo apache;<br>
<br>
O "data.pl", resultado:<br>
<br>
Updated: December 31, 1969<br>
<br>
Já com "data4.pl" tenho:<br>
<br>
<br>
Internal Server Error<br>
<br>
The server encountered an internal error or misconfiguration and was<br>
unable to complete your request.<br>
<br>
Please contact the server administrator, webmaster@localhost and inform<br>
them of the time the error occurred, and anything you might have done<br>
that may have caused the error.<br>
<br>
More information about this error may be available in the server error log.<br>
<br>
------------------------------------------------------------------------<br>
Apache/2.0.54 (Debian GNU/Linux) PHP/4.3.10-15 mod_perl/1.999.21<br>
Perl/v5.8.4 Server at 200.165.81.132 Port 80<br>
<br>
<br>
O código fonte do data.pl<br>
<br>
#!/usr/bin/perl<br>
<br>
my ($Source) = $ENV{"REQUEST_URI"};<br>
my ($Path) = $ENV{"DOCUMENT_ROOT"};<br>
my ($Filename) = "$Path/$Source";<br>
my ($Day,$Month,$Year) = (localtime( (stat($Filename))[9] ))[3..5];<br>
my (@Months) = ('January',<br>
'February',<br>
'March',<br>
'April',<br>
'May',<br>
'June',<br>
'July',<br>
'August',<br>
'September',<br>
'October',<br>
'November',<br>
'December');<br>
<br>
$Year = $Year+1900;<br>
<br>
####################################################################################
<br>
# display the status bar with the last updated date, and top link<br>
####################################################################################
<br>
print "Content-type: text/html \n\n";<br>
print <<HTML<br>
<tr><br>
<td>&nbsp;</td><br>
<td style='padding:0 5px;'><br>
<table cellpadding='0' cellspacing='0' width='100%'><br>
<tr><br>
<td width='50%' align='left'
style='font-size:20px;color:#000000;'><br>
Updated: $Months[$Month] $Day, $Year<br>
</td><br>
<td width='50%' align='right'><br>
<a style='font-size:10px;color:#000000;'
href='#top'>Top</a><br>
</td><br>
</tr><br>
</table><br>
</td><br>
</tr><br>
HTML<br>
<br>
Alguma idéia?<br>
<br>
_______________________________________________<br>
Cascavel-pm mailing list<br>
Cascavel-pm@pm.org<br>
http://mail.pm.org/mailman/listinfo/cascavel-pm<br>
</blockquote>
</div>