John W. Krahn wrote: > 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. :-)
Yes, but tough to do when I can only guess what 'date' does and I have no *nix system with me. Thanks for filling the gap :) Rob -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
