Olivier Wirz wrote:
>
> Hello,
>
> Ich have an anonymous array of anonymous hashes:
>
> $self -> {_definitions} = [ { IN => "file1.txt",
> INOUT=> "file1.dat",},
>{ IN => "file2.txt",
>
Hi,
I'm trying to automate creation of "login failure" Security Log entries on
NT -- but want/need to be able to do so from a Unix server. Does anyone
have suggestions on how to accomplish this (ideally using Perl)?
Thanks in advance.
Regards,
Karl K.
--
To unsubscribe, e-mail: [EMAIL PROTE
Hello,
Ich have an anonymous array of anonymous hashes:
$self -> {_definitions} = [ { IN => "file1.txt",
INOUT=> "file1.dat",},
{ IN => "file2.txt",
INOUT
Hello all,
How can I find out information about a system in a system-independent manner?
I wrote a perl script that nicely displays information about a Linux
system: # of cpus, cpu speed, size of RAM, # of disks, size of disks, IP
address. The code uses the system() command and relies on the /p
Mo El-Awaisi wrote:
> hi
>
> i have installed red hat 8 on my computer along with Apache, Perl/ MySQL and
> PHP. i am having problems getting PERL to work.
>
> i try to run the following script, but no luck:
I'd suggest you sort out your issues one at a time. Do not test the performance of
Perl
I managed to install the Date::Calc module successfully in the Solaris 2.7
sun-4 box, with Perl 5.6.1.
However, I got the following error when tried to run a perl script using
Date::Calc module, as follows,
Date::Calc object version 5.3 does not match bootstrap parameter 4.3 at
/usr/local/lib/
Mo Elwaisi wrote:
> I have found that the reason PERL is not working is that the Apache
> Registry is not installed, so i typed
>
> < perl -MCPAN -e "shell;"
> < cpan> install Apache::Registry
>
> i was then asked to locate where the Apache scr is, which i am not sure
> where it is so i typed
And another nit. :-)
Jenda Krynicky wrote:
>
> Just a few nits ;-)
>
> From: "Hanson, Rob" <[EMAIL PROTECTED]>
> > I think there is something like that, but I'm not sure. In the past I
> > have rolled my own like this...
> >
> > #!/usr/bin/perl
> >
> > use File::Find;
> >
> > my $dir = '';
> >
I have found that the reason PERL is not working is that the Apache Registry
is not installed, so i typed
< perl -MCPAN -e "shell;"
< cpan> install Apache::Registry
i was then asked to locate where the Apache scr is, which i am not sure
where it is so i typed
< /usr/sbin/httpd
i got an error
Part two of Dan's question is how to specify a file name for dynamic
content so that the name of the script that generated the content won't be
used as the default. The following worked for me in IE 6.0, Netscape 6.2
and Opera 7.0:
print "Content-type: text/plain\n";
print "Content-Disposition:
Mo El-Awaisi wrote:
> as perl came with the install of red hat, i simply went to httpd.conf and
> added the following
>
> >
> PerlModule Apache::PerlRun
>
> SetHandler perl-script
> PerlHandler Apache::PerlRun
> Options ExecCGI
> PerlSendHeader On
> allow from all
>
> <
>
you need to
Thanks,
How do i do the two options you have mentioned? i do have mod-perl
installed. How do i tell Apache where the CGI bin are? how do i change the
chmod from 755!!
Cheers,
Mo
Howdy,
One of two things, maybe. Either you have not
told Apahce where the cgi-bin is (I don't know
Red Hat, only N
hi
i have installed red hat 8 on my computer along with Apache, Perl/ MySQL and
PHP. i am having problems getting PERL to work.
i try to run the following script, but no luck:
simply trying to test mod-perl
as perl came with the install of red hat, i simply went to httpd.conf and
added the fo
Just a few nits ;-)
From: "Hanson, Rob" <[EMAIL PROTECTED]>
> I think there is something like that, but I'm not sure. In the past I
> have rolled my own like this...
>
> #!/usr/bin/perl
>
> use File::Find;
>
> my $dir = '';
>
> for (@INC) {
> $dir = $_;
> find (\&wanted, $dir);
> }
>
From: Bernhard van Staveren <[EMAIL PROTECTED]>
> [snippity]
>
> > 1. As you can see, my program is going to be running infinitly.
> > Will this be a problem? I will probably make this program as a
> > service on win 2000 so it runs right awway when the computer is
> > turned on.
>
> It'll was
Does anyone recommend a good general programming book? Something that's not so much
language specific, but more about methodologies, techniques, etc. I don't have a
programming background, so I tend to have the most trouble when it comes to looking at
the larger picture and how a program should
Steve Lobach wrote:
>
> I have a perl script that acts like grep, however, it doesn't totally do what is
> expected..
> The script is called peg..
>
> It supposedly takes regex or perl expressions for parameters.. however I have to
> search for the following string :
>
> TDS-RES.1.2345678
If
I think there is something like that, but I'm not sure. In the past I have
rolled my own like this...
#!/usr/bin/perl
use File::Find;
my $dir = '';
for (@INC) {
$dir = $_;
find (\&wanted, $dir);
}
sub wanted {
next unless /\.pm$/;
my $file = $File::Find::name;
$file =~ s/
Greetings!
I'm trying to do some Perl for a non-profit organization. The computer
administrator doesn't know very much about Perl or about the server.
If I were to ask him what Perl modules were available, he'd probably
just have to call somebody else and get back to me. Is there any way
to use
If you haven't already, take a look at this article on Perl threads in Perl
5.8.
http://www.perl.com/pub/a/2002/06/11/threads.html
Rob
-Original Message-
From: Madhu Reddy [mailto:[EMAIL PROTECTED]
Sent: Monday, February 24, 2003 1:46 PM
To: [EMAIL PROTECTED]
Subject: Multi threading in
What if I try to open it for writing. Will that do the tricK? I try
searching for some PDF liburary..but I don't see any functions that lets you
check this thing.
thanks a lot
-Original Message-
From: Bernhard van Staveren [mailto:[EMAIL PROTECTED]
Sent: Monday, February 24, 2003 2:13 PM
[snippity]
> 1. As you can see, my program is going to be running infinitly. Will this
> be a problem? I will probably make this program as a service on win 2000 so
> it runs right awway when the computer is turned on.
It'll waste an awful lot of CPU cycles like that; I'm not sure if Win2000 h
Hi,
does anybody have sample perl script multi
threaded program
any site does talks about perl multi threading
I appreciate u r help
Thanx
-Madhu
__
Do you Yahoo!?
Yahoo! Tax Center - forms, calculators, tips, more
http://taxes.yahoo.com/
Hi,
I have a project at work that I need help on. I have couple of questions
regarding to my "file manipulation program" and was wondering if anyone
could help me. Thanks a lot. I really appreicate it.
About the program:
- There is an input folder and an output folder
- *.pdf files comes in
Madhu Reddy wrote:
> Hi David,
> how are U...
> I am using u r program for sorting...
> below is u r program (at the end of mail)...
> I am sorting 7.5 GB file with this program...
> it has 13 millions of records...
>
> i changed u r program to following
>
> if(@buffer > 50){
>
Hi David,
how are U...
I am using u r program for sorting...
below is u r program (at the end of mail)...
I am sorting 7.5 GB file with this program...
it has 13 millions of records...
i changed u r program to following
if(@buffer > 50){
my $tmp = "tmp" . $counter++ .
".tx
that is true..before loading into database...we need
to do some validations
if input file contains morethan 5% duplicates,
don't load into databse...
that is why i am finding duplicates...
Thanx
-Madhu
--- "Beau E. Cox" <[EMAIL PROTECTED]> wrote:
> Thanks Peter - good point
>
> > -Origi
http://archive.develooper.com/beginners%40perl.org/msg41915.html
HTH,
José.
-Original Message-From: Anand Ramakrishna
[mailto:[EMAIL PROTECTED] Sent: Monday, February 24, 2003 2:33
PMTo: [EMAIL PROTECTED]Subject: Help need in
GUI
Hello
all,
I a
I have a perl script that acts like grep, however, it doesn't totally do what is
expected..
The script is called peg..
It supposedly takes regex or perl expressions for parameters.. however I have to
search for the following string :
TDS-RES.1.2345678
but when I use the following regex it fai
It depends really on how "fancy" you want to get with it.
At one end you have the Perl/Tk bindings for doing things in Tk,
but you could also go to freshmeat.net, find yourself a copy of
Glade, and find a copy of the Perl GTK bindings - that way you can
'visually' do the whole UI part, and put in
Hello
all,
I am newbie to Perl. I have very little experience in writing Perl scripts. Now
I have to develop a GUI in Perl, which will take some inputs and print out the
input options in a text file. In my Perl GUI, I should have some combo boxes and
some buttons. I dont have
dan wrote:
> basically, what it does, is it reads info, and supposed to output so
> the user can download the data it's just output, webserver does
> support scripts, it outputs
> the correct data, but my goal is to be able to get the "download file"
> window up, and be able to store a "servers.ini
"Paul" <[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
> This is too fun, and so occupies far to much of what should otherwise
> be a productive workday.
>
> Alas, I must unsubscribe again.
>
> *sigh*
>
> Later, all. :)
>
You can point your news reader to nntp.perl.org and keep your m
"Nigel Wetters" <[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
> On Mon, 2003-02-24 at 08:21, [EMAIL PROTECTED] wrote:
> > $data[0] = \bless( {'data1' => 'foo',
> >'data2' => 'bar'}, 'TFB');
>
> try these two examples:
>
> $data[0] = \bless( {'data1' => 'foo', 'data2' => 'bar'}, '
Hi
Your example is AND'ing the results of the two matches, so will return true
if both matches occur.
An example of comparing characters using the bitwise AND and the result
might help, or confuse you more thoroughly :)
hth
Rod
my $a = "a";
my $A = "A";
my $B = "B";
foreach ($A,$B,$a) {
On Mon, 24 Feb 2003, Colin Johnstone wrote:
> Gidday all,
>
> >From this string I wish to return everything to the left of the last
> occurence of "." if it exists.
>
> string = "3.25.23.4";
my $string = "3.25.23.4";
my $ret = '';
$ret = $1 if ($string =~ /^(.*)\./);
print "$ret";
This will p
On Mon, 2003-02-24 at 08:21, [EMAIL PROTECTED] wrote:
> $data[0] = \bless( {'data1' => 'foo',
>'data2' => 'bar'}, 'TFB');
try these two examples:
$data[0] = \bless( {'data1' => 'foo', 'data2' => 'bar'}, 'TFB');
$data[1] = bless( {'data1' => 'foo', 'data2' => 'bar'}, 'TFB');
print $data[0] ."\
Gidday all,
>From this string I wish to return everything to the left of the last
occurence of "." if it exists.
string = "3.25.23.4";
Any help appreciated
Thank You
Colin
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hi,
A stupid question.. can someone explain to me why this won't work ?
I have searched through docs and tutorials but can't really find this problem
in any OO-docs.
I have a file called "db" or something, with this contents:
$data[0] = \bless( {'data1' => 'foo',
'data2' => 'bar'}, 'TFB');
$da
Le Sun, Feb 23, 2003 at 10:49:27PM +0200, Ronen Kfir a écrit ...
> I have log files on an IIS web server (WIN2K), that I want to delete
> after a couple of days, lets say -14. I want the script to run under a
> schedule, and delete those files.
I seem to recall seeing a script on cpan (http://ww
40 matches
Mail list logo
