on Fri, 09 Aug 2002 12:35:25 GMT, [EMAIL PROTECTED] (Jerry Preston)
wrote:
> Thanks about "^^^". I forget to say that I will not know what the
> date is, anyone can change it.
If you don't have other 6-digit substrings in your input string, you
can use
#! /usr/bin/perl -w
use strict;
my $string =
"%makesql(FORD,waf_end,010602 &nowdate,all,0,pdv.CHEVY;\n";
my $newdate = '080902';
$string =~ s/\d{6}/$newdate/;
print $string;
You may also want to check out
perldoc perlretut
--
felix
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
