Net::Telnet::Cisco and prompt regex issue

josh803316 has asked for the wisdom of the Perl Monks concerning the following question:

I'm entering a command on a cisco-like device using Net::Telnet::Cisco. If I run the command by hand I see the output as follows

device#upgrade all ftp://anonymous@release.network.com/tagged/soc/OS.S
+6K.V7_1T40
Fetching ftp://anonymous@release.network.com/tagged/soc/OS.S6K.V7_1T4F
+ile size is 37548064 bytes
######################################################################
+#################################################
##############[OK]
Download complete, file length is 37548064 bytes
Forcing image installation...
'V7_1T40' will be next image to boot
Upgrade complete: Use the 'reload' command to have upgrade take effect
device#
[download]

but for some reason when I use the following

@output = $net_tel_cisco->cmd(
                String => "$params->{cmd}\n",
                Cmd_remove_mode => 1,
                Timeout => $params->{timeout},
                Prompt => '/(?m:.*[\w.-]+\s?(?:\(config[^\)]*\))?\s?[\
+$#>]\s?(?:\(enable\))?\s*$)/'
        );
[download]

I'm not capturing everything in the @output, Just the first two lines.

The problem seems to be that the prompt regex is matching the following (checked by looking at $net_tel_cisco->last_prompt)

File size is 37548064 bytes
#
[download]

So I guess, the question is......how can I fix the regex so that it doesn't see that line with multiple #### as a prompt. Maybe only expect a single # as an indication of a prompt?

Comment on Net::Telnet::Cisco and prompt regex issue Select or Download Code

Replies are listed 'Best First'.
Re: Net::Telnet::Cisco and prompt regex issue by josh803316 (Beadle) on Dec 09, 2010 at 05:44 UTC
I tried this right after I posted and it seems to work: `Prompt => '/(?m:.[\w.-]+\s?(?:$config[^$]\))?\s?[\$#?>]\s?(?:$ena +ble$)?\s*$)/'` [download]	[reply] [d/l]
Re^2: Net::Telnet::Cisco and prompt regex issue by Anonymous Monk on Dec 09, 2010 at 08:43 UTC
`/ (?m: # not capture, multiline .* # skip anything [\w\.-]+ # the 'device' name part \s? (?:$config[^$]\))? # random '(config...)' part \s? [\$#?>] # real prompt end part \s? (?:$enable$)? \s # random '(enable)' part $) /x` [download] You're missing the '\' escape of the '.' in the device part. It's supposed to be a hostname like thing: foo-bar.baz10.com and needs to match a literal period '\.'. You also may need to set the timeout a bit longer depending on how long it takes to download. What you really want to do is know the device name in advance, or get it from the last-prompt after you login. Then replace the `[\w\.-]+` part of the regex with the actual name of the device.	[reply] [d/l] [select]
Re^3: Net::Telnet::Cisco and prompt regex issue by Anonyrnous Monk (Hermit) on Dec 09, 2010 at 09:08 UTC
You're missing the '\' escape of the '.' The dot isn't special inside of a character class, so no escaping required: `$ perl -E 'say "matched" if "foo-bar.baz" =~ /^[\w.-]+\z/' matched $ perl -E 'say "matched" if "foo-bar:baz" =~ /^[\w.-]+\z/'` [download] The second case (with `':'` in place of `'.'`) doesn't match, because the (unescaped) dot in the pattern stands for a literal dot, not "any character" as it would outside of character classes.	[reply] [d/l] [select]
Re^4: Net::Telnet::Cisco and prompt regex issue by josh803316 (Beadle) on Dec 09, 2010 at 21:10 UTC
Re^2: Net::Telnet::Cisco and prompt regex issue by josh803316 (Beadle) on Dec 09, 2010 at 05:49 UTC
I spoke too soon, that didn't solve it	[reply]