3 |
# $Id$ |
# $Id$ |
4 |
# |
# |
5 |
# $Log$ |
# $Log$ |
6 |
|
# Revision 1.10 2002/12/19 01:05:35 joko |
7 |
|
# + sub today |
8 |
|
# |
9 |
|
# Revision 1.9 2002/12/05 13:54:00 joko |
10 |
|
# + fix: let 'deep_copy' print its message out (instead of die) |
11 |
|
# |
12 |
|
# Revision 1.8 2002/12/01 22:11:35 joko |
13 |
|
# + sub cmd |
14 |
|
# + sub run_cmds |
15 |
|
# |
16 |
# Revision 1.7 2002/11/29 04:44:53 joko |
# Revision 1.7 2002/11/29 04:44:53 joko |
17 |
# - sub array_getRelations |
# - sub array_getRelations |
18 |
# + sub getNewPerlObjectByPkgName |
# + sub getNewPerlObjectByPkgName |
57 |
now |
now |
58 |
deep_copy |
deep_copy |
59 |
getNewPerlObjectByPkgName |
getNewPerlObjectByPkgName |
60 |
|
cmd |
61 |
|
run_cmds |
62 |
|
today |
63 |
); |
); |
64 |
|
|
65 |
use Data::Dumper; |
use Data::Dumper; |
206 |
return strftime("%Y-%m-%d %H:%M:%S", localtime); |
return strftime("%Y-%m-%d %H:%M:%S", localtime); |
207 |
} |
} |
208 |
|
|
209 |
|
sub today { |
210 |
|
return strftime("%Y-%m-%d", localtime); |
211 |
|
} |
212 |
|
|
213 |
# ACK's go to ... |
# ACK's go to ... |
214 |
sub deep_copy { |
sub deep_copy { |
215 |
my $this = shift; |
my $this = shift; |
221 |
+{map { $_ => deep_copy($this->{$_}) } keys %$this}; |
+{map { $_ => deep_copy($this->{$_}) } keys %$this}; |
222 |
} elsif (ref $this eq "CODE") { |
} elsif (ref $this eq "CODE") { |
223 |
$this; |
$this; |
224 |
} else { die "what type is $_?" } |
#} else { die "deep_copy asks: what type is $this?" } |
225 |
|
} else { print "deep_copy asks: what type is $this?", "\n"; } |
226 |
} |
} |
227 |
|
|
228 |
sub getNewPerlObjectByPkgName { |
sub getNewPerlObjectByPkgName { |
236 |
return $pkgname->new($args); |
return $pkgname->new($args); |
237 |
} |
} |
238 |
|
|
239 |
|
sub cmd ($) { |
240 |
|
my $cmd = shift; |
241 |
|
$cmd = 'perl ' . $cmd; |
242 |
|
my $sep = "-" x 90; |
243 |
|
print $sep, "\n"; |
244 |
|
print " ", $cmd, "\n"; |
245 |
|
print $sep, "\n"; |
246 |
|
system($cmd); |
247 |
|
print "\n"; |
248 |
|
} |
249 |
|
|
250 |
|
sub run_cmds { |
251 |
|
foreach (@_) { |
252 |
|
cmd($_); |
253 |
|
} |
254 |
|
} |
255 |
|
|
256 |
1; |
1; |