I have a variable using module Win32::API that would be a pointer to a pointer
in C.
If I do:
$var = $lplpBuffer;
print "\$var $var\n";
$var = \$lplpBuffer;
print "\$var $var\n";
$var = \$lplpBuffer[0];
print "\$var $var\n";
...it prints:
$varÆ╢☺
$var SCALAR(0x1
CGI is server side, what you are trying to accomplish is client side, so
Javascript or a similar client side script must be used. Probably the
best answer is not to do it, in general users dislike it anyways, if it
is for a specific app for a specific set of users than you should be
able to set
Are you talking about a form where you type in say '10' in fieed one and '15 in field
two and the actual html page changes to say '25' as soon as you type them in without
hitting submit?
If so, yes you'll need javascript, and getting it to work is a javascript issue. As
far as javascript goes
Hi all,
Is it possible to process keyboard entries, character
by character, without displaying content
(e.g. for password fields),
using only core ActivePerl 5.8.0 build 804
for Windows 2000 Professional SP 3.
(no additional CPAN modules like Term/ReakKey,
no 'use' statement).
I ask for a simple l
I have set up mysql application server on my pc, and
added a class path to the bin. When I use the Mysql
Manager Tools Query it throws a 10050 connection
failure message. I'm using the word localhost for the
server name and 127.0.0.1 for host.
And have installed perl 5.8, and used cpan to intall
"Jensen Kenneth B Sra Afpc/Dpdmpq" <[EMAIL PROTECTED]> wrote in
message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
> Yes
>
> ($org) = ($1 =~ s/,//g);
>
> Is the same as
> $1 =~ s/,//g;
> $org = $1;
>
Actually not quite.
($org) = ($1 =~ s/,//g);
is assigning the result of the =~ operator t
Hi Paul
Operator overloading is using the same operator to serve for multiple data
types. For instance a language that differentiated between string and
numeric data may overload the '+' operator to perform string concatenation.
It is frequently used in object-oriented programming to define the ac
Hi,
If you are moving from a ten-line Javascript routine to perl, do you cgi first on a
simple form with two or t\hree fields. You must learn to crawl before you try to run
a marathon.
When you've made a couple simple cgi forms work, and get back to this, here are some
preliminary tips:
1) D
My cgi outputs an html page. Is there any way to open it as a new window and also
specify the size? Or is javascript the only solution? And if so, what do I do in case
someone doesn't support JavaScript?
thanks
M
actually it needed to be
($org=$1)=~s/,//g;
Because $1 is read-only (regular expression variable).
But your code gave me the clue I needed.
-Original Message-
From: Jensen Kenneth B SrA AFPC/DPDMPQ
[mailto:[EMAIL PROTECTED]]
Sent: Friday, December 27, 2002 3:23 PM
To: 'Paul Kraus'; 'P
Yes
($org) = ($1 =~ s/,//g);
Is the same as
$1 =~ s/,//g;
$org = $1;
-Original Message-
From: Paul Kraus [mailto:[EMAIL PROTECTED]]
Sent: Friday, December 27, 2002 2:21 PM
To: 'Paul Kraus'; 'Perl'
Subject: RE: Why do these two statements generate different output?
ok I was wrong. Its
ok I was wrong. Its Friday so I am half alert :) the 17094. is actually
the tail end of this error.
Modification of a read-only value attempted at armonth.pl line 30,
line 17904.
Are you able to make an assignment like this?
> -Original Message-
> From: Paul Kraus [mailto:[EMAIL PROTECT
$1 from reg expr is equal to 2300,150.17
$org = $1;
$org=~s/,//g;
Generates 2300150.17. Which is correct.
$org = $1 =~ s/,//g;
Generates 17904.
Now if I am correct the binding =~ has precedence over =. So it should
generate the same output.
Paul Kraus
Network Administrator
PEL Supply Company
21
>
> I have a script that listens on a port for a connection, receives some
> data over that connection, and writes it to a file.
>
> This works, but it takes up CPU cycles, RAM etc. when it waits. I am
> trying to get the script to use xinetd instead. That way the
> tcp daemon
> will launch it
Read Chapter 13
> -Original Message-
> From: Paul Kraus [mailto:[EMAIL PROTECTED]]
> Sent: Friday, December 27, 2002 2:26 PM
> To: 'Perl'
> Subject: Term Overloading
>
>
> Programming Perl makes many references to overloading something. For
> instance overloading the angle brackets. What
Hi,
I have a problem to install perl module "Device-SerialPort-0.13" into Redhat
8(perl 5.8.0) due to above errors. In the past, I had installed it into
RedHat6/RedHat7 many many times. Do not know how to fix that.
Any help will be highly appreciate. Below is the whole error message.
Happy new ye
Programming Perl makes many references to overloading something. For
instance overloading the angle brackets. What does this term mean. I am
assuming it just mean changing the default behavior but I wanted to make
sure.
Paul Kraus
Network Administrator
PEL Supply Company
216.267.5775 Voice
216-267
in this order ( All O'Reilly)
---
Learning Perl
Programming Perl
mastering reg expr
The first book is an easy fun read that you can learn a lot from in a
short time.
> -Original Message-
> From: Michael Weber [mailto:[EMAIL PROTECTED]]
> Sent: Friday, December 27, 2002 2:16 PM
>
Ellie Quigley's Perl by Example is fantastic.
>>> Robert Boardman <[EMAIL PROTECTED]> 12/27/02 11:50AM >>>
Thank you to everyone I now have a much better understanding of
parsing
lines,
Robb
PS could you recommend any good starter perl books?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For a
1-
Have you tried doing the regex without the vars?
s/(name1|name2)/(surname1|surname2)/g;
Does that do what you want?
If not you need to write a regex that does what you want without vars then incorporate
that into your vars.
2-
This may work, try :
{
s/$original/$new/g;
print;
}
Dan
--
Thank you to everyone I now have a much better understanding of parsing
lines,
Robb
PS could you recommend any good starter perl books?
On Fri, 2002-12-27 at 16:50, R. Joseph Newton wrote:
> my $InString = " channel="carlton.com">"
> if ($InString =~ /\bprogramme start=\"(.*)\" stop=\"(.*)\" cha
Hi to all,
I need to substitute in a text a serie of word with another serie of
word (for example: when I have the name I want the correct surname).
Modifying a someone else script I wrote this one:
#!/usr/bin/perl -w
my $original = '(name1|name2)';
my $new = '(surname1|surname2)';
$file_name
I have a script that listens on a port for a connection, receives some
data over that connection, and writes it to a file.
This works, but it takes up CPU cycles, RAM etc. when it waits. I am
trying to get the script to use xinetd instead. That way the tcp daemon
will launch it when needed and l
If you puy that javascript into a static html page does it work?
If so compare the static page's working javascript to the script generated javascript.
Did you backslash any single or double quotes? It could be that perl treats them like
this :
Original javascript :
d1_12 -= eval('theform.num'+i)
You should be able to use DBI with the DBD::ODBC driver, I think. I haven't
used it from *nix, but I don't think it's a W32-only module.
-Original Message-
From: LaVei [mailto:[EMAIL PROTECTED]]
Sent: Friday, December 27, 2002 9:04 PM
To: [EMAIL PROTECTED]
Subject: Re: *nix Perl -> MS SQ
I have a cgi that gets variables from a form (only numeric) and that form is
sent to a text file to get the information that I need later. What I'm
having problems with is that I need some fields to add themselves and
display different totals on the same form when a modification is made to one
my $InString = ""
if ($InString =~ /\bprogramme start=\"(.*)\" stop=\"(.*)\" channel=\"(.*)\"/) {
my $programme = $1;
my $start = $2;
my $channel = $3;
}
What happens here is that the parentheses around each sought-after value set it to one
of the built-in regex variables--$1, $2...$n, i
> > I want to bitwize AND 2 IP adr strings, not sure of how to
> pack() them to be
> > able to AND them. before i start playing with
> pack,sprintf,socket,etc.. I
> > was wondering if someone already had a way.
>
> $ perl -e 'printf "%vd\n", 192.168.1.1 & 255.255.0.0'
> 192.168.0.0
>
quoting t
Hi Michael,
A couple others have already advised you on Perl arrays, so for your immediate issue,
I'd say go with their advice. Bear in mind though, that Perl arrays will not teach
you the standards for managing arrays that you need in orfer to be truly portable in
your programming skills.
I
> top of pg64
>
> $chunk_of_code = q {
> if ($condition) {
> print "Gotcha!";
> }
> };
>
>
> is $chunk_of_code supposed to contain Perl code? If so why? When would
> you use this? What does this assign to the variable? I am assuming a
> true false value but I am n
On Friday, December 27, 2002, at 11:00 AM, Paul Kraus wrote:
Ok I am working through the programming Perl book and I don't
understand
what you would use this for?
top of pg64
$chunk_of_code = q {
if ($condition) {
print "Gotcha!";
}
};
is $chunk_of_code supposed to contain Perl code
Ok I am working through the programming Perl book and I don't understand
what you would use this for?
top of pg64
$chunk_of_code = q {
if ($condition) {
print "Gotcha!";
}
};
is $chunk_of_code supposed to contain Perl code? If so why? When would
you use this?
> $string = "\ stop=\"20021222001000
> UTC\" channel=\"carlton.com\>";
> ($programme, $stop, $channel) = ($string =~
> m/\S+\s\S+\"(\d+)\s\S+\s\S+\"(\d+)\s\S+\s\S+\"(\S+)\"\>/);
>
> If the <> were not actually part of the string, this will
> work the same
> ($programme, $stop, $channel) = ($st
This may be totally late but
First doesn't passwd need "passwd username" not "passwd password"?
Second You could use backticks to execute and pw instead of passwd
print `pw adduser ...`; # man pw for details, you can do tons with pw in just one
command
If this has already been addressed sorry, I
$string = "\";
($programme, $stop, $channel) = ($string =~
m/\S+\s\S+\"(\d+)\s\S+\s\S+\"(\d+)\s\S+\s\S+\"(\S+)\"\>/);
If the <> were not actually part of the string, this will work the same
($programme, $stop, $channel) = ($string =~
m/\S+\s\S+\"(\d+)\s\S+\s\S+\"(\d+)\s\S+\s\S+\"(\S+)\"/);
Maybe
> > $ perl -e 'printf "%vd\n", 192.168.1.1 & 255.255.0.0'
> > 192.168.0.0
> >
> that is great I had used ipcalc etc for doing such a simple thing
>
> But sir can u tell me how is "%vd" interpreted in printf
You can read about v strings in "Programming Perl" , chap 2 under , section
"V string lit
> -Original Message-
> From: Yupapa [mailto:[EMAIL PROTECTED]]
> Sent: Friday, December 27, 2002 5:00 AM
> To: [EMAIL PROTECTED]
> Subject: Mail Headers
>
>
> Hello,
>
> I am writing a web-based email program in Perl and need some
> help about the
> mail headers.
> How do you remove the
> -Original Message-
> From: Michael Kramer [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, December 26, 2002 1:34 PM
> To: [EMAIL PROTECTED]
> Subject: Simple question.
>
>
> I need to make an array with multiple levels example:
> I'm new to perl and have been programming in VBscript for
>
> -Original Message-
> From: Ramprasad [mailto:[EMAIL PROTECTED]]
> Sent: Friday, December 27, 2002 1:00 AM
> To: [EMAIL PROTECTED]
> Subject: migrating to oracle from mysql
>
>
> Hello all ,
>
> I have been using mysql as a database and Mysql.pm helped
> me do most
> of the work e
On Friday 27 Dec 2002 12:35 pm, Mystik Gotan wrote:
> Hiya!
>
> First of all, hope you had a merry christmas and you will have a happy new
> year. Okay, so I'm a beginner, but I'm trying to get some more experince
> with Perl (although I use CGI, anyway). (I'm trying to get a job soon so I
> can bu
Hiya!
First of all, hope you had a merry christmas and you will have a happy new
year. Okay, so I'm a beginner, but I'm trying to get some more experince
with Perl (although I use CGI, anyway). (I'm trying to get a job soon so I
can buy my own computer and I'll use Linux/XP so... ;))
Anyway, I
Hi all
I'm attempting to write my first perl script to parse a couple of lines
and would appreciate some help extracting data from the folloing example
Data:
I want to extract 0021221235500 and 20021222001000 and carlton.com
I have tried to to use pattern matching using =~ etc but cannot seem
From: "Pam Derks" <[EMAIL PROTECTED]>
> I'm having difficulties with @ARGV...
>
> I have a several files:
> access_log.021204
> access_log.021205
> access_log.021206
>
> that I want to read in using @ARGV
>
> and then pass these file names to 2 subroutines
>
> At the command line I've tried:
>
From: "Michael Kramer" <[EMAIL PROTECTED]>
> I need to make an array with multiple levels example:
> I'm new to perl and have been programming in VBscript for about 2
> years now so the code here is in vb because i know that better.
>
> dim my_array(1,3)
my @my_array;
>
On Fri, Dec 27, 2002 at 11:43:52AM +0530, Ramprasad wrote:
> Paul Johnson wrote:
> >On Thu, Dec 26, 2002 at 04:39:30PM -0500, Kipp, James wrote:
> >
> >>Happy Hollidays
> >>
> >>I want to bitwize AND 2 IP adr strings, not sure of how to pack() them to
> >>be
> >>able to AND them. before i start p
Hello,
I am writing a web-based email program in Perl and need some help about the
mail headers.
How do you remove them and display the content?
And how do you know which part of the entire mail is an attachment?
Generally, my program uses the Net::POP3 module for logging in and
downloading mail
Michael Teter wrote:
> I need a reliable interface to the database server,
> including support for transactions, and ideally stored
> procedures.
>
May be FreeTDS module can help You?
--
WBRLaVei
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMA
I need to make an array with multiple levels example:
I'm new to perl and have been programming in VBscript for about 2 years now
so the code here is in vb because i know that better.
dim my_array(1,3)
my_array(0,0) = "fred"
my_array(0,1) = "John"
my_array(0,2) = "mike"
my_array(0,3) = "dork"
my_
48 matches
Mail list logo
