.\" Automatically generated by Pod::Man 4.14 (Pod::Simple 3.43) .\" .\" Standard preamble: .\" ======================================================================== .de Sp \" Vertical space (when we can't use .PP) .if t .sp .5v .if n .sp .. .de Vb \" Begin verbatim text .ft CW .nf .ne \\$1 .. .de Ve \" End verbatim text .ft R .fi .. .\" Set up some character translations and predefined strings. \*(-- will .\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left .\" double quote, and \*(R" will give a right double quote. \*(C+ will .\" give a nicer C++. Capital omega is used to do unbreakable dashes and .\" therefore won't be available. \*(C` and \*(C' expand to `' in nroff, .\" nothing in troff, for use with C<>. .tr \(*W- .ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p' .ie n \{\ . ds -- \(*W- . ds PI pi . if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch . if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch . ds L" "" . ds R" "" . ds C` "" . ds C' "" 'br\} .el\{\ . ds -- \|\(em\| . ds PI \(*p . ds L" `` . ds R" '' . ds C` . ds C' 'br\} .\" .\" Escape single quotes in literal strings from groff's Unicode transform. .ie \n(.g .ds Aq \(aq .el .ds Aq ' .\" .\" If the F register is >0, we'll generate index entries on stderr for .\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index .\" entries marked with X<> in POD. Of course, you'll have to process the .\" output yourself in some meaningful fashion. .\" .\" Avoid warning from groff about undefined register 'F'. .de IX .. .nr rF 0 .if \n(.g .if rF .nr rF 1 .if (\n(rF:(\n(.g==0)) \{\ . if \nF \{\ . de IX . tm Index:\\$1\t\\n%\t"\\$2" .. . if !\nF==2 \{\ . nr % 0 . nr F 2 . \} . \} .\} .rr rF .\" ======================================================================== .\" .IX Title "Religion::Islam::PrayerTimes 3pm" .TH Religion::Islam::PrayerTimes 3pm "2022-11-21" "perl v5.36.0" "User Contributed Perl Documentation" .\" For nroff, turn off justification. Always turn off hyphenation; it makes .\" way too many mistakes in technical documents. .if n .ad l .nh .SH "NAME" Religion::Islam::PrayerTimes \- Calculates Muslim Prayers Times and Sunrise .SH "SYNOPSIS" .IX Header "SYNOPSIS" .Vb 1 \& use Religion::Islam::PrayerTimes; \& \& #create new object with default options \& my $prayer = Religion::Islam::PrayerTimes\->new(); \& \& #Juristic Methods: \& # 1 = Standard (Imams Shafii, Hanbali, and Maliki), \& #2 = Hanafi \& #The difference is in the Aser time only \& $prayer\->JuristicMethod(1); \& \& # Calculation Method \& #1: Umm Al\-Qura Committee \& #2: Muslim World League \& #3: Egyptian General Authority of Survey \& #4: University Of Islamic Sciences, Karachi \& #5: ISNA, Islamic Society of North America \& $prayer\->CalculationMethod(3); \& \& # Q. What is daylight saving? Ans. Many countries try to adopt their work time by subtracting \& # from their clocks one hour in the Fall and Winter seasons. \& $prayer\->DaylightSaving(1); \& #print "DaylightSaving: ". $prayer\->DaylightSaving() ."\en"; \& \& # set the location to clculate prayer times for. \& # for Cairo, Egypt: \& # http://heavens\-above.com/countries.asp \& $prayer\->PrayerLocation( \& Latitude => 30.050, \& Longitude => 31.250, \& Altitude => 24, \& TimeZone => 2 \& ); \& \& my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); \& $mon++; $year += 1900; \& \& #Adjust the Gregorian Dates by making sure that the month lengths \& #are correct if not so take the extra days to next month or year. \& my ($yg0, $mg0, $dg0) = $prayer\->GDateAjust($year, $mon, $mday); \& # Now calculate the prayer times. Times returns in hours decimal format \& \& #%result = $prayer\->PrayerTimes($year, $mon, $mday); \& %result = $prayer\->PrayerTimes($yg0, $mg0, $dg0); \& \& #print "Fajr: " . $result{Fajr} . "\en"; \& #print "Sunrise: " . $result{Sunrise} . "\en"; \& #print "Zohar: " . $result{Zohar} . "\en"; \& #print "Aser: " . $result{Aser} . "\en"; \& #print "Maghrib: " . $result{Maghrib} . "\en"; \& #print "Isha: " . $result{Isha} . "\en"; \& #print "Fajir Rabita: " . $result{FajirRabita} . "\en"; #Fajer using exact Rabita method for places >48 \& #print "Isha Rabita: " . $result{IshaRabita} . "\en"; #Ash using exact Rabita method for places >48 \& #print "Eid Prayer Time: " . $result{Eid} . "\en"; #Eid Prayer Time \& #print "\en"; \& \& # set time mode for 12 or 24 hour for FormatTime function. \& $prayer\->TimeMode(1); \& #print time formated \& #print "TimeMode: " . $prayer\->TimeMode() ."\en"; \& \& my ($h, $m, $ap); \& \& ($h, $m, $ap) = $prayer\->FormatTime($result{Fajr}); \& print "Fajr: $h:$m $ap\en"; \& \& ($h, $m, $ap) = $prayer\->FormatTime($result{Sunrise}); \& print "Sunrise: $h:$m $ap\en"; \& \& ($h, $m, $ap) = $prayer\->FormatTime($result{Zohar}); \& print "Zohar: $h:$m $ap\en"; \& \& ($h, $m, $ap) = $prayer\->FormatTime($result{Aser}); \& print "Aser: $h:$m $ap\en"; \& \& ($h, $m, $ap) = $prayer\->FormatTime($result{Maghrib}); \& print "Maghrib: $h:$m $ap\en"; \& \& ($h, $m, $ap) = $prayer\->FormatTime($result{Isha}); \& print "Isha: $h:$m $ap\en"; \& \& #($h, $m, $ap) = $prayer\->FormatTime($result{FajirRabita}); \& #print "Fajir Rabita: $h:$m $ap\en"; #Fajer using exact Rabita method for places >48 \& \& #($h, $m, $ap) = $prayer\->FormatTime($result{IshaRabita}); \& #print "Isha Rabita: $h:$m $ap\en"; #Ash using exact Rabita method for places >48 \& \& #($h, $m, $ap) = $prayer\->FormatTime($result{Eid}); \& #print "Eid Prayer Time: $h:$m $ap\en"; #Eid Prayer Time .Ve .SH "DESCRIPTION" .IX Header "DESCRIPTION" This module calculates Muslim prayers times and sunrise for any location on the earth. .SH "SEE ALSO" .IX Header "SEE ALSO" Religion::Islam::Qibla Religion::Islam::Quran .SH "AUTHOR" .IX Header "AUTHOR" Ahmed Amin Elsheshtawy, Website: http://www.islamware.com .SH "COPYRIGHT AND LICENSE" .IX Header "COPYRIGHT AND LICENSE" Copyright (C) 2006 by Ahmed Amin Elsheshtawy support@islamware.com, .PP This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.