- 1
- 2
String labOrderOrMrnParam = (null == order)
? order.getMayoAccessNumber() : order.getOrderNumber();
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+145.5
String labOrderOrMrnParam = (null == order)
? order.getMayoAccessNumber() : order.getOrderNumber();
Что же делать если объект - null
−83
@archive = File.open(File.expand_path(__FILE__), "rb"){|f| f.read}.gsub(/\r/, "").split(/\n\n/)[-1].split("\n").collect{|s| s[2..-1]}.join("\n").unpack("m").shift
Жесть
+148
25/07 21:53]Л@мEp
// $file - array
$b = array();
$b[0] = $file[2];
$b[1] = $file[3];
$file[2] = $b[1]; и тд. Такая глупость взбрела . Файлы сакс аще
Вот такое вот заменение части масива
+142
NameVirtualHost 127.0.0.1:80
<VirtualHost 127.0.0.1:80>
ServerAdmin webmaster@localhost
ServerName site.net
ServerAlias www.site.net
DocumentRoot /home/test/www/site.net
ErrorLog /var/log/apache2/error.log
LogLevel warn
CustomLog /var/log/apache2/access.log combined
</VirtualHost>
<VirtualHost 127.0.0.1:80>
ServerAdmin webmaster@localhost
ServerName sub.site.net
ServerAlias www.sub.site.net
DocumentRoot /home/test/www/sub.site.net
ErrorLog /var/log/apache2/error.log
LogLevel warn
CustomLog /var/log/apache2/access.log combined
</VirtualHost>
Виртуал хост апатча..
−150
print $string =~ /([http|ftp|https]+:\/\/[\w\/\.\?\&\=]+)/;
Типичный индусский регэксп (в данном случае ищет УРЛ в строчке)
+149
if(!$isfileex)
{
//Если файла с кешем не существует, сгенерировать код.
if($filecache=="")
{
$temp=$filecontent;
}else
{
$temp = file_get_contents($filecache);
}
}
/*$datacontent ="ура товарищи";*/
/*--------------*/
if(!$isfileex)
{
if($datacontent==""){
$temp=shablonning($temp,$name);}
else{
$temp=$datacontent;}
}
+153
//я не индийский кодер, просто обновляем переменные сессии, чтобы не экспайрились
$_SESSION['login'] = $_SESSION['login'];
$_SESSION['authstring'] = $_SESSION['authstring'];
+151
@$sel = $_POST["sel"]?$_POST["sel"]:$_GET["sel"];
из огромной кучи (продолжение следует)
−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";
текст/самолёт
Собсно, тут даже Перл ни при чем, просто улыбнуло...