[Cascavel-pm] Scripts iguais mas resultados diferentes

Gabriel Vieira gabriel.vieira em gmail.com
Terça Junho 21 20:40:40 PDT 2005


#!/usr/bin/perl

$| = 1;
use CGI::Carp qw(fatalsToBrowser);

adicione no início e veja a mensagem que aparecerá no navegado :)

Abraços
----- Original Message ----- 
From: "kamusbr" <kamusbr em gmail.com>
To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
Sent: Thursday, June 23, 2005 12:45 AM
Subject: [Cascavel-pm] Scripts iguais mas resultados diferentes


Pessoal, gostaria de saber uma coisa, estava testando uns códigos q
peguei em alguns lugares na Internet e no mínimo estou achando curioso o
comportamento de um deles...

Primeira coisa, no meu micro fiz o seguinte:

robson em diamante:~/Desenvolvimento/perl$ diff data.pl data4.pl
robson em diamante:~/Desenvolvimento/perl$

ambos no memso diretório e sem diferenças...

mas qnd executo pelo apache;

O "data.pl", resultado:

Updated: December 31, 1969

Já com "data4.pl" tenho:


  Internal Server Error

The server encountered an internal error or misconfiguration and was
unable to complete your request.

Please contact the server administrator, webmaster em localhost and inform
them of the time the error occurred, and anything you might have done
that may have caused the error.

More information about this error may be available in the server error log.

------------------------------------------------------------------------
Apache/2.0.54 (Debian GNU/Linux) PHP/4.3.10-15 mod_perl/1.999.21
Perl/v5.8.4 Server at 200.165.81.132 Port 80


O código fonte do data.pl

#!/usr/bin/perl

my ($Source)     = $ENV{"REQUEST_URI"};
my ($Path)         = $ENV{"DOCUMENT_ROOT"};
my ($Filename)     = "$Path/$Source";
my ($Day,$Month,$Year)    = (localtime( (stat($Filename))[9] ))[3..5];
my (@Months)    = ('January',
               'February',
               'March',
               'April',
               'May',
               'June',
               'July',
               'August',
               'September',
               'October',
               'November',
               'December');

$Year = $Year+1900;

####################################################################################
# display the status bar with the last updated date, and top link
####################################################################################
print "Content-type: text/html \n\n";
print <<HTML
<tr>
   <td>&nbsp;</td>
      <td style='padding:0 5px;'>
         <table cellpadding='0' cellspacing='0' width='100%'>
         <tr>
         <td width='50%' align='left' style='font-size:20px;color:#000000;'>
            Updated: $Months[$Month] $Day, $Year
         </td>
         <td width='50%' align='right'>
            <a style='font-size:10px;color:#000000;' href='#top'>Top</a>
         </td>
         </tr>
         </table>
         </td>
         </tr>
HTML

Alguma idéia?

_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm 



Mais detalhes sobre a lista de discussão Cascavel-pm