in reply to maximum result size for Net::Telnet's cmd() method
I haven't seen any result size issues (and I've used it to run some commands with huge amounts of output), most of the time when I've run into problems with the result data being truncated, it has been due to my prompt() regexp being a little too simplistic, and it is matching something in the output. Be especially careful of prompts that contain dollar signs, $tn->prompt("foo$ ") will match anything that contains 'foo'...
What I usually end up doing when I need to parse output that may contain data that looks like the prompt, is to do something like this instead of using cmd:
my $tn = Net::Telnet->new(); # setup your connection here... my $tag = "___END_OF_COMMAND___".time()."_".$$; $tn->print("some command goes here ; echo $tag"); my($pre,$match) = $tn->waitfor( String => $tag ); my @output = split(/\r?\n/,$match);
Another option is to adjust the prompt on the remote server to be something you can readily identify that isn't likely to appear in your command output...
my $prompt = "___NET_TELNET_PROMPT_DETECTOR___".time(); $tn->cmd("export PS1=$prompt"); $tn->prompt("$prompt");
| We're not surrounded, we're in a target-rich environment! |
|---|
|
|---|