Script hochladen ? - #15929 (Sonstige Beiträge (auch Spaß und Sinnloses))

BrownWolf

2003-08-27 05:08

User since
2003-08-15
308 Artikel
BenutzerIn
[default_avatar]

[quote=esskar,27.08.2003, 01:17]perltidy ist ja nicht die wahl...
du solltest dir beim entwickeln einfach die mühe machen, einzurücken...

bsp.

aus

Code (perl): (dl )

sub get_date {
my($sec,$min,$hour,$day,$month,$year) = (localtime($_[0]))[0..5];
my $datum = sprintf "%02d.%02d.%04d - %02d:%02d:%02d",$day,$month+1,$year+1900,$hour,$min,$sec;
return $datum;
}

sub new_pass {
my @password = ("a".."z","A".."Z",0..9);
my $password = join '', map { $password[int rand @password] } 0..7;
return $password;
}

wird

Code (perl): (dl )

sub get_date
{
    my($sec, $min, $hour, $day, $month, $year) = (localtime($_[0]))[0..5];
    my $datum = sprintf "%02d.%02d.%04d - %02d:%02d:%02d", $day, $month+1, $year+1900, $hour, $min, $sec;
    return $datum;
}

sub new_pass
{
    my @password = ("a".."z","A".."Z",0..9);
    my $password = join '', map { $password[int rand @password] } 0..7;
    return $password;
}

oder so[/quote]
Wenn ich programmiere, dann mach ich das und will nicht erst stundenlang einrücken ;)

Code (perl): ()

1
2
3

sub _{s;;xrqIpiql\\{}p{pl{R>rl{N{}gjwpkssq]>rl{N;;;*{{}=*{_};;
&#36{{}={q{{{}}}=>[reverse+split+reverse+q;}{;]};&#36{{}->{q{{{}}}}->[@{{}];}
&#36{{}=reverse+_(q{{}}=>q{{}})^chr(30)x+length&_(q{{}}=>,q{{}})and+print;