ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Yury_Sukhovey 2:452/50.66 20 May 2002 07:53:22
To : Alexey Lyakhovsky
Subject : Re: binary file
--------------------------------------------------------------------------------
> #!/usr/bin/perl
>
> $|=1;
>
> $filename = "prog.exe";
> $filesize = (-s "$filename");
>
> print "Accept-Ranges: bytes\n";
> print "Content-Length: $filesize\n";
> print "Content-Disposition: filename=$filename\n";
> print "Content-type: application/bin\n\n";
>
> open(PIC,"$filename") || die "can't open the file";
binary(PIC);
while(<PIC>) {
print;
};
> close(PIC) || die "can't close the file";
--- InterSquish NNTP Server/FTN Gate v.1.7.0.1
* Origin: ... Crazy Computers Systems ... (2:452/50.66)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: binary file 
