/[cvs]/nfo/perl/libs/libp.pm

Diff of /nfo/perl/libs/libp.pm

Parent Directory | Revision Log | View Patch Patch

-revision 1.7 by joko,
Fri Nov 29 04:44:53 2002 UTC
+revision 1.10 by joko,
Thu Dec 19 01:05:35 2002 UTC
 Line 3
  #  $Id$
  #
  #  $Log$
+ #  Revision 1.10  2002/12/19 01:05:35  joko
+ #  + sub today
+ #
+ #  Revision 1.9  2002/12/05 13:54:00  joko
+ #  + fix: let 'deep_copy' print its message out (instead of die)
+ #
+ #  Revision 1.8  2002/12/01 22:11:35  joko
+ #  + sub cmd
+ #  + sub run_cmds
+ #
  #  Revision 1.7  2002/11/29 04:44:53  joko
  #  - sub array_getRelations
  #  + sub getNewPerlObjectByPkgName
-Line 47 
 our @EXPORT_OK = qw(
+Line 57 
 our @EXPORT_OK = qw(
      now
      deep_copy
      getNewPerlObjectByPkgName
+     cmd
+     run_cmds
+     today
  );
  use Data::Dumper;
-Line 193 
 sub now {
+Line 206 
 sub now {
    return strftime("%Y-%m-%d %H:%M:%S", localtime);
  }
+ sub today {
+   return strftime("%Y-%m-%d", localtime);
+ }
  # ACK's go to ...
  sub deep_copy {
    my $this = shift;
-Line 204 
 sub deep_copy {
+Line 221 
 sub deep_copy {
      +{map { $_ => deep_copy($this->{$_}) } keys %$this};
    } elsif (ref $this eq "CODE") {
      $this;
-   } else { die "what type is $_?" }
+   #} else { die "deep_copy asks: what type is $this?" }
+   } else { print "deep_copy asks: what type is $this?", "\n"; }
  }
  sub getNewPerlObjectByPkgName {
-Line 218 
 sub getNewPerlObjectByPkgName {
+Line 236 
 sub getNewPerlObjectByPkgName {
    return $pkgname->new($args);
  }
+ sub cmd ($) {
+   my $cmd = shift;
+   $cmd = 'perl ' . $cmd;
+   my $sep = "-" x 90;
+   print $sep, "\n";
+   print "  ", $cmd, "\n";
+   print $sep, "\n";
+   system($cmd);
+   print "\n";
+ }
+ sub run_cmds {
+   foreach (@_) {
+     cmd($_);
+   }
+ }
 ;

 Legend:



Removed from v.1.7
 


changed lines


 
Added in v.1.10
 Legend:



Removed from v.1.7
 


changed lines


 
Added in v.1.10
-Removed from v.1.7
+Added in v.1.10

MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26