the program does not give an error but exits (I say this because no more output is done...).

Also, you don't need (and unless you know when you should) shouldn't be using prototypes in your sub definition (ie. remove the ()).

Hello kepler,

You have already 83 Writeups on this forum so I think you know what is a Short, Self Contained, Correct (Compilable), Example that fellow monk stevieb is asking you for.

Just to clarify in case that still is not clear why we all monks asking for that. If you need our assistance, you have to show the minimum effort and create a small script executable that replicates your problem. By doing this you can help us to help you.

Moving on, are you looking for something like this?

#!usr/bin/perl
use say;
use strict;
use warnings;
use DateTime;
use DateTime::TimeZone;

sub TimeZone {
    my ($dt) = @_;
    my $tz = $dt->time_zone();
    my $offset = $tz->offset_for_datetime($dt);
    return $offset;
}

my $dt = DateTime->new(
    year       => 1964,
    month      => 10,
    day        => 16,
    hour       => 16,
    minute     => 12,
    second     => 47,
    nanosecond => 500000000,
    time_zone  => 'Asia/Taipei',
    );

my $tz = DateTime::TimeZone->new( name => 'America/Chicago' );
my $offset = $tz->offset_for_datetime($dt);

say TimeZone($dt);
say $offset;

__END__

$ perl test.pl
28800
-18000
[download]

I used the default parameters as give in DateTime.

Hope this helps, BR.

Show us that then!

Hi. Sure.

Here's what I'm trying:

#!/usr/bin/perl

use LWP::Simple;
use DateTime;
use DateTime::TimeZone;

etc etc...


sub TimeZone () {
(my $year_tz, my $month_init, my $hour_init, my $zone) = @_;


$offset_days = 0;
$offset = 0;
my $minutes_init = 0;
my $seconds_init = 0;

my $tz = DateTime::TimeZone->new( name => $zone );
  my $dt = DateTime->new(
      year       => $year_tz,
      month      => $month_init,
      day        => $day_init,
      hour       => $hour_init,
      minute     => $minutes_init,
      second     => $seconds_init,
      nanosecond => 0,
  );
$offset = $tz->offset_for_datetime($dt);
$offset_days = $offset / 86400;
return $offset_days;
}
[download]

As I've said, no error. It just...stops. If I don't call it the entire scripts works.

being that $offset_days and $offset seem to have a global scope i would look to see if there are side effects in the other code from resetting them, such as loops terminating early or exit getting called

Hi, stevieb already mentioned this, but just to be clear: If your code is really how you've written it here, your sub is requiring that no arguments be passed to it. The code shown should throw an error if you try to pass it the arguments that you then try to load into @_ ... so are you getting that error? Or have you contrived some way to suppress the error? Or, is this not really the code you are using?

$ perl -Mstrict -wE 'sub foo{ my $bar = shift; say $bar } foo("baz");'
baz

$ perl -Mstrict -wE 'sub foo(){ my $bar = shift; say $bar } foo("baz")
+;'
Too many arguments for main::foo at -e line 1, near ""baz")"
Execution of -e aborted due to compilation errors.
[download]

(For more detail, see Prototypes in perlsub.)


The way forward always starts with a minimal test.

Please show us a full Short, Self-Contained Correct Example. A full blown script as small as possible that fully shows the problem. What you've shown will just lead to endless guessing. For example, you don't even show us in the etc... where you're actually calling the sub... are you? Also, you don't need (and unless you know when you should) shouldn't be using prototypes in your sub definition (ie. remove the ()).

Do you have use strict; and use warnings;? huck may be onto something. You are not scoping the return variable within the sub (if it's not declared globally, strict will catch that).