Return more than one value from subroutine : Return « Subroutine « Perl






Return more than one value from subroutine

   
#!/usr/bin/perl -w

use strict;

my ($hours, $minutes, $seconds) = second2HourMinuteSecond(999);
print "999 seconds is $hours hours, $minutes minutes and $seconds seconds";
print "\n";

sub second2HourMinuteSecond {
    my ($h,$m);
    my $seconds = shift;;    # defaults to shifting @_
    $h = int($seconds/(60*60)); 
    $seconds %= 60*60;
    $m = int($seconds/60);
    $seconds %= 60;
    ($h,$m,$seconds);
}

   
    
    
  








Related examples in the same category

1.The return values of the ref function: hash
2.Return reference from a function
3.Return reference to variable
4.Return two array references from a subroutine
5.Return value from subroutine reference
6.A subroutine that returns a scalar or a list.
7.A subroutine that returns a value
8.Return Value
9.Return a reference from a sub
10.Return a subroutine from a subroutine
11.Return hash value from subroutine
12.Return two arrays from subroutine
13.Return value from subroutine without using the return statement
14.Returning arrays from subroutines
15.Returning data from subroutines
16.The last statement is the value to return
17.Using return statement
18.Using the return statement.