From: Rob Dixon <[EMAIL PROTECTED]>
> I think you're using the tab character for indenting, giving you eight-column
> indentation which is too much to show the structure of the blocks properly.
> Four-column indenting is recommended.
Which assuming you use tabs means you just need to tell the edit
Rob Dixon wrote:
>
> Johnson, Reginald (GTS) wrote:
>>
>> Thanks for assistance Rob. By adding the parentheses in the split I get
>> the expected results. Yes I do need to cleanup the code. The lines that
>> are indented are only for debugging, so I am going to delete them
>> anyways. I will keep y
Johnson, Reginald (GTS) wrote:
>
> Thanks for assistance Rob. By adding the parentheses in the split I get
> the expected results. Yes I do need to cleanup the code. The lines that
> are indented are only for debugging, so I am going to delete them
> anyways. I will keep your suggestions in mind fo
l.org
Cc: Johnson, Reginald (GTS)
Subject: Re: splt and hash problem
Johnson, Reginald (GTS) wrote:
>
> I am trying to split and entry from hash and keep getting the
following
> warning "Use of implicit split to @_ is deprecated at ./chargeback
line
> 34."
> I'm n
Johnson, Reginald (GTS) wrote:
>
> I am trying to split and entry from hash and keep getting the following
> warning "Use of implicit split to @_ is deprecated at ./chargeback line
> 34."
> I'm not sure how to correct this. What I want the code to do is take the
> input file and get a hash of the
I am trying to split and entry from hash and keep getting the following
warning "Use of implicit split to @_ is deprecated at ./chargeback line
34."
I'm not sure how to correct this. What I want the code to do is take the
input file and get a hash of the node names. I did this to eliminate
duplica
I need to find a way to get HTML::Parser return the text between the tag
caught by the start_h handler and the related closing tag. Could
someone please point me in the right direction?
Cut down code thus far:
#!/usr/bin/perl -wT
use strict;
use HTML::Parser;
my %choices;
my $file = 'test_snipp
Thanks Chas, most useful.
Regards,
Tim Bowden
On Mon, 2008-02-25 at 09:55 -0500, Chas. Owens wrote:
> On Mon, Feb 25, 2008 at 9:01 AM, Tim Bowden <[EMAIL PROTECTED]> wrote:
> > Making progress. Needed to understand hash references, and how to
> > de-reference them.
> snip
>
> Quick cheat sheet:
On 02/25/2008 09:01:27 AM, Tim Bowden wrote:
-> Making progress. Needed to understand hash references, and how to
-> de-reference them.
delete($HASH{$KEY});
if that's what you mean; good luck with the stupid stick (i hope it
ain't me)
->
-> Tim Bowden
->
-> On Mon, 2008-02-25 at 14:54 +0900
On Mon, Feb 25, 2008 at 9:01 AM, Tim Bowden <[EMAIL PROTECTED]> wrote:
> Making progress. Needed to understand hash references, and how to
> de-reference them.
snip
Quick cheat sheet:
#make a hash reference
my $ref = \%hash;
my $ref = { key1 => "val1", key2 => "val2" };
my $ref = { %hash };
#
Making progress. Needed to understand hash references, and how to
de-reference them.
Tim Bowden
On Mon, 2008-02-25 at 14:54 +0900, Tim Bowden wrote:
> Hi all,
>
> I'm using HTML::Parser to process files containing snippets of html
> looking like:
> First optionAnother
> choicepick me
>
> I'm w
Hi all,
I'm using HTML::Parser to process files containing snippets of html
looking like:
First optionAnother
choicepick me
I'm wanting to create a hash of option value, name pairs. Ie, 1 =>
"First option",2=>"Another choice" and so on. Problem is, I don't know
how to handle the hash returned i
On 1/19/07, Bertrand Baesjou <[EMAIL PROTECTED]> wrote:
While running my script it seems to use around a gigabyte of memory
(there is 1GB of RAM and 1GB of swap in the system), might this be the
problem?
If you're running low on memory, unless you're working on an
inherintly large problem, you
On Fri, Jan 19, 2007 at 03:17:19PM +0100, Bertrand Baesjou wrote:
> foreach $line () {
See, this isn't a while loop, as you have in the subject.
That is the cause of your problems.
--
Paul Johnson - [EMAIL PROTECTED]
http://www.pjcj.net
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additi
Ken Foskey wrote:
On Fri, 2007-01-19 at 13:16 +0100, Bertrand Baesjou wrote:
Hi,
I am trying to read data from a file, I do this by using the "while
(){ $line}" construction.
However with files with a size of roughly bigger than 430MB it seems to
crash the script :S Syntax seems all fi
"Johnson, Reginald (GTI)" schreef:
> I guess it
> is a good practice to use data::dumper when you are developing
> programs.
ITYM: Data::Dumper (casing matters).
--
Affijn, Ruud
"Gewoon is een tijger."
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PRO
Johnson, Reginald (GTI) am Donnerstag, 28. September 2006 22:56:
> I guess it
> is a good practice to use data::dumper when you are developing programs.
What you should always use is (as others pointed out) the lines:
use strict;
use warnings;
to improve detection of errors.
Data::Dumper is use
-Original Message-
From: D. Bolliger [mailto:[EMAIL PROTECTED]
Sent: Thursday, September 28, 2006 4:32 PM
To: beginners@perl.org
Subject: Re: Hash problem
Johnson, Reginald (GTI) am Donnerstag, 28. September 2006 21:58:
> I am doing an example from Perl Objects, References &
Johnson, Reginald (GTI) wrote:
> I am doing an example from Perl Objects, References & modules. I suspect
> many of you already use this book as a reference.
> My hash is showing the address instead of the name and I'm not sure
> why. Here is my output.
>
> this is person=>HASH(0x20040014)
> thi
Johnson, Reginald (GTI) am Donnerstag, 28. September 2006 21:58:
> I am doing an example from Perl Objects, References & modules. I suspect
> many of you already use this book as a reference.
> My hash is showing the address instead of the name and I'm not sure
> why. Here is my output.
>
> this
--- "Johnson, Reginald (GTI)" <[EMAIL PROTECTED]>
wrote:
> I am doing an example from Perl Objects, References
> & modules. I suspect
> many of you already use this book as a reference.
> My hash is showing the address instead of the name
> and I'm not sure
> why. Here is my output.
>
> this
I am doing an example from Perl Objects, References & modules. I suspect
many of you already use this book as a reference.
My hash is showing the address instead of the name and I'm not sure
why. Here is my output.
this is person=>HASH(0x20040014)
this is who=>HASH(0x20040014)
HASH(0x20040014) i
: beginners@perl.org
Subject: Hash problem
Dear Perl users,
I have some problems wih the folowing algorithm:
And now the main problem. I want to add File C, which will contain
certain names, e.g.:
Castro
John
etc.
How to modify my script to sum only those AD's from file A, which not
exists in f
Dear Perl users,
I have some problems wih the folowing algorithm:
File A:
-
ID - 001
AD - Bill
AD - Castro
AD John
ID - 002
AD - Andrew
AD - Mike
etc.
-
Then in the second file I have some values for each AD:
-
Andrew - 10
Bill - 20
John W. Krahn wrote:
Andrej Kastrin wrote:
Dear all,
Hello,
I have bar separated file:
name1|345
name2|201
...
I store it into a hash;
while () {
chomp;
($name,$score) = split (/\|/,$_);
$hash{$name} = $score;
}
Then I have second file:
ID - 001
NA - name1
NA - name2
ID - 0
Andrej Kastrin wrote:
> Dear all,
Hello,
> I have bar separated file:
> name1|345
> name2|201
> ...
>
> I store it into a hash;
> while () {
> chomp;
> ($name,$score) = split (/\|/,$_);
> $hash{$name} = $score;
> }
>
> Then I have second file:
> ID - 001
> NA - name1
> NA - name2
>
> ID
Andrej Kastrin am Montag, 30. Januar 2006 16.50:
> John Doe wrote:
> >Andrej Kastrin am Montag, 30. Januar 2006 10.14:
> >>Dear all,
> >>
> >>I have bar separated file:
> >>name1|345
> >>name2|201
> >>...
> >>
> >>I store it into a hash;
> >>while () {
> >> chomp;
> >> ($name,$score) = split (/
John Doe wrote:
Andrej Kastrin am Montag, 30. Januar 2006 10.14:
Dear all,
I have bar separated file:
name1|345
name2|201
...
I store it into a hash;
while () {
chomp;
($name,$score) = split (/\|/,$_);
$hash{$name} = $score;
}
Let's assume the resulting hash is %scores.
T
Andrej Kastrin am Montag, 30. Januar 2006 10.14:
> Dear all,
>
> I have bar separated file:
> name1|345
> name2|201
> ...
>
> I store it into a hash;
> while () {
>chomp;
>($name,$score) = split (/\|/,$_);
>$hash{$name} = $score;
> }
Let's assume the resulting hash is %scores.
> Then
Dear all,
I have bar separated file:
name1|345
name2|201
...
I store it into a hash;
while () {
chomp;
($name,$score) = split (/\|/,$_);
$hash{$name} = $score;
}
Then I have second file:
ID - 001
NA - name1
NA - name2
ID - 002
NA - name2
NA - name4
...
I match all ID's and NA's:
while
John W. Krahn schrieb:
Kevin Old wrote:
So to achieve an anonymous hash I'd have to do the following, correct?
use constant STOPWORDS => {
'a' => 1,
'about' => 1,
'above' => 1,
'across' => 1,
Shawn Corey wrote:
> John W. Krahn wrote:
>> Shawn Corey wrote:
>>> for my $key ( sort keys %{ { STOPWORDS } } ){
>>> my $value = ${ { STOPWORDS } }{$key};
>>
>>
>> In both lines you are copying the entire list to an anonymous hash.
>> If you
>> want efficient code (and less punctuation) you shou
John W. Krahn wrote:
Shawn Corey wrote:
for my $key ( sort keys %{ { STOPWORDS } } ){
my $value = ${ { STOPWORDS } }{$key};
In both lines you are copying the entire list to an anonymous hash. If you
want efficient code (and less punctuation) you should just use a hash.
Efficiency. There's
Kevin Old wrote:
> On 12/16/05, John W. Krahn <[EMAIL PROTECTED]> wrote:
>>Kevin Old wrote:
>>>On 12/16/05, John W. Krahn <[EMAIL PROTECTED]> wrote:
Kevin Old wrote:
>I'm trying to define a constant hash and have the following:
>
>use constant STOPWORDS => map { lc $_ , 1 } qw(
On 12/16/05, John W. Krahn <[EMAIL PROTECTED]> wrote:
> Kevin Old wrote:
> > On 12/16/05, John W. Krahn <[EMAIL PROTECTED]> wrote:
> >>Kevin Old wrote:
> >>
> >>>I'm trying to define a constant hash and have the following:
> >>>
> >>>use constant STOPWORDS => map { lc $_ , 1 } qw(a about above acro
Shawn Corey wrote:
> John W. Krahn wrote:
>> You can't because perl implements constants using subroutines and
>> subroutines
>> can only return a list.
>
> Perl subroutines return only lists but it converts them to hashes
> automatically:
>
> #!/usr/bin/perl
>
> use strict;
> use warnings;
>
>
John W. Krahn wrote:
You can't because perl implements constants using subroutines and subroutines
can only return a list.
Perl subroutines return only lists but it converts them to hashes
automatically:
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
sub list_to_hash {
retu
Kevin Old wrote:
> On 12/16/05, John W. Krahn <[EMAIL PROTECTED]> wrote:
>>Kevin Old wrote:
>>
>>>I'm trying to define a constant hash and have the following:
>>>
>>>use constant STOPWORDS => map { lc $_ , 1 } qw(a about above across adj
>>>after);
>>>
>>>I do not get a hash from this.
>>You are d
On 12/16/05, John W. Krahn <[EMAIL PROTECTED]> wrote:
> Kevin Old wrote:
> > Hello everyone,
>
> Hello,
>
> > I'm trying to define a constant hash and have the following:
> >
> > use constant STOPWORDS => map { lc $_ , 1 } qw(a about above across adj
> > after);
> >
> > I do not get a hash from th
Kevin Old wrote:
> Hello everyone,
Hello,
> I'm trying to define a constant hash and have the following:
>
> use constant STOPWORDS => map { lc $_ , 1 } qw(a about above across adj
> after);
>
> I do not get a hash from this.
You are defining STOPWORDS as a list.
> This does work, however:
>
Kevin Old wrote:
> Hello everyone,
>
> I'm trying to define a constant hash and have the following:
>
> use constant STOPWORDS => map { lc $_ , 1 } qw(a about above across adj
> after);
>
> I do not get a hash from this.
>
> This does work, however:
>
> my %stopwords = map { lc $_ , 1 } qw(a
Hello everyone,
I'm trying to define a constant hash and have the following:
use constant STOPWORDS => map { lc $_ , 1 } qw(a about above across adj after);
I do not get a hash from this.
This does work, however:
my %stopwords = map { lc $_ , 1 } qw(a about above across adj after);
use constan
On Sep 23, Ryan Frantz said:
From: Jeff 'japhy' Pinyan [mailto:[EMAIL PROTECTED]
foreach my $process (in $sobj->InstancesOf("Win32_LogicalDisk")) {
next if $ignoreDriveTypes{ $process->{DriveType} };
So this would evaluate to true if $process->{DriveType} matches a key in
the hash?
It wo
Ryan Frantz wrote:
> Perlers,
Hello,
> I'm working on a small script that checks the free space on local fixed
> drives on my system. Since there other drive types (i.e. floppy,
> CD-ROM, network maps) I want to exclude those. I decided to use a hash
> but the script still displays all of the d
> -Original Message-
> From: Jeff 'japhy' Pinyan [mailto:[EMAIL PROTECTED]
> Sent: Friday, September 23, 2005 3:45 PM
> To: Ryan Frantz
> Cc: beginners perl
> Subject: Re: Hash Problem
>
> On Sep 23, Ryan Frantz said:
>
> > I'm working
On Sep 23, Ryan Frantz said:
I'm working on a small script that checks the free space on local fixed
drives on my system. Since there other drive types (i.e. floppy,
CD-ROM, network maps) I want to exclude those. I decided to use a hash
but the script still displays all of the drives on my sys
> -Original Message-
> From: Bakken, Luke [mailto:[EMAIL PROTECTED]
> Sent: Friday, September 23, 2005 3:26 PM
> To: Ryan Frantz
> Subject: RE: Hash Problem
>
> Ryan Frantz wrote:
>
> > my %ignoreDriveTypes = (
> > 'floppy' => &
Perlers,
I'm working on a small script that checks the free space on local fixed
drives on my system. Since there other drive types (i.e. floppy,
CD-ROM, network maps) I want to exclude those. I decided to use a hash
but the script still displays all of the drives on my system. If I just
use si
Brent Clark am Montag, 1. August 2005 16.42:
> Hi list
>
> I have my data as so (Thanks to Data::Dumper)
>
> 'Grac01' => {
> 'StndRm' => 'Standard Room',
> 'Suite' => 'Suite',
> 'Pent' => 'Penthouse'
>
Hi list
I have my data as so (Thanks to Data::Dumper)
'Grac01' => {
'StndRm' => 'Standard Room',
'Suite' => 'Suite',
'Pent' => 'Penthouse'
},
My code is as so.
foreach my $roomCode ( keys %{ $ref_hash
> Dave, I've got some more code here that should explain exactly what I'm
> trying to do, what do you think of the structure? As you can probably tell
> I'm having problems accessing the keys and values from a tied hash, any
> ideas how I can get the keys and the values printed to the screen?
>
>
I'm kind of lost as to what you're actually trying to do. Instead of
posting functions with nothing calling them, you should include a code
snippet (as simple as possible) that can be run to demonstrate the
problem. Preferably not using those functions. Fix one thing at a
time.
With that said, thi
HI all, I have a function which is tying a hash and when I pass it to
another function I want to be able to get the values of the hash in the
order they were set in, how would I do this?
Here's the function with the hash:
sub get_users_table_a
Randy W. Sims wrote:
Mike Blezien wrote:
Hello,
I'm working on settup a hash something like this:
my $catid = 'A';
my(%conf);
$conf{cat} = {
A => (
["15.00","Three months(90days)","90"],
["30.00","Six months(180 days)","180"],
Mike Blezien wrote:
Hello,
I'm working on settup a hash something like this:
my $catid = 'A';
my(%conf);
$conf{cat} = {
A => (
["15.00","Three months(90days)","90"],
["30.00","Six months(180 days)","180"],
["4
Hello,
I'm working on settup a hash something like this:
my $catid = 'A';
my(%conf);
$conf{cat} = {
A => (
["15.00","Three months(90days)","90"],
["30.00","Six months(180 days)","180"],
["45.00","Nine months(2
On Sep 6, John W. Krahn said:
>> map { $_, delete $myhash{$_} } grep /^1\D/, keys %myhash;
>
>Very good Gunnar! But the regexp may not work in all cases.
>
>my %myNEWhash = map { $_, delete $myhash{$_} } grep /^1(?:\D|$)/, keys %myhash;
That regex can also be written as /^1(?!\d)/, which r
Gunnar Hjalmarsson wrote:
Edward WIJAYA wrote:
Just thought whether it is possible to do
it with "map" function? Make it into one-liner?
It is.
my %myNEWhash =
map { $_, delete $myhash{$_} } grep /^1\D/, keys %myhash;
Very good Gunnar! But the regexp may not work in all cases.
my %myNEW
Edward WIJAYA wrote:
Just thought whether it is possible to do
it with "map" function? Make it into one-liner?
It is.
my %myNEWhash =
map { $_, delete $myhash{$_} } grep /^1\D/, keys %myhash;
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
--
To unsubscribe, e-mail: [
Hi,
Thanks so much for the replies.
If you literally mean "starts with '1'", i.e., you don't know
any more about the key,
Yes I literally mean "1" not "10", "100", etc.
Just thought whether it is possible to do
it with "map" function? Make it into one-liner?
then first you must find the key, or
us
Edward WIJAYA <[EMAIL PROTECTED]> asked:
> How can I take out/splice(?) the element of that hash that
> start with '1' and store it into another hash. So in the end
> I will have two hashes:
Off the top of my head, I'd say
my @temp = grep /^1/, keys %myhash;
my %myNEWhash;
foreach my $k (@temp)
In article <[EMAIL PROTECTED]>,
[EMAIL PROTECTED] (Edward WIJAYA) writes:
>Hi,
>
>If I have this hash:
>
>%myhash = {
> '4 atc' => 'TGCGCatcGA',
> '5 ctg' => 'AGctgTGTTT',
> '3 NO MOTIF' => 'TCCGTGCGCT',
> '1 NO MOTIF' => 'ATGGTTAGGG', #need to splice this
>
On Sep 7, 2004, at 3:15 AM, Edward WIJAYA wrote:
How can I take out/splice(?) the element of that hash
that start with '1' and store it into another
hash. So in the end I will have two hashes:
%myNEWhash = { '1 NO MOTIF' => 'ATGGTTAGGG'};
and the current becomes:
%myhash = {
'4 atc' => '
Hi,
If I have this hash:
%myhash = {
'4 atc' => 'TGCGCatcGA',
'5 ctg' => 'AGctgTGTTT',
'3 NO MOTIF' => 'TCCGTGCGCT',
'1 NO MOTIF' => 'ATGGTTAGGG', #need to splice this
'2 caa' => 'GAAGcaaGGC'
};
How can I take out/splice(?) the element of th
s
why it was showing up as a hash.
-Original Message-
From: R. Joseph Newton [mailto:[EMAIL PROTECTED]
Sent: Saturday, November 22, 2003 1:26 PM
To: Tim Johnson
Cc: Beginners List
Subject: Re: OLE Hash problem getting AD lastLogon
Tim Johnson wrote:
> I'm having trouble getting
Tim Johnson wrote:
> I'm having trouble getting the lastLogon property of a user in AD using
> Perl and LDAP. Below is my code. The problem is that I keep getting a
> blessed Win32::OLE hash returned instead of a number when returning the
> value of lastLogon.
This is the first issue, and it lo
Okay, this was such a pain in the buttocks that I decided to post the
"final" code. (I'll tweak it a bit later, but this is functional) My
apologies to someone, I found the pack(),unpack() part on the Internet,
and I'm not sure who the original author is.
###
Okay, I made it one step further. I had to convert the variable to a
VT_R8 variable. Now I can't seem to find any documentation on how this
relates to the date. I guess from here on out it's a Microsoft, not a
Perl question, but I'll post the code I have so far, because I know
others have run
I'm having trouble getting the lastLogon property of a user in AD using
Perl and LDAP. Below is my code. The problem is that I keep getting a
blessed Win32::OLE hash returned instead of a number when returning the
value of lastLogon. The "hash" has no keys, so I think this might be a
mismapping
Eric Walker wrote:
> I have a check I am doing with a hash.
>
> if (exists $deref{$drcrule})
>
>
> This check fails as if the keyvalue is a part of the hash, but when I
> print out the keys like this
> foreach my $item (%{$deref}){
> print "$item\n";
> }
>
> And it is not in the list. I ran
--
From: Eric Walker [mailto:[EMAIL PROTECTED]
Sent: Friday, June 20, 2003 2:39 PM
To: perlgroup
Subject: HASH PROBLEM!!
I have a check I am doing with a hash.
if (exists $deref{$drcrule})
This check fails as if the keyvalue is a part of the hash, but when I
print out the keys like this
for
I have a check I am doing with a hash.
if (exists $deref{$drcrule})
This check fails as if the keyvalue is a part of the hash, but when I
print out the keys like this
foreach my $item (%{$deref}){
print "$item\n";
}
And it is not in the list. I ran this on a previous data that had this
in
On Jul 15, Connie Chan said:
>> >## params.pl in /lib/ ##
>> >my $lib{root} = 'C:/myLib/'; my $rt = $lib{root};
>> >my $lib{char_maps} = $rt."chinese/gbb5.map";
>> >my $lib{gb_map} = $rt."chinese/gb.map";
>> >
>> >my $lib{temp} = $rt."temp/";
>>
>> Warning: you cannot my() a subscript.
>>
> >## params.pl in /lib/ ##
> >my $lib{root} = 'C:/myLib/'; my $rt = $lib{root};
> >my $lib{char_maps} = $rt."chinese/gbb5.map";
> >my $lib{gb_map} = $rt."chinese/gb.map";
> >
> >my $lib{temp} = $rt."temp/";
>
> Warning: you cannot my() a subscript.
>
> my $foo[$i]; # is a syntax error
> -Original Message-
> From: Connie Chan [mailto:[EMAIL PROTECTED]]
> Sent: Monday, July 15, 2002 10:30 AM
> To: Bob Showalter; [EMAIL PROTECTED]
> Subject: Re: our %hash problem when require
>
>
> > The "our" declaration is for the current file on
On Jul 15, Connie Chan said:
>>1
>Hehe... I forgot the 1; again , but I do have this in my code. =)
>
>> my $ref = \%lib1::abc;
>How about if I don't package it ? and hopefully just make it looks
>like %ENV ? For my case in real , that's something like this :
>
>## params.pl in /lib/ ##
>my $lib{
> The "our" declaration is for the current file only, so you need
> "our" in Script 1.
O seems I am hopeness...
> $a is a "special" variable (used in sort blocks), so it gets a
> "free pass" from use strict, just like all the other special
> variables ($_, $/, etc.).
Was you the guy tol
On Jul 15, Connie Chan said:
>### Lib 1 ###
>use strict;
>our %abc;
>$abc{a} = 1;
>$abc{b} = 2;
>### EOF Lib 1 ###
>
>### Lib 2 ###
>use strict;
>our $a = "ME";
>### EOF Lib 2 ###
You've made the mistake of using $a (or $b) as a variable name. These two
variables are protected from use strict '
>1
Hehe... I forgot the 1; again , but I do have this in my code. =)
> my $ref = \%lib1::abc;
How about if I don't package it ? and hopefully just make it looks
like %ENV ? For my case in real , that's something like this :
## params.pl in /lib/ ##
my $lib{root} = 'C:/myLib/'; my $rt = $lib{ro
> -Original Message-
> From: Connie Chan [mailto:[EMAIL PROTECTED]]
> Sent: Monday, July 15, 2002 9:28 AM
> To: [EMAIL PROTECTED]
> Subject: our %hash problem when require
>
>
> Some days ago, I've interested in the using of 'our' var,
> how
On Monday, July 15, 2002, at 06:27 , Connie Chan wrote:
> Some days ago, I've interested in the using of 'our' var,
> however, I do have some problem on using this with require.
part of what is going on here, is essentially the transition
model from how things were 'possible' in perl4 - before
Some days ago, I've interested in the using of 'our' var,
however, I do have some problem on using this with require.
### Lib 1 ###
use strict;
our %abc;
$abc{a} = 1;
$abc{b} = 2;
### EOF Lib 1 ###
### Lib 2 ###
use strict;
our $a = "ME";
### EOF Lib 2 ###
### Script 1 ###
use strict;
eval
82 matches
Mail list logo
