simonodell1 has asked for the wisdom of the Perl Monks concerning the following question: 

  $attitude = "humble";
  require PerlGOD::Knowledge;
  print "master, I beesech your wisdom";

[download]

I need a little help using Universal::Require.

here is a snippet of code which works...


my $url = 'http://www.perl.com';
 
use LWP::Simple;        
              
my $content = get $url;
die "Couldn't get $url" unless defined $content;
print "retrieved,  $content";

[download]

I tried to use the LWP::Simple module through universal require thusly;


require UNIVERSAL::require;

my $url = 'http://www.perl.com';
    
my $module = 'LWP::Simple';

my $return_val = $module->use or die $@;
              
my $content = get $url;
die "Couldn't get $url" unless defined $content;
print "retrieved :: $content";

[download]

But it doesnt work :/ erm... what am i doing wrong?


for (1..*) { $thank = "PerlGOD"; }

[download]

Replies are listed 'Best First'.
Re: Universal Require
by gloryhack (Deacon) on Apr 13, 2007 at 08:54 UTC

    If you haven't tried it yet, add this to the top of your code:

      use strict;
  use diagnostics;

    [download]

    What you should then see when you run your code:

    Can't locate UNIVERSAL/require.pm in @INC (@INC contains: ...
BEGIN failed--compilation aborted at wtf.pl line 9 (#1)
    (F) You said to do (or require, or use) a file that couldn't be
    found. Perl looks for the file in all the locations mentioned in @
+INC,
    unless the file name included the full path to the file.  Perhaps 
+you
    need to set the PERL5LIB or PERL5OPT environment variable to say w
+here
    the extra library is, or maybe the script needs to add the library
+ name
    to @INC.  Or maybe you just misspelled the name of the file.  See
    perlfunc/require and lib.

    [download]

    perl will help you, if you'll let it. It will take some time to get your head wrapped around the warnings so you'll know what they're telling you/what to look for. Once you've got a good feel for it, you can keep the screen clutter down by switching from the diagnostics pragma to the warnings pragma.

    Good on ya for the effort!

[reply]
[d/l]
[select]

      thanks gh, i'll bear that in mind for future ref..

      as for the prob i got it working, all it needed was ;

      my $content = get $url;

changing to 

my $content = get($url);

      [download]

      doh!

      aXML now has a new plugin called <geturl> :) :)

      Read more... geturl plugin code (426 Bytes)
[reply]
[d/l]
[select]
        as for the prob i got it working, all it needed was ; 
        my $content = get $url;

changing to 

my $content = get($url);

        [download]

        Really? I find that hard to believe:

        Update: I stand corrected. Had not really understood what the issue was about, out of only reading superficially. Shame on me! Rest of post fundamentally irrelevant now.

        Read more... (2 kB)

        and

        Read more... (447 Bytes)
[reply]
[d/l]
[select]

Back to Seekers of Perl Wisdom