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

esskar

2003-08-27 03:17

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

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