Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Here documents in blocks

by Bod (Parson)
on Dec 19, 2020 at 16:25 UTC ( [id://11125451]=perlquestion: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    my $login_text = $user_number?'logout':'login';
    
    ...
      ...more of webpage...
    </div>
    END_HTML
    
  2. or download this
    if (isAdmin($user_number)) {
        print ...some extra content...
    }
    
  3. or download this
    if (isAdmin($user_number)) {
        print "<table>\n";
    ...
        print "</tr>\n";
        print "</table>";
    }
    
  4. or download this
       print qq[<td class="someclass" style="text-align:center">Some Conte
    +nt</td>\n];
       print qq[</tr><tr>\n<td class="someClass">Restricted</td>\n] if $us
    +er_number == 20;
    
  5. or download this
    #!/usr/bin/perl
    use strict;
    ...
    }
    
    exit 0;
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://11125451]
Front-paged by Corion
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others pondering the Monastery: (4)
As of 2024-04-25 23:28 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found