Kevin Pfeiffer wrote:
In article <[EMAIL PROTECTED]>, Sudarshan Raghavan
wrote:
[...]
Reason: 'shallow copying' vs 'deep copying'
Read through this link
http://www.stonehenge.com/merlyn/UnixReview/col30.html
I looked at this article and tried the code but I get different/wrong
results (
Rob Dixon wrote:
I was perturbed by your post Sardushan. I'll
try to explain why.
Wait a second, my post was not an attempt to undermine Rob Anderson's
post in any manner. I apologize if the wrong message came out. I
sincerely hope that this does not turn Rob away from this list. Giving
an answ
"Paul Archer" <[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
> The answer to this is probably out there somewhere, but I haven't run
across
> it yet, so a pointer to a webpage/tutorial/FAQ/whatever would be fine...
>
> In other words, let's say $main_display is the object that repres
Greetings to all that is Perl
Is it possible to specify using a cgi script to read and output a Pure HTML file as
output.. so that it can process the form data..
and return a specific html file output to be returned at the browser end..
Thanks
Sam
Rob Dixon <[EMAIL PROTECTED]> wrote:
:
: Deb wrote:
: >
: > I'm having trouble coming up with a regular
: > expression for $lines in @lines of this form:
: >
: > units = [EMAIL PROTECTED] [EMAIL PROTECTED]:[EMAIL PROTECTED]
: > units = [EMAIL PROTECTED]
: > units = [EMAIL PROTECTED]
In article <[EMAIL PROTECTED]>, Sudarshan Raghavan
wrote:
[...]
> Reason: 'shallow copying' vs 'deep copying'
> Read through this link
> http://www.stonehenge.com/merlyn/UnixReview/col30.html
I looked at this article and tried the code but I get different/wrong
results (or am doing something wr
3:28pm, Bob Showalter wrote:
> Paul Archer wrote:
> > The answer to this is probably out there somewhere, but I haven't run
> > across it yet, so a pointer to a webpage/tutorial/FAQ/whatever would
> > be fine...
> >
> > I'm trying to put together an object class (my first OO attempt) for a
> > Cur
deb wrote:
> Rob,
>
>Errr, I think I see this. Seems more elegant than a strict
> search/replace. But, I don't understand this:
>
> next unless $line =~ s/^units\s+=\s+//;
>
> Substituting the left side with nothing? I must be reading this
> wrong.
>
> I do understand the split and join,
John W. Krahn wrote:
> Rob Dixon wrote:
> >
> > Peter wrote:
> > >
> > > }, "@ARGV";
> >
> > Here's your problem. If you put quotes around an array you'll get
> > a single string which is all of the array elements separated by a
> > space.
>
> Assuming that the value of $" is ' '. :-)
It'd better
Hi Dan.
Dan Muey wrote:
> Howdy list,
>
> Is there a better way to tell if a file exists than
> $ftp->size() being greater than zero
> Or
> $ftp->ls()
>
> Also if I delete a file with $ftp->delete($file);
> It will return 1 on success but if it returns 0 how can I
> tell if it's because it didn't
Deb wrote:
> Rob,
>
>Errr, I think I see this. Seems more elegant than a strict
> search/replace. But, I don't understand this:
>
> next unless $line =~ s/^units\s+=\s+//;
>
> Substituting the left side with nothing? I must be reading this
> wrong.
>
> I do understand the split and join, tho
Rob,
Errr, I think I see this. Seems more elegant than a strict
search/replace. But, I don't understand this:
next unless $line =~ s/^units\s+=\s+//;
Substituting the left side with nothing? I must be reading this
wrong.
I do understand the split and join, though - I've used spl
Rob Dixon wrote:
>
> Peter wrote:
> >
> > }, "@ARGV";
>
> Here's your problem. If you put quotes around an array you'll get
> a single string which is all of the array elements separated by a
> space.
Assuming that the value of $" is ' '. :-)
John
--
use Perl;
program
fulfillment
--
To uns
Deb wrote:
>
> Hi,
>
> I'm having trouble coming up with a regular expression for $lines in @lines
> of this form:
>
> units = [EMAIL PROTECTED] [EMAIL PROTECTED]:[EMAIL PROTECTED]
> units = [EMAIL PROTECTED]
> units = [EMAIL PROTECTED] [EMAIL PROTECTED]
Paul Johnson wrote:
> On Wed, Jul 09, 2003 at 11:24:01PM +0100, Rob Dixon wrote:
>
> > Sudarshan Raghavan wrote:
> >
> > > Reason: 'shallow copying' vs 'deep copying'
> > > Read through this link
> > > http://www.stonehenge.com/merlyn/UnixReview/col30.html
> >
> > How many computer scientists do yo
Charles K. Clarkson wrote:
> deb <[EMAIL PROTECTED]> wrote:
> >
> > foreach my $line (@lines) {
>
> What's in @lines? Show us an example.
I thought Deb told us:
Deb wrote:
> in @lines of this form:
>
> units = [EMAIL PROTECTED] [EMAIL PROTECTED]:[EMAIL PROTECTED]
> units =
Deb wrote:
> Hi,
>
> I'm having trouble coming up with a regular expression for $lines
> in @lines of this form:
>
> units = [EMAIL PROTECTED] [EMAIL PROTECTED]:[EMAIL PROTECTED]
> units = [EMAIL PROTECTED]
> units = [EMAIL PROTECTED] [EMAIL PROTECTED]
>
>
Howdy list,
Is there a better way to tell if a file exists than
$ftp->size() being greater than zero
Or
$ftp->ls()
Also if I delete a file with $ftp->delete($file);
It will return 1 on success but if it returns 0 how can I
tell if it's because it didn't exist and therefore could not be deleted
On Wed, Jul 09, 2003 at 11:24:01PM +0100, Rob Dixon wrote:
> Sudarshan Raghavan wrote:
>
> > Reason: 'shallow copying' vs 'deep copying'
> > Read through this link
> > http://www.stonehenge.com/merlyn/UnixReview/col30.html
>
> How many computer scientists do you think would know what you
> were
Hi Peter.
Peter wrote:
> I'm trying to figure out how to use File::Find to print the names
> of all the files in selected directories below my working
> directory, but when I run the following script with more than one
> directory name listed on the command line, as in:
>
> $ ./find_practice dir1
Peter wrote:
>
> I'm trying to figure out how to use File::Find to print the names of all
> the files in selected directories below my working directory, but when I
> run the following script with more than one directory name listed on the
> command line, as in:
>
> $ ./find_practice dir1 dir2
>
On Wed, 2003-07-09 at 10:25, Tim Johnson wrote:
> Short answer:
>
> A socket is a machine address and a TCP port, identifying a particular
> application running at a particular address. This allows two-way
> communication between machines running a particular application.
>
> Long answer:
>
>
I was perturbed by your post Sardushan. I'll
try to explain why.
Sudarshan Raghavan wrote:
> Rob Anderson wrote:
>
> > Hi Jeroen,
> >
> >
> >
> > > while (@values = $lcsr->fetchrow) {
> > >
> > >
> >
> > This is probably the root of your problem every time you go
> > through this loop, you are rep
On Wed, 9 Jul 2003 16:38:36 -0500, "Charles K. Clarkson" <[EMAIL PROTECTED]> wrote:
> deb <[EMAIL PROTECTED]> wrote:
> :
> : foreach my $line (@lines) {
>
> What's in @lines? Show us an example.
>
>
> : The part I'm having trouble with is re
deb <[EMAIL PROTECTED]> wrote:
:
: foreach my $line (@lines) {
What's in @lines? Show us an example.
: The part I'm having trouble with is replacing the
: space(s) between the addresses. I don't want to
: touch any other whitespace. Only the space or
: spaces which might separate more tha
Hi,
I'm having trouble coming up with a regular expression for $lines in @lines
of this form:
units = [EMAIL PROTECTED] [EMAIL PROTECTED]:[EMAIL PROTECTED]
units = [EMAIL PROTECTED]
units = [EMAIL PROTECTED] [EMAIL PROTECTED]
' ^units = ' is expected, a
Hi,
I'm having trouble coming up with a regular expression for $lines in @lines
of this form:
units = [EMAIL PROTECTED] [EMAIL PROTECTED]:[EMAIL PROTECTED]
units = [EMAIL PROTECTED]
units = [EMAIL PROTECTED] [EMAIL PROTECTED]
' ^units = ' is expected,
I'm trying to figure out how to use File::Find to print the names of all
the files in selected directories below my working directory, but when I
run the following script with more than one directory name listed on the
command line, as in:
$ ./find_practice dir1 dir2
or
$ ./find_practice dir*
I have inserted a small zip file that contains all of my sales report
information into a blob field in a mysql database.
Each days sales reports will be around 63 to 120k. So I have used the
large blob type.
I wrote the file into the database using the load_file() function in
mysql.
Now in my per
Paul Archer wrote:
> The answer to this is probably out there somewhere, but I haven't run
> across it yet, so a pointer to a webpage/tutorial/FAQ/whatever would
> be fine...
>
> I'm trying to put together an object class (my first OO attempt) for a
> Curses-like interface to a serial LCD display
The answer to this is probably out there somewhere, but I haven't run across
it yet, so a pointer to a webpage/tutorial/FAQ/whatever would be fine...
I'm trying to put together an object class (my first OO attempt) for a
Curses-like interface to a serial LCD display.
I want to have multiple object
Try
http://lists.perl.org/showlist.cgi?name=perl.NET
José.
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Wednesday, July 09, 2003 8:53 PM
To: [EMAIL PROTECTED]
Subject: Dot Net
I was told that Perl is portable to the .NET (Dot NET)
environment.
Does an
I was told that Perl is portable to the .NET (Dot NET)
environment.
Does anyone know of a similar type of a .NET group where you
can ask all types of questions. (VB.NET, c#.NET etc.
The .dot net framework.)
Please let me know.
Thank you.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For addit
I was told that Perl is portable to the .NET (Dot NET)
environment.
Does anyone know of a similar type of a .NET group where you
can ask all types of questions. (VB.NET, c#.NET etc.
The .dot net framework.)
Please let me know.
Thank you.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For addit
Paul Kraus wrote:
> here is the problem.
>
> I am parsing sales reports that are printed 2 or more times each day.
> The 1st report of everyday is actually the last report of the previous
> day.
>
> I have written a program that look at the modified time of the reports
> then if the reports date
here is the problem.
I am parsing sales reports that are printed 2 or more times each day.
The 1st report of everyday is actually the last report of the previous
day.
I have written a program that look at the modified time of the reports
then if the reports date is before 9am then the report is s
This question should go to:
http://lists.mysql.com/list.php?list=mysql#b
You can try this in MySQL:
SELECT company, date, SUM(sales) AS `totalsales`, SUM(cost) AS
`totalcost`
FROM tablename
GROUP BY company, date
ORDER BY company, date
On Wednesday, Jul 9, 2003, at 13:59 US/Eastern, Paul Kraus
Paul Kraus wrote:
> This probably is not the place for this post. But it is in a perl
> application so I thought I would check with you guys first.
>
> I have to query a mysql database (using DBI)
>
> It has records like this
>
> Date|company|sales|cost
>
> Each date has two records on for each
Sorry, nope. The thing is that shell scripts are essentially shell commands
for control, and external commands for everything else.
OTOH, manually rewriting a shell script in Perl is going to give you lots of
experience in Perl. 8-)
My best advice: take a deep breath and dive in.
Paul
5:59am, th
This probably is not the place for this post. But it is in a perl
application so I thought I would check with you guys first.
I have to query a mysql database (using DBI)
It has records like this
Date|company|sales|cost
Each date has two records on for each of the two companies we deal
Doh...just realized I'm evaluating the wrong way...sorry
> I'm trying to check if a user exists in /etc/passwd on a remote
>
> Here is my code, tried to do this 2 different ways, neither way will work.
> Any advice ?
>
> @pairs = split(/&/, $buffer);
> foreach $pair (@pairs) {
> ($name, $value) =
On Wed, Jul 09, 2003 at 05:59:47AM -0700, thyagarajan k wrote:
> Hello friends,
>
> i am quite new to perl and currently i have a
> requirement like to re-write the script written in
> unix bash shell to perl. I would like to know is
> there any convertion tools available so that i can
> convert
I'm trying to check if a user exists in /etc/passwd on a remote
Here is my code, tried to do this 2 different ways, neither way will work.
Any advice ?
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-
perldoc -q "How can i convert my shell script to perl"
-Sharad
-Original Message-
From: thyagarajan k [mailto:[EMAIL PROTECTED]
Sent: Wednesday, July 09, 2003 6:00 AM
To: [EMAIL PROTECTED]
Subject: convertion bash script to perl
Hello friends,
i am quite new to perl and currently i hav
The fact that "you are still a novice in Perl"
has nothing to do with socket's notions :)
As you will see from defintions sent in previous post
sockets are not specifics to Perl
you can do "Socket Programming" with
any decent programming language (C,Java,PHP,Python etc ..).
With Perl, the module IO
I would say the other name of socket programming is network programming.
The socket modules will act as a interface to deal with other machines, such
as
FTP, telnet, smtp, pop, etc.
I would recommand Network Programming with Perl, by Addison Weskey,
but that's a book, not a site =)
- Original
Subject:RE: Mail Sender in Perl
From: "Dan Muey" <[EMAIL PROTECTED]>
> Now if you want to use it to relay mail off a server that won't let
> you relay ( IE most every server besides the one the script's
> server/ISP uses) then it won't work , but that has nothing to do with
> Mail::
Short answer:
A socket is a machine address and a TCP port, identifying a particular
application running at a particular address. This allows two-way
communication between machines running a particular application.
Long answer:
http://www.faqs.org/rfcs/rfc147.html
-Original Message-
i am still a novice in perl so forgive me for this simple question.
what is socket programming? what do sockets do? is there a site
that can explain them to me? thanks
john
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Thanks to all.
I am not the SQL person. I showed some feedback, when
something clicked. the person remembered that this database
was set up as a CLOB type. (I don't know if I explained that
well.) WE went to a different environment or part of the
database where this CLOB was not there, and it wo
<[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED]
>
> We are having a problem. Any help would be appreciated.
>
> 1: We are running Perl on NT.
> 2: Perl is reading lines of code from a file, concatonating it in a
variable,
>and writing to an Oracle database.
> 3: I keep on getting a
you might want to do something low level like this in C. I have some
examples and docs if you are interested. Also check out
http://www.packetfactory.net/projects/libnet/
> -Original Message-
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, July 09, 2003 9:54 AM
> T
Hello friends,
i am quite new to perl and currently i have a
requirement like to re-write the script written in
unix bash shell to perl. I would like to know is
there any convertion tools available so that i can
convert my shell script to perl script.
rgds
thyag
> Hi!
Howdy
>
> Im looking for information on how to create my own Mail
> Sender that connects
> to a SMTP Server, I found a few sites, so Im looking for more
> information to
> start. What do I want? I want to send mails from my perl
> source to any smtp
> server not mattering if it's ru
From: [EMAIL PROTECTED]
> We are having a problem. Any help would be appreciated.
>
> 1: We are running Perl on NT.
> 2: Perl is reading lines of code from a file, concatonating it in a
> variable,
>and writing to an Oracle database.
> 3: I keep on getting a message:
>DBD::ODBC::st excut
> We don't receive attach files in this place?
Yes we receive attached files, but I don't want to wade throught them
when I don't know what you're trying to do and what is not working how
you expect it to work and what you've tried.
>
> OK, the problem is resolved for know (3 days of work). Al
> We are having a problem. Any help would be appreciated.
>
> 1: We are running Perl on NT.
> 2: Perl is reading lines of code from a file, concatonating
> it in a variable,
>and writing to an Oracle database.
> 3: I keep on getting a message:
>DBD::ODBC::st excute failed: [Microsoft][O
Hello all!
I am stumbling around with Net::Ftp and trying to figure a clean way to
detect errors and report accordingly.
Currently I have the following butt ugly type of crud surrounding numerous
ftp function calls
&error("Unable to login to mc0300ux218" . " (FILE: " . __FILE__ ."
LINE:
We are having a problem. Any help would be appreciated.
1: We are running Perl on NT.
2: Perl is reading lines of code from a file, concatonating it in a variable,
and writing to an Oracle database.
3: I keep on getting a message:
DBD::ODBC::st excute failed: [Microsoft][ODBC driver for
We don't receive attach files in this place?
OK, the problem is resolved for know (3 days of work). All about the
'UNIVERSAL::' I will see what it thus later.
I read this article " http://www.perl.com/pub/a/2003/06/19/treasures.html "
and I thought I really need this debug featchure so 3 files.
> Can You help me please
Love to!
Help with what? (My Mind::Read module was never installed properly ;p)
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
> Dan
>
> Here is the excerpt of my program that does not print to the
> terminal window when run on UNIX:
>
>
> elsif ( $tmpar[0] == 99 ) {
If you put only these print statements in a small script and run that I'll bet t
On Tue, Jul 08, 2003 at 02:48:59PM -0400, Paul Kraus wrote:
> Expression
> /Sales - Freight - Leimkuehler\s+(\d+,?\d+\.?\d+)/
>
> String
> 410-02-00Sales - Freight - Leimkuehler
> 6.96
>
> It does match if I remove everything after Leimkuehler.
> This is how it reads to me
>
> 1 or more
He He,
This is a dandy little one.
Mark G
- Original Message -
From: "Kipp, James" <[EMAIL PROTECTED]>
Date: Wednesday, July 9, 2003 7:45 am
Subject: RE: Low Level Socket Programming
> >
> > hello,
> > I have written a tcp socket server using the Perl Cookbook
> > and Use Socket. T
From: Pablo Fischer <[EMAIL PROTECTED]>
> Im looking for information on how to create my own Mail Sender that
> connects to a SMTP Server, I found a few sites, so Im looking for more
> information to start. What do I want? I want to send mails from my
> perl source to any smtp server not mattering
"Sudarshan Raghavan" <[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
> Rob Anderson wrote:
>
> >Hi Jeroen,
> >
> >
> >
> >>while (@values = $lcsr->fetchrow) {
> >>
> >>
> >
> >This is probably the root of your problem every time you go through this
> >loop, you are repopulating your ar
Rob Anderson wrote:
Hi Jeroen,
while (@values = $lcsr->fetchrow) {
This is probably the root of your problem every time you go through this
loop, you are repopulating your array, put a my before @values.
Why do you think this is a problem? All the my would do is create a new
lexical @val
Dan
Here is the excerpt of my program that does not print to the terminal window when run
on UNIX:
elsif ( $tmpar[0] == 99 ) {
print "Number of records in the input file:\t\t$reccnt\n";
print "Number of corrupt
>
> hello,
> I have written a tcp socket server using the Perl Cookbook
> and Use Socket. This is nice an works well. However, i want
> to write a
> server that can listen for a special packet. So i need to get down
> futher that the Perl Cookbook shows. I want to see each packet and
> be able
Hi Jeroen,
>while (@values = $lcsr->fetchrow) {
This is probably the root of your problem every time you go through this
loop, you are repopulating your array, put a my before @values.
>$key = shift @values;
>$key.= shift @values;
>
>push @$ref_to_a, [EMAIL PROTECTED];
I don't recog
Hi all,
I could use some help with the following problem:
I have rows of data (coming in from DBI) looking like this:
Key1, Key2, Date_from, Date_to, Value
1, 1, 01-10-2002, 31-10-2002, value1
1, 1, 01-11-2002, 30-11-2002, value2
1, 2, 01-10-2002, 31-10-2002, value3
1, 2, 01-10-2002, 30-10-2002
Can You help me please
TraceCode.pm
Description: Binary data
testeAttribute.pl
Description: Binary data
TraceCode2.pm
Description: Binary data
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
>> How do I get Perl/Windows to keep the ^M so I can parse this?
>binmode is your friend.
Yes binmode was what I was missing. Thanks for everyone's help.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
It was Tuesday, July 08, 2003 when Pablo Fischer took the soap box, saying:
: Hi!
:
: Im looking for information on how to create my own Mail Sender that connects
: to a SMTP Server, I found a few sites, so Im looking for more information to
: start. What do I want? I want to send mails from my
74 matches
Mail list logo
