ssh - Start a Perl script remotely over LAN or WiFi -


scenario

laptop a: have perl script automates ftp/upload download. let me call ftp_script.pl. run script , rest.

system b: now, @ different location. want trigger perl script(ftp_script.pl) remotely laptop b(from home) only using perl script. want know what possible ways trigger perl script using perl script?

requirements:

  1. i want start perl script (say ftp_script.pl) sitting home remote system (located in office) public ip know.
  2. i want start perl script (say ftp_script.pl) 1 laptop other connected on lan via hub.

is possible achieve?

ps: don't know perl scripting.

we need have mechanism @ remote host can pick requested connection on specified port, , handle debugger interaction command line can use netcat reduce dependencies on external programs, , give better idea happening behind scenes, can use following program

#!/usr/bin/perl -w use strict; use getopt::long; use io::socket; use term::readline; use constant bignum => 65536; our $previous_input; # set host , port. $host = shift || 'localhost'; $port = shift || 12345; # on 1024 please die("usage: $0 hostname portno") unless ($host =~ /\w+/ && $port =~ ^\d+$/); print "listening on $host:$port\n"; $term = new term::readline 'local prompter'; $out; { # strict subs complains stdout, turn off moment. no strict 'subs'; $out = $term->out || stdout; } $out->autoflush(1); # open socket debugger connect to. $sock = new io::socket::inet( localhost => $host, localport => $port, proto => 'tcp', listen => somaxconn, reuse => 1); $sock or die "no socket :$!"; $new_sock = $sock->accept(); # try pick remote hostname prompt. $remote_host = gethostbyaddr($sock->sockaddr(), af_inet) || 'remote'; $prompt = "($remote_host)> "; ($buf, $input  # read output debugger, read debugger input. while (1) { # drop out if remote debugger went away. exit 0 unless sysread($new_sock, $buf, bignum); print $out $buf; # drop out if got end-of-file locally (warning: # causes remote perl drop dead because socket goes away). exit 0 unless defined($input = $term->readline($prompt)); print { $new_sock } munge_input($input); # add line terminal history. $term->addhistory($input) if $input =~ /\s/; } # debugger interaction can confused if string gets # passed null. clean here. sub munge_input { $actual_input = shift; $actual_input = "\n" unless defined $actual_input;

note whichever program choose listener, need select port number higher 1024 unless you’re running root (not idea) on machine.you can debug perl program remote machine using perldb_opts

perldb_opts="remoteport=192.168.0.7:12345" perl  helloworld hello world process id(2798)

ip address:port number


Comments

Post a Comment

Popular posts from this blog

html - Outlook 2010 Anchor (url/address/link) -

i'm trying link specific pdf page msoutlook'10 or msword'10, #page=... anchor particularly useful , works fine elsewhere. unfortunately when click [ctr-k] in outlook or winword, links re-formatted assuming unc path. pdf file located on shared drive. using "file:" prefix links open pdf in adobe reader (outside of browser), , "http:" open inside browser. issue seem need open in browser "file:" prefix in order anchor work. know anchors work inside browser. outlook uses windows/explorer default program (based on file extension) seems open in adobe reader neglecting anchor. is aware of solution, link specific page or bookmark of shared-pdf ms outlook and/or winword link? common references: mailermailer.com/...anchor-tags-html-emails campaignmonitor.com/...anchor-links-in-email-newsletters/ stackoverflow.com/...anchor-in-pdf-document
Read more

javascript - Why does running this loop 9 times take 100x longer than running it 8 times? -

consider code: test = function() { } t = new test(); (var = 0; < 8; i++) { result = t instanceof test; } if change number of iterations 8 9 , loop take 100 times longer complete in latest version of firefox (41.0.1). tested on 2 different pcs , magic limit 8. here jsperf test used: http://jsperf.com/instanceof-8-times-vs-9-times does have idea why might happen? seems specific instanceof . not happen if else object, example check property. note: filed bugzilla bug this. jan de mooij mozilla team has posted details in bugzilla thread . here's simplistic interpretation of highly technical answers: in i < 8 case, firefox smart enough hoist result = t instanceof test; statement out of loop (according tests, doesn't seem omit altogether). in i < 9 case, apparently doesn't optimization . why? reason not clear, related fact 9 iterations threshold above function considered "hot" enough run through jit compiler. i < 8 cas...
Read more

Getting gateway time-out Rails app with Nginx + Puma running on Digital Ocean -

following this guide setup app on digital ocean droplet, not working. site not loading , it's throwing: "gateway time-out". the puma server works, since ps aux | grep puma prints: root 15878 0.0 0.4 376832 2168 ? sl 12:50 0:00 puma 2.13.4 (unix:///var/www/myapp/shared/tmp/sockets/myapp-puma.sock) [20150930164940] root 15881 0.0 0.7 903676 3692 ? sl 12:50 0:06 puma: cluster worker 0: 15878 [20150930164940] root 24654 0.0 0.1 11748 916 pts/2 s+ 18:00 0:00 grep --color=auto puma my nginx config: user root; worker_processes 1; events { worker_connections 1024; } http { upstream puma { server unix:///var/www/myapp/shared/tmp/sockets/myapp-puma.sock; } server { listen 80; server_name myapp.com; root /var/www/myapp/current/public; access_log /var/www/myapp/current/log/access.log; error_log /...
Read more