To second what Uri mentioned already,
On Fri, Jul 15, 2016 at 11:42 PM, AC P wrote:
>
>
> Argument "$command" isn't numeric in subtraction (-) at then it gives me
> my directory.
>
>
>
This error message (I suspect it was a warning, can you check?) probably
reported a line number. Could you p
On 07/15/2016 11:42 PM, AC P wrote:
Hello Perl gurus,
I'm hoping someone here can provide a solution since I'm stuck.
I'm trying to send TL1 commands resembling "RTRV-ALM-ALL;" (the
simplest command you can send as an example here) via Net::SSH::Expect
but they keep getting interpolated befor
Hello Perl gurus,
I'm hoping someone here can provide a solution since I'm stuck.
I'm trying to send TL1 commands resembling "RTRV-ALM-ALL;" (the simplest
command you can send as an example here) via Net::SSH::Expect but they keep
getting interpolated before even reaching the TL1 device.
I predi
> "GS" == Gabriel Striewe writes:
GS> my $status = system("emacsclient -n --eval '(progn (pop-to-buffer
(get-buffer-create \"*piped*\")))'");
GS> if($status!=0){ exit 1; }
GS> while(){
GS> system("emacsclient -n --eval '(with-current-buffer \"*piped*\"
(insert \"" . $_ . "\"))
Dear List,
i found on the emacswiki the following script written in Perl which is
supposed to make emacsclient read from a pipe:
#! /usr/bin/perl
# This script uses emacsclient, be sure to have a running server session.
# A server-session can be started by "M-x server-start".
my $status = syste
RICHARDS, JIM wrote:
I am trying to compare files names listed in a file to the actual files
in a directory. My code is as follows:
Your "code" won't compile. Please add the following two lines:
use warnings;
use strict;
to the top of your program and let perl help you find the mistakes.
The best
RICHARDS, JIM wrote:
> I am trying to compare files names listed in a file to the actual
> files in a directory. My code is as follows:
>
>
>
> Opendir(DIR,"name");
>
> @files=readdir(DIR);
>
>
>
> Open(IN,"
>
>
> While() {
>
> If(/^pattern/) {
>
>
I am trying to compare files names listed in a file to the actual files
in a directory. My code is as follows:
Opendir(DIR,"name");
@files=readdir(DIR);
Open(IN,") {
If(/^pattern/) {
moveFile($_);
}
}
Close(IN);
Sub moveFile() {
Thanks Japhy and Wags - I figured it was simple. Aloha => Beau.
-Original Message-
From: Jeff 'japhy' Pinyan [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, August 28, 2002 8:18 AM
To: Beau E. Cox
Cc: [EMAIL PROTECTED]
Subject: Re: Interpolation problem
On Aug 28, Beau E.
On Aug 28, Beau E. Cox said:
>I can't figure this one out. I have a requirement
>to grab from some sort of input the elements of a regular
>expression and execute it. All is fine except when I use
>$1, $2, ... in the substitution, as:
This is in the FAQ, and one of the MOST commonly asked FAQs I
AIL PROTECTED]]
Sent: Wednesday, August 28, 2002 11:07
To: [EMAIL PROTECTED]
Subject: Interpolation problem
Hi all -
I can't figure this one out. I have a requirement
to grab from some sort of input the elements of a regular
expression and execute it. All is fine except when I use
$1, $2, ... in the
Hi all -
I can't figure this one out. I have a requirement
to grab from some sort of input the elements of a regular
expression and execute it. All is fine except when I use
$1, $2, ... in the substitution, as:
#!/usr/bin/perl
use strict;
use warnings;
$_ = 'beau cox';
my $match = '(\w+)\s+(\w+
12 matches
Mail list logo
