This is my code (something very simple):
$variable = "Ordenes\nServicios\nGarantias";
format ORDENES =
Text: ^*
$variable
~~ ^*
$variable
.
But I don't know how can I see or print the output of this, and send it bye
email. I tried with write(), but does not work.
[jwm] Here is something I do... maybe this will give you some ideas...
<snip>
format EXCEPTIONS_TOP =
@|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||||
|||||||||||||||||||||||||||||||||
"Daily Report of Oracle Account Exceptions"
Prepared: @<<<<<<<<<<
$date
Account # Schema OS User Instance
Platform Collected
-------------- ------------------------- ------------
-------------------------
-------------------- -----------
.
format EXCEPTIONS =
@<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<
@<<<<<<<<<<<<<<<<<<<<<<<<
@<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<
$item{account},
$item{schema},$item{os_user},$item{instance},$item{platform},$it
em{je_date}
.
</snip>
...
<snip>
open EXCEPTIONS, "| MAIL $to"
or die "Open Failed";
...
write EXCEPTIONS;
...
close EXCEPTIONS;
</snip>
Please note that this reply wrapped some of the formats...
You may wish to try something like this before first write...
<snip>
print EXCEPTIONS "Subject: ...\n";
print EXCEPTIONS "From: ....\n";
</snip>
hope this helps...
jwm
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
