Sorry, that was just a mistake in the code...try:
my ($date) = scalar(localtime) =~ /(\d{4})$/;
return $date;
}
Code:
sub { my ($date) = scalar(localtime) =~ /(\d{4})$/;
return $date;
}
| Subject | Author | Views | Date |
|---|---|---|---|
current year global
|
klauslovgreen | 2797 | Jan 18, 2003, 3:14 AM |
|
Re: [klauslovgreen] current year global
|
Paul | 2726 | Jan 18, 2003, 3:17 AM |
|
Re: [Paul] current year global
|
klauslovgreen | 2722 | Jan 18, 2003, 5:50 AM |
|
Re: [klauslovgreen] current year global
|
Paul | 2713 | Jan 18, 2003, 6:04 AM |
|
Re: [Paul] current year global
|
klauslovgreen | 2719 | Jan 18, 2003, 6:09 AM |