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

Comment on

( #3333=superdoc: print w/ replies, xml ) Need Help??
    0: #!/usr/bin/perl -w
    1: use strict;
    2: use Curses;
    3:  
    4: $SIG{'INT'} = sub {endwin; exit(0);}; 
    5: 
    6: initscr;
    7: cbreak;
    8: noecho;
    9: clear;
    10: 
    11: for (my $i = 0;;$i++)
    12: {
    13:   if ($i % 2)
    14:   {
    15:     addstr(0, $i % 80, '%-');
    16:   }
    17:   else
    18:   {
    19:     addstr(0, $i % 80, '%<');
    20:   }
    21:   select(undef, undef, undef, 0.25); # sleep for 1/4 second
    22:   addstr(0, ($i - 2) % 80, '  ');
    23:   move(1, 0);
    24:   refresh;
    25: }
    26:  
    27: __END__
    28:  
    29: =pod
    30:  
    31: =head1 NAME
    32:  
    33: rws -- Running With Scissors
    34:  
    35: =head1 SYNOPSIS
    36:  
    37: B<rws>
    38:  
    39: =head1 DESCRIPTION
    40:  
    41: Trolls for a response from Randal.  Press the interrupt key (usually 
    42: Ctrl-C) to quit. 
    43:  
    44: =head1 INSTALLATION
    45:  
    46: You may have to change the first line if B<Perl> is not in F</usr/bin> on
    47: your system.  You will also need the B<Curses.pm> module (which is in the
    48: F<libcurses-perl> package in Debian GNU/Linux.) Other than that, just
    49: make the script executable and you are ready to go.
    50:  
    51: =head1 BUGS
    52:  
    53: Assumes terminal line length is 80 -- itself an example of running with
    54: scissors!
    55:  
    56: =head1 AUTHOR
    57:  
    58: Jaldhar H. Vyas E<lt>jaldhar@braincells.comE<gt>
    59:  
    60: =head1 LICENSE
    61:  
    62: This code is free software under the Crowley Public License ("Do what
    63: thou wilt shall be the whole of the license")
    64:  
    65: =head1 VERSION
    66:  
    67: 1.0 -- Aug 5, 2000
    68: 
    69: =cut

In reply to Running With Scissors by jaldhar

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":



  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.
  • Log In?
    Username:
    Password:

    What's my password?
    Create A New User
    Chatterbox?
    and the web crawler heard nothing...

    How do I use this? | Other CB clients
    Other Users?
    Others rifling through the Monastery: (13)
    As of 2015-07-06 19:04 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?

      The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









      Results (81 votes), past polls