Perl Date Formating

[Evan]

Im kinda lost, I need all of the dates to be formated to a Postgres happy state. Can you help?


Code I have been trying to work with (its lying.. not php):

        if($format eq "MM-DD-YYYY")
        {
            if($data =~ /-/){
                ($month,$day,$year) = split("-",$data) if $data =~ /-/;
                ($month,$day,$year) = split("/",$data) if $data =~ /\//;
                $month = "01" if ($month == 0);
                $year = "2000" if ($year == 0);
                $day = "01" if ($day == 0);
                $data="$year-$month-$day";
            } else {
                #try to form a correct date
                if(length($date) == 8 || length($date) == 6) {
                    #2004-01-01 (20040101)
                    $date =~ s/\d{2}\d{2}\d{4}/\d{2}-\d{2}-\d{4}/e;
                
                }

            } 

Thanks!!

[Evan]

ps postgres likes 2003-01-01

[Travis G]

Originally posted by Evan

        if($format eq "MM-DD-YYYY")
        {
            if($data =~ /-/){
                ($month,$day,$year) = split("-",$data) if $data =~ /-/;
                ($month,$day,$year) = split("/",$data) if $data =~ /\//;
                $month = "01" if ($month == 0);
                $year = "2000" if ($year == 0);
                $day = "01" if ($day == 0);
                $data= $year. "-" . $month . "-" . $day;
            } else {
                #try to form a correct date
                if(length($date) == 8 || length($date) == 6) {
                    #2004-01-01 (20040101)
                    $date =~ s/(\d{2})(\d{2})(\d{4})/$3-$2-$1/e;
                
                }

            } 

Mind you, I haven't tested that out and I don't really know what you are trying to do, so double check in the documentation (links in sig).

I'm trying to use backticks. If you put parenthesises around an expression in a regex, you can call on that expression in the replace. I think $n will do that.

Also, the period is the string concat operator in Perl.

[Evan]

Also, the period is the string concat operator in Perl.

Whats a string concat operator?
THanks!


(Like String = "You have " & gold & " peices for sale" ) ??

[Evan]

Oh I see now. It is like that.

Very very cool. Learned something new!

THanks alot!

[Evan]

ended up doing this

                    $month = substr($data, 0, 2);
                    $day =  substr($data, 2, 2);
                    $year =  substr($data, 4, 2) if( length($data) == 6);
                    $year =  substr($data, 4, 4) if( length($data) == 8);
                    $data="$year-$month-$day";