Re: Need more efficiency

[Peter Scott]

At 12:28 PM 6/27/02 -0400, Nikola Janceski wrote:
>## this is a structure that contains the exceptions
>our %except = (
> "test1" => [ "stuff to add" ],
> "test2" => [ "more stuff to add" ]
> # etc. for about 4 or 5 more
> );
>
>## [snip to later in the code to some subroutine working]
>
>FILE: foreach my $file ( @arrayOfManyManyFiles ){
>
> ## deal with exception first which doesn't occur often
> ## this is the slow solution but I need to use the keys of %except
>as a regex
> foreach my $test (keys %except) {
> if($file =~ /$test/){
> # do stuff with @{ $except{$test} }
> next FILE;
> }
> }
>
> ### does work to other files that weren't an exception
>}
>
>__END__
>
>Any ideas on how to work around recompiling /$test/ every time? AND
>to get around going through the foreach my $test so many useless times?

How do you know this is the bottleneck?  Have you profiled it with 
something like Devel::SmallProf?

You could perhaps form a single regex from all the keys of %except, but 
I think I'd need to know what sort of regexen those keys are.  Are they 
in fact literal strings like you have shown, "test1" etc, or do they 
contain regex metacharacters?

You could build a subroutine that does exactly the regex tests you 
want; Joe Hall shows how to do this in "Effective Perl Programming" 
(Addison-Wesley).  But before we go there, some profiling would appear 
to be in order.

--
Peter Scott
Pacific Systems Design Technologies
http://www.perldebugged.com/


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: Perl Win32 Application.

[Paul Johnson]

On Thu, Jun 27, 2002 at 04:54:54PM -0400, Shishir K. Singh wrote:
> > I would always go for Perl TK. But beware!! If you want to use some of
> > the derived widgets...they suck !! eg ..BrowseEntry and DirTree. I had
> > to modify them to bring back some sanity. Bur the best part is it
> > works on UNIX as well as on Windows.  
> 
> >Did your patches make it into the main release?
> 
> Nope..and I don't know how to do that. Any  pointers on how to do the
> same? What is the procedure?

There is a section in perlhack (perldoc perlhack) entitled "Submitting
patches" which contains information geared mainly towards the perl core,
some of which is useful for module patches nonetheless.

In general, look for the author in the documentation and send patches
there.  Tk is a bit special, being one of the largest and most
complicated perl modules, so you could go directly to Nick, but he is
very busy and so I think your best bet would be to send patches and a
description of what you have done and why (unless it is obvious from the
patch) to the ptk mailing list ([EMAIL PROTECTED]) CCed to the
authors.

You may want to subscribe to the mailing list if you feel you would like
to contribute more to ptk, or if you just want to keep up to date with
what's happening.

Thanks for working to improve Perl.

-- 
Paul Johnson - [EMAIL PROTECTED]
http://www.pjcj.net

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: Perl Win32 Application.

[Shishir K. Singh]

> I would always go for Perl TK. But beware!! If you want to use some of
> the derived widgets...they suck !! eg ..BrowseEntry and DirTree. I had
> to modify them to bring back some sanity. Bur the best part is it
> works on UNIX as well as on Windows.  

>Did your patches make it into the main release?

Nope..and I don't know how to do that. Any  pointers on how to do the same? What is 
the procedure?

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: File selection dialog

[krishnag]

I am writing a perl/CGI script that creates a form to get some infomation from 
the user, one such item is a directory name. I used 'fielfield' which creates a

ba browse button but it can only access the directory in the users machine but 
I want the list of files in the server. The user will not be accessing any of 
the files directly but has only to provide a directory which contains some 
specific files.
  Ganapathy





Quoting Nikola Janceski <[EMAIL PROTECTED]>:

> first off.. I wouldn't be using 'ls' that has gotten me into trouble
> especially when people have ls aliased to 'ls -ltr'
> use opendir(), readdir() and closedir().
> 
> second I am sure that there is a widget or code somewhere that someone
> wrote
> that does what you want. Just look for it, (I don't know where because
> I
> haven't been doing much Tk in a while).
> 
> Is this the Tk module you are using or some other gui module?
> 
> > -Original Message-
> > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
> > Sent: Thursday, June 27, 2002 3:06 PM
> > To: [EMAIL PROTECTED]
> > Cc: [EMAIL PROTECTED]
> > Subject: File selection dialog
> > 
> > 
> > The filefield allows for me to select a file or directory 
> > from the users machine
> > but I wanted to see a list of files and directories in the server. 
> > 
> > I thought I could use the 'ls' command to get a list of files 
> > and put it in a
> > scrolling_list or pop_menu but I do not know how to keep it 
> > going,i.e. if the 
> > user clicks on a directory then I have to 'ls directory-name' 
> > and then put 
> > those contents in the scroll_list . How would I do that ?
> > Ganapathy
> > 
> > -- 
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
> > 
> 
> 
> 
> The views and opinions expressed in this email message are the
> sender's
> own, and do not necessarily represent the views and opinions of Summit
> Systems Inc.
> 
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> 
> 

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: Perl Win32 Application.

[Paul Johnson]

On Thu, Jun 27, 2002 at 11:02:37AM -0400, Shishir K. Singh wrote:

> I would always go for Perl TK. But beware!! If you want to use some of
> the derived widgets...they suck !! eg ..BrowseEntry and DirTree. I had
> to modify them to bring back some sanity. Bur the best part is it
> works on UNIX as well as on Windows.  

Did your patches make it into the main release?

-- 
Paul Johnson - [EMAIL PROTECTED]
http://www.pjcj.net

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: Regex Help Please!?

[John W. Krahn]

Jess Balint wrote:
> 
> Hello all. I am trying to 'code' an address into a certain format. The
> format is as follows:
> 
> first 4 digits of street #
> first 4 street name
> first 2 of address line 2
> first 3 of zip code
> 
> The data is a pipe delimited file with the following format:
> 
> consumer_id|address_line_1|address_line_2|zip_code|
> 
> ex:
> 
> 123456789|123 s main st|apt 23|54321|
> 
> I am trying to match the needed information with a regex, but can't quite
> seem to perfect it. I am running into troubles where there might not be
> anything in the address_line_2 field. I want to match the first characters
> up to a space. Here is what I have so far:
> 
> /^\d+\|(.+)\s(.{4}).*\|.{2}\|(.*)\|/
 ^$1^  ^ $2 ^  ^$3^
You should only use the numerical scalars if the regular expression
matched.  You only have three back references but you are using four.

> $code = $1 . $2 . $3 . " " . $4;
 ^^^
You change this in the next line to '$'.

> $code =~ s/\s/\$/g;



Here is one way to do it:

@cut = qw/4 4 2 3/;
$line = '123456789|123 s main st|apt 23|54321|';

@data = split /\|/, $line;
( $data[0], $data[1] ) = split /\s+/, $data[1], 2;

for $index ( 0 .. $#cut ) {
$code .= substr $data[$index], 0, $cut[$index];
$code .= '$' if $index == 2;
}

$code =~ tr/ \t\r\n\f/$/;



John
-- 
use Perl;
program
fulfillment

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: File selection dialog

[Nikola Janceski]

first off.. I wouldn't be using 'ls' that has gotten me into trouble
especially when people have ls aliased to 'ls -ltr'
use opendir(), readdir() and closedir().

second I am sure that there is a widget or code somewhere that someone wrote
that does what you want. Just look for it, (I don't know where because I
haven't been doing much Tk in a while).

Is this the Tk module you are using or some other gui module?

> -Original Message-
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, June 27, 2002 3:06 PM
> To: [EMAIL PROTECTED]
> Cc: [EMAIL PROTECTED]
> Subject: File selection dialog
> 
> 
> The filefield allows for me to select a file or directory 
> from the users machine
> but I wanted to see a list of files and directories in the server. 
> 
> I thought I could use the 'ls' command to get a list of files 
> and put it in a
> scrolling_list or pop_menu but I do not know how to keep it 
> going,i.e. if the 
> user clicks on a directory then I have to 'ls directory-name' 
> and then put 
> those contents in the scroll_list . How would I do that ?
> Ganapathy
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> 



The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Fwd: File selection dialog

[krishnag]

- Forwarded message from [EMAIL PROTECTED] -
Date: Thu, 27 Jun 2002 14:06:07 -0500 (EST)
From: [EMAIL PROTECTED]
Reply-To: [EMAIL PROTECTED]
Subject: File selection dialog
To: [EMAIL PROTECTED]

The filefield allows for me to select a file or directory from the users
machine
but I wanted to see a list of files and directories in the server.

I thought I could use the 'ls' command to get a list of files and put it in a
scrolling_list or pop_menu but I do not know how to keep it going,i.e. if the
user clicks on a directory then I have to 'ls directory-name' and then put
those contents in the scroll_list . How would I do that ?
Ganapathy

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]


- End forwarded message -

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: need help! pulling out a range of lines from files

[John W. Krahn]

>From Laura wrote:
> 
> Hello,

Hello,

> I am really a beginner not only to perl but to programming!  but here my
> question.
> 
> I have 300 files that I need to go thru.  Each file has an embedded sql
> query.  I want to automatically pull out just the lines that represent the
> query text.  I cannot make grep do this task.  There are several things that
> I know to be true:
> 
> 1.  The beginning of the range always begins with the word "select"
> 2.  The end of the range is always one line above a line that says:
> "-- end of query"
> 3.  The lines in between this "sandwich" can vary in number and do not have
> good predictable features or rules.
> 
> I know that I will need some programming structure that reads through each
> line of each file and when it finds the occurrence of the word "select" it
> enters into a loop that ends when it finds the string "--end of query."  It
> then takes the chunk and outputs to a file.
> 
> Like I said, I am very new but any pointers would be helpful.  I have been
> told that perl is excellent for such a task and I may be able to get a
> senior programmer here to help me with the loop structure if I can provide
> him with the perl constructs needed.  For instance, should I research the
> array function in Perl?  Any help would be SO SO appreciated!  Thanks!!!


#!/usr/bin/perl -w
use strict;

open OUT, '> sqlquery' or die "Cannot open sqlquery: $!";

while ( <> ) {
if ( /select/ .. /-- end of query/ ) {
print OUT unless /-- end of query/;
}
}

__END__


John
-- 
use Perl;
program
fulfillment

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: calling shell script from perl

[drieux]

On Thursday, June 27, 2002, at 11:25 , lz wrote:

> Hi guys,
>
> I need to call shell executable from a perl command,
> and here is what I do:
>
> open CRONJOB, "/home/queue/test.sh|" or die "Unable to

generally I put a space between the 'script' and the pipe
eg:
open(CRONJOB, "/home/queue/test.sh |") or die "..

> open test.sh command: $!";
>
> Unfortunately, neither tesh.sh executed nor I get
> "Unable to open test.sh" error message.

and you know that it failed to run because when you did

while() {
print "we see <$_>\n";
}

close(CRONJOB);

and you saw nothing come from your perl code?

ciao
drieux

---


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: need help! pulling out a range of lines from files

[Chas Owens]

On Thu, 2002-06-27 at 14:46, From Laura wrote:
> 
> Hello,
> I am really a beginner not only to perl but to programming!  but here my 
> question.
> 
> I have 300 files that I need to go thru.  Each file has an embedded sql 
> query.  I want to automatically pull out just the lines that represent the 
> query text.  I cannot make grep do this task.  There are several things that 
> I know to be true:
> 
> 1.  The beginning of the range always begins with the word "select"
> 2.  The end of the range is always one line above a line that says:
> "-- end of query"
> 3.  The lines in between this "sandwich" can vary in number and do not have 
> good predictable features or rules.
> 
> I know that I will need some programming structure that reads through each 
> line of each file and when it finds the occurrence of the word "select" it 
> enters into a loop that ends when it finds the string "--end of query."  It 
> then takes the chunk and outputs to a file.
> 
> Like I said, I am very new but any pointers would be helpful.  I have been 
> told that perl is excellent for such a task and I may be able to get a 
> senior programmer here to help me with the loop structure if I can provide 
> him with the perl constructs needed.  For instance, should I research the 
> array function in Perl?  Any help would be SO SO appreciated!  Thanks!!!

#!/usr/bin/perl

use strict; #always use strict;

my $in_sql = 0;

#read form the standard input, or a list of files
#and put the line in $_
while (<>) { 
#set $in_sql to 1 if $_ contains select 
#(removing anything before the select)
$in_sql = 1 if s/(.*)(select\s.*)/\2/i;
#set $in_sql to 0 if $_ contains the end token
#at the start of the line
$in_sql = 0 if /^-- end of query/;
#print $_ if we are in SQL
print if $in_sql;
}

or the shorter

#!/usr/bin/perl -n

$in_sql = 1 if s/(.*)(select\s.*)/\2/i;
$in_sql = 0 if /^-- end of query/;
print if $in_sql;
 
-- 
Today is Pungenday the 32nd day of Confusion in the YOLD 3168
Wibble.

Missile Address: 33:48:3.521N  84:23:34.786W


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: libxml-perl-0.07 test failed

[drieux]

On Thursday, June 27, 2002, at 11:25 , Gbio Qi wrote:
[..]
> t/streamFAILED test 11
> Failed 1/11 tests, 90.91% okay
> t/subs..ok
> t/xp_saxok
> Failed Test Status Wstat Total Fail  Failed  List of Failed
> 
> t/stream.t111   9.09%  11
> Failed 1/6 test scripts, 83.33% okay. 1/45 subtests failed, 97.78% okay.
> *** Exit 255
> Stop.
> #
>
> Does anobody have any idea?

what you will notice is that there is a perl piece of code
in the "t" sub directory that is named stream.t - if you
open it up - you will find what it was testing for, and
hence what specifically was the error on it's 11th test.

and you fill find that it is:

print (($string eq $expected) ? "ok 11\n" : "not ok 11\n");

hence there is some strangeness in how things are getting
converted there ...

cf:
http://rt.cpan.org/NoAuth/Bug.html?id=135

at the end of which we find:

"
The error seems to be quite simple, since the particular test compares
to data streams with different encodings.

Line 104 of t/stream.t reads:

This, '\302\240', would be a bad character in UTF-8.

and is compared to (from line 104):

This, '\240', would be a bad character in UTF-8.

Therefore, removing \302 does the trick!

BR

per
"

hence the quick fix would be:

[jeeves:~/Desktop/libxml-perl-0.07/t] drieux% diff stream.t stream.t.ORIG
64c64
<   This, '\240', would be a bad character in UTF-8.
---
 >   This, '\302\240', would be a bad character in UTF-8.
[jeeves:~/Desktop/libxml-perl-0.07/t] drieux%


ciao
drieux

---


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: Perl Win32 Application.

[Timothy Johnson]

One advantage of Perl/Tk over Win32::GUI is that you can buy the books on
it.  Win32::GUI is a very good idea, but I had trouble finding enough
documentation.

-Original Message-
From: Shishir K. Singh [mailto:[EMAIL PROTECTED]]
Sent: Thursday, June 27, 2002 8:27 AM
To: Nikola Janceski; stephane groux; Joe Echavarria
Cc: [EMAIL PROTECTED]
Subject: RE: Perl Win32 Application.


"Mastering Perl Tk" I guess is the better one!!


-Original Message-
From: Nikola Janceski [mailto:[EMAIL PROTECTED]]
Sent: Thursday, June 27, 2002 11:12 AM
To: 'stephane groux'; Joe Echavarria
Cc: [EMAIL PROTECTED]
Subject: RE: Perl Win32 Application.


Why do I get the feeling that I was ripped off buying the "Learning Perl/Tk"
book?
This one looks like it has everything in my book plus more stuff that I had
to figure out on my own!

> -Original Message-
> From: stephane groux [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, June 27, 2002 11:04 AM
> To: Joe Echavarria
> Cc: [EMAIL PROTECTED]
> Subject: Re: Perl Win32 Application.
> 
> 
> Hi Joe,
> 
> Search fro Perl Tk
> There's also a good book on it at
> http://www.oreilly.com/catalog/mastperltk/toc.html
> 
> stephane
> 
> Joe Echavarria wrote:
> 
> > Hi there,
> >
> >   I want to write a perl application for a win32
> > operating system. The application must be using
> > windows,forms, the same interfaces  like the ones you
> > get using delphi or visual basic.  I mean that the
> > application can not be a web based or look like DOS
> > application. Is like connecting perl with MS ACCESS
> > but not a caracter application, using windows
> > interface.
> >
> >   I need to migrate some delphi/MS ACCESS applications
> > with almost the same interface to perl/Access.
> >   Some of then will be web based others no.
> >
> >  What perl modules can i use to get the windows
> > interface?,
> >
> >   i hope you understand me and can help me.
> >
> >   Thanks,
> >
> >Joe Echavarria.
> >
> > __
> > Do You Yahoo!?
> > Yahoo! - Official partner of 2002 FIFA World Cup
> > http://fifaworldcup.yahoo.com
> >
> > --
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
> 
> --
> Sincerely
> Stephane G.
> 
> *
> Stephane Groux
> Senior Technical Analyst
> Oracle Certified Professional
> Enterprise Products
> 
> Oracle Support Services
> Wuhrmattstrasse 23
> CH-4103 Bottmingen, Schweiz GmbH
> 
> Hotline: (41)-61/425 62 00 Fax: (41)-61/425 62 63
> Email : [EMAIL PROTECTED]
> **
> 
> 
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> 



The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

File selection dialog

[krishnag]

The filefield allows for me to select a file or directory from the users machine
but I wanted to see a list of files and directories in the server. 

I thought I could use the 'ls' command to get a list of files and put it in a
scrolling_list or pop_menu but I do not know how to keep it going,i.e. if the 
user clicks on a directory then I have to 'ls directory-name' and then put 
those contents in the scroll_list . How would I do that ?
Ganapathy

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: Regex Help Please!?

[David . Wagner]

You will need to escape the | as \| otherwise won't do what you
think. I checked to make sure.

Wags ;)

-Original Message-
From: Tom Stewart [mailto:[EMAIL PROTECTED]]
Sent: Thursday, June 27, 2002 11:18
To: Balint, Jess; [EMAIL PROTECTED]
Subject: RE: Regex Help Please!?


Why not drop it in an array and split it and work with it from there?  I am
not sure what your final goal is but this way you can work with each field
independently and check if your address_line_2 is blank.

open(FILE,$file) || die "could not open $file";
while() {
@data = split(/|/,$_);
.
}

-Original Message-
From: Balint, Jess [mailto:[EMAIL PROTECTED]]
Sent: Thursday, June 27, 2002 12:56 PM
To: '[EMAIL PROTECTED]'
Subject: Regex Help Please!?


Hello all. I am trying to 'code' an address into a certain format. The
format is as follows:

first 4 digits of street #
first 4 street name
first 2 of address line 2
first 3 of zip code

The data is a pipe delimited file with the following format:

consumer_id|address_line_1|address_line_2|zip_code|

ex:

123456789|123 s main st|apt 23|54321|

I am trying to match the needed information with a regex, but can't quite
seem to perfect it. I am running into troubles where there might not be
anything in the address_line_2 field. I want to match the first characters
up to a space. Here is what I have so far:

/^\d+\|(.+)\s(.{4}).*\|.{2}\|(.*)\|/
$code = $1 . $2 . $3 . " " . $4;
$code =~ s/\s/\$/g;

TIA.
[Jess]

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

need help! pulling out a range of lines from files

[From Laura]

Hello,
I am really a beginner not only to perl but to programming!  but here my 
question.

I have 300 files that I need to go thru.  Each file has an embedded sql 
query.  I want to automatically pull out just the lines that represent the 
query text.  I cannot make grep do this task.  There are several things that 
I know to be true:

1.  The beginning of the range always begins with the word "select"
2.  The end of the range is always one line above a line that says:
"-- end of query"
3.  The lines in between this "sandwich" can vary in number and do not have 
good predictable features or rules.

I know that I will need some programming structure that reads through each 
line of each file and when it finds the occurrence of the word "select" it 
enters into a loop that ends when it finds the string "--end of query."  It 
then takes the chunk and outputs to a file.

Like I said, I am very new but any pointers would be helpful.  I have been 
told that perl is excellent for such a task and I may be able to get a 
senior programmer here to help me with the loop structure if I can provide 
him with the perl constructs needed.  For instance, should I research the 
array function in Perl?  Any help would be SO SO appreciated!  Thanks!!!



_
Join the world’s largest e-mail service with MSN Hotmail. 
http://www.hotmail.com


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

calling shell script from perl

[lz]

Hi guys,

I need to call shell executable from a perl command,
and here is what I do:

open CRONJOB, "/home/queue/test.sh|" or die "Unable to
open test.sh command: $!";

Unfortunately, neither tesh.sh executed nor I get
"Unable to open test.sh" error message.

Does anyone know whats the problem is?

Thanks a lot!

__
Do You Yahoo!?
Yahoo! - Official partner of 2002 FIFA World Cup
http://fifaworldcup.yahoo.com

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

libxml-perl-0.07 test failed

[Gbio Qi]

Hi, 

I am install perl module libxml-perl-0.07 downloaded from cpan. My work environment is 
perl 5.6.1, OS: Tru64 v5.1, Alpha.

When I perl Makefile.PL make, that is fine, but when I make test, there is error 
message which make test failed:

# make test
PERL_DL_NONLAZY=1 /usr/bin/perl5.6.1 -Iblib/arch -Iblib/lib 
-I/compbio/programs/perl-5.6.1/lib/5.6.1/alpha-dec_osf -I/compbi
o/programs/perl-5.6.1/lib/5.6.1 -e 'use Test::Harness qw(&runtests $verbose); 
$verbose=0; runtests @ARGV;' t/*.t
t/amsterdam.ok
t/canon_xml_writer..ok
t/schemaok
t/streamFAILED test 11
Failed 1/11 tests, 90.91% okay
t/subs..ok
t/xp_saxok
Failed Test Status Wstat Total Fail  Failed  List of Failed

t/stream.t111   9.09%  11
Failed 1/6 test scripts, 83.33% okay. 1/45 subtests failed, 97.78% okay.
*** Exit 255
Stop.
# 

 

Does anobody have any idea?

 

Thank you very much.

Grace



-
Do You Yahoo!?
Sign-up for Video Highlights of 2002 FIFA World Cup

Re: CPAN Modules continued

[Barry Kingsbury]

I, too, am a Win2K user of perl. As I'm using the ActiveEdge 
distribution, I use their perl package manager (ppm) to install modules. 
You can invoke the command from a DOS shell using the ppm3 command (if 
it's in your path). Use the help command to get more information. 
However, it's pretty simple. For example, use the search command to see 
what modules are installable and the install command to install them.

Barry Kingsbury


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: Regex Help Please!?

[Tom Stewart]

Why not drop it in an array and split it and work with it from there?  I am not sure 
what your final goal is but this way you can work with each field independently and 
check if your address_line_2 is blank.

open(FILE,$file) || die "could not open $file";
while() {
@data = split(/|/,$_);

}

-Original Message-
From: Balint, Jess [mailto:[EMAIL PROTECTED]]
Sent: Thursday, June 27, 2002 12:56 PM
To: '[EMAIL PROTECTED]'
Subject: Regex Help Please!?


Hello all. I am trying to 'code' an address into a certain format. The
format is as follows:

first 4 digits of street #
first 4 street name
first 2 of address line 2
first 3 of zip code

The data is a pipe delimited file with the following format:

consumer_id|address_line_1|address_line_2|zip_code|

ex:

123456789|123 s main st|apt 23|54321|

I am trying to match the needed information with a regex, but can't quite
seem to perfect it. I am running into troubles where there might not be
anything in the address_line_2 field. I want to match the first characters
up to a space. Here is what I have so far:

/^\d+\|(.+)\s(.{4}).*\|.{2}\|(.*)\|/
$code = $1 . $2 . $3 . " " . $4;
$code =~ s/\s/\$/g;

TIA.
[Jess]

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Regex Help Please!?

[Balint, Jess]

Hello all. I am trying to 'code' an address into a certain format. The
format is as follows:

first 4 digits of street #
first 4 street name
first 2 of address line 2
first 3 of zip code

The data is a pipe delimited file with the following format:

consumer_id|address_line_1|address_line_2|zip_code|

ex:

123456789|123 s main st|apt 23|54321|

I am trying to match the needed information with a regex, but can't quite
seem to perfect it. I am running into troubles where there might not be
anything in the address_line_2 field. I want to match the first characters
up to a space. Here is what I have so far:

/^\d+\|(.+)\s(.{4}).*\|.{2}\|(.*)\|/
$code = $1 . $2 . $3 . " " . $4;
$code =~ s/\s/\$/g;

TIA.
[Jess]

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: File slelection dialog

[Jeff 'japhy' Pinyan]

On Jun 27, [EMAIL PROTECTED] said:

>How do I incorporate a file selection dialog in a form. I use the CGI.pm to
>create the form. Are there any functions available for that?

perldoc CGI, and look for the heading "CREATING A FILE UPLOAD FIELD".

You want to use the 'filefield' method.  Your form should be created with
start_multipart_form() rather than startform().

-- 
Jeff "japhy" Pinyan  [EMAIL PROTECTED]  http://www.pobox.com/~japhy/
RPI Acacia brother #734   http://www.perlmonks.org/   http://www.cpan.org/
** Look for "Regular Expressions in Perl" published by Manning, in 2002 **
 what does y/// stand for?   why, yansliterate of course.
[  I'm looking for programming work.  If you like my work, let me know.  ]


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

File slelection dialog

[krishnag]

How do I incorporate a file selection dialog in a form. I use the CGI.pm to
create the form. Are there any functions available for that?
 Ganapathy

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: roll your own small smtp server

[drieux]

On Thursday, June 27, 2002, at 08:47 , Felix Geerinckx wrote:
[..]
> a) parses the email address
> b) look up the MX record for the destination through DNS
> c) uses the SMTP protocol to exchange the message with the
> destination  mail server (using sockets).
[..]

hence an advanced MUA bordering on an MTA
and not quite exactly what I had been thinking of
as a persistent smtp server - such as sendmail/Smail3/etc
when running as a daemon...

Oh that would seem to be a whole lot easier-ish to do,
since one would not need to implement all of the RFC822/RFC2822 ( et al )
specifications per se

ciao
drieux

---


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

regexes unraveled (was Re: Need more efficiency)

[Jeff 'japhy' Pinyan]

On Jun 27, Nikola Janceski said:

>our %except = (
>   "test1" => [ "stuff to add" ],
>   "test2" => [ "more stuff to add" ]
>   # etc. for about 4 or 5 more
>   );
[snip]
>FILE: foreach my $file ( @arrayOfManyManyFiles ){
>
>   foreach my $test (keys %except) {
>   if($file =~ /$test/){
>   # do stuff with @{ $except{$test} }
>   next FILE;
>   }
>   }

Ok, here comes the long-awaited (and requested) qr// story.  This is all
about how regexes are compiled (and not compiled).

When Perl sees a regex in your code, it checks to see if it's able to be
compiled at compile-time (like /foo/ or qr{blah}).  If so, then you're all
good.  If Perl sees that there are variables or something that isn't known
until run-time there, it will wait until run-time to compile the regex.
That means /([$letters])/ is compiled at run-time.

Now, when a regex is compiled, Perl also keeps a string representation of
the regex around for quick comparisons.  Why?  Because when Perl sees a
regex with variables in it, it needs to see if the regex needs to be
recompiled, as in this example:

  for (1 .. 10) {
if ($string =~ /order '$_'/) { ... }
  }

The regex is compiled 10 times (/order '1'/, /order '2'/, etc.).  What
Perl does is check if the string version of the regex is the same when the
variables are interpolated.  That means that while

  for (['this', 'that'], ['mine', 'yours']) {
my ($left, $right) = @$_;
if ($str =~ /$left$right/) { ... }
  }

requires the regex to be compiled twice (/thisthat/, /mineyours/), this
code:

  for (['this', 'that'], ['thisth', 'at']) {
my ($left, $right) = @$_;
if ($str =~ /$left$right/) { ... }
  }

does NOT recompile the regex, because the string representation is exactly
the same (/thisthat/, /thisthat/).

Now, when you have a regex with variables in it, Perl will ALWAYS do the
string comparison check, unless you give the regex the /o modifier, which
tells Perl to compile the regex once and forget it has variables in it.
Thus, in the second iteration of

  for (['this', 'that'], ['mine', 'yours']) {
my ($left, $right) = @$_;
if ($str =~ /$left$right/o) { ... }  # /o !!!
  }

the regex is still matched /thisthat/, not /mineyours/.

The /o is irreversible.  Full stop.

  sub match {
my ($str, $regex) = @_;
return $str =~ /$regex/o;
  }

  print match("japhy", qr/a.h/);  # 1
  print match("Perl", qr/e.l/);   # 0, because of /o

Because of the /o, the match() function will remember the first regex it
used, and ONLY that one.  Every subsequent call to match() will use the
regex /a.h/.

Now, how does qr// come into this?  qr// creates a compiled regex.  That
means that Perl won't need to recompile your regex.

  @strings = qw( this that those );
  @rex = (qr/this/, qr/that/, qr/those/);
  @words = (...);  # assume 10 elements

  for my $w (@words) {
for my $s (@strings) {
  print "$w $s\n" if $w =~ $s;
}
for my $p (@rex) {
  print "$w $p\n" if $w =~ $p;
}
  }

The @strings loop is much slower than the @rex loop.  Why?  Because the
@strings loop requires THREE comparison-compiles for each word in the
@words array, meaning 30 comparison-compiles.

The @rex loop, while it does still do 30 comparisons, does absolutely NO
compiles, because Perl recognizes that the regex is made up entirely of a
variable, and that variable is a compiled regex (a Regexp object).

Comparisons are very fast.  They're strcmp()s, really.  Compilation takes
longer.

Now for YOUR problem, Nikola.  The issue is hash KEYS.  Hash keys must be
strings.  That means you can't REALLY store a regex as a hash key, because
it gets turned into a string, and loses the magic that tells Perl not to
recompile it.

The solution?  More satellite data:

  my %data = (
this => [qr/this/, 'foo', 'bar'],
that => [qr/that/, 'blah', 'gak!'],
...,
  );

  while () {
for my $key (keys %data) {
  if (/$data{$key}[0]/) { ... }  # using the Regexp object
}
  }

Ta da.

NOTE: if you're just using STRINGS, though, and not regexes, I'd suggest
using index() instead.

-- 
Jeff "japhy" Pinyan  [EMAIL PROTECTED]  http://www.pobox.com/~japhy/
RPI Acacia brother #734   http://www.perlmonks.org/   http://www.cpan.org/
** Look for "Regular Expressions in Perl" published by Manning, in 2002 **
 what does y/// stand for?   why, yansliterate of course.
[  I'm looking for programming work.  If you like my work, let me know.  ]


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: Saving in RTF

[Hanson, Robert]

RTF is just plan text with a lot of markup, it isn't a binary file like a
Word doc.  You should be able to just drop it into a "text" (or is it called
"memo" in MySQL?) field.

Rob

-Original Message-
From: João Paulo [mailto:[EMAIL PROTECTED]]
Sent: Thursday, June 27, 2002 12:41 PM
To: [EMAIL PROTECTED]
Subject: Saving in RTF



This is hard I think I need to save a text in rtf format into a
database (mssql)... the problem is what kind of field to use and how to read

back the text without loosing the format...(bold,color,etc,,,).
Does anyone know how to do that? Any idea? JP.



_
Chat with friends online, try MSN Messenger: http://messenger.msn.com


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Saving in RTF

[João Paulo]

This is hard I think I need to save a text in rtf format into a
database (mssql)... the problem is what kind of field to use and how to read 
back the text without loosing the format...(bold,color,etc,,,).
Does anyone know how to do that? Any idea? JP.



_
Chat with friends online, try MSN Messenger: http://messenger.msn.com


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Need more efficiency

[Nikola Janceski]

I am working on some code that performs several tasks. Some of the items for
the tasks have exceptions.
I have been working on creating data structures to handle these exceptions.

I have been doing pretty well so far with speed (cpu), space (ram) and
non-repeating loops. But I am stumped on my current problem.
Please keep in mind this program is 2000+ lines of perl which have 20+
subroutines and that's not even including the 4+ custom modules with more
subroutines.

So I am going to give you my problem and the only solution (which is not
good enough for me) that I know.

__CODE__

## this is a structure that contains the exceptions
our %except = (
"test1" => [ "stuff to add" ],
"test2" => [ "more stuff to add" ]
# etc. for about 4 or 5 more
);

## [snip to later in the code to some subroutine working]

FILE: foreach my $file ( @arrayOfManyManyFiles ){

## deal with exception first which doesn't occur often
## this is the slow solution but I need to use the keys of %except
as a regex
foreach my $test (keys %except) {
if($file =~ /$test/){
# do stuff with @{ $except{$test} }
next FILE;
}
}

### does work to other files that weren't an exception
}

__END__

Any ideas on how to work around recompiling /$test/ every time? AND
to get around going through the foreach my $test so many useless times?


Thanx in advance,
Nikola Janceski

A sudden bold and unexpected question doth many times surprise a man and lay
him open.
-- Francis Bacon




The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: roll your own small smtp server

[Felix Geerinckx]

on Thu, 27 Jun 2002 15:31:04 GMT, [EMAIL PROTECTED] (Drieux) wrote:

> 
> On Thursday, June 27, 2002, at 07:49 , Brad Fike wrote:
> 
>> I, personally have an smtp server but I still want to write a
>> script that does not need it.
> 
> actually you want a 'daemon' - not a 'script'
> since to be a 'server' - it will need to come up
> connect to a specified port - in this case not the
> standard canonical SMTP port - and take in requests
> and 'broker' them to a 'canonical' smtp server -
> so that you can get them back in your email...

That's not how I interpreted the question. In my opinion the OP
wants a Perl program that 

a) parses the email address
b) look up the MX record for the destination through DNS
c) uses the SMTP protocol to exchange the message with the 
destination  mail server (using sockets).

Maybe the OP could clarify this?

-- 
felix

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: roll your own small smtp server

[drieux]

On Thursday, June 27, 2002, at 07:49 , Brad Fike wrote:

> I, personally have an smtp server but I still want to write a script that
> does not need it.

actually you want a 'daemon' - not a 'script'
since to be a 'server' - it will need to come up
connect to a specified port - in this case not the
standard canonical SMTP port - and take in requests
and 'broker' them to a 'canonical' smtp server -
so that you can get them back in your email...

So the first part of that drill would be a quick intro
to your friend daemonology in perl:

cf:
http://www.wetware.com/drieux/pbl/Sys/daemon1.txt

the reason that I recommend against trying to do this
with the standard port 25 access is that you will
most likely want to test your server on a host where
that port will most likely be bound by a canonical
SMTP server...

a quick check would be:

vladimir: 53:] netstat -naf inet | egrep "25.*LISTEN"
   *.25 *.*0  0 0  0 LISTEN
vladimir: 54:]

this host would NOT let you bind to it...

since you could test it with:

[jeeves:~] drieux% telnet vladimir 25
Trying 199.108.16.3...
Connected to vladimir.
Escape character is '^]'.
220-vladimir.wetware.com Smail-3.2.0.114 (#1 2001-Dec-14)
220-ready at Thu, 27 Jun 2002 08:27:17 -0700 (PDT)
220 ESMTP supported
quit
221 2.2.0 vladimir.wetware.com closing connection
Connection closed by foreign host.
[jeeves:~] drieux%


> Haven't you ever need to write code that was to be used in an environment
> different then your own?

I try to avoid the 'need' at all cost 8-)

But I can understand the desire to do these things...

When you want to peek at how this has been traditionally done
check out say:

http://search.cpan.org/search?mode=module&query=Net%3A%3ASMTP%3A%3AServer

you will of course want to look at the 'relay' problems
that will need to be addressed as well

[..]

I have a few examples on basics of playing with email at:

http://www.wetware.com/drieux/pbl/email/

but a part of your problem it seems will be getting your
email client side to make the connection to your 'special port'.

ciao
drieux

---


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: Regex question again

[Felix Geerinckx]

on Thu, 27 Jun 2002 15:15:04 GMT, [EMAIL PROTECTED]
(David Vd Geer Inhuur Tbv Iplib) wrote: 

> Can you please assist. I am stuck on a regex again.
> 
> my $dir = "/user/IPlib/and/many/other/dirs";
> 
>  $dir =~ s!/[^/]*\z!!;
> 
> Will make : $dir = "/user/IPlib/and/many/other"; ## so it takes
> off the last dir 
> 
> But how do I let it make :
> 
> $dir = "/IPlib/and/many/other/dirs";  ## But now on the first dir
> 
> 
> Can't find my way on regex.

Why do you insist on using regexen for this kind problem? Did you 
look into the 'File::Spec' module as I suggested some time ago, when 
you posted a similar problem?

(see )

-- 
felix

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: Perl Win32 Application.

[Shishir K. Singh]

"Mastering Perl Tk" I guess is the better one!!


-Original Message-
From: Nikola Janceski [mailto:[EMAIL PROTECTED]]
Sent: Thursday, June 27, 2002 11:12 AM
To: 'stephane groux'; Joe Echavarria
Cc: [EMAIL PROTECTED]
Subject: RE: Perl Win32 Application.


Why do I get the feeling that I was ripped off buying the "Learning Perl/Tk"
book?
This one looks like it has everything in my book plus more stuff that I had
to figure out on my own!

> -Original Message-
> From: stephane groux [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, June 27, 2002 11:04 AM
> To: Joe Echavarria
> Cc: [EMAIL PROTECTED]
> Subject: Re: Perl Win32 Application.
> 
> 
> Hi Joe,
> 
> Search fro Perl Tk
> There's also a good book on it at
> http://www.oreilly.com/catalog/mastperltk/toc.html
> 
> stephane
> 
> Joe Echavarria wrote:
> 
> > Hi there,
> >
> >   I want to write a perl application for a win32
> > operating system. The application must be using
> > windows,forms, the same interfaces  like the ones you
> > get using delphi or visual basic.  I mean that the
> > application can not be a web based or look like DOS
> > application. Is like connecting perl with MS ACCESS
> > but not a caracter application, using windows
> > interface.
> >
> >   I need to migrate some delphi/MS ACCESS applications
> > with almost the same interface to perl/Access.
> >   Some of then will be web based others no.
> >
> >  What perl modules can i use to get the windows
> > interface?,
> >
> >   i hope you understand me and can help me.
> >
> >   Thanks,
> >
> >Joe Echavarria.
> >
> > __
> > Do You Yahoo!?
> > Yahoo! - Official partner of 2002 FIFA World Cup
> > http://fifaworldcup.yahoo.com
> >
> > --
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
> 
> --
> Sincerely
> Stephane G.
> 
> *
> Stephane Groux
> Senior Technical Analyst
> Oracle Certified Professional
> Enterprise Products
> 
> Oracle Support Services
> Wuhrmattstrasse 23
> CH-4103 Bottmingen, Schweiz GmbH
> 
> Hotline: (41)-61/425 62 00 Fax: (41)-61/425 62 63
> Email : [EMAIL PROTECTED]
> **
> 
> 
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> 



The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: Regex question again

[Hanson, Robert]

> But how do I let it make :
> $dir = "/IPlib/and/many/other/dirs";  ## But now on the first dir

$dir =~ s!^[^/]*!!;

^ = Beginning of the string.

Rob

-Original Message-
From: David vd Geer Inhuur tbv IPlib
[mailto:[EMAIL PROTECTED]]
Sent: Thursday, June 27, 2002 11:15 AM
To: [EMAIL PROTECTED]
Subject: Regex question again



Hi,

Can you please assist. I am stuck on a regex again.

my $dir = "/user/IPlib/and/many/other/dirs";

 $dir =~ s!/[^/]*\z!!;

Will make : $dir = "/user/IPlib/and/many/other"; ## so it takes off the last
dir

But how do I let it make :

$dir = "/IPlib/and/many/other/dirs";  ## But now on the first dir


Can't find my way on regex.

Regs David

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Regex question again

[David vd Geer Inhuur tbv IPlib]

Hi,

Can you please assist. I am stuck on a regex again.

my $dir = "/user/IPlib/and/many/other/dirs";

 $dir =~ s!/[^/]*\z!!;

Will make : $dir = "/user/IPlib/and/many/other"; ## so it takes off the last dir

But how do I let it make :

$dir = "/IPlib/and/many/other/dirs";  ## But now on the first dir


Can't find my way on regex.

Regs David

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: Perl Win32 Application.

[Hanson, Robert]

wxPerl looked pretty good, but I never did more than just play around with
it.  The thing I like it that it will use the builtin Windows widgets, so it
looks like an ordinary windows app (Win32::GUI will as well).

Here is an article on it, decide for yourself.

http://www.perl.com/pub/a/2001/09/12/wxtutorial1.html

Rob

-Original Message-
From: Joe Echavarria [mailto:[EMAIL PROTECTED]]
Sent: Thursday, June 27, 2002 10:57 AM
To: [EMAIL PROTECTED]
Subject: Perl Win32 Application.


Hi there,

  I want to write a perl application for a win32
operating system. The application must be using
windows,forms, the same interfaces  like the ones you
get using delphi or visual basic.  I mean that the
application can not be a web based or look like DOS
application. Is like connecting perl with MS ACCESS
but not a caracter application, using windows
interface.

  I need to migrate some delphi/MS ACCESS applications
with almost the same interface to perl/Access. 
  Some of then will be web based others no.
 
 What perl modules can i use to get the windows
interface?,

  i hope you understand me and can help me.  

  Thanks,

   Joe Echavarria.

__
Do You Yahoo!?
Yahoo! - Official partner of 2002 FIFA World Cup
http://fifaworldcup.yahoo.com

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: Perl DBI and Oracle

[Joe Raube]

I think that if you posted some code, we could give better assistance
with this matter.

--- "Jackson, Harry" <[EMAIL PROTECTED]> wrote:
> 
> I retrieve a load of records but because the default linesize means
> that it
> comes out on multiple lines when printing to a CSV. I suppose I
> could remove
> the control characters from the end of the line but I was wondering
> if it
> could be done by setting the linesize using dbi.
> 
> Harry


__
Do You Yahoo!?
Yahoo! - Official partner of 2002 FIFA World Cup
http://fifaworldcup.yahoo.com

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: Perl Win32 Application.

[Nikola Janceski]

Why do I get the feeling that I was ripped off buying the "Learning Perl/Tk"
book?
This one looks like it has everything in my book plus more stuff that I had
to figure out on my own!

> -Original Message-
> From: stephane groux [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, June 27, 2002 11:04 AM
> To: Joe Echavarria
> Cc: [EMAIL PROTECTED]
> Subject: Re: Perl Win32 Application.
> 
> 
> Hi Joe,
> 
> Search fro Perl Tk
> There's also a good book on it at
> http://www.oreilly.com/catalog/mastperltk/toc.html
> 
> stephane
> 
> Joe Echavarria wrote:
> 
> > Hi there,
> >
> >   I want to write a perl application for a win32
> > operating system. The application must be using
> > windows,forms, the same interfaces  like the ones you
> > get using delphi or visual basic.  I mean that the
> > application can not be a web based or look like DOS
> > application. Is like connecting perl with MS ACCESS
> > but not a caracter application, using windows
> > interface.
> >
> >   I need to migrate some delphi/MS ACCESS applications
> > with almost the same interface to perl/Access.
> >   Some of then will be web based others no.
> >
> >  What perl modules can i use to get the windows
> > interface?,
> >
> >   i hope you understand me and can help me.
> >
> >   Thanks,
> >
> >Joe Echavarria.
> >
> > __
> > Do You Yahoo!?
> > Yahoo! - Official partner of 2002 FIFA World Cup
> > http://fifaworldcup.yahoo.com
> >
> > --
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
> 
> --
> Sincerely
> Stephane G.
> 
> *
> Stephane Groux
> Senior Technical Analyst
> Oracle Certified Professional
> Enterprise Products
> 
> Oracle Support Services
> Wuhrmattstrasse 23
> CH-4103 Bottmingen, Schweiz GmbH
> 
> Hotline: (41)-61/425 62 00 Fax: (41)-61/425 62 63
> Email : [EMAIL PROTECTED]
> **
> 
> 
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> 



The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: Perl DBI and Oracle

[Jackson, Harry]

> -Original Message-
> From: Joe Raube [mailto:[EMAIL PROTECTED]]
> 
> "set linesize"
> 
> is a SQL*Plus command to control the size of an output line
> 
> dbi is used for manipulating data from a database, the output is
> controlled by you...
> 
> What are you trying to accomplish?

I retrieve a load of records but because the default linesize means that it
comes out on multiple lines when printing to a CSV. I suppose I could remove
the control characters from the end of the line but I was wondering if it
could be done by setting the linesize using dbi.

Harry


*
COLT Telecommunications
Registered in England No. 2452736
Registered Office: Bishopsgate Court, 4 Norton Folgate, London E1 6DQ
Tel. +44 20 7390 3900

This message is subject to and does not create or vary any contractual
relationship between COLT Telecommunications, its subsidiaries or 
affiliates ("COLT") and you. Internet communications are not secure
and therefore COLT does not accept legal responsibility for the
contents of this message.  Any view or opinions expressed are those of
the author. The message is intended for the addressee only and its
contents and any attached files are strictly confidential. If you have
received it in error, please telephone the number above. Thank you.
*


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: Perl Win32 Application.

[stephane groux]

Hi Joe,

Search fro Perl Tk
There's also a good book on it at
http://www.oreilly.com/catalog/mastperltk/toc.html

stephane

Joe Echavarria wrote:

> Hi there,
>
>   I want to write a perl application for a win32
> operating system. The application must be using
> windows,forms, the same interfaces  like the ones you
> get using delphi or visual basic.  I mean that the
> application can not be a web based or look like DOS
> application. Is like connecting perl with MS ACCESS
> but not a caracter application, using windows
> interface.
>
>   I need to migrate some delphi/MS ACCESS applications
> with almost the same interface to perl/Access.
>   Some of then will be web based others no.
>
>  What perl modules can i use to get the windows
> interface?,
>
>   i hope you understand me and can help me.
>
>   Thanks,
>
>Joe Echavarria.
>
> __
> Do You Yahoo!?
> Yahoo! - Official partner of 2002 FIFA World Cup
> http://fifaworldcup.yahoo.com
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]

--
Sincerely
Stephane G.

*
Stephane Groux
Senior Technical Analyst
Oracle Certified Professional
Enterprise Products

Oracle Support Services
Wuhrmattstrasse 23
CH-4103 Bottmingen, Schweiz GmbH

Hotline: (41)-61/425 62 00 Fax: (41)-61/425 62 63
Email : [EMAIL PROTECTED]
**



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: Perl Win32 Application.

[Shishir K. Singh]

>I would use the Tk module.
>But I think there is also a Win32::GUI module. (or something like that)

I would always go for Perl TK. But beware!! If you want to use some of the derived 
widgets...they suck !! eg ..BrowseEntry and DirTree. I had to modify them to bring 
back some sanity. Bur the best part is it works on UNIX as well as on Windows.  

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: Perl Win32 Application.

[Brad Fike]

I would use the Tk module.
But I think there is also a Win32::GUI module. (or something like that)

> -Original Message-
> From: Joe Echavarria [SMTP:[EMAIL PROTECTED]]
> Sent: Thursday, June 27, 2002 9:57 AM
> To:   [EMAIL PROTECTED]
> Subject:  Perl Win32 Application.
> 
> Hi there,
> 
>   I want to write a perl application for a win32
> operating system. The application must be using
> windows,forms, the same interfaces  like the ones you
> get using delphi or visual basic.  I mean that the
> application can not be a web based or look like DOS
> application. Is like connecting perl with MS ACCESS
> but not a caracter application, using windows
> interface.
> 
>   I need to migrate some delphi/MS ACCESS applications
> with almost the same interface to perl/Access. 
>   Some of then will be web based others no.
>  
>  What perl modules can i use to get the windows
> interface?,
> 
>   i hope you understand me and can help me.  
> 
>   Thanks,
> 
>Joe Echavarria.
> 
> __
> Do You Yahoo!?
> Yahoo! - Official partner of 2002 FIFA World Cup
> http://fifaworldcup.yahoo.com
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]


**
Notice:  The area code for the Wal-Mart Bentonville General 
Office in the US has changed from 501 to 479.  Please make
sure that you are dialing 479 when making calls to any 
General Office location.

**
This email and any files transmitted with it are confidential
and intended solely for the individual or entity to 
whom they are addressed.  If you have received this email
in error destroy it immediately.
**
 Wal-Mart Stores, Inc. Confidential
**


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Perl Win32 Application.

[Joe Echavarria]

Hi there,

  I want to write a perl application for a win32
operating system. The application must be using
windows,forms, the same interfaces  like the ones you
get using delphi or visual basic.  I mean that the
application can not be a web based or look like DOS
application. Is like connecting perl with MS ACCESS
but not a caracter application, using windows
interface.

  I need to migrate some delphi/MS ACCESS applications
with almost the same interface to perl/Access. 
  Some of then will be web based others no.
 
 What perl modules can i use to get the windows
interface?,

  i hope you understand me and can help me.  

  Thanks,

   Joe Echavarria.

__
Do You Yahoo!?
Yahoo! - Official partner of 2002 FIFA World Cup
http://fifaworldcup.yahoo.com

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: roll your own small smtp server

[Brad Fike]

I, personally have an smtp server but I still want to write a script that
does not need it.
Haven't you ever need to write code that was to be used in an environment
different
then your own?

I will check out your link when I get home tonight.

Does anyone have some example code that they could copy-and-paste
into an email?

Thanks,
Brad

> -Original Message-
> From: drieux [SMTP:[EMAIL PROTECTED]]
> Sent: Thursday, June 27, 2002 9:45 AM
> To:   begin begin
> Subject:  Re: roll your own small smtp server
> 
> 
> On Thursday, June 27, 2002, at 07:17 , Brad Fike wrote:
> [..]
> > What I would like to do is find a module or a script that
> > can run like it's own smtp server. (ie there is not one available
> > on my network)
> 
> this part does not make a lot of sense - since if we are
> getting your email - then it would seem clear that you
> are doing simpleMailTransferPrefunctory at some point in
> the game 8-)
> 
> > Does anyone know of a module to do that
> > or have some code using a lower level module (io::socket)
> 
> what you may want to look at is:
> 
>   http://www.wetware.com/drieux/pbl/perlTrick/subStuff/SimpleLib/
> 
> this will introduce you to some WAY UGLY code - from when I
> was first learning about doing 'libraries' - and offers you
> a Way UGLY pre perl Module approach to doing basic socket io
> stuff for simple webPage Grovelling.
> 
> 
> ciao
> drieux
> 
> ---
> 
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]


**
Notice:  The area code for the Wal-Mart Bentonville General 
Office in the US has changed from 501 to 479.  Please make
sure that you are dialing 479 when making calls to any 
General Office location.

**
This email and any files transmitted with it are confidential
and intended solely for the individual or entity to 
whom they are addressed.  If you have received this email
in error destroy it immediately.
**
 Wal-Mart Stores, Inc. Confidential
**


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: CPAN Modules continued

[drieux]

On Thursday, June 27, 2002, at 03:51 , Nigel Peck wrote:
[..]
> However, I have no program on my system called make. I'm running Perl
> 5.6.0 on Win2k. What am I doing wrong or what haven't I got?

Amongst the strategies open is to bring in Cygwin

cf:
http://www.google.com/search?hl=en&ie=ISO-8859-1&q=Cygwin

which would give you a suite of these tools that are a popular
port of the basic GNU world

ciao
drieux

---


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: roll your own small smtp server

[drieux]

On Thursday, June 27, 2002, at 07:17 , Brad Fike wrote:
[..]
> What I would like to do is find a module or a script that
> can run like it's own smtp server. (ie there is not one available
> on my network)

this part does not make a lot of sense - since if we are
getting your email - then it would seem clear that you
are doing simpleMailTransferPrefunctory at some point in
the game 8-)

> Does anyone know of a module to do that
> or have some code using a lower level module (io::socket)

what you may want to look at is:

http://www.wetware.com/drieux/pbl/perlTrick/subStuff/SimpleLib/

this will introduce you to some WAY UGLY code - from when I
was first learning about doing 'libraries' - and offers you
a Way UGLY pre perl Module approach to doing basic socket io
stuff for simple webPage Grovelling.


ciao
drieux

---


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: executing a PERL script

[drieux]

On Thursday, June 27, 2002, at 07:01 , Imtiaz ahmad wrote:
[..]
> Using web based tool (CGI) a user selects a folder and once the
> user submits the script1 on the resulting page supposed to have a call to
> another script2. Script2 contains code that takes the folder name 
> submitted
> and creates three additional file for each file in the folder.
> After script2 finishes then script1 copies files from the source machine 
> to
> all the specified
> servers using RSYNC.
[..]

basically you have three types of issues - wrapping the front
end in CGI.pm really only says that your front end does not
in itself have to work out the issues of taking command line
arguments - so that part is in your Script2.

a) How do I call another programme
b) How does my other programme read my arguments
c) How does the caller deal with the 'results' of the called code

as we like to say

perldoc -f system

is one of the ways to do this

perldoc perlopentut

and of course

perldoc Getopt::Std and perldoc Getopt::Long

I put it this way as you could do the simple 'backtick' tricks
but I am less enamoured of them than the standard 'system()' or
"open" tricks - cf:

http://www.wetware.com/drieux/pbl/Sys/DealingWithErrorsInSys.txt

A part of the issue you will clearly want to get your head around
is the problem of how to deal in 'script2' with brining in the
arguments - and some way over the top issues are addressed in

http://www.wetware.com/drieux/pbl/Sys/NextStuff/getOptStd.txt

For the Completely Over the Top Approach of looking at how
code_a | code_b would work then you of course want to look
at something like:

http://www.wetware.com/drieux/pbl/Sys/NextStuff/A_pipes_to_b.txt

As you will note these last two URL's show the 'high weirdness'
of 'building' the script and forking it out there through 'open()'
You can of course save some of the overhead by having it in
the system to begin with.

If you already have Script2 - then you merely need the intermediary
glue of your friend system/open - If you have not actually built
Script2 - this would also be the time to ask yourself why spawn
an exterior piece of code to manage this??? Why not think in
terms of making a 'sub' that deals with all of this


ciao
drieux

---


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

roll your own small smtp server

[Brad Fike]

Hello all,

I know about the net::smtp module and use it. 

What I would like to do is find a module or a script that 
can run like it's own smtp server. (ie there is not one available 
on my network) Does anyone know of a module to do that
or have some code using a lower level module (io::socket)

Thanks,
Brad


**
Notice:  The area code for the Wal-Mart Bentonville General 
Office in the US has changed from 501 to 479.  Please make
sure that you are dialing 479 when making calls to any 
General Office location.

**
This email and any files transmitted with it are confidential
and intended solely for the individual or entity to 
whom they are addressed.  If you have received this email
in error destroy it immediately.
**
 Wal-Mart Stores, Inc. Confidential
**


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: executing a PERL script

[Imtiaz ahmad]

Thanks for your help.

This tool that I like to build is not accessible to people outside our
office.

Using web based tool (CGI) a user selects a folder and once the
user submits the script1 on the resulting page supposed to have a call to 
another script2. Script2 contains code that takes the folder name submitted
and creates three additional file for each file in the folder. 
After script2 finishes then script1 copies files from the source machine to
all the specified 
servers using RSYNC.


-Original Message-
From: Anders Holm [mailto:[EMAIL PROTECTED]]
Sent: Thursday, June 27, 2002 3:55 AM
To: Imtiaz ahmad; [EMAIL PROTECTED]
Subject: RE: executing a PERL script 


Hi,

ok, so let's build a house of cards, and see how it holds up in the
hurricane known to us all as The Net. ;)

Are you really sure that this is the way you want to do this? I'm just
considering the side effects, like security for instance.. Then there's also
data integrity and such..

In any case, you want to have a CGI that calls a Perl script passing an
argument to same. Let's call this CGI for just that, and this Perl script
for script1, for clarity.. THEN you want script1 to call _another_ Perl
script (script2)?

I have a feeling that the list would enjoy hearing what you really want to
achieve before giving any recommendations, for multiple reasons I think
I know, I may be cynical, but in reality, what do you want to do? Build a
web based virtual file server?

Cheers!

Best Regards

Anders Holm
Critical Path Technical Support Engineer
--
Tel USA/Canada: 1 800 353 8437
Tel Worldwide:  +1 801 736 0806
E-mail: [EMAIL PROTECTED]
Internet:   http://support.cp.net


> -Original Message-
> From: Imtiaz ahmad [mailto:[EMAIL PROTECTED]]
> Sent: 26 June 2002 23:24
> To: [EMAIL PROTECTED]
> Subject: executing a PERL script
>
>
> Hi-
>
> Is it possible to pass a variable to a PERL script within a PERL
> script and
> then execute the PERL script?
> For example, lets say we have a web page that allows you to copy
> files from
> one machine to other.
> And, if a user select the file to be copied then the file name
> and path goes
> to a PERL script
> and within this PERL script we need to pass the file name and the path to
> another PERL script that
> does bunch of other things?
>
> thanks.
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: Perl DBI and Oracle

[Joe Raube]

"set linesize"

is a SQL*Plus command to control the size of an output line

dbi is used for manipulating data from a database, the output is
controlled by you...

What are you trying to accomplish?

-Joe

--- "Jackson, Harry" <[EMAIL PROTECTED]> wrote:
> Ho do you 
> 
> set linesize 1000;
> 
> using dbi for Oracle. I have tried inserting it before the "select"
> statement and putting it in its own "prepare" statement but neither
> have
> worked. Google has got very little on this when I searched for it.
> I would
> appreciate a decent link to how to do this sort of thing.
> 
> Cherrs 
> Harry. 

__
Do You Yahoo!?
Yahoo! - Official partner of 2002 FIFA World Cup
http://fifaworldcup.yahoo.com

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: Perl DBI and Oracle

[Bob Showalter]

> -Original Message-
> From: Jackson, Harry [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, June 27, 2002 9:35 AM
> To: '[EMAIL PROTECTED]'
> Subject: Perl DBI and Oracle
> 
> 
> Ho do you 
> 
> set linesize 1000;
> 
> using dbi for Oracle. I have tried inserting it before the "select"
> statement and putting it in its own "prepare" statement but 
> neither have
> worked. Google has got very little on this when I searched 
> for it. I would
> appreciate a decent link to how to do this sort of thing.

"set linesize" is a SQL*Plus commmand. The database knows nothing
about "set linesize". DBI talks directly to the database engine,
so only Oracle SQL statements are understood. Why are you 
wanting to issue a "set linesize" command? It's the responsibility
of your script to format the output appropriately; DBI can't help
with that.

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Perl DBI and Oracle

[Jackson, Harry]

Ho do you 

set linesize 1000;

using dbi for Oracle. I have tried inserting it before the "select"
statement and putting it in its own "prepare" statement but neither have
worked. Google has got very little on this when I searched for it. I would
appreciate a decent link to how to do this sort of thing.

Cherrs 
Harry. 


*
COLT Telecommunications
Registered in England No. 2452736
Registered Office: Bishopsgate Court, 4 Norton Folgate, London E1 6DQ
Tel. +44 20 7390 3900

This message is subject to and does not create or vary any contractual
relationship between COLT Telecommunications, its subsidiaries or 
affiliates ("COLT") and you. Internet communications are not secure
and therefore COLT does not accept legal responsibility for the
contents of this message.  Any view or opinions expressed are those of
the author. The message is intended for the addressee only and its
contents and any attached files are strictly confidential. If you have
received it in error, please telephone the number above. Thank you.
*


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: Perl programmer born and bred

[Elias Assmann]

On Wed, 26 Jun 2002, Craig Hammer wrote:

> Have you ever tried to wade through The Silmarillion?
>
> Craig Hammer

As a matter of fact, I just bought and started reading it yesterday. I
didn't yet get any further than Cristopher Tolkien's introduction :-)

I do expect to like it though, as I also enjoyed browsing through
Ardalambion (or is that "the Ardalambion"?) which japhy already
metioned.

Elias

-- 
Gefängnis für Hans Mustermann wegen
Fälschung und Verrat

 -- Die Einstürzenden Neubauten, Was ist ist




--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: CPAN Modules continued

[Anders Holm]

Hi Nigel.

What you are looking for is something that would be distributed in a
compiler package. There are different routes you could follow here, one
being MS, another Open Source packages

If all you need is the make program itself, here is one place to get such a
program:

http://www.gnu.org/directory/Software_development/Program_build_automation/m
ake.html

If modules would require C compilers and the likes, I'd sit down a bit and
go through my options. You could go for Visual C++ or something from
Borland, for example. Or you could stick to the compilers that the GNU
project has. It all depends on how you want things, and what you like the
packages, really. They'll all do the same, but in slightly different ways,
with complete IDE's, or just command line tools. It's all your choice there.
Oh yeah, almost forgot the CygWin stuff as well.

In any case, enjoy, and good hunting! ;)

Best Regards

Anders Holm
Critical Path Technical Support Engineer
--
Tel USA/Canada: 1 800 353 8437
Tel Worldwide:  +1 801 736 0806
E-mail: [EMAIL PROTECTED]
Internet:   http://support.cp.net


> -Original Message-
> From: Nigel Peck [mailto:[EMAIL PROTECTED]]
> Sent: 27 June 2002 11:52
> To: [EMAIL PROTECTED]
> Subject: CPAN Modules continued
>
>
> Please excuse the stupid question but I'm trying to get my head round
> too many things at once and I could do witha quick explanation please.
>
> I'm trying to follow the
>
> perl makefile.pl
> make
> make test
> make install
>
> However, I have no program on my system called make. I'm running Perl
> 5.6.0 on Win2k. What am I doing wrong or what haven't I got?
>
>
>
> ITM Business Solutions
> Unit 4
> Nine Trees Trading Estate
> Morthen Road
> Rotherham
> S66 9JG
>
> Reception
> Tel: 01709 703288
> Fax: 01709 701549
>
> Help Desk
> Tel:01709 530424
> Fax: 01709 702159
>
> CONFIDENTIALITY NOTICE: This message is intended only for the use of
> the individual or entity to which it is addressed, and may contain
> information that is privileged, confidential and exempt from disclosure
> under applicable law.
>
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

CPAN Modules continued

[Nigel Peck]

Please excuse the stupid question but I'm trying to get my head round
too many things at once and I could do witha quick explanation please.

I'm trying to follow the

perl makefile.pl
make
make test
make install

However, I have no program on my system called make. I'm running Perl
5.6.0 on Win2k. What am I doing wrong or what haven't I got?



ITM Business Solutions
Unit 4
Nine Trees Trading Estate
Morthen Road
Rotherham
S66 9JG

Reception
Tel: 01709 703288
Fax: 01709 701549

Help Desk
Tel:01709 530424
Fax: 01709 702159

CONFIDENTIALITY NOTICE: This message is intended only for the use of
the individual or entity to which it is addressed, and may contain
information that is privileged, confidential and exempt from disclosure
under applicable law.



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: executing a PERL script

[Anders Holm]

Hi,

ok, so let's build a house of cards, and see how it holds up in the
hurricane known to us all as The Net. ;)

Are you really sure that this is the way you want to do this? I'm just
considering the side effects, like security for instance.. Then there's also
data integrity and such..

In any case, you want to have a CGI that calls a Perl script passing an
argument to same. Let's call this CGI for just that, and this Perl script
for script1, for clarity.. THEN you want script1 to call _another_ Perl
script (script2)?

I have a feeling that the list would enjoy hearing what you really want to
achieve before giving any recommendations, for multiple reasons I think
I know, I may be cynical, but in reality, what do you want to do? Build a
web based virtual file server?

Cheers!

Best Regards

Anders Holm
Critical Path Technical Support Engineer
--
Tel USA/Canada: 1 800 353 8437
Tel Worldwide:  +1 801 736 0806
E-mail: [EMAIL PROTECTED]
Internet:   http://support.cp.net


> -Original Message-
> From: Imtiaz ahmad [mailto:[EMAIL PROTECTED]]
> Sent: 26 June 2002 23:24
> To: [EMAIL PROTECTED]
> Subject: executing a PERL script
>
>
> Hi-
>
> Is it possible to pass a variable to a PERL script within a PERL
> script and
> then execute the PERL script?
> For example, lets say we have a web page that allows you to copy
> files from
> one machine to other.
> And, if a user select the file to be copied then the file name
> and path goes
> to a PERL script
> and within this PERL script we need to pass the file name and the path to
> another PERL script that
> does bunch of other things?
>
> thanks.
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

executing a PERL script

[Imtiaz ahmad]

Hi-

Is it possible to pass a variable to a PERL script within a PERL script and
then execute the PERL script?
For example, lets say we have a web page that allows you to copy files from
one machine to other.
And, if a user select the file to be copied then the file name and path goes
to a PERL script
and within this PERL script we need to pass the file name and the path to
another PERL script that
does bunch of other things?

thanks.


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]