Hello List,
My question is if this work safe ?
Here I have the way to use 2 modules and shares their methods cross
along, because
I don't want to split out the common part as another package, since
there are class properties
inside. If I split out something, I have to rebuild the object again in
Armin ranjbar schreef:
> im working on high performance dns server using perl , its nearly
> completed but i had some very urgent and bad looking problem ,
> well , im using single hash value to store all queries , for example
>
> $mhash{"kernel.org"}{"MX"} returns cached MX query of kernel.org
"Dharshana Eswaran" schreef:
> m/^ #TAPI (?:_[A-Z]+)+ $/x
>
> But this is filtering both the strings starting from TAPI and the
> strings starting from #TAPI.
Yes, "#" starts a comment, so makes the regex equivalent to m/^/, which
will allways match.
echo 'abc' |
perl -nle '
/^ # tes
Sumit Shah wrote:
Hello All,
Heloo,
I have a string like: 'a = 1; b = 2; c = 3; d = 4'
Whats the best way to parse it so that I can get a value for c, which is
3? I have used the hash approach. But, I was wondering if there is a
faster way to do it in Perl.
Why do you say hashes are sl
Jeff Pang wrote:
I need to send mail to all users defined in one array. I tried foreach
loop but what is happening is it is sending mail to only first user in
the array. not sending mails to rest of the users.
Is there any way to send a mail to all users in array in one shot. I am
using send
On 2/21/07, RICHARD FERNANDEZ <[EMAIL PROTECTED]> wrote:
> Probably rfernandez is not a valid key in the database file. Try this:
>
> tie my %db, 'NDBM_File', 'aliases', O_RDWR, 0644;
>
> while (my ($key, $value) = each %db) {
> print "$key => $value\n";
> }
>
> untie
On 02/21/2007 03:49 PM, RICHARD FERNANDEZ wrote:
Probably rfernandez is not a valid key in the database file. Try this:
tie my %db, 'NDBM_File', 'aliases', O_RDWR, 0644;
while (my ($key, $value) = each %db) {
print "$key => $value\n";
}
untie %db;
On my system, th
Nishi Bhonsle wrote:
>
> On 2/16/07, John W. Krahn <[EMAIL PROTECTED]> wrote:
>> Nishi Bhonsle wrote:
>>
>> > I have a string such as
>> > instance/bit/bitGroup/default/tz/l_cs
>> > where the last directory stands for os languages.
>> >
>> > I have to get the last directory and assign it to a var
> Probably rfernandez is not a valid key in the database file. Try this:
>
> tie my %db, 'NDBM_File', 'aliases', O_RDWR, 0644;
>
> while (my ($key, $value) = each %db) {
> print "$key => $value\n";
> }
>
> untie %db;
>
> On my system, this code works with a custom a
On 02/21/2007 10:27 AM, RICHARD FERNANDEZ wrote:
Hi folks,
I'm working on a script in which I want to access NDBM files directly.
I'm using the unix aliases file(s) for testing, but I intend to use this
code for other projects as well.
I have the following files: aliases, aliases.dir, and alias
Hi:
In case the string i am looking for is secondlast position as in
instance/bit/bitGroup/default/tz/l_cs/messages
How can i change the manip code to get l_cs in this case?
Thanks!
On 2/16/07, John W. Krahn <[EMAIL PROTECTED]> wrote:
Nishi Bhonsle wrote:
> Hi:
Hello,
> I have a string su
> That man page might be lying to you. If you have a pair of
> .dir/.pag files, those are probably a DBM file, not NDBM.
> Have you tried DB_File?
>
> Hope this helps!
>
> --Tom Phoenix
> Stonehenge Perl Training
>
I substitued DB_File for NDBM_File and changed the code appropriately,
but I'm
On 2/21/07, Gsandtner Michael <[EMAIL PROTECTED]> wrote:
system("/home/foo/nosuid-example arg");
system("/home/foo/nosuid-example \"arg\"");
The difference between these two is that the first runs the example
program, but the second runs a shell and asks it to run the example
program.
When yo
Sumit Shah wrote:
> I have a string like: 'a = 1; b = 2; c = 3; d = 4'
my($c) = $string =~ /c = (\d)/;
Maybe?
--
David Moreno Garza <[EMAIL PROTECTED]> | http://www.damog.net/
Una vida sencilla para nada es aburrida.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-ma
I have a problem with setuid script. I have tracked down to the
following example.
A perl script is setuid, calls another, not setuid script with system.
If the argument contain a quote, setuid is not performed, otherwise it
is set.
cd /home/foo
cat >suid-example <<'_end'
#!/usr/bin/perl
print STD
Hello All,
I have a string like: 'a = 1; b = 2; c = 3; d = 4'
Whats the best way to parse it so that I can get a value for c, which is
3? I have used the hash approach. But, I was wondering if there is a
faster way to do it in Perl.
Thanks
Sumit
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
On 2/21/07, RICHARD FERNANDEZ <[EMAIL PROTECTED]> wrote:
I have the following files: aliases, aliases.dir, and aliases.pag.
According to the man page for aliases, these are "ndbm files maintained
by newaliases".
That man page might be lying to you. If you have a pair of .dir/.pag
files, those
Hi folks,
I'm working on a script in which I want to access NDBM files directly.
I'm using the unix aliases file(s) for testing, but I intend to use this
code for other projects as well.
I have the following files: aliases, aliases.dir, and aliases.pag.
According to the man page for aliases, thes
On Tue, 20 Feb 2007 11:41:41 -0500, Moon, John wrote:
> Looking for help installing modules to a "local" library...
You've got multiple problems below.
> Below are several attempts.
>
> Any suggestions or links to "How to..." will be greatly appreciated.
>
> SUN83-PRODWEB>pwd
> /opt/common/htm
From: Armin ranjbar <[EMAIL PROTECTED]>
> im working on high performance dns server using perl , its nearly
> completed but i had some very urgent and bad looking problem , well ,
> im using single hash value to store all queries , for example
>
> $mhash{"kernel.org"}{"MX"} returns cached MX que
On 2/21/07, Dharshana Eswaran <[EMAIL PROTECTED]> wrote:
On 2/20/07, Peter Scott <[EMAIL PROTECTED]> wrote:
>
> On Tue, 20 Feb 2007 12:19:22 +0530, Dharshana Eswaran wrote:
>
> > Hello All,
> >
> > I need to use a C header file in Perl program in Unix.
> >
> > Is it possible to use the header fil
>
>im working on high performance dns server using perl , its nearly completed
>but i had some very urgent and bad looking problem ,
>well , im using single hash value to store all queries , for example
>
>$mhash{"kernel.org"}{"MX"} returns cached MX query of kernel.org , the problem
>is , th
Hi all ;)
im working on high performance dns server using perl , its nearly completed but
i had some very urgent and bad looking problem ,
well , im using single hash value to store all queries , for example
$mhash{"kernel.org"}{"MX"} returns cached MX query of kernel.org , the problem
is ,
On 2/21/07, Dharshana Eswaran <[EMAIL PROTECTED]> wrote:
On 2/21/07, Dr.Ruud <[EMAIL PROTECTED]> wrote:
>
> "Dharshana Eswaran" schreef:
>
> > TAPI_VOICE_NOTIFY_OTHERAPP_JOINING_MSGID
> > TAPI_TTY_NOTIFY_TTY_TONE_MSGID
> > [...]
> > Can anyone help me in getting a generalised pattern from thes
On 2/21/07, Dr.Ruud <[EMAIL PROTECTED]> wrote:
"Dharshana Eswaran" schreef:
> TAPI_VOICE_NOTIFY_OTHERAPP_JOINING_MSGID
> TAPI_TTY_NOTIFY_TTY_TONE_MSGID
> [...]
> Can anyone help me in getting a generalised pattern from these?
m/^ TAPI (?:_[A-Z]+)+ $/x
--
Affijn, Ruud
"Gewoon is een tijger.
Mathew Snyder schreef:
> system("shredder","--force","--plugin"
> "Tickets=arg1,desc;arg2,desc;arg3,desc")
Alternative:
system qw/shredder --force --plugin/
, q/Tickets=arg1,desc;arg2,desc;arg3,desc/;
Variant:
{ no warnings q/qw/;
system qw/shredder --force --plugin
Tickets=arg
"Dharshana Eswaran" schreef:
> TAPI_VOICE_NOTIFY_OTHERAPP_JOINING_MSGID
> TAPI_TTY_NOTIFY_TTY_TONE_MSGID
> [...]
> Can anyone help me in getting a generalised pattern from these?
m/^ TAPI (?:_[A-Z]+)+ $/x
--
Affijn, Ruud
"Gewoon is een tijger."
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
27 matches
Mail list logo