- 1
- 2
- 3
- 4
for ( my $i = 0 ; $i < $pmcount ; $i ++ ) {
$_ = $array_ref->[$i];
# workin' hard
}
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−166
for ( my $i = 0 ; $i < $pmcount ; $i ++ ) {
$_ = $array_ref->[$i];
# workin' hard
}
if ( $perl eq 'C' ) { print "govnokod повсеместно" }
−148
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
sub get0 { print("get0\n"); return 0; }
sub get2 { print("get2\n"); return 2; }
my ($a, $b) = (1, 1);
$a ? $b = get0() : $b = get2();
print Dumper({
'a' => $a,
'b' => $b,
});
Результат несколько обескураживает :)
http://ideone.com/V60Y1L
−108
push @sqls, defined($result->{sql}) ? $result->{sql} : return;
Не знаю, что тут написать. Сегодня это встретил в коде.
−154
sub makeCleanString {
my ($self, $uncleanString) = @_;
$uncleanString = lc($uncleanString);
my @allowedChars = ("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "@", ".", " ");
my $cleanString = "";
# SPLIT THE uncleanString INTO AN ARRAY
my @usernameAR = split(//, $uncleanString);
my $usernameARcount = @usernameAR;
my $run=0;
for ($run=0;$run<$usernameARcount;$run++) {
if(grep $_ eq $usernameAR[$run], @allowedChars) {
$cleanString .= $usernameAR[$run];
}
}
return $cleanString;
}
Так же есть подобные методы только для букв и цифр
−139
#!/usr/bin/perl -w
use strict;
use warnings;
use diagnostics;
use LWP::Simple;
binmode(STDOUT, ":utf8");
my $url = 'http://govnokod.ru/comments';
my $document = get $url; die "Couldn't get $url" unless defined $document;
$document =~ s/\n/ /g;
$document =~ s/\h+/ /g;
my @arr = ( $document =~ m/(?<=\<strong class="entry-author">)(.*?)(?<=\<a class="answer")/gi );
my $str;
my @sink;
foreach my $val (@arr) {
$val =~ m/(?<=\>)(.*?)(?=\<\/a\>)/i;
$str = "Author: ".$1;
$val =~ m/(?<=published" title\=")(.*?)(?=")/i;
( my $dt, my $tm ) = split('T', $1);
$str = $str . "\nDate: " . $dt;
$str = $str . "\nTime: " . $tm;
$val =~ m/(?<=\<\/abbr\> \<a href\=")(.*?)(?=" name\=)/i;
$str = $str."\nLink: ". $1;
$val =~ m/(?<=\<div class\="entry-comment">)(.*?)(?=\<\/div\>)/i;
$str = $str . "\nComment: " . str_formater($1);
push(@sink, $str);
}
@sink = reverse (@sink);
foreach my $v (@sink) {
print ("\n".("+" x 81)."\n"."$v\n");
}
print ("\n".("+" x 81)."\n\n");
sub str_formater {
my $str = $_[0];
my $res="";
my $cmt_len = 69;
my $cmt_indent = 11;
while (1) {
if (length($str)<=$cmt_len) {
return $res . $str;
}
$res = $res . substr($str,0, $cmt_len) . "\n" . (" " x $cmt_indent);
$str = substr($str, $cmt_len);
}
return $res;
}
exit 0;
Давненько перловку не заваривал...
−136
sub parse_http_date($)
{
my ($date)=@_;
my %months=(Jan=>0,Feb=>1,Mar=>2,Apr=>3,May=>4,Jun=>5,Jul=>6,Aug=>7,Sep=>8,Oct=>9,Nov=>10,Dec=>11);
if($date=~/^[SMTWF][a-z][a-z], (\d\d) ([JFMASOND][a-z][a-z]) (\d\d\d\d) (\d\d):(\d\d):(\d\d) GMT$/)
{ return eval { timegm($6,$5,$4,$1,$months{$2},$3-1900) } }
return undef;
}
Вакаба.
−133
return { map { $_ => $domain->$_ } qw( name ) };
Мини-говнокодик. Ради одного имени наворотили map.
−125
if ($f_ISSUE_DATE !~ /^\d\d.\d\d.\d\d\d\d/ && $f_ISSUE_DATE){
$e_ISSUE_DATE = 'Дата выдачи паспорта вводится в формате "ДД.ММ.ГГГГ"';
$errorCounter ++;
}
if ($f_ADDRESS_OF_SVC_SHOP !~ /^(\w+)\s+(.+?),\s*(ул\.)\s*(.*)$/ &&
$f_ADDRESS_OF_SVC_SHOP !~ /^(\w+)\s+(.+?),\s*(бул\.)\s*(.*)$/ &&
$f_ADDRESS_OF_SVC_SHOP !~ /^(\w+)\s+(.+?),\s*(наб\.)\s*(.*)$/ &&
$f_ADDRESS_OF_SVC_SHOP !~ /^(\w+)\s+(.+?),\s*(пер\.)\s*(.*)$/ &&
$f_ADDRESS_OF_SVC_SHOP !~ /^(\w+)\s+(.+?),\s*(пл\.)\s*(.*)$/ &&
$f_ADDRESS_OF_SVC_SHOP !~ /^(\w+)\s+(.+?),\s*(пр\.)\s*(.*)$/ &&
$f_ADDRESS_OF_SVC_SHOP !~ /^(\w+)\s+(.+?),\s*(просп\.)\s*(.*)$/ &&
$f_ADDRESS_OF_SVC_SHOP !~ /^(\w+)\s+(.+?),\s*(шоссе)\s*(.*)$/ &&
$f_ADDRESS_OF_SVC_SHOP !~ /^(\w+)\s+(.+?),\s*()\s*(.*)$/) {
$e_ADDRESS_OF_SVC_SHOP = 'Неправильный формат фактического адреса';
$errorCounter ++;
}
Ебаный стыд!!!
скопипасчено из попавшегося куска "исподников", идет прям подряд.
Уж даже и не знаю - что больший пиздец - первая часть или вторая.
PS. Для тех кто вел себя хорого - конфетка!
ВЕСЬ, БЛЯДЬ, проект постоен без единого гвозьдя!!! НИ ОДИН объект не пострадал!!!
−124
> cat 1.pl
$owner = "Jack";
print "This is $owner\n";
print "This is $owner's house\n";
> perl 1.pl
This is Jack
This is house
The old package delimiter was a single quote, but double colon is now the preferred delimiter, in part because it's more readable to humans, and in part because it's more readable to emacs macros. It also makes C++ programmers feel like they know what's going on--as opposed to using the single quote as separator, which was there to make Ada programmers feel like they knew what was going on. Because the old-fashioned syntax is still supported for backwards compatibility, if you try to use a string like "This is $owner's house" , you'll be accessing $owner::s ; that is, the $s variable in package owner , which is probably not what you meant. Use braces to disambiguate, as in "This is ${owner}'s house" .
−104
if ($key eq $default_key){
my $author = $default_author;
if ($release){
if (length $release <= $max_release){
if (length $description <= $max_description){
if ($filename){
if (clearfn(\$filename) eq 1){
if (! -e "$files_dir/$filename"){
$release = clear($release);
$description = clear($description);
$description = bb($description);
open FILE, '>>db.txt' or die $!;
print FILE "$release\t$filename\t$description\t$author\t" . ftime() . "\n";
close FILE;
open FILE, ">$files_dir/$filename" or die "$!";
binmode FILE;
while (<$filehandle>){
print FILE;
}
close FILE;
$result = 'Файл успешно добавлен!';
rss();
}
else {
$result = 'Ошибка: Файл с таким именем уже загружен!';
}
}
else {
$result = 'Ошибка: Недопустимое расширение файла!';
}
}
else {
$result = 'Ошибка: Нет файла!';
}
}
else {
$result = "Ошибка: В описании должно быть не более $max_description символов!";
}
}
else {
$result = "Ошибка: В названии должно быть не более $max_release символов!";
}
}
else {
$result = 'Ошибка: Нет названия!';
}
}
else {
$result = 'Ошибка: ';
}
Писал паскалеребенок