Check it: 
#!/usr/bin/perl -w
use strict;

# Example script, simmilar to the one I'm writing.. 

menu();
 
sub menu {
 
    my @menu = (
        [ 1 => 'Go' ],
    );
 
    my %call = (
        1 => \&go,
    );
 
   system("clear");
 
   print " ", "$_->[0]. $_->[1]\n" for @menu;
 
   print "Enter Selection:";
    chomp( my $answ = <STDIN> );
    my $sub = $call{$answ} or err();
 
    $sub->();
}
 
sub go {
    # This is where the telnet call gets made.
    system("telnet", "192.168.1.1"); # Currently spawns shell command
    # my $var = `telnet 192.168.1.1' # This will save output to $var
                                     # So I can edit the output.
    system("clear");
    menu();
}
 
sub err {
 
 
     print "Valid Selection Not Entered!\n";
 
     menu();
}

[download]
I want the command to run with my modified output so the user can't see that it is telnetting to 192.168.1.1.

The output can be modified easily enough using s/192.16.1.1//, But I can't seem to figure out how to make the user see the output I desire, while it's executing the telnet command.

In reply to Re: Re[3]: Modifying STDOUT and keeping control by Anonymous Monk
in thread Modifying STDOUT and keeping control by Anonymous Monk

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!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • 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, details, 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, summary, 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.