Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations wOOdy-Soft on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Recent content by rchilson11
-
How to convert this script to perl
this is how far I got.. #!/usr/bin/perl use strict; use warnings; # Specify a date my $date = shift || undef; #Search string as the script argument my $2009 = shift || die "No Cardholder2010 found!\n"; # Get the gzipped log files as an array my @files = glob '/apps/servlet-timer.log*' ...- rchilson11
- Post #3
- Forum: Perl
-
How to convert this script to perl
I want to learn perl and figured I could learn best by examples. I have been reading tech articles and I would like to know the easiest way to convert this bash script to perl. Thanks!!- rchilson11
- Post #2
- Forum: Perl
-
How to convert this script to perl
DT=`echo $1` NOTIFY=rchilson@hotmail.com PROD_DIR=/apps* if [ "$DT" = '' ] || [ "$DT" = ' ' ] ; then DTPULL=`date -d yesterday '+%Y-%m-%d'` else DTPULL=`date --date "$DT" '+%Y-%m-%d'` || exit -1 fi ( TOT=`dsh -g prod "gzcat /apps*/servlet-timer.log.2010-12-13* | grep 2009" | wc -l` echo...- rchilson11
- Thread
- Replies: 3
- Forum: Perl
