Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: Question regarding perl subroutine

by davies (Parson)
on Jul 15, 2012 at 20:38 UTC ( #981924=note: print w/replies, xml ) Need Help??


in reply to Question regarding perl subroutine

Have a look at the line my $log = "". There's no trailing semicolon. The current poll (My most common answer to a question about Perl is:) is relevant.

Regards,

John Davies

Replies are listed 'Best First'.
Re^2: Question regarding perl subroutine
by sureshsmr (Initiate) on Jul 15, 2012 at 21:07 UTC

    Hi John Davies, Thanks a lot! That was good catch. Now I am getting a different error as below:

    /usr/local/bin/perl PtfSapGetSyncStg.pl Can't call method "agent" on an undefined value at PtfSapGetSyncStg.pl + line 158.

    Here is the code on line 158:

    my $ua->agent("Mozilla/5.0"); #my $ua->agent("");

    is the syntax for calling "agent" method ok? I am not sure what tool is on our unix server. Any suggestions ? Thanks Suresh

      $ua is not what you think. It is undefined, probably because the code above lacks error checks. See Basic debugging checklist.

      Alexander

      --
      Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)

      No, that syntax cannot be right. Looking at the code you posted originally, I see:

      my $ua= new LWP::UserAgent; #my $ua->agent("Mozilla/5.0"); my $ua->agent("");

      You seem to be trying to use strict;, which is good (see my home node), but without understanding what it does. PerlIntro (http://perldoc.perl.org/perlintro.html#Variable-scoping) has a section on variable scoping that it might help you to understand. my creates a new instance of a variable. You may have seen examples of messages telling you that a declaration masks a previous declaration. This is telling you that you have re-initialised a variable name, which is unlikely to be what you want. I think what you want is something like:

      my $ua= new LWP::UserAgent; $ua->agent("Mozilla/5.0");

      but as I don't even know what LWP is, this is a pretty wild guess. http://search.cpan.org/~gaas/libwww-perl-6.04/lib/LWP/UserAgent.pm might be another good read.

      Regards,

      John Davies

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://981924]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (6)
As of 2016-10-01 19:56 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?






    Results (7 votes). Check out past polls.