46
Perl / регулярное выражение . . .
« : 26 Января 2008, 04:32:47 »
неа . . .
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
if($bin[$i] == 1) {
$dec+=$ves_count;
}
$ves_count=$ves_count*2;
arto:
dlinu fiksirowannoj chasti znaete?
$/ = \\length_of_fix_part;
while () {
# now in $_ -- fix part of record
if ($_ eq "chunk1") {
local $/ = \\length_of_chunk1;
my $chunk1 =;
# processing...
}
# process other chunks
}