Sponsored Content
Homework and Emergencies Emergency UNIX and Linux Support Perl - Retrieving and Printing Security Token Post 302542572 by radoulov on Thursday 28th of July 2011 03:47:12 AM
Old 07-28-2011
You're script seems to work for me - I've just tested it with The UNIX and Linux Forums - Learn UNIX and Linux from Experts, it printed out the security-id. If it still doesn't work for you, try to print and post the content of the variable $content:


Code:
my $content = $ua->get("$url/index.php")->content;

print $content, "\n";

 

8 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl printing error

Hi Scripting Gurus, I am new bee in perl, and trying to write a script which must print the free disk space availability of C and E drives. Please advice. Here is the script snippet and expected output: #!/usr/bin/perl use CGI qw/:html3 :standard/; $spaceuselog =... (4 Replies)
Discussion started by: ccsaviour
4 Replies

2. Shell Programming and Scripting

Need help in printing a sql query in perl

Hi All, I have the following sql query select abcd from udbadm.log where xyz='1'. I have 16k queries similar to this with different values for xyz. I want to print the values of 'abcd' for each row. I have the following perl code, but not sure how i can print that particular... (1 Reply)
Discussion started by: userscript
1 Replies

3. Shell Programming and Scripting

[Perl] Printing - Scalars

Hey Guys, I have some weird problem with printing scalars ... When I'm executing script both are printing in terminal ... But only one is printed to the file ? I don't know whats going on .. :) Btw .. I'm noobie :) took me lots of time to put this simple script together :) Thank you... (3 Replies)
Discussion started by: NDxiak
3 Replies

4. Shell Programming and Scripting

Printing between 2 matches with Perl

Can we please modify this perl one-liner to print lines between pattern1 and pattern2 in a file? Currently it prints lines till pattern2. (4 Replies)
Discussion started by: anand_bh
4 Replies

5. Shell Programming and Scripting

Q:Perl Extracting & Printing Security Token

I have a script which is supposed to log in to my vB account and print my security token, however doesn't seem to work globally. The logging in works perfectly just will not retrieve and print the security token for every forum I log in to. Code Below: #!/usr/bin/perl use LWP::UserAgent; ... (8 Replies)
Discussion started by: AndrewTwain
8 Replies

6. Shell Programming and Scripting

Perl: selective printing of lines

Hi, I have a file with lines like this. 2 7 18 ggcgt anna 2 7 18 hhchc sam 3 7 18 hhdjcc ross 4 7 18 hhcjd jenny 0 8 21 jjdhs sam 3 8 21 kkok bush 2 9 24 kosss BrenhamIf the values of the second column are equal, print only those lines with the least first column value. So in... (5 Replies)
Discussion started by: polsum
5 Replies

7. Shell Programming and Scripting

help with perl database printing

Hey guys i am using perl and trying to pull a list of books from a database and then populate the list in a separate TT2 file. When the list is generated there should be 39 book names. When I do the foreach statement in my tt2 below, the first statement gives me 39 Array(random number) and the... (1 Reply)
Discussion started by: Joey12
1 Replies

8. Forum Support Area for Unregistered Users & Account Problems

Security Token

I got this message while submitting a reply to a thread. I could submitt the replies till yesterday but today it shows me the following message "Your submission could not be processed because a security token was missing." What should I do to resolve this? (1 Reply)
Discussion started by: Akang
1 Replies
Arch::LiteWeb(3pm)					User Contributed Perl Documentation					Arch::LiteWeb(3pm)

NAME
Arch::LiteWeb - simple way to access web pages SYNOPSIS
my $web = Arch::LiteWeb->new; my $content = $web->get("http://some.domain:81/some/path"); die $web->error . " while processing " . $web->request_url unless $content; my $content_type = $web->response_headers->{content_type}; DESCRIPTION
This class provides a basic and easy to use support for the client-side HTTP. It is supplied in order to avoid dependency on LWP. If such dependency is not a problem, consider to use LWP instead that provides much better support for HTTP and other protocols. METHODS
The following class methods are available: get, post, request_url, error, error_with_url, network_error, response_code, response_codestr, response_error, response_headers, response_content. get url [params ...] Execute HTTP get of the given url and return the html string or undef on network/response error. Use other methods to get the details about the error and the response. params is key-value hash, the following keys are supported: url_host - only used if url is none url_port - only used if url is none(80) url_path - only used if url is none endl - default is "1512" timeout - default is 20 seconds user_agent - default is "Arch::LiteWeb/0.1" nocache - add a no-cache header noredirect - don't follow redirect responses max_redirect_depth - default is 5 use_proxy - default is false proxy_url - proxy url ($http_proxy supported too) proxy_host - only used if proxy_url is none proxy_port - only used if proxy_url is none(80) post url input [params] Not implemented yet. request_url Actual url of the last issued request or undef. If partial redirect responses are enabled, then the result is the last (non-redirect) url. error If the last request resulted in error (i.e. get/post returned undef), then this method returns the error message, otherwise it returns undef. This is just a shortcut for network_error || response_error. error_with_url Like error, but with " while fetching request_url " text appended if non undef. network_error The network error message for the last request or undef. response_error The response error message for the last request or undef. response_code The last response code (integer) or undef. response_codestr The last response code (string) or undef. response_headers The last response headers (hashref of HTTP headers) or undef. response_content The last response content or undef. This is the same thing that the last get/post returns. BUGS
Not intended for use in mission-critical applications. AUTHORS
Mikhael Goikhman (migo@homemail.com--Perl-GPL/arch-perl--devel). SEE ALSO
For more information, see LWP, LWP::Simple. perl v5.10.1 2005-03-25 Arch::LiteWeb(3pm)
All times are GMT -4. The time now is 04:38 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy