Hi
Ive been using perl for a few months now, most people I speak to seem to
prefer PHP. Why?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hi all
i am having a problem reading from an array. i wrote this script to query
a database, get a certain record and based on the number of
records returned write to a file 1.the unixtime, 2.the number of records
in asteriks (ex. *** for 3 records) and 3.the number of records in digit
form.
i
birgit kellner [EMAIL PROTECTED] writes:
Many thanks to Wagner-David for the code. I've slightly changed it,
as below, but have still further questions.
[...]
... checking on an initial digit is not specific enough, because in
between a heading $counter and the next subheading $counter.1,
Hi! It's probably safe now to say that I'm the only
on the list from Lima Peru, although there are two
more of us here in South America. I think the
location in the signature is a good idea. Gracias.
--- patrick [EMAIL PROTECTED] wrote:
I'm from Atlanta, Georgia.
--
p a t r i c k d u
I am a student. I have an assign where my instructor asked me to do the following:
(and I don't know where to begin, please advise, I would greatly appreciate it)
Write a program that will merge two hashes together onto a third hash called %h3.
Return a reference to %h3 to the main program
I need to create a package called StringPrint. Place this package in a
filename called StringPrint.pm. Include in the Perl module a subroutine, called
print_str, that prints a string passed to the subroutine defined by the module.
I am the only person from IRAN...
in this group.
___
A small part of world...Nafiseh Saberi
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
HI, I am using a script with Win32::EventLog on NT but I wonder if it is
possible when I init my application to del all logs that are in the Event Log in
the directory Application of the Event Log.
Thanks.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL
On Thursday 08 November 2001 08:43 pm, Roy Peters wrote:
Is there any way to imbed expect commands in perl like you could in Tcl?
Thanks.
HI Roy Peters,
Expect module is available for per.
regards,
Sambaiah Kilaru
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands,
Hi All,
I am writing a modperl webapp (the new web interface for the RipeNCC whois
database server) and I have need to store some data to a file.
Nothing heavy, just a few one liners like user query strings, screen used,
server process time and a few others to do some analysis work on potential
philippines here :)
louie miranda (axishift.ath.cx)
--
Security Is A Series Of Well-Defined Steps
chmod -R 0 / ; and smile :)
- Original Message -
From: nafiseh saberi [EMAIL PROTECTED]
To: Gustavo Jara [EMAIL PROTECTED]; patrick [EMAIL
On Monday 12 November 2001 10:36 pm, Erik Jacobsen wrote:
I am looking for a way to use PERL to script into a open telnet session.
The script would be executing on a Redhat 7.1 Box. I have played with
system keyword, but it seems that that is for calling one specific
proccess. Any help would
See the list FAQ. Section 2.2 http://learn.perl.org/beginners-faq
Having said that, a good place to start would be
http://www.amazon.com/exec/obidos/ASIN/1884777805/ref%3Dase%5Fthevirtualmirr
or/103-8967786-7966216 and http://www.google.com/search?q=perl+merge+hash
John
-Original
On Thursday 15 November 2001 02:50 am, Miles Sapp wrote:
I've heard Sendmail isn't a very good mail program because of security
holes, etc. Can anyone recommend a good alternative script for sending
mail from an HTML form? Thanks!
Miles
Qmail and postfix.
postfix is written by security in
postfix is a drop in replacement for sendmail. as such the sendmail commandline can
still be used for delivering mails. Qmail has also been coded with security in mind.
However
(this is not thro personal experience), postfix seems to be quicker than qmail as far
as
queueing is concerned. Also
Recently I've had problems w/all of my scripts (and attempts) failing with
a Can't locate _module.pm_name_ in @INC (@INC contains: /usr/lib... ...
) at nameofscript.pl line #.
In example I am trying to make an html page of a directory that i've
segregated certain mp3's. I am trying to use
For some reason I have a problem with inheritance if the derived object
using full namespace for the base object in the ISA.
In the following, B derives from A. The directory structure is such
that A.pm lives in the same directory as B.pm
A.pm
#!/usr/local/bin/perl
package A;
sub foo
i'm afraid that's possibly my error. see, all i've used so far was CGI.pm.
I went to cpan as root and got it. So where ever that would put it. let me
look. that makes obvious sense.
ken
_
[EMAIL PROTECTED]
http://quantifier.org
_
Fortune's real
-Original Message-
From: Andy McDowell [mailto:[EMAIL PROTECTED]]
Sent: Thursday, November 15, 2001 6:37 AM
To: [EMAIL PROTECTED]
Subject: Some advice needed on file locking with modperl'ed code
Hi All,
I am writing a modperl webapp (the new web interface for the
RipeNCC
my big mistake and a wonderful learning experience.
thanx
ken
_
[EMAIL PROTECTED]
http://quantifier.org
_
The only intuitive interface is the nipple. After that, it's all
learned.
-Bruce Ediger, in comp.os.linux.misc, on X interfaces
On Thu, 15
I am passing a hash as a reference to a subroutine and want to print its
values using arrow notation. Such as..
%hash (value1, value2, etc..);
PrintHash(\%hash);
sub PrintHash
{
$rhash = @_;
What would work here for print using arrow notation?
}
Thanks
%hash =('key1'='value1','key2'= 'value2');
PrintHash(\%hash);
sub PrintHash{
$rhash = shift;
for(keys %{$rhash}){
print $_ = $rhash-{$_}\n;
}
}
would work.
-- Rex
-Original Message-
From: jonathan vandine [mailto:[EMAIL PROTECTED]]
Sent: Thursday, November 15, 2001
$rhash-{$key} assuming $key is the value of the key of the hash
so %hash = (key1=val1,key2=val2...etc) would result in $rhash-{key1}
producing val1!!
On Thu, Nov 15, 2001 at 04:08:18PM +, jonathan vandine shaped the electrons to
read:
I am passing a hash as a reference to a subroutine and
First off, you want:
my $rhash = shift;
instead of
$rhash = @_;
The latter will assign the number of elements in @_ (which is 1) to $rhash.
After that change you can say
print $rhash-{value1};
or
$rhash-{value1} = 7;
Tanton
-Original Message-
From: jonathan vandine
To: [EMAIL
In my response, shown below, if I replace
$rhash=shift; # My approach
with
$rhash=@_;# Your Approach
then nothing will be printed. The reason is that the results are interpreted
in a scalar notation when you adopt the latter approach. Therefore, never
attempt to do an
I am trying to replace all occurences of the word St with St. without
generating St.. in the incorrect substitutions of St.
The code I have been playing with is something like:
$item = 35 Main St. (it could also be 35 Main St in which case I want
the substitution to happen)
$varS = st;
$item
Yeah, I was unsure about whether or not the o/s (slackware v8.0) would buffer
the writes - not syswrite - if they occured concurrently, which is why I was
looking into flock use.
Many thanks Bob
Andy
On Thu, 15 Nov 2001, Bob Showalter wrote:
Date: Thu, 15 Nov 2001 10:40:17 -0500
From: Bob
-Original Message-
From: Miretsky, Anya [mailto:[EMAIL PROTECTED]]
Sent: Thursday, November 15, 2001 11:37 AM
To: '[EMAIL PROTECTED]'
Subject: Regulare Expressions/ Substitution Question
I am trying to replace all occurences of the word St with St. without
generating St.. in
--On Donnerstag, 15. November 2001 11:37 -0500 Miretsky, Anya
[EMAIL PROTECTED] wrote:
I am trying to replace all occurences of the word St with St. without
generating St.. in the incorrect substitutions of St.
The code I have been playing with is something like:
$item = 35 Main St. (it
What you want is a negative lookahead
$iter =~ s/\b$varS(?!\.)/St./gi;
That says to find any occurrence of $varS that is preceeded by a word
boundry (so you don't replace things like worst) and is NOT followed by a .
Tanton
-Original Message-
From: Miretsky, Anya
To: '[EMAIL
[EMAIL PROTECTED] wrote:
Friends,
I have two, two-dimensional array references, and I need to join the rows of
each array.
$array1 = [
[11,12],
[21,22],
[31,32]
];
and
$array2 = [
Perl 5.6.0
Sun Solaris 2.7
I'd like to send two or more associative arrays (hashes) to a sub. It looks
like the first one makes it but the values of the second never get passed.
Am I doing something wrong or is there a better way to do this (I'm hoping
you don't say by reference or I'll have to
Chuck Tomasi wrote:
I'd like to send two or more associative arrays (hashes) to a sub. It looks
like the first one makes it but the values of the second never get passed.
Am I doing something wrong or is there a better way to do this (I'm hoping
you don't say by reference or I'll have to
On Nov 15, Tomasi, Chuck said:
I'd like to send two or more associative arrays (hashes) to a sub. It looks
like the first one makes it but the values of the second never get passed.
Am I doing something wrong or is there a better way to do this (I'm hoping
you don't say by reference or I'll
-Original Message-
From: Gibbs Tanton - tgibbs [mailto:[EMAIL PROTECTED]]
Sent: Thursday, November 15, 2001 12:08 PM
To: 'Miretsky, Anya '; ''[EMAIL PROTECTED]' '
Subject: RE: Regulare Expressions/ Substitution Question
What you want is a negative lookahead
$iter =~
Alternatively just read them all in as one big hash inyour sub if you know the
keys are unique to each other ..
On Thu, Nov 15, 2001 at 11:53:47AM -0600, Tomasi, Chuck shaped the electrons to read:
Perl 5.6.0
Sun Solaris 2.7
I'd like to send two or more associative arrays (hashes) to a sub.
Hi,
Probably utterly the wrong place to ask this question, but there were
so many lists to choose from I was going dizzy just reading them!
I'm working on a project which involves the embedding of a number of
perl interpreters in a thread-based C++ server. I'm having a couple of
problems with
Given the month and the year, how can I derive what day the first landed on?
Glenn Cannon
[EMAIL PROTECTED]
Level II Certified DCI Judge
'There is no spoon.'
www.eventsbeyondbelief.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
On Thu, Nov 15, 2001 at 08:22:51AM -0600, Jon Cassorla wrote:
A.pm
#!/usr/local/bin/perl
package A;
sub foo { print STDOUT A::foo\n; }
sub bar { print STDOUT A::bar\n; }
1;
B.pm
#!/usr/local/bin/perl
package B;
our @ISA=qw(A);
sub foo { print STDOUT B::foo\n; }
[EMAIL PROTECTED] ([EMAIL PROTECTED]) wrote on 15 Nov 2001:
i am having a problem reading from an array. i wrote this script to
query a database, get a certain record and based on the number of
records returned write to a file 1.the unixtime, 2.the number of
records in asteriks (ex. *** for
-Original Message-
From: Tomasi, Chuck [mailto:[EMAIL PROTECTED]]
Sent: Thursday, November 15, 2001 2:26 PM
To: '[EMAIL PROTECTED]'
Cc: '[EMAIL PROTECTED]'
Subject: RE: How to pass two hashes to a sub
Arg, I was hoping I wouldn't have to do that (not that I
can't), but it
if you are on the list since a couple of weeks, there was a really good
topic from japhy on this (he was helping me out)
There ya go:
quoting
I suggest you use the % operator (modulus) to save yourself a bit of
work.
Also, the rules for determining leap year are thus:
divisible by 4
BUT
On Thu, Nov 15, 2001 at 03:08:48PM -0500, Glenn Cannon wrote:
Now all I need is a way to work out the last day of the month. Most of them
should be easy, but that damn February...
Find the first day of the next month (remember december/january rollover)
and subtract one day:
## hacking
On Nov 15, Glenn Cannon said:
Now all I need is a way to work out the last day of the month. Most of them
should be easy, but that damn February...
Just find out the FIRST day of the month AFTER it, and subtract one.
--
Jeff japhy Pinyan [EMAIL PROTECTED]
Heheh yeah for the day name only (not the actual date number) it's the
way to go!!
Way faster
Etienne
Adam Turoff wrote:
On Thu, Nov 15, 2001 at 03:08:48PM -0500, Glenn Cannon wrote:
Now all I need is a way to work out the last day of the month. Most of them
should be easy, but that
On Nov 15, Adam Turoff said:
Find the first day of the next month (remember december/january rollover)
and subtract one day:
my ($mon, $year) = (11, 2001);
my $first = timelocal(0,0,0, 1, $mon % 12, ($year-1900 + int($mon/12)));
You'll probably want to use noon if you're going to subtract
No, \bst\b won't work because . is treated as a word boundry and therefore
st. will be turned into st..
You might try s/\bst\s/st./ instead
-Original Message-
From: Bob Showalter
To: 'Gibbs Tanton - tgibbs'; 'Miretsky, Anya '; ''[EMAIL PROTECTED]' '
Sent: 11/15/2001 12:05 PM
Subject:
Dang, I could swear I tried that and it wasn't behaving like it was a ref.
Now that I've tried it, I'll have to use it that way. Thanks a lot!
-Original Message-
From: Bob Showalter [mailto:[EMAIL PROTECTED]]
Sent: Thursday, November 15, 2001 2:00 PM
To: 'Tomasi, Chuck'; '[EMAIL
I want to highlight words. I provide the code and the errors generated by
the code.
Can somebody help me to fix the problem.
Thanks
Source.txt
Your AdWords text ads appear on search result pages for the keywords
you buy, and can be targeted by language and country. So, to reach
collectors of
On Nov 15, Houda Araj said:
open my $fh, $phrase_file or die $phrase_file: $!;
You're using an older version of Perl that can't handle this. Do
open PHRASES, $phrase_file or die $phrase_file: $!;
instead. And then read from PHRASES. Do something similar here too:
open my $fh,
Andrea Holstein wrote:
TMTOWTDI:
@joined_array = map { [ @$array1[$_], @$array2[$_] ] } (0..$#array1);
Please excuse my little bugs:
I wrote a little script that helps to understand:
Hallo!
use strict;
my $array1 = [
[11,12],
[21,22],
(Cross-posted to the Perl Beginners List)
On Nov 15, Tommy Butler said:
What's a bubble sort ? I believe I heard the term used on this list a
while back. I have some kind of idea of what it is, and how it would be
implemented, but I'd like to find out for sure. Could someone tell me
what it
While were on this, I'm taking an intro to Data Structures class and
were learning all about the different sorting methods ... Insertsort,
mergesort etc. What kind of sorting method perl's sort() use?
Sid.
-Original Message-
From: Jeff 'japhy' Pinyan [mailto:[EMAIL PROTECTED]]
Sent:
--- Sidharth Malhotra [EMAIL PROTECTED] wrote:
While were on this, I'm taking an intro to Data Structures class and
were learning all about the different sorting methods ... Insertsort,
mergesort etc. What kind of sorting method perl's sort() use?
Sid.
Sid,
Perl's sort function is a
Hey all,
I am just about to start a new project. Before I start I wouldn't mind
some input if any one has any
==
VINTEK CONSULTING PTY LTD
(ACN 088 825 209)
Email: [EMAIL PROTECTED]
WWW:http://www.vintek.net
Tel:(08) 8523 5035
Fax:(08) 8523 2104
Snail:
Hey all,
Just a quick question I want to be able to a line from /etc/passwd and
append it to the end of /etc/shadow. So far I have the following.
#!/usr/bin/perl -w
my $passwdFILE = '/etc/passed'; #System password file
my #shadowFILE = '/etc/shadow';
my $user = 'test'; #User details to be
__
Do You Yahoo!?
Everything you'll ever need on one web page from News and Sport to Email and Music
Charts
http://uk.my.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Thanks Damien !
Unquoted string justaname may clash with future reserved word ..
The above seems to imply that it is better to put quotes on file-handles.
Therefore to prevent clashes with future-reserved-keywords, would I be right
to say that it is better to put quotes on filehandles.
Of
Sigh ! My mind simply refuses to work. What must I do to print the number of
records $count in line 3.
Thanks
1.@array = qw ( hello world hello how are you );
2.$match = 'HEllo';
3.print Your search for $match returns $subroutine $count
recordsbr\n;
$subroutine = count;
sub count {
Dear All,
Is there any way to controll registry security permissions as we can do it
from REGEDT32.exe in NT. This is very Urgent. Please respond if any.
Thank you very much.
With Regards
Raju
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
60 matches
Mail list logo