Opened by kai123 at 2005-03-29 17:07
User since
2003-08-04
7321 Artikel
ModeratorIn
2003-08-04
7321 Artikel
ModeratorIn
[quote=renee,29.03.2005, 15:21]...
*) gewöhne Dir Fehlerbehandlungen an! z.B. open(FH,"<rechnungsnr.txt") or die $!;
*) Das heutige Datum kannst Du auch so bekommen:
Das ersetzt Dir den kompletten $now_date-Block...[/quote]
naja, wir wollen ja schön sauber bleiben, oder?
*) gewöhne Dir Fehlerbehandlungen an! z.B. open(FH,"<rechnungsnr.txt") or die $!;
*) Das heutige Datum kannst Du auch so bekommen:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
my $heute = get_date();
print $heute,"\n";
sub get_date{
my $year = ((localtime(time))[5] + 1900);
my $month = ((localtime(time))[4] + 1);
my $day = (localtime(time))[3];
my $date = sprintf("%02d.%02d.%04d",$day,$month,$year);
return $date;
}# end of subroutine
Das ersetzt Dir den kompletten $now_date-Block...[/quote]
naja, wir wollen ja schön sauber bleiben, oder?
Code: (dl
)
1
2
3
4
5
sub get_date{
my $tm = shift || time;
my @lt = localtime($tm);
return (sprintf "%02d.%02d.%04d", $lt[3], $lt[4] + 1, $lt[5] + 1900);
}# end of subroutine