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

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

Parent Directory | Revision Log | View Patch Patch

-revision 1.4 by cvsjoko,
Fri Aug 16 19:06:39 2002 UTC
+revision 1.9 by joko,
Thu Dec  5 13:54:00 2002 UTC
 Line 3
  #  $Id$
  #
  #  $Log$
+ #  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
+ #
+ #  Revision 1.6  2002/11/17 07:18:59  joko
+ #  + sub deep_copy
+ #
+ #  Revision 1.5  2002/10/27 18:34:28  joko
+ #  + sub now
+ #
  #  Revision 1.4  2002/08/16 19:06:39  cvsjoko
  #  + sub getDirList
  #
-Line 20
+Line 37
  package libp;
+ use strict;
+ use warnings;
  require Exporter;
- @ISA = qw( Exporter );
+ our @ISA = qw( Exporter );
- @EXPORT = qw(
+ our @EXPORT_OK = qw(
      Dumper
      md5 md5_hex md5_base64
      ParseDate UnixDate
-Line 31 
 require Exporter;
+Line 51 
 require Exporter;
      croak
      array_getDifference
      getDirList
+     now
+     deep_copy
+     getNewPerlObjectByPkgName
+     cmd
+     run_cmds
  );
- use strict;
- use warnings;
  use Data::Dumper;
  use Digest::MD5 qw(md5 md5_hex md5_base64);
-Line 103 
 sub stripHtml {
+Line 125 
 sub stripHtml {
    return $result;
  }
- sub array_getRelations {
-   my $a_ref = shift;
-   my $b_ref = shift;
-   my @a = @{$a_ref};
-   my @b = @{$b_ref};
-   my @isect = my @diff = my @union = ();
-   my $e;
-   my %count;
-   foreach $e (@a, @b) { $count{$e}++ }
-   foreach $e (keys %count) {
-       push(@union, $e);
-       push @{ $count{$e} == 2 ? \@isect : \@diff }, $e;
-   }
-   my $result = {
-     union => \@union,
-     isect => \@isect,
-     diff => \@diff,
-   };
- }
- sub array_getDifference {
-   my $res = array_getRelations(shift, shift);
-   return $res->{diff};
- }
  # =============================================
-Line 204 
 sub getDirList {
+Line 198 
 sub getDirList {
  # =============================================
+ sub now {
+   return strftime("%Y-%m-%d %H:%M:%S", localtime);
+ }
+ # ACK's go to ...
+ sub deep_copy {
+   my $this = shift;
+   if (not ref $this) {
+     $this;
+   } elsif (ref $this eq "ARRAY") {
+     [map deep_copy($_), @$this];
+   } elsif (ref $this eq "HASH") {
+     +{map { $_ => deep_copy($this->{$_}) } keys %$this};
+   } elsif (ref $this eq "CODE") {
+     $this;
+   #} else { die "deep_copy asks: what type is $this?" }
+   } else { print "deep_copy asks: what type is $this?", "\n"; }
+ }
+ sub getNewPerlObjectByPkgName {
+   my $pkgname = shift;
+   my $args = shift;
+   #$logger->debug( __PACKAGE__ . "->getNewPerlObjectByPkgName( pkgname $pkgname args $args )" );
+   my $evstring = "use $pkgname;";
+   eval($evstring);
+   #$@ && $logger->error( __PACKAGE__ . ':' . __LINE__ . " Error in eval $evstring: " .  $@ );
+   $@ && print( __PACKAGE__ . ':' . __LINE__ . " Error in eval \"$evstring\": " .  $@ );
+   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.4
 


changed lines


 
Added in v.1.9
 Legend:



Removed from v.1.4
 


changed lines


 
Added in v.1.9
-Removed from v.1.4
+Added in v.1.9

MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26