Rob Dixon wrote: > > Shaunn Johnson wrote: > > > > # create a few variables > > my $addr='[EMAIL PROTECTED]'; > > #my $outfile=`date +%d%b%Y`; > > my $outfile=`date | cut -f 1 -d ' '`; > > my $datetype=`date`; > > my $file='/usr/local/home/joe/tmp/backup_list.txt'; > > my $matchday=`date +%a`; > > #chop $outfile; > > I don't much like all this shelling out to fetch the date > when Perl is happy to do it itself.
Good point ... but then .. > # create a few variables > my $addr = '[EMAIL PROTECTED]'; > #my $outfile = `date +%d%b%Y`; > my $outfile = `date | cut -f 1 -d ' '`; > my $datetype = `date`; > my $file = '/usr/local/home/joe/tmp/backup_list.txt'; > my $matchday = `date +%a`; You should show the OP how to do it in perl. :-) use POSIX 'strftime'; # create a few variables my $addr = '[EMAIL PROTECTED]'; #my $outfile = strftime '%d%b%Y', localtime; my $outfile = strftime '%a', localtime; my $datetype = strftime '%c', localtime; my $file = '/usr/local/home/joe/tmp/backup_list.txt'; my $matchday = strftime '%a', localtime; John -- use Perl; program fulfillment -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
