Hi all,
my name is Giuliano and I write from Italy.
My system is Caldera eServer 2.3 2.4.12+grsecurity, Perl-5.6.1
I write because I have a problem with Perl.
When I wirte "make test" I have 4 scripts failed:
/lib/dirhand FAILED test 3
/lib/glob-basic FAILED test 2
/lib/io-dir FAILED tes
Hello, all!
I have some variables defined in file
$user_ip = $ENV{'REMOTE_ADDR'};
$user_name = $ENV{'AUTH_USER'};
.
Now I want to use these values in other files.
unless ($user_ip =~ /^10\./)... #
#etc.
What should I do? use 'require userinfo.pl;' or use 'pa
the best way is to bild a modul and include it with use
dont forget to export the vars.
Take a look on exporter modul
hope it helps
Martin
Natalia Vasilchenko schrieb:
>
> Hello, all!
>
> I have some variables defined in file
>
>
>
> $user_ip = $ENV{'REMOTE_ADDR'};
>
> $user_name = $EN
my $header = "Joe DoeThe book I wrote yesterday";
my $title;
if ($header =~ /(^\S.+)()(\S.+$)/m) { $title = "$1: $3";}
print "$title\n";
Is there a shorter, simpler, more efficient way to do this? I still need
$header later on as it is.
I quite often have to copy the value of a variable and the
Bill Akins wrote:
>
> I need to read in every file in a dir into a new file. I can do it like
> below if I know the file names, but how can I specify *.CSV? Actually there
> will be only the data files I need to read in the dir so *.* would work as
> well. Perhaps I should also mention this is
try this:
my $title =~ s// /i;
if ($header =~ /(^\S.+)()(\S.+$)/m)
{
$header =~ s///i;
}
print $header;
hope it helps
martin
birgit kellner wrote:
> my $header = "Joe DoeThe book I wrote yesterday";
> my $title;
> if ($header =~ /(^\S.+)()(\S.+$)/m) { $title = "$1: $3
How do I access Windows environment vars?
I want to be able to test whether I'm in Windows or Linux, and this seems
like a good way to do it.
If there is an easier/better way, I'm all ears.
Thanks
Greg
Hi,
Is there a way to load a application from a Perl script. Let's say
wordpad.exe in Windows?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
| If there is an easier/better way, I'm all ears.
Use the variable $^O which contains the name of the operating
system. It's "MSWin32" for Windows, for example.
if( $^O eq 'MSWin32' ) {
# ...
}
else {
# ...
}
Hope this helps.
-- Marcus
| -Original Message-
| From: [EM
Hi,
I want to parse SGML documents on the basis of DTD(Document Type
Definition).
Anyone knows about usage of SGML Parser and validation on the basis of
DTD..??
Thanks,
Rahul.
- Original Message -
From: <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, October 19, 2001 5:45 PM
> #Please note that I am trying to access a new non-existing
Autovivication does not happen when you are trying to access the non
existing key, it happens when you are trying to assing it. So if you have:
$href->{foo}
and you do something like
print $href->{fou}
it will then create this ent
>Is this really your data model? Why all the nested
>levels of hashes?
>
Is there another alternative to access data from a database (cvs or sql)
besides using hashes and arrays without nesting?
Al
>From: Bob Showalter <[EMAIL PROTECTED]>
>To: 'AL H' <[EMAIL PROTECTED]>, [EMAIL PROTECTED]
>Su
"Kipp, James" wrote:
> Autovivication does not happen when you are trying to access the non
> existing key, it happens when you are trying to assing it. So if you have:
> $href->{foo}
> and you do something like
> print $href->{fou}
> it will then create this entry which can be detrimental.
No.
In article <[EMAIL PROTECTED]>,
[EMAIL PROTECTED] (Greg Froese) wrote:
> I want to be able to test whether I'm in Windows or Linux, and this seems
> like a good way to do it.
you want $^O, not an environment variable. take a look inside
CGI.pm for some example code. :)
--
brian d foy <[EMAI
Thanks Brian and Marcus.
$^O is exactly what I needed.
_brian_d_foy <[EMAIL PROTECTED]>
10/19/2001 08:44 AM
To: [EMAIL PROTECTED]
cc:
Subject:Re: accessing environment variables
In article <[EMAIL PROTECTED]>,
[EMAIL PROTECTED] (Greg Froese) wrote:
** Reply Requested by 10/20/2001 (Saturday) **
I have mirrored CPAN on my local ftp server... how would I congifure the shell in CPAN
to look at this new repository. We are behind a firewall at work and only some
manchines can get out to the Internet, so I just mirrored it locally.
===
Mike S
Hi,
Where can I find a list of all embedded default perl variables, like $^0,
$_, and so ?
T.I.A.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
I have been using the indexes of various O'Reilly books. I also sometimes go
looking on the web at perldoc.com for stuff.
Hope that helps.
-=GLA=-
-Original Message-
From: José A. Ferrer [mailto:[EMAIL PROTECTED]]
Sent: Friday, October 19, 2001 11:51 AM
To: [EMAIL PROTECTED]
Subject: Ve
Try the perlvar documentation:
perldoc perlvar
--Paul
> -Original Message-
> From: Gary L. Armstrong [mailto:[EMAIL PROTECTED]]
> Sent: Friday, October 19, 2001 12:18 PM
> To: 'Beginners@Perl. Org'; José A. Ferrer
> Subject: RE: Very newbie question
>
>
> I have been using the indexes
you can also do
perldoc perlvar
On Fri, Oct 19, 2001 at 05:50:48PM +0200, "Jos? A. Ferrer" shaped the electrons to
read:
>
> Hi,
>
> Where can I find a list of all embedded default perl variables, like $^0,
> $_, and so ?
>
> T.I.A.
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTE
Hi again,
I have one program in linux that outputs DOS-like text format (with CR+LF)
therefore when edited with "vi" a lot of ^M appeared.
How can I filter this with perl ?
T.I.A.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
"Heely, Paul" wrote:
> Try the perlvar documentation:
> perldoc perlvar
Or the same on the web:
http://www.perldoc.com/perl5.6.1/pod/perlvar.html
- RaFaL Pocztarski, [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
On Fri, 19 Oct 2001, "José A. Ferrer" wrote:
> Where can I find a list of all embedded default perl variables, like $^0,
> $_, and so ?
perldoc perlvar
-- Brett
http://www.chapelperilous.net/
-
At 06:02 PM 10/19/01 +0530, RAHUL SHARMA wrote:
>I want to parse SGML documents on the basis of DTD(Document Type
>Definition).
>Anyone knows about usage of SGML Parser and validation on the basis of
>DTD..??
Been a while since I've done it, but you don't even need Perl to do this,
just James C
"José A. Ferrer" wrote:
> I have one program in linux that outputs DOS-like text format (with CR+LF)
> therefore when edited with "vi" a lot of ^M appeared.
> How can I filter this with perl ?
Few days ago someone asked about it on [EMAIL PROTECTED],
and that's what I wrote:
>> And for conversi
It worked, thanks to all !
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
On Oct 19, birgit kellner said:
>my $header = "Joe DoeThe book I wrote yesterday";
>my $title;
>if ($header =~ /(^\S.+)()(\S.+$)/m) { $title = "$1: $3";}
>print "$title\n";
>
>Is there a shorter, simpler, more efficient way to do this? I still need
>$header later on as it is.
You could do:
(
Hi,
I found this simple example of sockets in a tutorial and
I want to make it work. It seems to work, but I get no output
at the receive end. The problem seems to revolve around
the receiver's "print $_" statement.
I run RECEIVE first, and it starts with no errors and waits.
Then I run SEND and i
--On Freitag, 19. Oktober 2001 12:49 -0400 Jeff 'japhy' Pinyan
<[EMAIL PROTECTED]> wrote:
> On Oct 19, birgit kellner said:
>
>> my $header = "Joe DoeThe book I wrote yesterday";
>> my $title;
>> if ($header =~ /(^\S.+)()(\S.+$)/m) { $title = "$1: $3";}
>> print "$title\n";
>>
>> Is there a shor
On Oct 19, birgit kellner said:
>> ($title = $header) =~ s//: /;
>
>I had thought of that, but believed that it will also perform the
>substitution on $header. I just tested it, and that doesn't seem to be the
>case. If that's true, there's the solution to my problem.
Doing ($x = $y) =~ s/fo
Hello, I have a script that is acting funny.
I have this line in it:
$addtocart_co->header(-cookie=>$pid_cookie);
Does that line not handle the content type as well?
I get "premature end of script headers" with just that.
But if I add this line:
print "Content-type: text/html\n\n";
It works
On Fri, 19 Oct 2001, SAWMaster wrote:
> Hello, I have a script that is acting funny.
>
> I have this line in it:
>
> $addtocart_co->header(-cookie=>$pid_cookie);
>
> Does that line not handle the content type as well?
It does handle it. Do you have start_html after it?
> I get "premature end o
On Fri, Oct 19, 2001 at 12:54:07PM -0400, zentara wrote:
> ###RECEIVE:
> #!/usr/bin/perl -w
> use IO::Socket;
> my $sock = new IO::Socket::INET (
> LocalHost => 'localhost',
> LocalPort => '7070',
> Proto => 'tcp',
> Listen => 1,
> Reuse => 1,
On Fri, Oct 19, 2001 at 12:11:31PM -0500, SAWMaster wrote:
> $addtocart_co->header(-cookie=>$pid_cookie);
>
> Does that line not handle the content type as well?
Yes. You did print out the return value, didn't you? The header method of
CGI.pm doesn't print the header out, it returns it; you ha
hi all...do you know about fork function in perl?and
do it have any relation with operatingsystem???
_best regrds.nafiseh .
saberi.Iran .
notes .When you've got a Chautauqua in your
head, it's extremely hard not to inflict it on inno
nafiseh saberi wrote:
> hi all...
> do you know about fork function in perl?
> and do it have any relation with operating
> system???
fork() is a standard Unix system function, but on systems without native
fork(), perl can emulate it (however I've never used perl on any
non-Unix system, so I c
any reason why you are sending emails to the list in html ??
-Original Message-
From: nafiseh saberi [mailto:[EMAIL PROTECTED]]
Sent: Friday, October 19, 2001 9:03 AM
To: perl
Subject: FORK
hi all...
do you know about fork function in perl?
and do it have any relation with operating
s
We are integrating with the Yahoo storefront for some customers, and I am
having a problem accessing some of the data elements within the data stream.
This is a dump of the raw information dumped by my program:
Bill-Address1 = 5575 North Service Road
Bill-Address2 = 4th Floor
Bill-City = Burling
I'm matching a SQL date like this:
$ftime =~ /(\d+)-(\d+)-(\d+)\s+(\d+):(\d+):(\d+)/;
If $ftime is "2001-05-13 11:53:00", then $1 is "2001", $2 is "05", etc.
However, I also want to match if the user types in a partial string. For
example, if $ftime is "2001-12-18", I want $1, $2 and $3 to
Hi there,
I am looking for a complete Perl/mySQL or flat file
accounting software. The software must consider all
the aspect of accounting.
Where can i find one ?, which one any of you
recommend me ?
It could be free or not.
thanks,
Joe
_
Hi there,
I am looking for a complete Perl/mySQL or flat file
accounting software. The software must consider all
the aspect of accounting.
Where can i find one ?, which one any of you
recommend me ?
It could be free or not.
thanks,
Joe
_
At 12:17 PM 10/19/01, Joe Echavarria wrote:
>Hi there,
>
>I am looking for a complete Perl/mySQL or flat file
>accounting software. The software must consider all
>the aspect of accounting.
>
>Where can i find one ?, which one any of you
>recommend me ?
http://www.sql-ledger.org/
Kinda ni
use File::Path;
my $newdir = "testdirectory";
mkpath(["$newdir"]);
According to the File::Path description, creating a directory should set
its permissions to 777 per default.
However, I find that the above code creates "testdirectory" with 755.
Even if I set permissions to 777, using the follow
is your umask 022?
On Fri, 19 Oct 2001, birgit kellner wrote:
> use File::Path;
> my $newdir = "testdirectory";
> mkpath(["$newdir"]);
>
> According to the File::Path description, creating a directory should set
> its permissions to 777 per default.
> However, I find that the above code creates
> -Original Message-
> From: Anderson, Carlin [mailto:[EMAIL PROTECTED]]
> Sent: Friday, October 19, 2001 2:53 PM
> To: '[EMAIL PROTECTED]'
> Subject: Parsing question
>
>
> We are integrating with the Yahoo storefront for some
> customers, and I am
> having a problem accessing some of
> -Original Message-
> From: birgit kellner [mailto:[EMAIL PROTECTED]]
> Sent: Friday, October 19, 2001 3:20 PM
> To: [EMAIL PROTECTED]
> Subject: File::Path oddity
>
>
> use File::Path;
> my $newdir = "testdirectory";
> mkpath(["$newdir"]);
>
> According to the File::Path description,
> Yes. You did print out the return value, didn't you? The header method
of
> CGI.pm doesn't print the header out, it returns it; you have to print it
out
> yourself.
No I didn't, I did not know I needed to. It works great now thanks AGAIN!
-Dave
--
To unsubscribe, e-mail: [EMAIL PROTECTED
Hi,
I try to get one line from a file on another server.
I tried with Net::FTP
$ftp = Net::FTP->new("server");
$ftp->login($user,$pass);
$ftp->cwd("dir");
@zone = $ftp->cmd("egrp -n 'zone \"try.com' file");
$ftp->quit;
print @zone;
I don't know if ->cmd support this command, it doesn't work with
Mike Singleton [[EMAIL PROTECTED]] quoth:
*>** Reply Requested by 10/20/2001 (Saturday) **
*>
*>I have mirrored CPAN on my local ftp server... how would I congifure the shell in
CPAN to look at this new repository. We are behind a firewall at work and only some
manchines can get out to the Inter
Hi there,
Does anyone of you know of a Call Center Software
written perl. A complex one that can handle call
statistic and all the things involve in a call center.
Thanks,
Joe
__
Do You Yahoo!?
Make a great connection at Yahoo! Personals.
On Fri, Oct 19, 2001 at 08:51:45PM +, P lerenard wrote:
> I try to get one line from a file on another server.
> I tried with Net::FTP
> $ftp = Net::FTP->new("server");
> $ftp->login($user,$pass);
> $ftp->cwd("dir");
> @zone = $ftp->cmd("egrp -n 'zone \"try.com' file");
> $ftp->quit;
> print @
Hello, all!
I have some variables defined in file
$user_ip = $ENV{'REMOTE_ADDR'};
$user_name = $ENV{'AUTH_USER'};
.
Now I want to use these values in other files.
unless ($user_ip =~ /^10\./)... #
#etc.
What should I do? use 'require userinfo.pl;' or use 'package' or some
Hello,
I call a perl program from a script with s bit set on user and group.
The perl interpreter told me, that my require <"xxx.pl";>statement is
insecure. I know, that the s-bit switch on the -T (tainting) option.
How can i solve this problem ??
Thank you
Christian
Not sure if this is useful. But I ran across this on www.perlmonks.com:
http://www.perlmonks.com/index.pl?node_id=1044&next=90, FWIW.
-Original Message-
From: Kipp, James [mailto:[EMAIL PROTECTED]]
Sent: Friday, October 19, 2001 12:14 PM
To: 'nafiseh saberi'; perl
Subject: RE: FORK
any
--On Freitag, 19. Oktober 2001 12:26 -0700 Luke Bakken
<[EMAIL PROTECTED]> wrote:
> is your umask 022?
>
>
exactly. Thanks to you and Bob for the hint,
Birgit
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
On Fri, 19 Oct 2001, Abhra Debroy wrote:
> Thank u Carl for the reply ! But what's the solution for the application
> those do not support OLE .
>
If you have a Win32 OS then you have OLE. AutoIt will also run standalone
with its own scripting language. Perhaps you misunderstand how AutoIt
work
> Where can I get more information on How to test(QA) Website
> or client server application using Perl-win32::GuiTest.
My understanding was that win32::guitest was for testing
windows applications, not websites?
Dave
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-ma
>>> Abhra Debroy <[EMAIL PROTECTED]> 10/18/01 11:51PM >>>
Thank u Carl for the reply ! But what's the solution for the application
those do not support OLE .
Abhra
> -Original Message-
> From: Carl Jolley [SMTP:[EMAIL PROTECTED]]
> Sent: Thursday, October 18, 2001 10:51 PM
> To: A
Oops, I forgot to include GroundControl's Mouse Commands Overview:
Mouse commands are useful for activating dialog boxes, menus, and other visual control
elements. You can use both left and right buttons.
The following are for working with the buttons:
These are used for moving the mouse aroun
> "Stephan" == Stephan Gross <[EMAIL PROTECTED]> writes:
Stephan> I'm matching a SQL date like this:
Stephan>$ftime =~ /(\d+)-(\d+)-(\d+)\s+(\d+):(\d+):(\d+)/;
Stephan> If $ftime is "2001-05-13 11:53:00", then $1 is "2001", $2 is "05", etc.
Stephan> However, I also want to match if th
60 matches
Mail list logo