cteni a zapis binarniho (jpg) souboru

[Richard Janasek]

Dobre rano,
ano, vstup mam take v binmode, alespon si to myslim.
(nedulezite radky jsem vypustil kvuli prehlednosti)

open(FOTO, $fotka);   # --- cteme soubor
binmode (FOTO);

@foto = <FOTO>;


$VystupniSoubor2 = $Jmeno;
open (VystupFoto2, ">>$VystupniSoubor2");
binmode (VystupFoto2);

while (<FOTO>)
{
$Fotecka = getc FOTO;
}
close(FOTO);

print VystupFoto2 "$Fotecka\n";
}

> On Tue, Sep 14, 2010 at 03:31:11PM +0200, Richard Janasek wrote:
>> mam tam tohle:
>>
>> $VystupniSoubor = $Prijmeni;
>> open (VystupFoto, ">>$VystupniSoubor");
>> binmode (VystupFoto);
>
> A zrejme tam mate jeste nejaky dalsi open VstupFoto a na ten filehandle to
> chcete pouzit taky.
> 									P.
>
>> (pouštím to na Win XP a ActiveState Perl5 v12)
>> R.
>>
>>
>>> On Tue, Sep 14, 2010 at 01:33:14PM +0200, Richard Janasek wrote:
>>>> prosim o radu, jakym zpusobem cist binarni soubor (jpg) a jeho nasledny
>>>> zapis do jineho souboru (v podstate kopirka). Kdyz pouziju pristup jako
>>>> k textovemu souboru - getc, tak vystup neni identicky se vstupem (jsou
>>>> vynechany prazdne znaky).
>>>
>>> Funkce binmode? (Manual dokonce rika " ... regardless of platform, use
>>> binmode() on binary data, like for example images." :-)
>>> 							S pozdravem,	P.
>>> _______________________________________________
>>> Perl mailing list
>>> Perl na mailman.muni.cz
>>> https://mailman.muni.cz/mailman/listinfo/perl
>>
>> _______________________________________________
>> Perl mailing list
>> Perl na mailman.muni.cz
>> https://mailman.muni.cz/mailman/listinfo/perl
> _______________________________________________
> Perl mailing list
> Perl na mailman.muni.cz
> https://mailman.muni.cz/mailman/listinfo/perl