|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Albert N. MICHEEV 2:5049/80 16 Dec 2000 15:53:09
To : Anton V. Mechetin
Subject : ?
--------------------------------------------------------------------------------
Ïpèâåò Anton!
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
Îòâå÷àÿ íà ïèñüìî Anton V. Mechetin ê All îò <16 Äåê 00>:
AVM> òàê âîò òyò ôàéë áyäåò ïpîãëÿäûâàòüñÿ ïîñòpî÷íî _ñ íà÷àëà_. à êàê
AVM> ñäåëàòü ÷òîáû îí ïpîãëÿäûâàëñÿ _ñ êîíöà_
êòî-òî yæå ïîñòèë ñþäà ñâîé påöåïò:
_*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ perl_tips.txt ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*_
Âîò äîâîëüíî ïpèåìëåìûé ïî ñêîpîñòè è ïàìÿòè âàpèàíò:
sub PrintReverse
{
open FILE, shift; binmode FILE; seek FILE, 0, 2;
my $chunk = "";
for( my $pos = tell(FILE) & ~2047; $pos >= 0; $pos -= 2048 ) {
my $buf; seek FILE, $pos, 0; read FILE, $buf, 2048;
@_ = split /^/, $buf.$chunk;
$chunk = shift if $pos;
print pop while( @_ );
}
}
_*ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ*_
--- ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
* Origin: Ìû èç Ñîâåòñêîãî Ñîþçà, ïpèáûëè ïî êyëüòypíîìy îáìåíy. (2:5049/80)
Âåðíóòüñÿ ê ñïèñêó òåì, ñîðòèðîâàííûõ ïî: âîçðàñòàíèå äàòû óìåíüøåíèå äàòû òåìà àâòîð
| Òåìà: |
Àâòîð: |
Äàòà: |
|
? |
Anton V. Mechetin |
16 Dec 2000 07:45:06 |
 ? |
Leonid Subbotin |
16 Dec 2000 19:18:56 |
  ? |
Marat Gizatullin |
30 Dec 2000 18:37:13 |
 ? |
Leonid Subbotin |
03 Jan 2001 17:04:13 |
|
Re: ? |
Serge Shikov |
16 Dec 2000 17:09:36 |
|
Re: ? |
Pimenov Yuri |
16 Dec 2000 17:09:40 |
|
Re: ? |
Serge Shikov |
16 Dec 2000 18:03:27 |
|
? |
Albert N. MICHEEV |
16 Dec 2000 15:53:09 |
|
Re: ? |
Anton V. Mechetin |
18 Dec 2000 15:27:08 |
|
|
