Como leer la fecha
=?iso-8859-1?Q?Sergio_Avila_Casta=F1eda?=
savila@centec.com.mx
Wed, 23 Sep 1998 11:37:41 -0500
------ =_NextPart_000_01BDE6DF.89878F20
Content-Type: text/plain; charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Hola!
Creo que de manera general Perl tiene funciones relacionadas para casi =
cualquier funci=F3n del sistema, por lo que yo recomiendo usar solo Perl =
y no hacer cosas con `comando` (salidas al shell).
Puedes usar:
($sec,$min,$hour,$mday,$mes,$year,$wday,$yday,$isdst) =3D =
localtime(time);
Saludos!
Pd. Tomado de Programming Perl, Larry Wall - O=B4Reilly
___ __ __
(_-</ _` / _| Sergio Avila Casta=F1eda | Contrary to =
popular opinion,=20
/__/\__,_\__| Red Uno CENTEC - Servicios Educacionales | Unix is user =
friendly,
PGP key: finger savila@centec.com.mx Tel. 447 5113 | It just =
happens to be very selective
Fax. 447 5197 | about who it makes friends with.
----Mensaje original-----
De: Javier De la Rosa Mondragon [SMTP:javier@kahlua.super.unam.mx]
Enviado el: Mi=E9rcoles 23 de Septiembre de 1998 11:03 AM
Para: perl@tlali.iztacala.unam.mx
CC: perl@tlali.iztacala.unam.mx
Asunto: Re: Como leer la fecha
Hola !!
para leer la fecha del sistema puede probar esto:
$datestr =3D `date`; =20
chop $datestr; =20
($dow,$mon,$day,$hour,$min,$sec,$zone,$year)=3D split(/[]+|:|/, =
$datestr);
$date=3Dsprintf ("%02d/%s%d", $day, $mon, $year);
puedes ajustar la expresion regular del split a tus necesidades y=20
variables. Espero te sirva saludos!!!
On Wed, 23 Sep 1998 porro@dpscold.sc.bpa.cu wrote:
>=20
>=20
> Hola amigos, asiduos programadores de Perl:
>=20
> Que satisfaccion anotarme en una lista de perl, pues este lenguaje es =
mi
> favorito desde lo conoci hace un an~o. Soy nuevo en la lista y =
quisiera
> compartir mis dudas, ya que se que aqui deben haber expertos en el.
>=20
> Primero, si alguien tiene documentacion de Perl (AYUDA) en espan~ol,
> compartala conmigo pues estoy loco por aprender a programar orientado =
a
> objeto y aun hay cosas que no entiendo del documento en ingles, se me =
hace
> un poco confuso o al menos denme un buen consejo al respecto.
>=20
> Necesito que me alguien me oriente como leer, el dia mes y an~o de la
> computadora en variables independientes.
> Por ejemplo:
> ($Dia,$Mes,$AA) =3D #Necesito una funcion que retorne lo que =
necesito.
>=20
> Le estare muy agradecido por su cooperacion. Gracias de todas maneras.
>=20
> Su colega de Perl
>=20
> RIESTRA.
>=20
> =
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
> Name : Juan Carlos Riestra Matos + OOOO OOOO O
> Espec: Computers Science + OO ) OO ) OO OO
> Direccion Provincial del Banco Popular de Ahorro + OOOO OOOO OOOOO
> e-mails: riestra@thera.dpsc.bpa.cu <- Recomended + OO ) OO O O
> riestra@fie.uo.edu.cu + OOOO OO O O
> riestra@dpscold.sc.bpa.cu <- Recomended =
++++++++++++++++++++++++
>=20
> --------- Pie de mensaje --------------------------------
> Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
> Cancelar inscripcion:
> mail to: majordomo@tlali.iztacala.unam.mx
> text : cancelacion perl
>=20
--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text : cancelacion perl
------ =_NextPart_000_01BDE6DF.89878F20
Content-Type: application/ms-tnef
Content-Transfer-Encoding: base64
eJ8+IhQPAQaQCAAEAAAAAAABAAEAAQeQBgAIAAAA5AQAAAAAAADoAAEIgAcAGAAAAElQTS5NaWNy
b3NvZnQgTWFpbC5Ob3RlADEIAQmAAQAhAAAAMkI3ODBDM0Q3QjUxRDIxMTg1NjcwMDYwOTcxRDQ3
RDMA6wYBBYADAA4AAADOBwkAFwALACUAKQADAFEBASCAAwAOAAAAzgcJABcACwAlACkAAwBRAQEE
kAYADAIAAAEAAAARAAAAAwAAMAAAAAALAA8OAAAAAAIB/w8BAAAAVwAAAAAAAACBKx+kvqMQGZ1u
AN0BD1QCAAAAACdwZXJsQHRsYWxpLml6dGFjYWxhLnVuYW0ubXgnAFNNVFAAcGVybEB0bGFsaS5p
enRhY2FsYS51bmFtLm14AAAeAAIwAQAAAAUAAABTTVRQAAAAAB4AAzABAAAAHAAAAHBlcmxAdGxh
bGkuaXp0YWNhbGEudW5hbS5teAACAfYPAQAAAAQAAAAAAAAAAwAVDAEAAAACAQswAQAAACEAAABT
TVRQOlBFUkxAVExBTEkuSVpUQUNBTEEuVU5BTS5NWAAAAAAeAAEwAQAAAB4AAAAncGVybEB0bGFs
aS5penRhY2FsYS51bmFtLm14JwAAAB4AIDoBAAAAHgAAACdwZXJsQHRsYWxpLml6dGFjYWxhLnVu
YW0ubXgnAAAACwBAOgEAAAADAP4PBgAAAAMAADkAAAAAAwD/XwAAAAADAP1fAQAAAB4A9l8BAAAA
HAAAAHBlcmxAdGxhbGkuaXp0YWNhbGEudW5hbS5teAACAfdfAQAAAFUAAAAAAAAAgSsfpL6jEBmd
bgDdAQ9UAgAAAABwZXJsQHRsYWxpLml6dGFjYWxhLnVuYW0ubXgAU01UUABwZXJsQHRsYWxpLml6
dGFjYWxhLnVuYW0ubXgAAAAA7XgBDYAEAAIAAAACAAIAAQSAAQAXAAAAUkU6IENvbW8gbGVlciBs
YSBmZWNoYQBLBwEDkAYA2A0AACoAAAADADYAAAAAAAMAA4AIIAYAAAAAAMAAAAAAAABGAAAAAFKF
AAC3DQAAHgAVgAggBgAAAAAAwAAAAAAAAEYAAAAAVIUAAAEAAAAEAAAAOC4wAAMAFoAIIAYAAAAA
AMAAAAAAAABGAAAAAAGFAAAAAAAACwAEgAggBgAAAAAAwAAAAAAAAEYAAAAAA4UAAAAAAAALABuA
CCAGAAAAAADAAAAAAAAARgAAAAAOhQAAAAAAAAMAAIAIIAYAAAAAAMAAAAAAAABGAAAAABCFAAAA
AAAAAwAcgAggBgAAAAAAwAAAAAAAAEYAAAAAEYUAAAAAAAADAB2ACCAGAAAAAADAAAAAAAAARgAA
AAAYhQAAAAAAAB4AS4AIIAYAAAAAAMAAAAAAAABGAAAAADaFAAABAAAAAQAAAAAAAAAeAEyACCAG
AAAAAADAAAAAAAAARgAAAAA3hQAAAQAAAAEAAAAAAAAAHgBNgAggBgAAAAAAwAAAAAAAAEYAAAAA
OIUAAAEAAAABAAAAAAAAAAIBCRABAAAATwkAAEsJAACmEAAATFpGdSxxH6M/AAoBAwH3AqQD4wIA
Y2jBCsBzZXQwIAcTAoOHAFAC8gIAcHJxMg9J+FRhaANxAoMRQQ71ERItD+Z9CoAIyDsJbzI1bjUC
gAqECzBjAEELYG7wZzMwOBKyDAEBMQqxZQqASAbwYSEYFBgUQ1EJcG8gcQpQIAEAIOMDgQSQYSBn
CfAacQMgNlAEkAMgdAiQGmAgZvB1bmNpAiAHkQlwC2BxHBJhZGEEIAqxGpBj9R0gaR2QdQdAGdAI
kRvU8FwnZjMDoAEAAyAAkOhzdGUAwCwdQAWxCQBdGcN5GbAJcAWgbRuRZGkZsHVzCsFzCPEbJHns
IG4ZsA9wYx5hBaAhsHcEIAWgA6BgIREAcCFwYGQgKCGwbGkdEhsBc6JoHJBsKS4YylAKUDcBAAQg
IaI6GMoMgigk0Q+gYywkITBuKIASIHcIcCiBHRB5KIEHkCiAedZlCsAogHcpY3kpYwQAYmQfoCkg
PSBBHaBs6xuAB4AoLAIpFOAY2QYQiwpAIXBzGLtQZC4R8DcDcSFxGhFQA2AJwGFtrSihZxsjH/BM
CsByIpBGVwdAAyAtIE8e4GLINFJlAxBseRjIFrInAUAXEgHQNTgDwTE38RBxICBfNFA0QTQwNDLB
GBQoXy08LzRAJGC1NbF8BlJnHCAP4HYDEN0akEMdIAGQHuExCYA3YP8MkwGgNLI4ZzYwNLEXAwvC
fDE2ArE3EAIhGoAw4XTzGbAgEHB1C2AFwDtAC4C/HCEf8DMpAFAY1DPCLzRQ6C9cXDRQLDUAPgE2
MBEx0GQgVSKxQ0VO+FRFQzFRBmE20BwRBCDYRWR1HaAcw2wHkTk/4zpBPvBpeCAEACGRHmI3CIEh
YDIQLDMvJhVHUOAga2V5OhvQMBEeYbshsDbSQCMAAjAFkC4hETwubUKwEfAckC7QNDTANyA1MTEz
ON855zpJBUBqIaAFQA9wcHDXCfAEIDsBYhnwdgSQIpD7D6BBAGMbgEuAC9QY1DM/RwMwN/U350Zh
eEfmOb9IIEivOgUBoAhgBUB3EiD/QsAFQADARZAEIENUBCAD8Px0aCWgPF8K9BcYEUBUijhpMzYY
AQNgRvF0LWVXck1K4WFqGfAFsGmfNoBA4VdzMjpF4C0xSADhMxFpMTgwAUAM0FoDWThQRGUnIAyS
Yg/QSv9GYR5hW1AgQBqQCAAhsAXQFQIgZBqAZyOxW1NNkFRQOmpcE0BrEhAhCkBhLnN1StByLjcb
8C/gR2FdGMU4UEVuLzbQLyIckFt3TR7RZTn2cgjhB5EySHAaEQZgBTCfCJAG0AlwGgJP8Dk4Y6BI
MTowSHBBTV/nUMcdYVt3XyFsQHQLYCSw+C5pegGQK9Fe4F9lX+fcQ0NlX2ZvZ3lBXwACMP5vW3cx
0EXACFAEYCBACeD7IDEakGYFkA9wVe85hxfJ829fGGMgIRi7HVNsmx867x1AJoIdQANgYgrBB5Br
UvsY2TQwJB0QH7AfoAXAK5DyYHYCYDs4a3ffOGV1dv8PYDtAddh3D3vPeO4oMCFw/ncogTwBdfEp
gSj1KLIoU9Z6HDEp5CkrkHMLUFJQACgvW10rfDp83i8f8HX2LJZ11T2AwAUQBQIwZiRwIiUwMmTA
LyVzJWQigaMpgP914H5SdeCAUyyrc/Mk8UpS8wrBNvFleBEQB5AcIRxx/mc7Yx9DgNIlABtwIaAi
oL8FkIfxHRAmoiKQGBR2CsDvBzACYAeQLtBFgMAEkBmw/x+wH3E/4BqQJJEto3EsGBT6TwOgVwmA
H/BicWLRY6TjIBEDYEBkcATwBvAuwNkE8C5iCrBHIHVSAFcS/ScrPnlVkmhw0y/gWGAjUP8f8B2x
QHBAMVcBL8IvIYfh7y9TG0EnJZJoURnhIbAbgPxzZgDQHBIlACKwh0EHgP9g4AOgX2EgQB+RcxJo
wx/x/wpQBCB0wVyBCfCIcFgCB5H3ITCSBpfAdlhBOwEmoRoRfyBRI6ErwB3QIuKY8ZgxfvJvLtBT
byKRClCcUJjC/zbxmUQikB4xAJAacZIGIRH/CrEbgAXAITCVkS2gHSAf8N55GpAZ0g+gGcNhHjEa
Af9LUAOgD3BLUHShh8AEkDsA/5phA6BHwZIOL5AHcQNgH/D/HcEHQIhwG5EbdSFwHfAHgA8CMByz
laYkcEFZVUT+QStwpPKAwJ5CMICgrWnR/yOSk+KaJ56xK7E7EgXASrD/CXAhYB5hc9GU5TuRQ2IB
kL8hcaCXdHBYEDsBIpBhnhH/D3AikCNEGdIisUbRIUQfQv+n9p8jMBFBAabBGiEZ8CLi/5IGnhEg
EK0RI6Eb4CHwO6C/JQKoMUAxAQCr4J3zYgpQ9wOgI6EPoGq2I4fhStBMEP+ecJIOB8CJ8jsBGdKY
oacW/5ihrtQZ8CERbHQf8LKCBzD/tCGKcp5CGgILYKCqUeCVQv+HkQOgixezcQEAStG9AEbS/4uQ
kgYbIAWxt/AfwAtQdPZ7waF9wkQHMCiAV8Ap0UH7qaErkCO595kCG+UZwwlwvzsABKCdA7FzugW4
70ybQvuHQRohdbBxL8EFgSTArSS/XwAjMTtAGnEcEi7QR8rSfx0hGhE7AB0SGkTBKJIGUzvKYkEA
Z5mDGzKSDlJJoEVTVFJBzN8r0X//0o/Tn9Sv1OG5dy/gGfBFwL5KHgADoDcgG1BAMVIIkF92QV0B
dhBAMdh+KzQwT9/ZsdmW2ZGSBovCY2wjvvH/BJAGQRwQCfCd4dyv2Ro0MP8rcN5n2bCSBsNgIPGX
8y+R7zbQHAEbAR9CQgBwrRHB0Ps7VBoRQRIgj+HZftmy2pfsZS0AwAMQc0XACIHX0rdpECVQGoAu
kCKQxjwxYP8x0CERrbI+0N472ZHaajhnu+VWReBlX1CecAmAdZEC/+t/2Xroj+mfkC/m7vF/1Zz/
kgZXc1dyGyAIkBoDV9Xz9/f2D/P0kgZWoEGRcQMwFtJfO2AA8AQAi1I+0GgCQHCYOi8vaS9fgy9+
GoC7XUIBAC9o0l7w+ZBtCVD/MvI7YAFB+RUYBZJgNyDccf87cguABPMcEpYn5OI68UXA/y8QuAAL
IGxRaR9nOpJgH7D+eAVANDBFwECQ/nOX82jS/5IM8//1Dwe/9yr4D/kfAX//+z/8T/1c/l//aAAv
AT9nLFdWWAMvBD19MnAAF1AAAwAmAAAAAAADAC4AAAAAAAsAAgABAAAACwAjAAAAAAALACkAAAAA
AB4AcAABAAAAFwAAAFJFOiBDb21vIGxlZXIgbGEgZmVjaGEAAAIBcQABAAAAFgAAAAG95wlw5KnO
sntSyxHSnrIAwE+6XrYAAEAAOQCyXIx7EOe9AQMA8T8KBAAAHgAeDAEAAAADAAAARVgAAB4AHwwB
AAAALgAAAC9PPUNFTlRFQy9PVT1DRU4tMjAwMS9DTj1SRUNJUElFTlRTL0NOPVNBVklMQQAAAAMA
GUAAAAAAAwD9P+QEAAADAIAQ/////wIB+T8BAAAASgAAAAAAAADcp0DIwEIQGrS5CAArL+GCAQAA
AAAAAAAvTz1DRU5URUMvT1U9Q0VOLTIwMDEvQ049UkVDSVBJRU5UUy9DTj1TQVZJTEEAAAAeAPg/
AQAAAAcAAABzYXZpbGEAAAIB+z8BAAAASgAAAAAAAADcp0DIwEIQGrS5CAArL+GCAQAAAAAAAAAv
Tz1DRU5URUMvT1U9Q0VOLTIwMDEvQ049UkVDSVBJRU5UUy9DTj1TQVZJTEEAAAAeAPo/AQAAAAcA
AABzYXZpbGEAAEAABzB2ZCcBEOe9AUAACDAMv457EOe9AR4ANRABAAAAPgAAADwwQjhEMUE3RjNE
QjREMTExODU1QTAwNjA5NzFENDdEMzA5RUY4NEB4ZWwtaGEuY2VudGVjLmNvbS5teD4AAAADAAYQ
cF6bmQMABxBVCQAAAwAQEAAAAAADABEQAAAAAB4ACBABAAAAZQAAAEhPTEFDUkVPUVVFREVNQU5F
UkFHRU5FUkFMUEVSTFRJRU5FRlVOQ0lPTkVTUkVMQUNJT05BREFTUEFSQUNBU0lDVUFMUVVJRVJG
VU5DSfNOREVMU0lTVEVNQSxQT1JMT1FVRVkAAAAAAwANNP0/AAACARQ0AQAAABAAAABUlKHAKX8Q
G6WHCAArKiUXHgA9AAEAAAAFAAAAUkU6IAAAAABrNA==
------ =_NextPart_000_01BDE6DF.89878F20--
--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text : cancelacion perl