Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: how do I print all the code while executing, like in the movies?

by jasonk (Parson)
on Nov 17, 2008 at 05:42 UTC ( #724006=note: print w/ replies, xml ) Need Help??


in reply to how do I print all the code while executing, like in the movies?

This should do it pretty much exactly the way they do it in the movies...

#!/usr/local/bin/perl -w ################## use strict; use warnings; use PPI; use Term::ANSIColor qw( colored ); $| = 1; my @files = values %INC; while ( time - $^T < 5 ) { my $doc = PPI::Document->new( splice( @files, rand( @files ), 1 ) ); $doc->prune( $_ ) for qw( PPI::Token::Pod PPI::Token::Comment PPI::Statement::Data PPI::Statement::End PPI::Statement::Include ); my @lines = split( "\n", $doc->serialize ); for ( splice( @lines, rand( @lines ), rand( 25 ) ) ) { next unless /\S/; next if /^\s*1;\s*$/; print "$_\n"; select( undef, undef, undef, 0.05 ); } } print " " x 20, colored( [qw( bold red blink )], " SECURITY PROTOCOLS BYPASSED, ACCESS GRANTED\n" );

www.jasonkohles.com
We're not surrounded, we're in a target-rich environment!


Comment on Re: how do I print all the code while executing, like in the movies?
Download Code
Replies are listed 'Best First'.
Re^2: how do I print all the code while executing, like in the movies?
by ikegami (Pope) on Nov 17, 2008 at 05:59 UTC
    Add
    # Load ANSI driver if running in Windows. use if $^O eq 'MSWin32', 'Win32::Console::ANSI';
    and it becomes portable.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://724006]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (8)
As of 2015-07-31 02:03 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 (274 votes), past polls