Still getting the same problem, name requires explicit package name.
#!/usr/bin/perl -wT
use strict;
use Data::Dumper;
use CGI qw( :standard );
print header ( "text/html" );
my $hash_ref = do ( 'fried.dat' ) || die "error: unable to open
fried.txt\n";
print Dumper $hash_ref;
print <<"EndOfHTML";
our($name); chicken
EndOfHTML
fried.dat:
{
name => 'fried'
}
----- Original Message -----
From: "Nikola Janceski" <[EMAIL PROTECTED]>
To: "'Kyle Babich'" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Cc: "beginners-cgi" <[EMAIL PROTECTED]>
Sent: Wednesday, July 03, 2002 9:25 AM
Subject: RE: 2 Questions
> scoping!!! my only scopes the end of the file!
>
> so my in fried.dat is scoped only in fried.dat.
>
> use our($name);
>
> > -----Original Message-----
> > From: Kyle Babich [mailto:[EMAIL PROTECTED]]
> > Sent: Wednesday, July 03, 2002 9:19 AM
> > To: [EMAIL PROTECTED]
> > Cc: beginners-cgi
> > Subject: Re: 2 Questions
> >
> >
> > I'm still getting the $name requires explicit package name.
> >
> > Here is what I have in index.pl
> >
> > #!/usr/bin/perl -wT
> > use strict;
> > use Data::Dumper;
> > use CGI qw( :standard );
> >
> > print header ( "text/html" );
> >
> > my $hash_ref = do ( 'fried.dat' ) || die "error: unable to open
> > fried.txt\n";
> > print Dumper $hash_ref;
> >
> > print <<"EndOfHTML";
> >
> > $name chicken
> >
> > EndOfHTML
> >
> >
> > And here is what I have in fried.dat
> >
> > {
> > name => 'fried'
> > }
> >
> >
> > I have both chmod'd to 755. What is wrong with it?
> >
> > On Tue, 2 Jul 2002 17:16:00 -0700 (PDT), "Ovid" <[EMAIL PROTECTED]> said:
> > > --- Kyle Babich <[EMAIL PROTECTED]> wrote:
> > > > How can I import scalars, arrays, etc. from external perl and text
> > > > files?
> > > >
> > > > This is what I have in index.pl:
> > > >
> > > > #!/usr/local/bin/perl -wT
> > > > use strict;
> > > > use CGI qw/ :standard /;
> > > >
> > > > print header ( 'text/html' );
> > > >
> > > > open(TEXT,"<fried.txt") or die ("error: fried.txt failed\n");
> > > > while(<TEXT>) {
> > > > print;
> > > > }
> > > > close(TEXT) or die("error: fried.txt failed\n");
> > > >
> > > > print "$name chicken";
> > > >
> > > > And this is what I have in fried.txt:
> > > >
> > > > my $name = "chicken";
> > > >
> > > > So why doesn't it work?
> > >
> > > --- Kyle Babich <[EMAIL PROTECTED]> wrote:
> > > > How can I import scalars, arrays, etc. from external perl and text
> > > > files?
> > > >
> > > > This is what I have in index.pl:
> > > >
> > > > #!/usr/local/bin/perl -wT
> > > > use strict;
> > > > use CGI qw/ :standard /;
> > > >
> > > > print header ( 'text/html' );
> > > >
> > > > open(TEXT,"<fried.txt") or die ("error: fried.txt failed\n");
> > > > while(<TEXT>) {
> > > > print;
> > > > }
> > > > close(TEXT) or die("error: fried.txt failed\n");
> > > >
> > > > print "$name chicken";
> > > >
> > > > And this is what I have in fried.txt:
> > > >
> > > > my $name = "chicken";
> > > >
> > > > So why doesn't it work?
> > >
> > > When declaring variables with 'my', you wind up lexically
> > scoping them.
> > > This is "file" scoped,
> > > however, so a lexically scoped variable in another file is not
> > > accessible to you.
> > >
> > > One easy (and kind of simplistic) way of getting around
> > this is to have
> > > your variables in the
> > > second file in a hash ref. Add the following to a file named
> > > "test.dat":
> > >
> > > {
> > > one => 'uno',
> > > two => 'dos'
> > > }
> > >
> > > Then, in the same directory, create and run the following program:
> > >
> > > #!/usr/bin/perl -w
> > > use strict;
> > > use Data::Dumper;
> > >
> > > my $hash_ref = do ( 'test.dat' ) or die "Cannot open
> > test.dat: $!";
> > > print Dumper $hash_ref;
> > >
> > > The above form of 'do' is a special form that "evals" the
> > contents of
> > > the file. The last thing
> > > returned from the eval is the last results of the last expression
> > > evaluated, in this case, a hash
> > > reference. Be careful with this technique, though. If someone else
> > > can alter the contents of
> > > 'test.dat', you could be eval'ing unsafe code.
> > >
> > > Cheers,
> > > Curtis "Ovid" Poe
> > >
> > > =====
> > > "Ovid" on http://www.perlmonks.org/
> > > Someone asked me how to count to 10 in Perl:
> > > push@A,$_ for reverse
> > q.e...q.n.;for(@A){$_=unpack(q|c|,$_);@a=split//;
> > > shift@a;shift@a if $a[$[]eq$[;$_=join q||,@a};print
> > $_,$/for reverse @A
> > >
> > > __________________________________________________
> > > Do You Yahoo!?
> > > Sign up for SBC Yahoo! Dial - First Month Free
> > > http://sbc.yahoo.com
> > >
> > >
> > >
> > >
> >
> > --
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
> >
>
> --------------------------------------------------------------------------
--
> --------------------
> The views and opinions expressed in this email message are the sender's
> own, and do not necessarily represent the views and opinions of Summit
> Systems Inc.
>
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
