SV: [PERL] Konvertering af gif til hex

["Henning Hansen" <sslug@sslug>]

Jeg har fjernet 3D'erne men der virker stadig ikke er der nogle der kan
"justere" scriptet så det
virker ?

-----Oprindelig meddelelse-----
Fra: Henning Hansen [mailto:sslug@sslug
Sendt: 12. november 2002 13:24
Til: sslug@sslug
Emne: SV: [PERL] Konvertering af gif til hex


Hej

Jeg glemte nok at sige at jeg var "grøn" på perl, så jeg forstår ikke lige
hvad "QP-enkodingen. Fjern eller 3D'erne" betyder

Sorry

Mvh Henning Hansen

"Henning Hansen" <sslug@sslug> writes:

> Er der nogen der kan hjælpe mig med dette. Jeg skal have et perlscript til
> at konvertere et gif billed til hex. Jeg har fået anvist dette script,
> men kan ikke få det til at virke ?

Hvordan ikke virke?

> 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";

Prøv at slet resterne af QP-enkodingen. Fjern eller 3D'erne og prøv om
det så ikke virker.

--
 Peter Makholm     |                                 Wisdom has two parts:
 sslug@sslug |                           1) having a lot to say, and
 http://hacking.dk |                                      2) not saying it