Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+161.8
function casecyr($eng) {
$rus = $eng;
if ($eng=="д") $rus = "Д";
if ($eng=="ш") $rus = "Ш";
if ($eng=="п") $rus = "П";
if ($eng=="с") $rus = "С";
if ($eng=="т") $rus = "Т";
if ($eng=="ч") $rus = "Ч";
if ($eng=="в") $rus = "В";
if ($eng=="о") $rus = "О";
return $rus;
}Без комментариев
Werdn,
02 Ноября 2009
+163.7
print '<SELECT name="date_rozd_year">
<option>1933</option><option>1934</option><option>1935</option><option>1936</option>
<option>1937</option><option>1938</option><option>1939</option><option>1940</option>
<option>1941</option><option>1942</option><option>1943</option><option>1944</option>
<option>1945</option><option>1946</option><option>1947</option><option>1948</option>
<option>1949</option><option>1950</option><option>1951</option><option>1952</option>
<option>1953</option><option>1954</option><option>1955</option><option>1956</option>
<option>1957</option><option>1958</option><option>1959</option><option>1960</option>
<option>1961</option><option>1962</option><option>1963</option><option>1964</option>
<option>1965</option><option>1966</option><option>1967</option><option>1968</option>
<option>1969</option><option>1970</option><option>1971</option><option>1972</option>
<option>1973</option><option>1974</option><option>1975</option><option>1976</option>
<option>1977</option><option>1978</option><option>1979</option><option>1980</option>
<option>1981</option><option>1982</option><option>1983</option><option>1984</option>
<option>1985</option><option>1986</option><option>1987</option><option>1988</option>
<option>1989</option><option>1990</option><option>1991</option><option>1992</option>
<option>1993</option><option>1994</option><option>1995</option><option>1996</option>
<option>1997</option><option>1998</option><option>1999</option><option>2000</option>
<option>2001</option><option>2002</option><option>2003</option><option>2004</option>
<option>2005</option><option>2006</option><option>2007</option><option>2008</option>
<option>2009</option><option>2010</option>
</SELECT>";вот такой код выбора года рождения :)
marten.spb,
02 Ноября 2009
+98
static void CompressFile(string inFilename,
string outFilename)
{
FileStream sourceFile = File.OpenRead(inFilename);
FileStream destFile = File.Create(outFilename);
// Create the Compressed stream
GZipStream compStream =
new GZipStream(destFile, CompressionMode.Compress);
// Write the data
int theByte = sourceFile.ReadByte();
while (theByte != -1)
{
compStream.WriteByte((byte)theByte);
theByte = sourceFile.ReadByte();
}
// Clean it up
sourceFile.Close();
compStream.Close();
destFile.Close();
}
Пример из книги "Microsoft .NET Framework 2.0 Application Development Foundation", официального пособия для подготовки к экзамену 70-536.
Угадайте, почему "сжатые" файлы получаются больше несжатых.
gecko,
02 Ноября 2009
+151.2
while($record = $sql->GetResultAssoc())
{
echo $tpl['main_table_item']->FillTemplate(array("%counter" => $counter, "%fio" => $record['fio'], "%phone" => $record['phone'], "%status" => statusToStr($record['status'])));
$counter++;
}самопальное шаблонное двигло. выводит данные из базы в табличном виде.
nolka4,
02 Ноября 2009
+160.5
echo "Ваша корзина:";
foreach ($_REQUEST as $name => $value)
switch ($value)
{
case "ras1":
echo "<p> $name";
break;
case "ras2":
echo "<p> $name";
break;
case "ras3":
echo "<p> $name";
break;
case "ras4":
echo "<p> $name";
break;
case "ras5":
echo "<p> $name";
break;
case "ras6":
echo "<p> $name";
break;
case "ras7":
echo "<p> $name";
break;
case "ras8":
echo "<p> $name";
break;
}
$filename= 'zakaz.txt';
$somecontent = "$name\n";
if (is_writable($filename)) {
fwrite().
if (!$handle = fopen($filename, 'w')) {
echo "Не могу открыть файл ($filename)";
exit;
}
if (fwrite($handle, $somecontent) === FALSE) {
exit;
}
fclose($handle);
}чувак спросил на форуме, почему его скрипт все время выводит строку 'vc' вместо страницы. Потом привел аццкий код :)
varan,
01 Ноября 2009
+164.6
<?php
// ...
$content = join('',file("".$main_server."site/".$links_path.""));
if (strlen($content) >= 20000)$content = 'Ошибка!';
echo $content;
?>
Самая убойная проверка на ошибки, которую я только видел. Из предыстории, есть один один супер проект, который раздает данные какого-либо рода.
Данные выхватываются с неге по http, что мы собственно и видим, и выводятся.
Основной проект написан так, что если друг URL не верен, то выдает var_dump отладочной информации. В связи с этим автор этого кода выдал афигенную проверку на ошибки.
Достойно индусов :D
про загрузку я вообще молчу, это же просто изврат ( в общем, решение жутко плохое, но на половине клиентов оно крутится до сих пор, и исправлять это никто не собирается :(
nicolay-punin,
01 Ноября 2009
+151.8
return DSQR(a.r) + DSQR(a.i);
return fabs(a.r) + fabs(a.i);
Пример говроретурна одной из моих функций в дипломном проекте на Си. Я собрал несколько вариантов программы, комментируя в различных местах различные return такого вида, как сейчас представлено выше.
DSQR() -- это макрос возведения в квадрат из numericalrecepies. Там вся программа на основе "рецептного" кода.
interested,
01 Ноября 2009
−129.2
def true_or_nil bool
!!bool || nil
end
eveel,
01 Ноября 2009
−370.1
id |sed "s/^[^(]*(\([^)]*\)).*/\1/"Воссоздал прямо щас, не ручаюсь, что выражение в точности такое, но очень близко.
nil,
01 Ноября 2009
+99.9
procedure TConsFrame.FillConsGrid(ConsHistory: TConsumptionHistory;
Date: TDateTime);
var
I: Integer;
begin
for I := 0 to ConsHistory.Count - 1 do
begin
if not (TConsumptionRecord(ConsHistory[I]).State = osDeleted) then
if DateOf(TConsumptionRecord(ConsHistory[I]).Date) = DateOf(Date) then
if ((not FIsSelTime) or
(FIsSelTime and (FSelTime = FormatDateTime('HH:mm', TConsumptionRecord(ConsHistory[I]).Date)))) then
if ((not FIsSelName) or (FIsSelName and (pos(FSelName, TProduct.TGlobalCollection.Products.RecursiveGetNodeByID(TConsumptionRecord(ConsHistory[I]).IDProduct)).Name) > 0))) then
ConsGrid.AddChild(nil, ConsHistory[I]);
end;
end;
Чтобы это безобразие написать пришлось студию на два монитора раздвинуть =)))
И то ладно еще что на 4 проверки разбил - а то в одной вообще страшно было. Потом как оказалось у меня в цикле идет вызов рекурсивной процедуры, короче все виснет. Так что это безобразие в контексте моей программы оказалось еще и бесолезным %)
Washington,
31 Октября 2009
Follow us!