Mega Code Archive

 

Categories / Perl / Subroutine

 

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); }