[FiRe]

Can anyone convert this PHP code into perl?

PHP Code:

$offset_correction = array_slice($num_days_last_array, -$offset, $offset);

$new_count = array_merge($offset_correction, $num_days_array);

$offset_count = count($offset_correction); 

thanks

[Chas]

I would imagine that splice[1] would take care of the first line but I'm not too familiar with PHP code. Start with this and go from there:

Code:

my @offset_correction = splice(@num_days_last_array, -$offset, $offset);
my @new_count = (@offset_correction, @num_days_array);
my $offset_count = @new_count;

# If you just need a count you *might* be able to get away with:
my $offset_count = (splice(@num_days_last_array, -$offset, $offset), @num_days_array));

~Charlie

[1] http://perldoc.perl.org/functions/splice.html

[FiRe]

see thats wot someone else said, but array_slice and array_splice are 2 different things in PHP, so if you look at the description for array_slice in the PHP manual (http://php.net/array-slice) you will it does a different thing to splice...

[Chas]

Well you can use a simple array slice then:

Code:

my @new_arran = @old_array[-$offset .. $offset];

The only thing is the negative on $offset - that doesn't look right. What are sample values for $offset and what is your ultimate goal with this code?

~Charlie

[Chas]

According to the PHP docs:

Code:

$offset_correction = array_slice($num_days_last_array, -$offset, $offset);

it looks like that is just going to reverse your array, no? It really depends on the value of $offset though. In list context, splice will do the same as array_slice long as you only provide 3 args to the function. The fourth arg would be inserted at the splice point making it more like PHP's array_splice.

~Charlie

[FiRe]

well this is how it determines the offset...

Code:

if ($month_start_day eq "Sun") { $offset = "0"; }
if ($month_start_day eq "Mon") { $offset = "1"; }
if ($month_start_day eq "Tue") { $offset = "2"; }
if ($month_start_day eq "Wed") { $offset = "3"; }
if ($month_start_day eq "Thu") { $offset = "4"; }
if ($month_start_day eq "Fri") { $offset = "5"; }
if ($month_start_day eq "Sat") { $offset = "6"; }

and this is what I came up with trying to solve the problem...

Code:

@offset_correction = @num_days_last_array[($#num_days_last_array-$offset) ... $#num_days_last_array];
push @offset_correction, @num_days_array;
$offset_count = @offset_correction;

but i dont thing its correct...

[Chas]

Can you explain in words the problem you are trying to solve? My problem is that I can't figure out exactly what you are trying to do with that snippet of code.

~Charlie

[FiRe]

lol dont worry i recoded it instead thanks for trying!