| 3 |
# $Id$ |
# $Id$ |
| 4 |
# |
# |
| 5 |
# $Log$ |
# $Log$ |
| 6 |
|
# Revision 1.6 2002/11/17 07:18:59 joko |
| 7 |
|
# + sub deep_copy |
| 8 |
|
# |
| 9 |
|
# Revision 1.5 2002/10/27 18:34:28 joko |
| 10 |
|
# + sub now |
| 11 |
|
# |
| 12 |
# Revision 1.4 2002/08/16 19:06:39 cvsjoko |
# Revision 1.4 2002/08/16 19:06:39 cvsjoko |
| 13 |
# + sub getDirList |
# + sub getDirList |
| 14 |
# |
# |
| 37 |
croak |
croak |
| 38 |
array_getDifference |
array_getDifference |
| 39 |
getDirList |
getDirList |
| 40 |
|
now |
| 41 |
|
deep_copy |
| 42 |
); |
); |
| 43 |
|
|
| 44 |
use strict; |
use strict; |
| 212 |
# ============================================= |
# ============================================= |
| 213 |
|
|
| 214 |
|
|
| 215 |
|
sub now { |
| 216 |
|
return strftime("%Y-%m-%d %H:%M:%S", localtime); |
| 217 |
|
} |
| 218 |
|
|
| 219 |
|
sub deep_copy { |
| 220 |
|
my $this = shift; |
| 221 |
|
if (not ref $this) { |
| 222 |
|
$this; |
| 223 |
|
} elsif (ref $this eq "ARRAY") { |
| 224 |
|
[map deep_copy($_), @$this]; |
| 225 |
|
} elsif (ref $this eq "HASH") { |
| 226 |
|
+{map { $_ => deep_copy($this->{$_}) } keys %$this}; |
| 227 |
|
} elsif (ref $this eq "CODE") { |
| 228 |
|
$this; |
| 229 |
|
} else { die "what type is $_?" } |
| 230 |
|
} |
| 231 |
|
|
| 232 |
1; |
1; |
Parent Directory
| 
Revision Log
| 
Patch
