- 1
Я заебался жать на рефреш весь долбанный день со всех устройств, чтобы запостить гет
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+146
Я заебался жать на рефреш весь долбанный день со всех устройств, чтобы запостить гет
+147
Рефакторинг всего сайта.
В html:
<a class="gal" href="ссылка">
<p><img width="96" height="63" alt="" src="image.jpg"></p>
<p>Название</p>
</a>
В админке уже сделал ресайс изображений!
И вдруг оказывается в CSS:
.gal img {
border: 1px solid #F4EDDC;
display: block;
height: 100px;
margin: 0 auto;
width: 160px;
}
Изменить дело 5 сек.. Но зло берет.
+147
<?
out_banner_java(); // Выводим Java Script для слайдера
?>
+127
<HTML>
<HEAD>
<TITLE>Free Web Graphics - Buttons, Backgrounds, Dividers, Bullets...</TITLE>
<meta name="author" content="EverEden Design">
<TITLE>Contact Us </TITLE>
</HEAD>
<BODY BGCOLOR="FFFFFF" BODY BACKGROUND="/images/whstuccobk2.gif" TEXT="#003333" LINK="#660033" VLINK="#003333" ALINK="#660033">
...
<HTML>
<HEAD>
<TITLE>Contact Information</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#990066" LINK="#006633" VLINK="#339900">
...
</BODY>
</HTML>
Эта страница была сделана явно для проверки HTML-парсеров=)
http://www.graphics-4free.com/contact.html
+132
# <connection id="ftp_cpe02">
# <user value="*****" />
# <password value="*****" />
# <host value="*********" />
# <passive value="true" />
# <path value="/var/logs" />
# </connection>
Новый опус от техподдержки.
Раздел как бэ закомментирован
+137
-define(NO_AGE_GROUP, "0").
-define(BELOW_18, "1").
-define(ABOVE_18, "2").
Это Erlang если что...
Если не в курсе, то двойные кавычки в Erlang это короткая запись создания списка, естественно, как списки эти константы никогда не используются.
+132
open System.Net
open System.Text.RegularExpressions
open System.Text
open System
type userInfo =
{ User : string;
Rating : double;}
let mutable Users = []
(* Заполняем списки юзверей *)
let getUsersInfo s =
let mutable m = Regex.Match(s, @">(?<user>[^<]+)</a></td>\s+<td class=""strength"">[^<]+</td>\s+<td class=""rating""><strong>(?<rating>[^<]+)") //+ Оптимизировать регулярку. (Page 2)
while(m.Success) do
let info = {User = m.Groups.["user"].Value; Rating = m.Groups.["rating"].Value |> double}
Users <- Users @ [info]
m <- m.NextMatch()
(* скачивание страницы по индексу *)
let getSourceForUsers p =
let url = "http://freehabr.ru/people/good/page" + string(p)
let wc = new WebClient();
let s = wc.DownloadString(url);
printfn "Разобрана %i страница" p
getUsersInfo s
(* получить индекс последней страницы *)
let getLastPage =
let wc = new WebClient()
wc.Encoding <- Encoding.UTF8
let s = wc.DownloadString "http://freehabr.ru/people/"
Regex.Match(s,@"(?<=e)\d+(?=/"">п)").Value |> int
let lastPage = getLastPage
let printList a =
a |> List.iter (fun x -> printfn "%s рейтинг - %.2f" x.User x.Rating)
Console.ReadKey() |> ignore
[<EntryPoint>]
let main(args:string[]) =
printfn "Парсер юзерей с положительным (или нулевым) рейтингом"
printfn "%i -- Количество страниц" lastPage
printfn "scan --XX - __ Cбор списка пользователей от первой страницы до XX"
printfn "scan --YY --XX __ Сбор списка пользователей от YY страницы до XX. \nXX не может быть больше, чем максимальное количество страниц в списках юзеров с положительной кармой"
let userInput = Console.ReadLine();
match userInput with
| _ when userInput.StartsWith "scan --" -> let a = Regex.Split(userInput,"--")
let dig = a.[1] |> int
if a.Length = 2 then // для первого варианта
[1 .. dig]
|> List.iter getSourceForUsers
else // для второго
[ dig .. a.[2] |> int ]
|> List.iter getSourceForUsers
printfn "~~~\nЮзеры посчитаны"
| _ -> printfn "Завершение приложения"
exit(1)
printfn "~~~~\nОбработка списка\n~~~~"
printfn "usersGreaterRate --XX __ Показать пользователей,\nу которых рейтинг больше или равен XX"
printfn "usersLessRate --XX __ Показать пользователей,\nу которых рейтинг меньше или равен XX"
printfn "usersWithNamesBegins --String __ Показать пользователей,\nу которых имя начинается со строки String"
let usersOper = Console.ReadLine()
let param = Regex.Split(usersOper," --").[1]
match usersOper with
| _ when usersOper.StartsWith "usersGreaterRate --" -> Users
|> List.filter (fun x -> x.Rating > (param |> double))
|> printList
| _ when usersOper.StartsWith "usersLessRate --" -> Users
|> List.filter (fun x -> x.Rating < (param |> double))
|> printList
| _ when usersOper.StartsWith "usersWithNamesBegins --" -> Users
|> List.filter (fun x -> x.User.StartsWith param)
|> printList
| _ -> printfn "Завершение приложения"
exit(1)
0
+146
http://picomot.ru/
Наговнокодили тут новый проект
+129
;;; Returns a string and 'T' if the list is in a desc. or asc. order, and NIL otherwise
(defun ordered (list)
(let ((list-dec (copy-list list)))
(let ((list-inc (copy-list list)))
(let ((alist (sort list-inc #'<)))
(let ((dlist (sort list-dec #'>)))
(cond
((equal list dlist)
(format nil "~%The numbers in ~a are in a descending order. ~%T" list))
((equal list alist)
(format nil "~%The numbers in ~a are in an ascending order. ~%T" list))))))))
Задача была следующей: функция должна возвращать t (истина), если в списке все элементы либо в восходящем, либо в нисходящем порядкe, и соответсвенно nil (ложь), если нет. Думаю, вполне сгодится сюда :)
http://www.lispforum.com/viewtopic.php?f=2&t=1275
+124
<title>Наговнокодить — Говнокод.ру</title>
<meta name="keywords" content="говнокод, смешной код, быдлокод, быдлокодеры, индусы,
для программистов, про программистов, индусский код, записки программиста, говно, говнокод на php, mysql, perl" />
Требую чтобы пакинстанцы были сразу за индусами.