Speicherzugriffsfehler

[Christian Petzold]

Ich habe ein Script geschrieben das die Uhrzeit zerstückelt und aus externen Bildern zusammensetzt. Warum kommt der Speicherzugriffsfehler??

--

#!/usr/bin/perl -w

use GD;

$ = 1;

$time = localtime(time);
($sek,$min,$hour) = localtime(time);
$newtime = sprintf("%02d:%02d:%02d",$hour,$min,$sek);
$newesttime = $hour.$min.$sek;

binmode STDOUT;

$im = new GD::Image(11*6,14);
$x = 0;
for ($loop=1; $loop <=7;$loop++) {
  &getgif($x,substr($newesttime,$loop-1,1),$im);
  $x+=11;
  print substr($newesttime,$loop-1,1);
}

print "Content-type: image/gif\n\n";
print $im->gif;

exit(0);

sub getgif {
  local($x,$num,$im)=@_;
  $ending = ".\gif";
  open(GIF,$num.$ending);
  $gif = newFromGif GD::Image(GIF);
  $im->copy($gif,$x,0,0,0,11,14);
  close(GIF);
}

[Felix]

1. Hallo!

2. Schreib doch ein paar Kommentare in Dein Script, damit
man auch weiss, was du anstellst ;)

also dann:

• den unbuffered output ($ = 1;) kannst du weglassen.
• du machst ein "print substr($newesttime,$loop-1,1);"
    bevor du den Content-Type definiert hast -> Fehlerquelle
• ansonsten tippe ich auf einen fehler im umgang mit
    der GD; die restlichen statements sollten perl nicht
    zu einem speicherfehler bringen können

cu
Felix

Ich habe ein Script geschrieben das die Uhrzeit zerstückelt und aus externen Bildern zusammensetzt. Warum kommt der Speicherzugriffsfehler??

--

#!/usr/bin/perl -w

use GD;

$ = 1;

$time = localtime(time);
($sek,$min,$hour) = localtime(time);
$newtime = sprintf("%02d:%02d:%02d",$hour,$min,$sek);
$newesttime = $hour.$min.$sek;

binmode STDOUT;

$im = new GD::Image(11*6,14);
$x = 0;
for ($loop=1; $loop <=7;$loop++) {
  &getgif($x,substr($newesttime,$loop-1,1),$im);
  $x+=11;
  print substr($newesttime,$loop-1,1);
}

print "Content-type: image/gif\n\n";
print $im->gif;

exit(0);

sub getgif {
  local($x,$num,$im)=@_;
  $ending = ".\gif";
  open(GIF,$num.$ending);
  $gif = newFromGif GD::Image(GIF);
  $im->copy($gif,$x,0,0,0,11,14);
  close(GIF);
}