strukturierung perl code - #133976 (Allgemeines zu Perl)

Gast wer

2010-03-03 12:25

Der Code ist ja geschrieben wie für perl2 wir sind mittlerweile bei perl5

Code (perl): (dl )

use strict;
use warnings;

#...

sub x{
  my $file=shift;
  my $y='';
  open( my $in, '<', $file ) or die "Konnte $file nicht oeffnen! ($!)\n";
  while (<$in>) {
  if (......){
    $y=....
  }
  close($in);
  return $y;
}

#...

my $y=x($file);

print '<html>';
print '<head>';
print '</head>';
print '<body>';
print $y; #< nicht '$y'
print '</body>';
print '</html>';