Perl-Scripts unleserlich???

[R.Schulze]

Hallo,

Ich hab nicht so besonders viel Wissen in Umgang mit Perl.
Wohl aber in anderen Programmiersprachen wie C/C++, Pascal oder JavaScript.
Doch frage ich mich beim Anblick einiger Perl-Scripts, ob die jeweiligen Programmierer entweder zu wenig Erfahrung oder ein besonders abstaktes Gehirn haben.

Dazu folgender Codeschnipsel (Perl):

######################################################################################

#!/usr/local/bin/perl

use CGI qw/:standard/;
$CGI::POST_MAX=1024 * 25;  # max 25K posts
$file_name = param('file_name');
$file_type = param('file_type');
&Print_Error if($file_name eq "");
&Print_Results;
sub Print_Results{
if($file_type eq "text"){
print header();
print start_html('File Upload Test');
print "<PRE><B>File Name:</B> $file_name\n";
print "<B>File Contents:</B>\n";
while(<$file_name>){ print $_; }
print "</PRE>";
print end_html;
} else {
print header('image/gif');
while(read($file_name,$data,1024)){ print $data; }
} # End of if..else
} # End of subroutine.

#######################################################################################

^ Und hier fängt es an.

Es ist doch schade, wenn man zu bloed ist den Code richtig auszurichten, das jeweilige Codeblockende
zu kommentieren, was da nun grade aufhört.

Oder???

So sieht es doch viel besser und übersichtlicher aus:

#################################################################

#!/usr/local/bin/perl

use CGI qw/:standard/;
$CGI::POST_MAX=1024 * 25;  # max 25K posts

$file_name = param('file_name');
$file_type = param('file_type');

&Print_Error if($file_name eq "");
&Print_Results;

sub Print_Results
{
if($file_type eq "text")
{
     ...
     while(<$file_name>)
  {
  print $_;
  }
              ...
}
else
{
     print header('image/gif');
     while(read($file_name,$data,1024))
  {
  print $data;
  }
   }
}

###########################################################

Dazu würde ich mal gern ein paar Sachen hören!!!