Нашли или выдавили из себя код, который нельзя назвать нормальным,
на который без улыбки не взглянешь?
Не торопитесь его удалять или рефакторить, — запостите его на
говнокод.ру, посмеёмся вместе!
# ВЫШЕ БУДЕТ МАСИВ С 1 до 7 за семь дней дабы делать выборку
for ($indx=0; $indx<7; $indx++) { ## каждый раз работаем с датой
@sql=();
my $bindings = 0;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time+$indx*86400); # а тут надо будет написать что умножить эл. масива на чтото
$date=($year+1900).'-'.($mon<9?'0':'').($mon+1).'-'.($mday<10?'0':'').$mday;
$url2=$url.$date;
#####$url2=$url;
$cinema=&get($url2);
...
} # это скобка массива
Вот такой фрагмент парсера. Комменты читать по 3-4 раза для полного впечатления
create procedure [dbo].[pbsp_GetClientUsers]
(
@ClientId int,
@fname varchar(100),
@lname varchar(100),
@email varchar(150)
)
AS
DECLARE @SQL varchar(1000)
Set @SQL = 'Select TOP 500 *, tblRoles.title AS Role from tblUser INNER JOIN
tbl_mtm_UserRoles ON tblUser.UserId = tbl_mtm_UserRoles.UserId INNER JOIN
tblRoles ON tbl_mtm_UserRoles.RoleId = tblRoles.Id where tblUser.ClientId = ' + STR(@ClientId) + ' '
if LEN(@fname) > 0
Set @SQL = @SQL + ' AND tblUser.fName like ''' + @fname + '%'' '
if LEN(@lname) > 0
Set @SQL = @SQL + ' AND tblUser.lName like ''' + @lname + '%'' '
if LEN(@email) > 0
Set @SQL = @SQL + ' AND tblUser.Email like ''' + @email + '%'' '
Set @SQL = @SQL + ' Order by tblUser.lName, tblUser.Fname'
exec (@SQL)
По долгу работы приходится местами переписывать унаследованный код. Я держалась неделю, но после этого шедевра все таки зарегилась на сайте и решила поделиться перлом. Интересно, что бы делали, если бы параметров еще штук пускай даже двадцать добавить?