Joseph Jones wrote:
>
> if I have a subroutine that returns a references to a hash how would I get
> that hash in a hash that is tied to a DBM i.e.
>
> my %h;
> my $db_name = "test.dbmx";
>
> tie(%h, 'AnyDBM_File', $db_name, O_RDWR|O_CREAT, 0640)
>or die("can't create \%h: $!");
>
> $temp
Paul Tremblay <[EMAIL PROTECTED]> wrote:
> I would like to have my script print a short help message and then
> quit if a user uses an invalid option. I am using the Getopt::Long
> module.
>
> Also, I've noticed that some scripts have a trick whereby if a user
> types
>
> scriptname --help
>
>
On Sunday, September 1, 2002, at 02:44 , John W. Krahn wrote:
[..]
> According to getpwent(3) on my system it just reads from /etc/passwd.
I believe we both agree on some of the language of getpwent(3),
the vol 3 manual page, and that it asserts:
"The functions getpwnam() and getpwuid() sea
if I have a subroutine that returns a references to a hash how would I get
that hash in a hash that is tied to a DBM i.e.
my %h;
my $db_name = "test.dbmx";
tie(%h, 'AnyDBM_File', $db_name, O_RDWR|O_CREAT, 0640)
or die("can't create \%h: $!");
$temp = $nntp->newsgroups();
$temp is a referenc
Drieux wrote:
>
> On Sunday, September 1, 2002, at 01:53 , John W. Krahn wrote:
> [..]
> > The only UID that should be above 6 is the user "nobody" whose UID
> > is 65534.
>
> you know and I know - what would be 'reasonable'
> and what happens
> [..]
> >
> > while ( my( undef, undef, $ui
On Sunday, September 1, 2002, at 01:53 , John W. Krahn wrote:
[..]
> The only UID that should be above 6 is the user "nobody" whose UID
> is 65534.
you know and I know - what would be 'reasonable'
and what happens
[..]
>
> while ( my( undef, undef, $uid ) = getpwent ) {
> $highestuid
Anidil Rajendran wrote:
>
> Hi Perl Gurus,
Hello,
> This is a newbie question ofcourse. Since it is not working for me I am asking here.
> I am trying to skip UID above 6.
The only UID that should be above 6 is the user "nobody" whose UID
is 65534.
> $passwd = "/etc/passwd";
> $skip
Did more digging. The registry key that governs both my perl
distribution is under HKLM\SOFTWARE\perl
(default)c:\perl
BinDirc:\perl\bin\perl.exe
PERLDB BEGIN {require q }
Looks like I will have to muck around with this to switch debuggers.
Not nice.
On Sun, 1 Sep 2002 13:43:39
I would like to have my script print a short help message and then
quit if a user uses an invalid option. I am using the Getopt::Long
module.
Also, I've noticed that some scripts have a trick whereby if a user
types
scriptname --help
The script prints on the pod. There is a link on perldoc.com
There must be some other method used. perldb.pl is not in any of the
folders listed by @INC and PERL5LIB is not set as an environment
variable. Still a mystery.
On Sun, 1 Sep 2002 10:14:39 -0700, [EMAIL PROTECTED] (Drieux) wrote:
>
>On Sunday, September 1, 2002, at 08:37 , chris wrote:
>[..]
>>
Chris,
I have Activestate Perl and perl from a cygwin distribution. I keep the
seperate by the calling method. For cgi scripts that is the
#!/path/to/the/perl/I_need
from the command line
/usr/bin/perl
or
F:/Perl/bin/perl
The perl that accessed the debugger has it in it's @INC array as drieux
On Sunday, September 1, 2002, at 08:37 , chris wrote:
[..]
> How did perl -d manage to find perldb.pl?
I think the question you are asking is
how does perl find modules that are not
in the current directory
the answer to that is
@INC
the 'include list' that perl is bu
I am working with 2 perl distributions on Windows, ActiveState and
another 5.6.1 perl on the same computer. I am able to work with one or
the another except when debugging. Somehow, perl -d finds perldb.pl
when perldb.pl is not in the current folder and not in the system
path. The only perl enviro
On Sunday, September 1, 2002, at 12:46 , ANIDIL RAJENDRAN wrote:
[..]
> $passwd = "/etc/passwd";
> $skip = 6;
> open(PW,$passwd) or die "Can't open $passwd:$!\n";
> while (){
> @fields = split(/:/);
> next if $fields[2] > $skip;
> $highestuid = ($highestuid < $fields[2]) ? $fields
Hi Perl Gurus,
This is a newbie question ofcourse. Since it is not working for me I am asking here.
I am trying to skip UID above 6.
$passwd = "/etc/passwd";
$skip = 6;
open(PW,$passwd) or die "Can't open $passwd:$!\n";
while (){
@fields = split(/:/);
next if $fields[2] > $skip;
15 matches
Mail list logo
