Perl Regex

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

I come seeking wisdom. Script logs into switches on my list but nothing seems to happen. Following error:

[ 5.546199] tr nope, doesn't (yet) match (?-xism:[\/a-zA-Z0-9._\[\]-]+
+ ?(?:\(config[^)]*\))? ?[#>] ?$)
[ 5.550072] du SEEN:
[download]

Here is code in question:

        @version_info = $session_obj->cmd('term length 0');
        $session_obj->cmd('show int | i proto.*notconnect|proto.*admin
+istratively down|Last in.* [6-9]w|Last in.*[0-9][0-9]w|[0-9]y|disable
+d|Last input never, output never, output hang never');
        $session_obj->cmd('conf t');
         foreach (@version_info) {
                 if ($_ =~ /(.*) is down/) {
                        $_ = $1;
                        print $_;
                        #$session_obj->cmd('conf t');
                        $session_obj->cmd("int $_");
                        $session_obj->cmd('shutdown');
               }
              }
        $session_obj->cmd('exit');
        $session_obj->close;
[download]

Comment on Perl Regex Select or Download Code

Replies are listed 'Best First'.
Re: Perl Regex by Corion (Patriarch) on Nov 14, 2016 at 14:38 UTC
There are some things that will help us give you a better answer. Most of all, what module you are using. Most likely, this would be something like Net::Telnet, and second, what the raw input data from the remote session looks like. For Net::Telnet, you would be able to obtain this input by using its debugging facilities. Most likely, you are fighting the prompt of your remote terminal respectively how to match the remote prompt of your terminal with the regular expression in the configuration of the module. But without seeing the remote prompt and the regular expression you're using, it's hard to diagnose where it goes wrong.	[reply]
Re^2: Perl Regex by lrobindon (Initiate) on Nov 14, 2016 at 18:01 UTC
I think I know the issue. The show command shows all ports that match the criteria. GigabitEthernet1/0/3 is down, line protocol is down (notconnect) Last input never, output never, output hang never Last input 17w0d, output 00:00:00, output hang never Last input 38w0d, output 00:00:00, output hang never Last input 48w5d, output 00:00:00, output hang never Last input 1y27w, output 00:00:00, output hang never GigabitEthernet1/0/18 is down, line protocol is down (notconnect) Last input never, output 6w6d, output hang never Those results go into a array. I can not figure out how to trim the array results to say, GigabitEthernet1/0/3 Linux	[reply]
Re: Perl Regex by AnomalousMonk (Archbishop) on Nov 14, 2016 at 14:34 UTC
So... What's the question? Please see How do I post a question effectively?, How (Not) To Ask A Question, How do I compose an effective node title? (Update: Oops... Forgot I know what I mean. Why don't you?) Update: Please also see How do I change/delete my post?, and note that you can change the node title as well. It might be better to do this rather than posting an entirely new, closely related thread. Give a man a fish: `<%-{-{-{-<`	[reply] [d/l]
Re: Perl Regex by neilwatson (Priest) on Nov 14, 2016 at 14:34 UTC
Tip for asking better question. Better questions get you better and faster answers. Neil Watson watson-wilson.ca	[reply]