_ _ _ _ _ _ _ _ _ _ _ _ _
last|perl -pe '$_ x=/(..:..)..(.*)/&&"'$1'"ge$1&&"'$1'"lt$2' That's gonna be tough for Randal to beat.. :-) -Larry Wall in <1991Apr29.072206.5621@jpl-devvax.jpl.nasa.gov>
_ _ _ _ _ _ _ _ _ _ _ _ _
__ /^\ .' \ / :.\ / \ | :: \ / /. \ / ::: | | |::. \ / :::'/ | / \::. | / :::'/ `--` \' `~~~ ':'/` / ( / 0 _ 0 \ \/ \_/ \/ -== '.' | '.' ==- /\ '-^-' /\ \ _ _ / .-`-((\o/))-`-. _ / //^\\ \ _ ."o".( , .:::. , )."o". |o o\\ \:::::/ //o o| \ \\ |:::::| // / \ \\__/:::::\__// / \ .:.\ `':::'` /.:. / \':: |_ _| ::'/ `---` `"""""` `---`
service [nome_serviço] status