#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "Hello World!";

I need to execute a program in a remote machine, that takes its input from STDIN.

I created a user in such remote machine, and set my program as the shell for that account (so I don't need to provide shell access).

On my local node, I have this program:

#!/usr/bin/perl

    use IPC::Open3;
    use POSIX;


    $inputfile= $ARGV[0];
    open(FILE, '<', "$ARGV[0]") or die $!;
    $command= "ssh user\@remotehost.com";
    $pid = open3('<&FILE', '>&STDOUT', '>&STDERR', $command);

    $ret=waitpid( $pid, 0 );
[download]

What I expect is that I pass the name of the file as arguments of this program ($ARGV[0]), and the contents of this file is fed as STDIN of the child I've spawn with open3. This should be received as STDIN of my remote program, and the results of the remote program would be printed on STDOUT.

This works well. However, my program only reads the first line, and then terminates.

If I do a manual test, and do ssh user@remotehost.com, and type multiple lines of input, then things work as expected.

Any clues?

Thanks!
-m

Hello, I have file here. I want to change file 1.fa to file 1.txt. Thanks in advance for great help! Best, yue

open(IN1, "1.fa") || die "Cannot open this file";

@lines = <IN1>;

$i = 0;

for (@lines)

{

$lines[$i]=~s/\nA/\tA//g;

$lines[$i]=~s/\nT/\tT//g;

$lines[$i]=~s/\nC/\tC//g;

$lines[$i]=~s/\nG/\tG//g;

$lines[$i]=~s/\nN/\tN//g;

$thislines[$i]=$lines[$i];

print $thislines[$i];

$i++;

}

open(OUT, ">1.txt") || die "Cannot open this file";

for $thisline(@thislines){

print OUT $thisline;}

close(OUT);
close(IN1);
[download]

1.fa

>1
AGTCGTAGCAT
>2
TGAGCTACG
>3
GGCATAGN
>4
CGCACNCAGCTACACC
>5
NGATAGCTACA
[download]

1.txt
>1    AGTCGTAGCAT
>2    TGAGCTACG
>3    GGCATAGN
>4    CGCACNCAGCTACACC
>5    NGATAGCTACA
[download]

I have a bunch of scripts that "use DBI;" . One of the scripts, a particularly database intensive one, says "use Apache::DBI" (which incidentally fail to load).

Is there a difference between Apache::DBI and DBI or can I just change this line to "use DBI" without impact?

Hello

On Windows, I'm using Crypt::PK::RSA to generate key pairs like this:

use Crypt::PK::RSA;
my $pk = Crypt::PK::RSA->new();
$pk->generate_key(256, 65537);
my $private_pem = $pk->export_key_pem('private');
my $public_pem = $pk->export_key_pem('public');
[download]

Private key format is fine. Public key is generated like this:

-----BEGIN RSA PUBLIC KEY-----
...
-----END RSA PUBLIC KEY-----
[download]

Since I need to add this key to authorized_keys files it needs to be in a ssh-rsa format.

Can easly be done using ssh-keygen to convert:

$ ssh-keygen -y -f privatekey > publickey
[download]

I found this thread explaining the process and having several solutions none perl based.

And all end up being dependent on ssh-keygen or open-ssl both not natively available on Windows

Does anyone know how to do this only in perl or if it is even possible?

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;


my $data1 = [
{
   'NAME' => 'PAUL DY',
   'DATE' => '2009-05-05',
   'NUMBER' => '00001',
   
 },
   {
   'NAME' => 'ANTHONY RD',
   'DATE' => '2012-01-07',
   'NUMBER' => '00003',
 },
  {
   'NAME' => 'RUTH RD',
   'DATE' => '2018-01-07',
   'NUMBER' => '00023',
 },
 
 ];

my $data2 = [
  {
    'CODE' => 'X11',
  }
];

 @$data1= ({map { %$_ } (@$data1, @$data2)});
 print Dumper $data1;

[download]

c:\var\client>ssh-keygen
Generating public/private rsa key pair.
Enter file in which to save the key (/home/user/.ssh/id_rsa): client_k
+ey
Enter passphrase (empty for no passphrase):
Enter same passphrase again:
Your identification has been saved in client_key.
Your public key has been saved in client_key.pub.
The key fingerprint is:
SHA256:eBU07eoloUWInreyZ2WkYMvBAhISc2OIsiE1gp+iS4E user@localhost
The key's randomart image is:
+---[RSA 3072]----+
|O=*    . o+.     |
|X=.o  . . .o.    |
|+= o o . ...     |
|E.o . B...+ .    |
|...  +.=S* o     |
|..    +.+ = .    |
|..     o + o     |
|.     . o .      |
|       o         |
+----[SHA256]-----+
[download]

c:\var\client>ssh -i client_key localhost
Last login: Thu Aug 22 16:34:22 2019

$
[download]

use Net::SSH::Perl;
my $server='localhost';
my %params = (
            "protocol"         => '2',
            "use_pty"          => 0,
            "options"          => ["stricthostkeychecking no"],
            "identity_files"   => ["client_key"],
            "debug"            => 1,
        );

$ssh = Net::SSH::Perl->new($server, %params);
$ssh->login();
[download]

c:\var\client>perl test.pl
localhost: Reading configuration data C:\Users\user\.ssh\config
localhost: Reading configuration data C:\windows\ssh_config
localhost: Connecting to localhost, port 22.
localhost: Remote version string: SSH-2.0-OpenSSH_8.0
localhost: Remote protocol version 2.0, remote software version OpenSS
+H_8.0
localhost: Net::SSH::Perl Version 2.14, protocol version 2.0.
localhost: No compat match: OpenSSH_8.0.
localhost: Connection established.
localhost: Sent key-exchange init (KEXINIT), waiting for response.
localhost: Using curve25519-sha256@libssh.org for key exchange
localhost: Host key algorithm: ssh-ed25519
localhost: Algorithms, c->s: chacha20-poly1305@openssh.com <implicit> 
+none
localhost: Algorithms, s->c: chacha20-poly1305@openssh.com <implicit> 
+none
localhost: Generating ephemeral key pair.
localhost: Entering Curve 25519 Key Exchange.
localhost: Sent client public key, waiting for reply.
localhost: Received host key, type 'ssh-ed25519'.
localhost: Host 'localhost' is known and matches the host key.
localhost: Verifying server signature.
localhost: Send NEWKEYS.
localhost: Waiting for NEWKEYS message.
localhost: Enabling encryption/MAC/compression.
localhost: Sending request for user-authentication service.
localhost: SSH2_MSG_EXT_INFO received
localhost: SSH Extension activated: server-sig-algs=ssh-ed25519,ssh-rs
+a,rsa-sha2-256,rsa-sha2-512,ssh-dss,ecdsa-sha2-nistp256,ecdsa-sha2-ni
+stp384,ecdsa-sha2-nistp521
localhost: Service accepted: ssh-userauth.
localhost: Trying empty user-authentication request.
localhost: Authentication methods that can continue: publickey,passwor
+d,keyboard-interactive.
localhost: Next method to try is publickey.
localhost: Trying pubkey authentication with key file 'client_key'
Wrong key type at C:/Strawberry/perl/site/lib/Net/SSH/Perl/Auth/Public
+Key.pm line 83.
[download]

Any help appreciated!

Regards.

• run re.pl
• execute !!1

Expect: 1

How do I make it stop? I have already tried without success:

• installing Devel::REPL::Plugin::ReadLineHistory::WithoutExpansion
• setting $_REPL->term->Attribs->{do_expand} = 0; as documented in Devel::REPL::Plugin::ReadLineHistory

#!/usr/bin/env perl
use 5.030;
use lib 'lib';
use utf8;
use strictures;
use autodie qw(:all);
use Moops;
use Kavorka;
use perl5i::2 -skip => [qw(Signatures)];
use Devel::REPL::Plugin::ReadLineHistory::WithoutExpansion;

$_REPL->load_plugin(qw(
    Colors
    DataPrinter
    DumpHistory
    FindVariable
    History
    Interrupt
    LexEnv
    MultiLine::PPI
    OutputCache
    Packages
    Peek
    PPI
    Refresh
    ReadLineHistory::WithoutExpansion
    ShowClass
    Completion
    CompletionDriver::Globals
    CompletionDriver::INC
    CompletionDriver::Keywords
    CompletionDriver::LexEnv
    CompletionDriver::Methods
    CompletionDriver::Turtles
));

$_REPL->term->Attribs->{history_quotes_inhibit_expansion} = 1;
$_REPL->term->Attribs->{do_expand} = 0;
[download]

Hi Good Afternoon All.

I'm planning install perl in my office(development machine), but in development machine there's not connection internet. And installation stuck in missing module perl

So, I make a lokal vbox, in there, I make a repo cpan(internet connection).

I am tired of this problem. Anybody help me ?

Thank.