Fecha :: Vacaciones :: PT Determinar las vacaciones públicas portuguesas
Descargar ahora

Fecha :: Vacaciones :: PT Clasificación y resumen

Fecha :: Vacaciones :: PT Etiquetas

Módulo perl perla vacaciones públicas Días festivos portugués Vacaciones portuguesas

Fecha :: Vacaciones :: PT Descripción

Determinar las vacaciones públicas portuguesas. Fecha :: Vacaciones :: PT - Determine la Determine Portugués PublicsSynopsis Use Fecha :: Vacaciones :: PT; mi ($ año, $ mes, $ día) = (Tiempo local) ; $ año + = 1900; $ mes + = 1; Imprima "WOOHOO" si es_pt_holiday ($ año, $ mes, $ día); mis $ h = pt_holidays ($ año); PrintF "El 1 de enero es nombrado '% s' ", $ h -> {'0101'}; FunctionsNewCreates Una nueva fecha :: Vacaciones :: Objeto PT. MY $ MH = FECHA :: VACACIONES :: PT-> NUEVO (); IS_HOLIRYSHAUR POR MENOS TOMAR TRES ARGUMENTOS: AÑO ( Cuatro dígitos) Mes (entre 1-12) Día (entre 1-31) El valor de retorno de IS_HOLIDAY es 1 o A 0 (1 si la fecha especificada es un día festivo, 0 de lo contrario). Si ($ mh-> is_holiday ($ año, $ mes, $ día)) {# es un día de fiesta} is_pt_holidaysimilar is_holiday, pero en lugar de regresar 1 si la fecha es que un día festivo devuelve una cadena que comprende el nombre de las vacaciones. En caso de dos o más vacaciones En el mismo día (hey, sucede), la cadena comprenderá el nombre de todas esas vacaciones separadas por un punto y coma. My $ hoy_holiday = $ mh-> is_pt_holiday ($ año, $ mes, $ día); si ($ hoy_holiday ) {imprimir "hoy es $ hoy_holiday. ¡No te molestes en levantarte! ";} HolidaysHould deberías tomar al menos un argumento: Año (cuatro dígitos) devuelve una referencia a un hash, donde las llaves se representan como cuatro dígitos, los dos primer mes de representación (01-12) y los dos últimos representantes (01) -31). El valor para la clave en cuestión es el nombre local de las vacaciones indicadas por el día. En el caso de dos o más días festivos el mismo día (sí, sucede), los valores comprenderán el nombre de Todas esas vacaciones separadas por un punto y coma. Mis $ años_holidays = vacaciones ($ año); para (teclas% $ años_holidays) {my ($ day, $ mes) = /(..)(.. )/; imprimir "$ día / $ mes - $ años_holidays -> $ _ ";} Requisitos: · Perl

Fecha :: Vacaciones :: PT Software relacionado