Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

Resetiing business day

by bimleshsharma (Beadle)
on Sep 08, 2011 at 05:43 UTC ( #924725=perlquestion: print w/replies, xml ) Need Help??
bimleshsharma has asked for the wisdom of the Perl Monks concerning the following question:

Business day value resetting

Here in loop everytime $d value is being stored in new variable but $tem_bd value is being increased instead of resetting. How do we reset business day. Code is as below

my $d = new Date::Business();
while ($n <=10)
my $temp_bd=$d;
$start{'date'}= $temp_bd->image();
print "\n Date- $start{'date'}";

Replies are listed 'Best First'.
Re: Resetiing business day
by Corion (Pope) on Sep 08, 2011 at 06:56 UTC
    my $d = new Date::Business(); ... my $temp_bd=$d;

    Here, $temp_bd and $d refer to the same object. Simple assignment in Perl does not copy an object. So if you modify $temp_bd, you also modify $d.

      Yah, You are right. I found a way to do that. Here is modified code.

      use Date::Business;
      my %start;
      my $n=1;
      my $temp_bd;
      my $d = new Date::Business();
      while ($n <=10)
      $temp_bd= new Date::Business($d);
      $start{'date'}= $temp_bd->image();
      $start{'date1'}= $d->image();
      print "\n Date- $start{'date'}";
      print "\n Date1- $start{'date1'}";
      Just new object had to start with original using method of package instead of assignment operator.

Re: Resetiing business day
by Anonymous Monk on Sep 08, 2011 at 06:50 UTC

    Here in loop everytime $d value is being stored in new variable but $tem_bd value is being increased instead of resetting

    addb doesn't spell reset

    for my $n ( 0 .. 10 ){ my $date = Date::Business->new; ... }

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://924725]
Approved by toolic
Corion has to work on his mood today.
[Corion]: I have to write at least one not so nice mail, give a stern word to some colleagues who took changes into production without getting approval and actually get some work done...
[choroba]: too busy to work on my mood :-(
choroba having "blue pipeline duty" this week
[Corion]: choroba: Exactly that, but I prefer to keep an eye on my mood nowadays...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (8)
As of 2017-03-29 07:31 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (344 votes). Check out past polls.