Perl — Говнокод.ру

Perl / Говнокод #12833

−117

1

sprintf "%d-%02d-%02d", map { $$_[5]+1900, $$_[4]+1, $$_[3]+1 } [localtime];

Даты. Perl. Классика.

http://perldoc.perl.org/POSIX.html#strftime

Elvenfighter, 01 Апреля 2013

Комментарии (4)

Perl / Говнокод #12759

−84

1

use constant MAX_INT => 4294967295;

Code hard.

P.S. perl -MPOSIX -we 'print INT_MAX'

Elvenfighter, 17 Марта 2013

Комментарии (3)

Perl / Говнокод #12475

−115

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

#!/usr/bin/perl -w

use strict;

my $enchant_num=1;
my $tries_num=0;

print "Please, enter safe enchant lvl:\n";
my $safe_enchant_num=<STDIN>; chomp $safe_enchant_num;
print "Please enter maximum enchant lvl:\n";

my $max_enchant_num=<STDIN>; chomp $max_enchant_num;

if($max_enchant_num=~/\d/)
{
	if($max_enchant_num>$safe_enchant_num)
	{
		while($enchant_num<=$max_enchant_num)
		{
			if($enchant_num<=$safe_enchant_num)
			{
				while($enchant_num<=$safe_enchant_num)
				{
					print "Succesfully enchanted for +" . $enchant_num++ . "\r";
				}
			}
			else
			{
				if(rand(100)<=66)
				{
					print "Succesfully enchanted for +" . $enchant_num++ . "\r";
				}
				else
				{
					print "Enchant failed for +" . $enchant_num++ . "\r";
					$enchant_num=1;
					$tries_num++;
				}
			}
		}
	}
}
else
{
	print "\nInput is incorrect\n";
}
print "\nEnchanted for $max_enchant_num with: $tries_num fails.";

Комментарии излишни

mish, 25 Января 2013

Комментарии (12)

Perl / Говнокод #12382

−103

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44

# save all blocks to %blocks. Replace first block with <block blockname />
	sub _parse_block {
		my $tag = $_[1];
		
		last unless $_[0]=~s#($tag->[0]block +([^ /]*?) *$tag->[1])((.*?)$tag->[0]/?block$tag->[1])#
				my($opentag,$source,$bname,$bcode, $retval) = ($1,$3, $2, $4, '');
				if( $bcode =~m|$tag->[0]block +[^ /]*? *$tag->[1]|){
					_parse_block($source, $tag);
					$retval =  $opentag.$source;
				}else{
					$retval = "$tag->[0]block $bname /$tag->[1]" unless exists $blocks{$bname};
					
					$bcode=~s%$tag->[0](:? |/)*parent(:? |/)*$tag->[1]%$blocks{$bname}%g;
					
					$blocks{$bname} = $bcode; 
				}
				$retval;
		#seg;
	}
	
	foreach my $tag( @{$self->{tag_symbols}} ){
		_parse_block($code,$tag) while(1);
	}

	
	
	#if <blockmode> turned on, delete all data that not in blocks until </blockmode> or end of code
	
	foreach my $tag( @{$self->{tag_symbols}} ){
		$code=~s%$tag->[0] *blocks?(?:mode?)? *$tag->[1](.*?)(?:(?:$tag->[0] *\/ *blocks?(?:mode?)? *$tag->[1])|(';#end of code))%
			$_ = $1; my $end_of_code = $2;
			my $retval;
			$retval .= $1 while( m/($tag->[0]block +[^ ]*? *\/.*?$tag->[1])/g ); 
			
			$retval.$end_of_code;
		%esg;
		#
	}
	
	
	# replace <block blockname /> with a code block
	foreach my $tag( @{$self->{tag_symbols}} ){
		while($code=~s|$tag->[0]block +([A-zА-я0-9_-]*?) */.*?$tag->[1]|$blocks{$1}|eg){};
	};

Кусок шаблонизатора. Парсинг вложенных тегов регулярками.

nyaknyan, 02 Января 2013

Комментарии (8)

Perl / Говнокод #12381

−119

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17

sub merge_data_struct { # to, from, bless coderefs as
	for(keys %{$_[1]}){
		if(ref($_[1]->{$_}) eq 'HASH'){
			merge_data_struct($_[0]->{$_},$_[1]->{$_},$_[2]) 
		}
		elsif(ref($_[1]->{$_}) eq 'CODE')
		{
			warn "Merge datastruct conflict at $_[2] - key $_" if $_[0]->{$_};
			$_[0]->{$_} = $_[1]->{$_};
			bless ($_[0]->{$_},$_[2]) if($_[2]);
		}
		else
		{
			$_[0]->{$_} = $_[1]->{$_};
		}
	}
}

$_[]{}

nyaknyan, 02 Января 2013

Комментарии (2)

Perl / Говнокод #12343

−88

1
2
3

% if ($ARGS{standalone_bhv}) {} else {
%# Что-то делаем
% }

Mason. Автор явно знает толк..

Elvenfighter, 24 Декабря 2012

Комментарии (7)

Perl / Говнокод #12062

−166

1
2
3
4

for ( my $i = 0 ; $i < $pmcount ; $i ++ ) { 
    $_ = $array_ref->[$i]; 
    # workin' hard
}

if ( $perl eq 'C' ) { print "govnokod повсеместно" }

Elvenfighter, 06 Ноября 2012

Комментарии (5)

Perl / Говнокод #12011

−148

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16

#!/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

Elvenfighter, 27 Октября 2012

Комментарии (57)

Perl / Говнокод #11769

−108

1

push @sqls, defined($result->{sql}) ? $result->{sql} : return;

Не знаю, что тут написать. Сегодня это встретил в коде.

Elvenfighter, 13 Сентября 2012

Комментарии (2)

Perl / Говнокод #11730

−154

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18

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;
    }

Так же есть подобные методы только для букв и цифр

LiteError, 09 Сентября 2012

Комментарии (2)

Говнокод: по колено в коде.

Perl / Говнокод #12833

Perl / Говнокод #12759

Perl / Говнокод #12475

Perl / Говнокод #12382

Perl / Говнокод #12381

Perl / Говнокод #12343

Perl / Говнокод #12062

Perl / Говнокод #12011

Perl / Говнокод #11769

Perl / Говнокод #11730