Re: [PERL] Konvertering af gif til hex

[sslug@sslug]

On Thu, Nov 14, 2002 at 10:32:27PM +0100, Henning Hansen wrote:
> Jeg har fjernet 3D'erne men der virker stadig ikke er der nogle der kan
> "justere" scriptet så det
> virker ?

> > open(F, "myimage.gif") || die $!;
> > binmode(F);
> > $s =3D $hx =3D "";
> > while (read(F, $s, 1) > 0) {
> > $hx .=3D sprintf("%02X", ord($s));
> > }
> > close F;
> > print "The hex-encoded GIF file is: $hx\n";

Det her virker fint - hvad er dit problem?

open(F, "myimage.gif") || die $!;
binmode(F);
$s = $hx = "";
while (read(F, $s, 1) > 0)
{
  $hx .= sprintf("%02X", ord($s));
}
close F;
print "The hex-encoded GIF file is: $hx\n";

MVH David