rtyug

rtyug
Рейтинг
263
Регистрация
13.05.2009
Должность
perl,php,sql,javascript(jquery),freebsd/linux
Интересы
perl,php,sql,javascript(jquery),freebsd/linux
https://minfin.com.ua/blogs/94589307/115366/

для шаблонизатора smarty (или аналогичного) будет сложнова-то...

если в HTML через цикл, то можно как нибудь

а бесплатного нету... для начала?

в гугле все таки не так много информации есть, все говрят что єто сложнова-то сделать

если код не нужен, то можешь посмотреть пример на православном perl для HTML::Template

1) ну вот только оно будет все разбросано, не упорядоченно:

sub _boom {
my $self = shift;
my $c = shift;
my $aray = shift;
my $s = ceil(@{$aray} / $c);
my $b;
push @{$b->[$_ % $c]->{COLUMNS}}, {VALUE => $array[$_]} foreach (0 .. $#array);
return $b;
}

<table>
<TMPL_LOOP NAME="ROWS">
<tr>
<TMPL_LOOP NAME="COLUMNS">
<td><TMPL_VAR NAME="VALUE"/></td>
</TMPL_LOOP NAME>
</tr>
</TMPL_LOOP>
</table>

2) втрой вариант, то что надо, только возможно можно и попроще, просто под разные вещи он расчитан:


sub col_array {
my $self = shift;

my $loop_data = shift if @_;

$loop_data = $self->_array2table($loop_data, 4, order=>'rows', empty=>);

my $ll;

if ($loop_data) {
foreach $_ ( 0 .. scalar(@{$loop_data}) ) {

foreach my $ff ( @{$loop_data->[$_]} ) {

push @{$ll->[ $_ ]->{COLUMNS}}, $ff;
}

$loop_data->[$_] = undef;

}
}

return $ll if ($ll);

}

sub _array2table {

my $self = shift;

# Usage: $table = array2table($aref, $cols, [order=>'rows',empty=>'']);
# print "@$_\n" for @$table;
# $table - ссылка на двумерный прямоугольный массив (таблицу)
# $aref - ссылка на массив с данными
# $cols - кол-во колонок таблицы
# order=>'rows/cols/cols_fill' - порядок заполнения таблицы,
# 1 2 3 1 4 7 1 4 6
# 4 5 6 2 5 - 2 5 7
# 7 - - 3 6 - 3 - -
# empty=>'string' - строка для заполнения пустых ячеек

return undef if ref($_[0]) ne 'ARRAY';
my @a = @{(shift)};
my $cols = shift;
return undef if $cols !~ /^\d+$/;
my %par = (
order => 'rows', # or cols or cols_fill
empty => '',

);
return undef if $par{order} !~ /^rows|cols(?:_fill)?$/;

my @b;
my $rows = int(@a/$cols);
my $rest = ($cols-@a%$cols)%$cols;
$rows++ if $rest;
#print $#a+1, " $cols x $rows, $rest\n";
push @a, $par{empty} for 1..$rest;

if ($par{order} eq 'rows') {
for (my $i=0; $i<$rows; $i++) {
@{$b[$i]} = splice @a, 0, $cols;
}
}

if ($par{order} =~ /^cols/) {
if ($' eq '_fill') { # cols_fill
foreach (1 .. $rest) {
splice @a, $#a-$rows*($rest-$_), 0, $par{empty};
pop @a;
}
}
for (my $i=0; $i<@a; $i++) {
push @{$b[$i % $rows]}, $a[$i];
}
}
return \@b;
}


=head1 NAME

Model Class

=head1 SYNOPSIS

See L<MyApp>

=head1 DESCRIPTION

Model Class.

=head1 AUTHOR

Dmitriy

email: rtyug@ukr.net

=head1 LICENSE

This library is free software, you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

1;

вызываем col_array передаем туда массив-хэшей который сделать от DBI

    push @{$loop_data}, $_ while $_ = $sth->fetchrow_hashref();
$loop_data = col_array($loop_data);

на php я это тоже делал, только не могу зайти на сервер сейчас, если сильно надо могу потом показать если получиться...

как работает: http://ldap.x0.org.ua/photo_album/9/2

убрать A запись www в DNS

товарищи, подскажите не могу найти, во-первых можно ли не использовать nginx? мне он не нужен нафиг... для моего фремворка есть встроенный дополнительный веб-сервер

в этой ставтье он используется, и в плеере написано что нужен псевдо-стриминг который идет от nginx

http://adw0rd.ru/2009/videoservice-handmade/

т.е. не подходит, как включить плеер через JS? и где где взять?

я скачал несколько плееров, но там нет иструкций, нифига, не видно куда вставлять сам файл flv...

вот еще нашел:

http://www.zedcreate.ru/fvideo/

я поставил у себя:

<script type='text/javascript' src='http://www.zedcreate.ru/fplayer/swfobject.js'></script>
<script type='text/javascript'>
var s1 = new SWFObject('http://www.zedcreate.ru/fplayer/player.swf','player','400','300','9');
s1.addParam('allowfullscreen','true');
s1.addParam('allowscriptaccess','always');
s1.addParam('flashvars','file=http://localhost:3000/video/N111.flv');
s1.write('preview');
</script>

но нифига не работает....

сейчас интересует вопрос, подскажите, когда просматриваешь тему, например http://ldap.x0.org.ua/view_section/87

то там показываються только разделы! НО т.е. в каждом разделе могут быть: под разделы и темы

а чтобы посмотреть темы данного раздела, нужно нажать на Посмотреть темы этого раздела откроется: http://ldap.x0.org.ua/view_content_head/87

есть вопрос:

может быть тут где просматривается http://ldap.x0.org.ua/view_section/87 раздел отображать его подразделы и темы?? (там только подразделы)

я понятно объяснил?

====

мое мнение:

например, с одной строны мне кажется фигово что отображаються только разделы, хотя мне и так нормально, т.е. идельно это сделать не возможно...

============

============

============

============

хотел еще спросить, а как все таки его развивать, нужно ли делать красивый внешний вид?

например http://habrahabr.ru/blogs/perl/59542/ похож не много интерфейс на мой, т.е. там красиво не делали...

т.е. нужно просто наполнить полезной информацией в первую очередь?

Ghost Bear:
Едет из-за блока <div class="infList"><h3>Новые вакансии</h3>.

а почему из-за чего?

это не CMS, там верстка не дописанная оказалась....

код большой

вот эта страница и есть код

проблема в том что 3 элемент в таблице берется в зеленый фон и в рамочку, а нужно чтобы было 2 элемента в зеленом фоне и в рамочке, т.е. где-то наезжается из-за незакрытого тэга наверное?

как понять почему 3 элемент в зеленом фоне?

я нашел много ссылок и ссылки перечислялись в этом топике

можно классом или через консоль


#!/bin/sh

for i in *
do
rm -rfv ffmpeg2pass-0.log
ffmpeg -i $i -deinterlace -s 512x384 -f flv -acodec libmp3lame -ab 64k -ar 44100 -vcodec flv -b 1000k -pass 1 -y "${i%avi}flv"
ffmpeg -i $i -deinterlace -s 512x384 -f flv -acodec libmp3lame -ab 64k -ar 44100 -vcodec flv -b 1000k -pass 2 -y "${i%avi}flv"
mv "${i%mpg}flv" flv/

done

я выбрал через консоль

(или так как тут http://adw0rd.ru/2009/videoservice-handmade/)

просто хотел спросить какие форматы поддерживает ffmpeg, я так понял что все возможные?

подскажите, какие форматы поддреживает ffmpeg при конвертировании в flv?

я не могу найти

http://www.google.com.ua/#hl=uk&q=flv+ffmpeg&meta=&aq=f&oq=&fp=a0e5374bacaee8e0

http://www.google.com.ua/#hl=uk&q=flv+format+ffmpeg&meta=&aq=&oq=&fp=a0e5374bacaee8e0

flv это один из лушчших форматов?

нужно загрузить файл на сервер, и там определить его формат?

если формат не правильный, то удалить, если праивльный - потом перевести в flv...

Всего: 2062