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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by joko, Fri Nov 29 04:44:53 2002 UTC revision 1.8 by joko, Sun Dec 1 22:11:35 2002 UTC
# Line 3  Line 3 
3  #  $Id$  #  $Id$
4  #  #
5  #  $Log$  #  $Log$
6    #  Revision 1.8  2002/12/01 22:11:35  joko
7    #  + sub cmd
8    #  + sub run_cmds
9    #
10  #  Revision 1.7  2002/11/29 04:44:53  joko  #  Revision 1.7  2002/11/29 04:44:53  joko
11  #  - sub array_getRelations  #  - sub array_getRelations
12  #  + sub getNewPerlObjectByPkgName  #  + sub getNewPerlObjectByPkgName
# Line 47  our @EXPORT_OK = qw( Line 51  our @EXPORT_OK = qw(
51      now      now
52      deep_copy      deep_copy
53      getNewPerlObjectByPkgName      getNewPerlObjectByPkgName
54        cmd
55        run_cmds
56  );  );
57    
58  use Data::Dumper;  use Data::Dumper;
# Line 218  sub getNewPerlObjectByPkgName { Line 224  sub getNewPerlObjectByPkgName {
224    return $pkgname->new($args);    return $pkgname->new($args);
225  }  }
226    
227    sub cmd ($) {
228      my $cmd = shift;
229      $cmd = 'perl ' . $cmd;
230      my $sep = "-" x 90;
231      print $sep, "\n";
232      print "  ", $cmd, "\n";
233      print $sep, "\n";
234      system($cmd);
235      print "\n";
236    }
237    
238    sub run_cmds {
239      foreach (@_) {
240        cmd($_);
241      }
242    }
243    
244  1;  1;
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed