Can you tell me why this example below does not work in perl v5.28?

    use utf8;

    sub £_to_¥ { ... }

    my $yen = £_to_¥('1000£');
[download]

This is my tiny script and its output with diagnostics.

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use utf8;
use feature qw/say/;
binmode STDOUT, ":utf8";

my $€ = 1;
say '------------------------';
[download]

Unrecognized character \x{20ac}; marked by <-- HERE after my $<-- HERE
+ near
    column 5 at ./uni2.pl line 10 (#1)
    (F) The Perl parser has no idea what to do with the specified char
+acter
    in your Perl script (or eval) near the specified column.  Perhaps 
+you
    tried  to run a compressed script, a binary program, or a director
+y as
    a Perl program.
    
Uncaught exception from user code:
    Unrecognized character \x{20ac}; marked by <-- HERE after my $<-- 
+HERE near column 5 at ./uni2.pl line 10.
[download]

Line 1193:                sv_setpvf(keysv, "%.15" NVgf, SvNV(arg));
Line 1194:#ifdef HV_FETCH_EMPTY_HE
[download]

Line 1193:                sv_setpvf(keysv, "%.15" NVgf, SvNV(arg));
Line 1194:
Line 1195:#ifdef HV_FETCH_EMPTY_HE
[download]

Code is not inside a function (maybe last function was ended by a blan
+k line followed by a statement on column one?) in ListUtil.xs, line 1
+195
Makefile:360: recipe for target 'ListUtil.c' failed
[download]

   open(PACK,">$pack") or die("failed to open file $pack");
   print PACK <<_M_E; 
#!/usr/intel/bin/tcsh -f
$sanity_code
$tests
_M_E

   close(PACK) or die("failed to close file $pack");
[download]

failed to close file <path> at <script> line 400.
[download]

for(i = 0; i < 10; i++) { do stuff with the byte at index number i }
[download]

Team, i know this has been in discussion for long time. But i haven't got an answer searching entire web since yesterday. I need to run series of commands in windows after logging to an server running SSH server.

The problem is as you might have guessed being interactive.....

1. Net::SSH2 -- not supported in windows

2. Net:OpenSSH -- again not supported in windows

3. Install openSSH in widnows itself and using System and backticks to run dos commands. Yes Openssh can be installed in windows

without cgywin environment a discovery i made yesterday.

4. IPC::Cmd, a tool similar to using system command but doesn't provide interactive session. Everytime you run new terminal session is spawned.

5. Ofcourse tried plain system and exec and backticks also turned futile. Worked liked a charm for single command run and shutoff.

6. IPC::Session, not avaiable in Active Perl i use and don't know how to install it currently. Supposedly provides for interactive session using terminal. Not been able to get it working..

7. plink tool is also good failing to work even when list of commands is fed to it externally. Cisco Box i am trying to SSH to is throwing illegal characters error. Weird right?

Any leads is appreciated..

#!/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?