[Israel.pm] A question of style - print()

David Baird davidlbaird at gmail.com
Mon Oct 31 06:15:31 PST 2005


I sometimes handle this problem with the following Perl code:

   $message = qq{
       |A new service request was sent to an IT representative.
       |
       |Assigned to: $assign_first $assign_last
       |Due date: } . $duedate->string(1) . qq{
       |Description:
       |$param{-desc}
       |
       |You can check on the status of your requests from the IT Help Desk
       |web page.
   }) =~ s/^\s+[|]//gm;
   print $message;

--
-David




More information about the Perl mailing list