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]
Q. How to evolve Perl to ignore syntax and can just write a
story to finish the program?
A. Most programming languages rely on programmer evolution
(learning), since language evolution (design) to the extent
you want would take the most highly evolved (able)
programmers on the planet.
Almost as
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
records\n";
$subroutine = &count;
sub count {
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 filehandle
__
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,
Andrew
__
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]
Hey List,
Just a quick question. I have the following code below...
sub ADD_SHADOW {
my $passwdFILE = '/etc/passwd';
my $shadow = '/etc/shadow';
open FILE, "$passwdFILE" or die "Cannot open $passwdFILE in READ
ONLY mode:$!";
open SHADOW, ">>$shadow" or die "Cannot open $shado
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 move
> Hello,
> Do I have the below dereferencing correct.
> I a anonymous array and I'm trying to multiply
> the "1" & "2" using the arrow notation:
>
>$arrayref = [ 1,2, ['x','y','z']];
>
> $prod -> [0] * [1];
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additiona
Hello List,
Just about to begin a new project where I am going to start to create
some IP accounting software using Perl or coarse. Before I being I
woudn't mind getting some information from any one that has done any of
this before. Firstly the network I will be monitoring will consist of
user
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:
--- 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
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: Th
(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
>wha
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
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 . Do something similar here too:
>open my $fh, $sou
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 tin
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
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: RE
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 subtra
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 th
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] http://www.pobox.com/~j
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 ja
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:
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 NOT divisi
Thx japhy,
Does exactly what I need it to.
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...
Glenn Cannon
[EMAIL PROTECTED]
Level II Certified DCI Judge
'There is no spoon.'
www.eventsbeyondbelief.com
> -Original Messag
> -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), b
[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. *** f
Arg, I was hoping I wouldn't have to do that (not that I can't), but it
would be much easier in some calls. I have a variable like "$ToMailAddr".
Rather than setup a hash just to pass the value, it would be simpler for me
to say:
&mysub(%FromUser, {Address => $ToMailAddr});
where mysub is expec
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 S
Do something like:
use Time::Local; # part of std perl
my $MySecs = timelocal( 0, 0, 12, 1, $month-1, $year );
# ^--- seconds
# ^--- minutes
#^--- hours
# Note
On Nov 15, Glenn Cannon said:
>Given the month and the year, how can I derive what day the first landed on?
Using the standard Time::Local module, and the built-in
localtime() function.
use Time::Local;
use strict;
my ($mon, $year) = (11, 2001);
my $first = timelocal(0,0,0, 1, $mon-1,
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]
NAME
beginners-faq - FAQ for the beginners mailing list
1 - Administriva
1.1 - I'm not subscribed - how do I subscribe?
Send mail to <[EMAIL PROTECTED]>
You can also specify your subscription email address by sending email to
(assuming [EMAIL PROTECTED] is your email address)
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
> -Original Message-
> From: Miretsky, Anya [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, November 15, 2001 11:57 AM
> To: 'Bob Showalter'
> Subject: RE: Regulare Expressions/ Substitution Question
>
>
> I don't understand why but if I write the substitution the
> way you have it,
> the
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 s
Unfortunately you HAVE to use references to pass more than one hash or more
than one array for that matter ... perl flattens the list that are in
arguments so it is impossible to tell where one list starts and the other
begins etc. I dont get the setting up of temp hashes though ... what u could
> -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 =~
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
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
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
[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 = [
Suru Dissanayake wrote:
>
> Hi Perl mailing list!
>
> I have a small dilemma; I want to manipulate a date.
> For example if I have the date ? 2001-11-15 16:22:00?
> I would like to get the previous day, week, month and year in a easy way.
> Is there a module that handles this kind of manipulatio
Hi Perl mailing list!
I have a small dilemma; I want to manipulate a date.
For example if I have the date 2001-11-15 16:22:00
I would like to get the previous day, week, month and year in a easy way.
Is there a module that handles this kind of manipulation?
A function call that you send the
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 PROTECTED]
--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
> -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
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
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";
$
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 ass
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
$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
%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
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
__
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
> -Original Message-
> From: KeN ClarK [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, November 15, 2001 9:00 AM
> To: [EMAIL PROTECTED]
> Subject: ugh. @INC
>
>
> Recently I've had problems w/all of my scripts (and attempts)
> failing with
> a "Can't locate _module.pm_name_ in @INC (@INC
> -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
>
--On Mittwoch, 14. November 2001 09:44 -0800 Wagner-David
<[EMAIL PROTECTED]> wrote:
> So given your new data, I am unsure what data would be placed in the
> hash. From your example, what is expected?
>
> Wags ;)
>
In %Authorhash, a main heading should be assigned to the heading number
(
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 li
Do you know where the module has been installed to?
On Thu, Nov 15, 2001 at 08:59:43AM -0500, KeN ClarK shaped the electrons to read:
> 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
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
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
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 po
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
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 Message---
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 wo
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]>; "patric
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
b
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, e
Hi
Sorry,
just wanted to let you know that,
im from IRAN also
i used perl before ,mostly for CGI programming
and i was so good at it,and i did some great projects
but now im concentrating most on ATL Server (new MS .Net technology)
and Servlets,just because i enjoy full object oriented languages.
I'm from Jakarta Indonesia
Kind Regards,
Djoko Priyono
- Original Message -
From: Gustavo Jara <[EMAIL PROTECTED]>
To: patrick <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Thursday, November 15, 2001 4:33 PM
Subject: Re: Off-Topic (200%) - Where are you from?
> Hi! It's probably sa
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: [EM
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]
thanks
"Jonathan e. paton" wrote:
>
> Hi,
>
> > How can I get the size of a image by perl?
>
> If you are looking for size (as in filesize) then the
> quickest way is to "stat" the file. For details:
>
> perldoc -f stat
>
> I think more likely you are after the image dimensions, and
> you s
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 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 an
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
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 "$c
"Brett W. McCoy" <[EMAIL PROTECTED]> writes:
> On Tue, 13 Nov 2001, A. Rivera wrote:
>
>
>> I need help find the most effecient way to do this..
>>
>> I have a variable...
>> $data="this is a test";
>>
>> What is the quickest way to get $data to equal just the first two words of
>> the original
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 ha
On Thu, 2001-11-15 at 00:22, Miles Sapp wrote:
> Doh! I'm sorry to waste your time with my previous question. I meant
> to say 'FormMail.pl', not 'Sendmail'. Well, this is a beginner's list
> after all. OK, the question I meant to ask is, does anyone know of
> a good alternative to FormMai
81 matches
Mail list logo
