Send control break in PERL

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

I want to execute one of the commands in a router, where the command won't display anything, to be more clear, here is the command

router> monitor traffic interface ae10 matching "tcp port 179" size 1500 write-file capture.pcap

when you issue the above command, here is the response from the router

Address resolution is ON. Use <no-resolve> to avoid any reverse lookup delay. Address resolution timeout is 4s. Listening on ae10, capture size 1500 bytes

In the above output for the command " monitor traffic interface ae10 matching "tcp port 179" size 1500 write-file capture.pcap", it will listen for some packet and store in pcap file, the command will/should stop only when we send CTRL_C

I tried one internal command, of our company, here is the following code and error


        $rh2->cmd(mode=>'cli', cmd=>"monitor traffic interface ae10 ma
+tching \"tcp port 179\" size 1500 write-file capture.pcap");
        $rh2->send_control_char(char=>'CTRL_C', timeout=>2400);
[download]

the code gives the following error

Feb 17 21:26:35 [INFO ] [sherlock.1] [cmd] monitor traffic interface a
+e10 matching "tcp port 179" size 1500 write-file capture.pcap
Feb 17 21:27:35 [ERROR] [sherlock.1] JT::Device::_send: No pattern mat
+ched during 'monitor traffic interface ae10 matching "tcp port 179" s
+ize 1500 write-file capture.pcap' from patterns: [ '-re', '^(?:{(?:ma
+ster|backup)(?:.*)}[\r\n]*)?(?:\[edit[^\]]*\]\s+)??JT_53_sherlock:\s*
+' ]
Feb 17 21:27:35 [ERROR] [sherlock.1] Device did not respond as expecte
+d.Please refer the expect file
Feb 17 21:27:35 [ERROR] Expected patterns are : -re ^(?:{(?:master|bac
+kup)(?:.*)}[\r\n]*)?(?:\[edit[^\]]*\]\s+)??JT_53_sherlock:\s*
[download]

Is there a way to solve this using any perl commands

Comment on Send control break in PERL Select or Download Code

Replies are listed 'Best First'.
Re: Send control break in PERL by kcott (Archbishop) on Feb 18, 2017 at 08:23 UTC
"Is there a way to solve this using any perl commands" The Perl function to send a signal to a process is kill. `$ perl -E 'kill TERM, $$' Terminated: 15 $` [download] "... should stop only when we send CTRL_C" If you need to use "internal command, of our company", I'm wondering if the value of "`char`" should be a 'Ctrl-C' character (i.e. a single character with the ASCII code 3), instead of the 6-character string "`CTRL_C`". Here's a couple of ways to generate a 'Ctrl-C' character: `$ perl -E 'say ord "\cC"' 3 $ perl -E 'say ord "\x{3}"' 3` [download] — Ken	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re: Send control break in PERL
by kcott (Archbishop) on Feb 18, 2017 at 08:23 UTC

"Is there a way to solve this using any perl commands"

The Perl function to send a signal to a process is kill.

$ perl -E 'kill TERM, $$'
Terminated: 15
$
[download]

"... should stop only when we send CTRL_C"

If you need to use "internal command, of our company", I'm wondering if the value of "char" should be a 'Ctrl-C' character (i.e. a single character with the ASCII code 3), instead of the 6-character string "CTRL_C". Here's a couple of ways to generate a 'Ctrl-C' character:

$ perl -E 'say ord "\cC"'
3
$ perl -E 'say ord "\x{3}"'
3
[download]

— Ken

[reply]
[d/l]
[select]