вывод функции

[ProFTP]

вообщем странный кол нашелЮ очень часто идеи такое:

Код: Выделить всё

read( $file, $buf, $r );
read( $file, $buf, $r );
read( $file, $buf, $r );
$oc = tell( $file );

куда записывается вывод певрй функции?

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[zg]

Код: Выделить всё

     ssize_t
     read(int d, void *buf, size_t nbytes);

DESCRIPTION
     The read() system call attempts to read nbytes of data from the object
     referenced by the descriptor d into the buffer pointed to by buf.

RETURN VALUES
     If successful, the number of bytes actually read is returned.  Upon read-
     ing end-of-file, zero is returned.  Otherwise, a -1 is returned and the
     global variable errno is set to indicate the error.

man 2 read

[ProFTP]

подожди, а что должно быть? я вижу что оно возвращает 0 или -1

а если 2 функции в подрят, то что тогда? смысла не пойму?

в данном коде который я показал роль играет только последняя функция, а предыдущие на всякий случай?

[hizel]

да тупняк, пропускает какуюто часть, нет чтобы seek сделать

[Syward]

вообщем странный кол нашелЮ очень часто идеи такое:

Код: Выделить всё

read( $file, $buf, $r );
read( $file, $buf, $r );
read( $file, $buf, $r );
$oc = tell( $file );

куда записывается вывод певрй функции?

По логике - никуда:
читаем раз - всосали
читаем два - уже было - всосали заново
читаем три - всосали еще раз в переменную - обозначили $oc - вывели.
ЗЫ. в перле не уверен (может оно каждый вывод пишет куда-нить), но в пыхе отработало бы только последнее условие...

[ProFTP]

вот эта функцию

Код: Выделить всё

sub rec_shift {
my( $file, $dir ) = @_;
my( $buf, $ofs );
while( 1 ) {
$ofs = tell( $file );
if( !$dir ) {
read( $file, $buf, $read_block_size );
my $o = index( $buf, "\x0a" );
if( $o >= 0 ) {
seek( $file, $ofs + $o + 1, 0 );
return;
} elsif( eof( $file ) ) {
return;
}
} else {
my $r = $ofs > $read_block_size ? $read_block_size : $ofs;
seek( $file, -$r, 1 );
read( $file, $buf, $r );
seek( $file, -$r, 1 );
my $o = rindex( $buf, "\x0a" );
if( $o >= 0 ) {
seek( $file, $o + 1, 1 );
return;
} elsif( $r == $ofs ) {
seek( $file, 0, 0 );
return;
}
}
}
}

что return выводит?

чтобы много не писать, вот кусок функции как она вызывается:

Код: Выделить всё

seek( $file, $oc, 0 );
rec_shift( $file, 1 );
$oc = tell( $file );

и куда она записывается

или полностью пример привести, просто не в тему будет,ну вот полностью:

Код: Выделить всё

#!/usr/bin/perl -w
my $read_block_size = 256;
sub rec_shift {
my( $file, $dir ) = @_;
my( $buf, $ofs );
while( 1 ) {
$ofs = tell( $file );
if( !$dir ) {
read( $file, $buf, $read_block_size );
my $o = index( $buf, "\x0a" );
if( $o >= 0 ) {
seek( $file, $ofs + $o + 1, 0 );
return;
} elsif( eof( $file ) ) {
return;
}
} else {
my $r = $ofs > $read_block_size ? $read_block_size : $ofs;
seek( $file, -$r, 1 );
read( $file, $buf, $r );
seek( $file, -$r, 1 );
my $o = rindex( $buf, "\x0a" );
if( $o >= 0 ) {
seek( $file, $o + 1, 1 );
return;
} elsif( $r == $ofs ) {
seek( $file, 0, 0 );
return;
}
}
}
}
sub rec_read {
my( $file ) = @_;
my $ln = '';
my $buf;
while( 1 ) {
my $ofs = tell( $file );
read( $file, $buf, $read_block_size );
my $o = index( $buf, "\x0a" );
if( $o >= 0 ) {
seek( $file, $ofs + $o + 1, 0 );
$ln .= substr( $buf, 0, $o );
return split( /\t/, $ln );
}
$ln .= $buf;
}
}
sub filebinsearch {
my( $file, $fkey, $beg, $end ) = @_;
return undef if $beg == $end;
my $oc = int( ( $beg + $end ) / 2 ); # ( $beg + $end ) >> 1 -- 32bit :-(
seek( $file, $oc, 0 );
rec_shift( $file, 1 );
$oc = tell( $file );
my( $key, $value ) = rec_read( $file );
return $value if $key eq $fkey;
if( $key lt $fkey ) {
filebinsearch( $file, $fkey, tell( $file ), $end );
} else {
filebinsearch( $file, $fkey, $beg, $oc );
}
}
sub findinfile {
my( $filename, $key ) = @_;
my $value = undef;
my $filesize = 0;
return undef if !-f $filename;
return undef if !-r $filename;
return undef if !($filesize = -s $filename);
return undef if !open( $file, '<', $filename );
return filebinsearch( $file, $key, 0, $filesize );
}
print findinfile( $ARGV[0], $ARGV[1] ) . "\n";

[ProFTP]

оказывается что эту функцию можно написать, так:

Код: Выделить всё

perl -MData::Dumper -0x0a -lne '%hash = ( %hash, split "\t" ); END { print Dumper \%hash }' file