quicker way to create variables in perl

crmpicco · March 5th, 2007, 11:32 AM

Code:

            @sday = split(/=/, $sday);
            @smon = split(/=/, $smon);
            @eday = split(/=/, $eday);
            @emon = split(/=/, $emon);

is there a quicker way to do this? in a loop?

www.crmpicco.co.uk
www.ie7.com

crmpicco · March 5th, 2007, 11:34 AM

Code:

            if (length($startday) eq 1) {
                $startday = "0" . $startday;
            }
            if (length($startmon) eq 1) {
                $startmon = "0" . $startmon;
            }
            if (length($endday) eq 1) {
                $endday = "0" . $endday;
            }
            if (length($endmon) eq 1) {
                $endmon = "0" . $endmon;
            }

trying to do something similar with this code as well??? :-(
any quicker way to do it? more efficient? cheers. picco

www.crmpicco.co.uk
www.ie7.com

ciderpunx · March 5th, 2007, 11:49 AM

I'm not advising that you do, but:

Code:

eval '@'.$_.'=split /=/,$'.$_.';' for qw|sday smon eday emon|;

twisted!

--
Charlie Harvey's website - linux, perl, java, anarchism and punk rock: http://charlieharvey.org.uk

ciderpunx · March 5th, 2007, 11:58 AM

Quote:

quote:
            if (length($startday) eq 1) {
                $startday = "0" . $startday;
            }
            if (length($startmon) eq 1) {
                $startmon = "0" . $startmon;
            }
            if (length($endday) eq 1) {
                $endday = "0" . $endday;
            }
            if (length($endmon) eq 1) {
                $endmon = "0" . $endmon;
            }

Wrong sort of equality test there, you need == because its a number. If you're trying to do what I think you're trying to do you could use :

Code:

$startday = sprintf '%02d', $startday;

--
Charlie Harvey's website - linux, perl, java, anarchism and punk rock: http://charlieharvey.org.uk

crmpicco · March 6th, 2007, 07:53 AM

thanks, but - yep, thats twisted

www.crmpicco.co.uk
www.ie7.com