- 1
print $string =~ /([http|ftp|https]+:\/\/[\w\/\.\?\&\=]+)/;
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−150
print $string =~ /([http|ftp|https]+:\/\/[\w\/\.\?\&\=]+)/;
Типичный индусский регэксп (в данном случае ищет УРЛ в строчке)
−147
if (!@ARGV){
die ("Usage: palindrom.pl word\n");
}
$text = $ARGV[0];
if (length($text) < 4){
die ("Error: Word must be not less than 4 leters\n");
}
if ($text =~ m/(.)(.). ?\2\1/){
print "Result: Match\n";
}
else{
print "Result: Not match\n";
}
Код как-бэ проверяет является ли слово палиндромом.
На самом деле проверяются только первые два символа с начала и конца. То есть строка "alla123h5vj3galla" является палиндромом.
−237.4
print "Content-type: text/plane \n\n";
текст/самолёт
Собсно, тут даже Перл ни при чем, просто улыбнуло...
+149
$pizdeckakoyzaprosische = "SELECT DISTINCT direct_pay.*, t_user.name AS username, kart.nominal, kart.name AS kartname, exemplyar.serial, exemplyar.usdok, exemplyar.balance FROM direct_pay, t_user, t_dealer, kart, exemplyar WHERE direct_pay.id_device = t_user.id AND t_user.id = {$_SESSION['id']} AND exemplyar.id = direct_pay.id_kart AND exemplyar.id_kart = kart.id$sql$stord";
$result = pg_query($dbconnk, $pizdeckakoyzaprosische);
while ($row = pg_fetch_assoc($result)) {
3-4 года назад.. начинал писать платежную систему.. до сих пор знакомый в коде разбирается :)
−83
Select Case LCase(ParamA) 'push eax
Case "eax": hhh = &H50: Put #123, , hhh: GoTo 344
Case "ecx": hhh = &H51: Put #123, , hhh: GoTo 344
Case "edx": hhh = &H52: Put #123, , hhh: GoTo 344
Case "ebx": hhh = &H53: Put #123, , hhh: GoTo 344
Case "esp": hhh = &H54: Put #123, , hhh: GoTo 344
Case "ebp": hhh = &H55: Put #123, , hhh: GoTo 344
Case "esi": hhh = &H56: Put #123, , hhh: GoTo 344
Case "edi": hhh = &H57: Put #123, , hhh: GoTo 344
Case "es": hhh = &H6: Put #123, , hhh
End Select
Не думал, что goto еще пользуются!
+143
$i = (True)?(True?True:False):False;
$i = !$i;
if (($i)?(!$i?$i:!$i):$i) die('Наговнокодить!');
die('Говнокод!');
что выведет скрипт? ))))
+152
function allowCheckout(enable) {
if (enable)
$("#btnMakeOrder").removeAttr("enabled");
else
$("#btnMakeOrder").removeAttr("disabled");
}
Код, который написал бельгийский Software Architect, пришедший из мира C++ говонокодинга.
Дальше будет...
+146
/**
* @see java.lang.Comparable#compareTo(java.lang.Object)
*/
public int compareTo( HandValue pValue ) throws NullPointerException
{
if(getCategory() == null || pValue.getCategory() == null || mTopCards == null)
throw new NullPointerException();
int toReturn = getCategory().compareTo(pValue.getCategory());
if(toReturn != 0)
return toReturn;
for(int i = 0; getCard(i) != null; i++)
{
toReturn = getCard(i).compareTo(pValue.getCard(i));
if(toReturn != 0)
return toReturn;
}
return 0;
}
очень долго смеялся, увидев этот код.
+144.1
#ifdef TYPE_A
#define LEN 10
#else
#define LEN_9 9
#endif
#ifdef TYPE_A
char str[LEN + 20];
#else
char str[LEN_9 + 20];
#endif
Макросня
+74.7
public boolean unDeployProcedure() {
...
Connection conn = null;
if (conn == null) {
return false;
}
...
}
Долго не мог понять почему в базе данных не удаляются процедуры созданные прогой, которые по определению должны удаляться. Наткнулся на замечательный кусок говнокода, открывший мне секрет такого поведения)