-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
On Thu, 31 Jan 2002, Pradeep Sethi wrote:
> Thanks but I am looking of any regexp substitution.
>
> sorry for typo : I need to change 9/9/1973 to 09/09/1973
The pathological solution:
my $date = '9/9/1973'; $date =~ s=9/9/1973=09/09/1973=;
On Friday, February 1, 2002, at 04:27 , Robert G. Werner wrote:
> If you can be sure that slashes will be the delimiters, slit on them
> and then add a '0' if the first two elements are less than 10:
>
> my $date_str = "9/9/1973";
>
> my @date_arr = split("/", $date_str);
>
> for my $i (0 .. 1) {
> $date_arr{$i} = $date_arr{$i} < 10 ? $date_arr{$i} : "0$date_arr{$i};
> }
>
> $date_str = join("/", @date_arr);
>
> Sort of long to type but that would get the job done IMHO.
The been-watching-too-much-Perl-golfing-from-the-sidelines solution:
my $date = '9/9/1973';
my
@d=split("/",$date);$date=join"/",(map{("0".$_)=~/(\d\d)$/;$1}@d[0..1]),$d[
2];
- --
Craig S. Cottingham
[EMAIL PROTECTED]
PGP key available from:
<http://pgp.ai.mit.edu:11371/pks/lookup?op=get&search=0xA2FFBE41>
ID=0xA2FFBE41, fingerprint=6AA8 2E28 2404 8A95 B8FC 7EFC 136F
0CEF A2FF BE41
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.6 (Darwin)
Comment: For info see http://www.gnupg.org
iD8DBQE8Wy33E28M76L/vkERAtYkAKCpDvnqszXre7561ygIZK1t6rkd4ACbB8A7
YFcVGYbsw1fmddgMuHDuP9I=
=7FHN
-----END PGP SIGNATURE-----
