perl/libs/shortcuts.pm

## ---------------------------------------------------------------------------
##  $Id: shortcuts.pm,v 1.2 2003/02/11 05:14:28 joko Exp $
## ---------------------------------------------------------------------------
##  $Log: shortcuts.pm,v $
##  Revision 1.2  2003/02/11 05:14:28  joko
##  + refactored code from libp.pm
##
##  Revision 1.1  2003/02/09 04:49:45  joko
##  + shortcuts now refactored to this file
##
## ---------------------------------------------------------------------------


package shortcuts;

use strict;
use warnings;

require Exporter;
our @ISA = qw( Exporter );
our @EXPORT_OK = qw( 
  strftime
  now today
  run_cmd run_cmds
  get_chomped
  bool2status
);


# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   main

use Data::Dumper;
use POSIX qw(strftime);

# $now_string = strftime "%a %b %e %H:%M:%S %Y", localtime;
# see "perldoc -f localtime"

sub now {
  my $options = shift;
  my $pattern = "%Y-%m-%d %H:%M:%S";
  $pattern = "%Y-%m-%d_%H-%M-%S" if $options->{fs};
  my $result = strftime($pattern, localtime);
  return $result;
}

sub today {
  return strftime("%Y-%m-%d", localtime);
}

sub run_cmd {
  my $cmd = shift;
  my $caption = shift;
  #$cmd = 'perl ' . $cmd;
  my $sep = "-" x 60;
  print $sep, "\n";
  print "  ", $cmd, "\n";
  print "  ", $caption, "\n" if $caption;
  print $sep, "\n";
  system($cmd);
  #`$cmd`;
  print "ready.", "\n";
}

sub run_cmds {
  foreach (@_) {
    run_cmd($_);
  }
}

sub get_chomped {
  my $str = shift;
  chomp($str);
  return $str;
}

sub bool2status {
  my $bool = shift;
  return ($bool ? 'ok' : 'failed');
}

1;
1	joko	1.1	## ---------------------------------------------------------------------------
2	joko	1.3	## $Id: shortcuts.pm,v 1.2 2003/02/11 05:14:28 joko Exp $
3	joko	1.1	## ---------------------------------------------------------------------------
4			## $Log: shortcuts.pm,v $
5	joko	1.3	## Revision 1.2 2003/02/11 05:14:28 joko
6			## + refactored code from libp.pm
7			##
8	joko	1.2	## Revision 1.1 2003/02/09 04:49:45 joko
9			## + shortcuts now refactored to this file
10			##
11	joko	1.1	## ---------------------------------------------------------------------------
12
13
14			package shortcuts;
15
16			use strict;
17			use warnings;
18
19			require Exporter;
20			our @ISA = qw( Exporter );
21			our @EXPORT_OK = qw(
22			strftime
23			now today
24			run_cmd run_cmds
25			get_chomped
26	joko	1.2	bool2status
27	joko	1.1	);
28
29
30			# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - main
31
32			use Data::Dumper;
33			use POSIX qw(strftime);
34
35			# $now_string = strftime "%a %b %e %H:%M:%S %Y", localtime;
36			# see "perldoc -f localtime"
37
38			sub now {
39			my $options = shift;
40			my $pattern = "%Y-%m-%d %H:%M:%S";
41			$pattern = "%Y-%m-%d_%H-%M-%S" if $options->{fs};
42			my $result = strftime($pattern, localtime);
43			return $result;
44			}
45
46			sub today {
47			return strftime("%Y-%m-%d", localtime);
48			}
49
50			sub run_cmd {
51			my $cmd = shift;
52			my $caption = shift;
53			#$cmd = 'perl ' . $cmd;
54	joko	1.3	my $sep = "-" x 60;
55	joko	1.1	print $sep, "\n";
56			print " ", $cmd, "\n";
57			print " ", $caption, "\n" if $caption;
58			print $sep, "\n";
59			system($cmd);
60			#`$cmd`;
61			print "ready.", "\n";
62			}
63
64			sub run_cmds {
65			foreach (@_) {
66			run_cmd($_);
67			}
68			}
69
70			sub get_chomped {
71			my $str = shift;
72			chomp($str);
73			return $str;
74	joko	1.2	}
75
76			sub bool2status {
77			my $bool = shift;
78			return ($bool ? 'ok' : 'failed');
79	joko	1.1	}
80
81			1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26