[28519] in Perl-Users-Digest
Perl-Users Digest, Issue: 9883 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Oct 24 03:05:55 2006
Date: Tue, 24 Oct 2006 00:05:08 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 24 Oct 2006 Volume: 10 Number: 9883
Today's topics:
Automatic login to a web page <jagjeet.malhi@gmail.com>
Re: Automatic login to a web page usenet@DavidFilmer.com
c like structure in Perl adarsh.hrbr@gmail.com
Re: Can't find string terminator ... <softouch@softouch.on.ca>
Re: FAQ 3.3 Is there a Perl shell? <m@remove.this.part.rtij.nl>
Re: HTML::Mason scripts coming up as plain text on apac <tadmc@augustmail.com>
Re: LWP and Javascript -- Not The Same Old Question <tadmc@augustmail.com>
new CPAN modules on Tue Oct 24 2006 (Randal Schwartz)
New module XML::Traverse::ParseTree <martin.busik@busik.de>
Re: Scripting an EXE <JKGambhir@gmail.com>
Re: Scripting an EXE <josef.moellers@fujitsu-siemens.com>
Re: Soap Server in perl <kunanu@gmail.com>
Re: Why I no longer use Perl <brian.d.foy@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 23 Oct 2006 23:32:29 -0700
From: "Jagjeet_Singh" <jagjeet.malhi@gmail.com>
Subject: Automatic login to a web page
Message-Id: <1161671549.450064.177920@i3g2000cwc.googlegroups.com>
Hi All,
I am new to perl and do not have any idea about this language.
I need your help to solve my problem.
I have internet access on my desktop but each time my machine got
rebooted I need to log-in on
my ISP web's page by providing username,password and submit the button.
Some one told me that we can do this automatically using perl and use
of "LWP::Useragent"
and getcredential () module.
But I do not know perl, If this code is really small, can anyone post
it ..
Or if it takes time to write this then please provide me some from
where I can learn something to write this code.
I know I am fully expecting from others, But I would be really helpfull
if someone can do this for me.
like -- I use this url " http://my_isp_ip_address/indexmail.php" and
there are only 3 fields.
1 -- text box for username
2 -- text box for password
3 -- "Submit" button
Regards,
------------------------------
Date: 23 Oct 2006 23:47:24 -0700
From: usenet@DavidFilmer.com
Subject: Re: Automatic login to a web page
Message-Id: <1161672444.322356.20450@k70g2000cwa.googlegroups.com>
Jagjeet_Singh wrote:
> [ a question about automating browser logins]
To CLPMisc: At first, when I read the OP's question, I thought, "no
way," but I got to wondering...
Would it be possible to use WWW::Mechanize (via a program in the
startup group) to obtain a cookie and put it in a directory which just
happened to also be the browser's cookie jar, and thus have the session
pre-authenticated when the browser starts up? That would be kinda
cool...
--
David Filmer (http://DavidFilmer.com)
------------------------------
Date: 23 Oct 2006 21:57:08 -0700
From: adarsh.hrbr@gmail.com
Subject: c like structure in Perl
Message-Id: <1161665828.241829.230400@i42g2000cwa.googlegroups.com>
Hi all,
I have written a socket program whose Client is in Perl and the
Server is in C. To some extent I was successful in obtaining the data
and printing the same. But my server (UDP ) has some structures . The
data pertaining to these structures are to be communicated from the
Perl client. I thought using hash in Perl could be to solution, but
what I am sceptical about is; will I be able to typecast the same in c
to obtain the data?
Below is a structure in c which I want to type cast. Can somebody
suggest a method to define this in Perl so that I can typecaste the
same in my Server to obtain the data.
typedef struct {
uint8 Reserved;
uint32 ipaddr;
uint32 netmask;
uint16 command;
} sample;
uint - unsigned int type - 8,16 and 32 bytes - in length
------------------------------
Date: Mon, 23 Oct 2006 19:01:19 -0400
From: Amer Neely <softouch@softouch.on.ca>
Subject: Re: Can't find string terminator ...
Message-Id: <SQb%g.172875$sS1.156628@read1.cgocable.net>
Amer Neely wrote:
> Tintin wrote:
>> "Trudge" <trudge@softouch.on.ca> wrote in message
>> news:1161631450.832297.271190@h48g2000cwc.googlegroups.com...
>>> This is driving me crazy. I've been programming Perl for several years,
>>> and love the 'here' document capability. I know how it works, and use
>>> it in almost every script I write. I've done the Google group search
>>> and read most of the postings, but no answers to my particular problem.
>>>
>>> My development environment is Windows 2000 Pro, running Apache (1.3.29
>>> and 2.0.52) and ActiveState Perl 5.x. I've been developing under this
>>> scenario for a couple of years. I use TextPad as my editor. I haven't
>>> made any changes to anything in the environment. Most of my scripts end
>>> up on *nix boxes, and they all work just fine there.
>>>
>>> Lately I noticed this on my home machine when running a test script:
>>> Can't find string terminator "EndOfText" anywhere before EOF at test.pl
>>> line 12 (#1)
>>> (F) Perl strings can stretch over multiple lines. This message
>>> means
>>> that the closing delimiter was omitted. Because bracketed quotes
>>> count
>>> nesting levels, the following is missing its final parenthesis:
>>>
>>> print q(The character '(' starts a side comment.);
>>>
>>> If you're getting this error from a here-document, you may have
>>> included
>>> unseen whitespace before or after your closing tag. A good
>>> programmer's
>>> editor will have a way to help you find these characters.
>>>
>>> Uncaught exception from user code:
>>> Can't find string terminator "EndOfText" anywhere before EOF at
>>> test.pl line 12.
>>> at test.pl line 12
>>>
>>> Here's the code:
>>> #! /usr/bin/perl -w
>>> BEGIN
>>> {
>>> open (STDERR,">>$0-err.txt");
>>> print STDERR "\n",scalar localtime,"\n";
>>> }
>>>
>>> use diagnostics;
>>>
>>> print "Content-type:text/plain\n\n";
>>>
>>> print <<EndOfText;
>>> Why doesn't this work?
>>> EndOfText
>>>
>>> I've checked this for syntax umpteen times and can't find anything
>>> wrong. There is a hard-return after 'EndOfText' and it is at the left
>>> margin. I run it through the server in a browser window and from the
>>> command line, but still get the same result.
>>>
>>> It's like an EOF character is buried in there somewhere. Which leads me
>>> to wonder if TextPad has been corrupted to save files in a funky format
>>> or something.
>>
>> What is the hex or octal output of those last 3 lines?
>
> Hmmm. This is interesting. I loaded the file as a binary into TextPad,
> and there is 0D 0D 0A after the final 't'. So an extra line-feed seems
> to have crept in there.
>
> Good call :) Now to fix the bloody problem.
>
Well, I've solved the problem, but it is the weirdest thing I've seen.
In TextPad my default font was verdana. I switched that to courier. Then
copied the code from my test.pl file. Deleted that file, then into a new
file I pasted the code, but now in the new font. Voila. Unbelievable but
true.
--
Amer Neely
w: www.softouch.on.ca/
b: www.softouch.on.ca/blog/
v: 705.223.3539
Perl | MySQL programming for all data entry forms.
"We make web sites work!"
------------------------------
Date: Tue, 24 Oct 2006 08:39:21 +0200
From: Martijn Lievaart <m@remove.this.part.rtij.nl>
Subject: Re: FAQ 3.3 Is there a Perl shell?
Message-Id: <pan.2006.10.24.06.39.19.863347@remove.this.part.rtij.nl>
On Mon, 23 Oct 2006 12:03:02 -0700, PerlFAQ Server wrote:
> This is an excerpt from the latest version perlfaq3.pod, which
> comes with the standard Perl distribution. These postings aim to
> reduce the number of repeated questions as well as allow the community
> to review and update the answers. The latest version of the complete
> perlfaq is at http://faq.perl.org .
>
> --------------------------------------------------------------------
>
> 3.3: Is there a Perl shell?
>
> The psh (Perl sh) is currently at version 1.8. The Perl Shell is a shell
> that combines the interactive nature of a Unix shell with the power of
> Perl. The goal is a full featured shell that behaves as expected for
> normal shell activity and uses Perl syntax and functionality for
> control-flow statements and other things. You can get psh at
> http://sourceforge.net/projects/psh/ .
This seems a dead project.
>
> Zoidberg is a similar project and provides a shell written in perl,
> configured in perl and operated in perl. It is intended as a login shell
> and development environment. It can be found at http://zoidberg.sf.net/
> or your local CPAN mirror.
Now this is intereresting, thanks!
M4
--
Redundancy is a great way to introduce more single points of failure.
------------------------------
Date: Mon, 23 Oct 2006 17:57:53 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: HTML::Mason scripts coming up as plain text on apache server
Message-Id: <slrnejqi7h.l1j.tadmc@tadmc30.august.net>
Adam Lawson <tidusx2@cogeco.ca> wrote:
> error] Cannot create directory '/usr/local/apache/mason/obj' (mkdir
> /usr/local/apache/mason/obj: Permission denied at
> /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Interp.pm line 301\n) for user
> 'nobody', group 'nobody'. Perhaps you need to create or set permissions
> on your data_dir ('/usr/local/apache/mason'). \nStack:\n
> [/usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Interp.pm:318]\n
> [/usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Interp.pm:222]\n
> [/usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Interp.pm:169]\n
> [/usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Interp.pm:155]\n
> [/usr/lib/perl5/site_perl/5.8.8/Class/Container.pm:329]\n
> [/usr/lib/perl5/site_perl/5.8.8/Class/Container.pm:53]\n
> [/usr/lib/perl5/site_perl/5.8.8/HTML/Mason/ApacheHandler.pm:633]\n
> [/usr/lib/perl5/site_perl/5.8.8/HTML/Mason/ApacheHandler.pm:412]\n
> [(eval 32):6]\n [/dev/null:0]\n
Perhaps you need to create or set permissions on your
data_dir ('/usr/local/apache/mason').
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 23 Oct 2006 18:03:02 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: LWP and Javascript -- Not The Same Old Question
Message-Id: <slrnejqih6.l1j.tadmc@tadmc30.august.net>
EdwardATeller <sorry_no_email@yahoo.com> wrote:
> I am trying to scrape a page that seems to load important info via
> javascript, since it isn't there when I just use LWP get.
You can insert the Web Scraping Proxy (wsp.pl) between your browser
and the server and it will log all of the traffic in each direction.
It even logs the info in the form of Perl code that you can
copy and modify!
http://www.research.att.com/sw/tools/wsp/
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 24 Oct 2006 04:42:00 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Tue Oct 24 2006
Message-Id: <J7MIE0.w4t@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
BatchSystem-SBS-0.06
http://search.cpan.org/~alexmass/BatchSystem-SBS-0.06/
a Simple Batch System
----
CPAN-1.8802
http://search.cpan.org/~andk/CPAN-1.8802/
query, download and build perl modules from CPAN sites
----
Catalyst-Example-InstantCRUD-v0.0.18
http://search.cpan.org/~zby/Catalyst-Example-InstantCRUD-v0.0.18/
A CRUD scaffolding for Catalyst.
----
Data-URIEncode-0.10
http://search.cpan.org/~rhandom/Data-URIEncode-0.10/
Allow complex data structures to be encoded using flat URIs.
----
DateTime-Locale-0.3101
http://search.cpan.org/~drolsky/DateTime-Locale-0.3101/
Localization support for DateTime.pm
----
DateTime-Natural-Parse-0.02
http://search.cpan.org/~schubiger/DateTime-Natural-Parse-0.02/
Create machine readable date/time with natural parsing logic
----
DateTime-Natural-Parse-0.03
http://search.cpan.org/~schubiger/DateTime-Natural-Parse-0.03/
Create machine readable date/time with natural parsing logic
----
EekBoek-1.02.00
http://search.cpan.org/~jv/EekBoek-1.02.00/
Bookkeeping software for small and medium-size businesses
----
File-Remove-0.32_01
http://search.cpan.org/~adamk/File-Remove-0.32_01/
Remove files and directories
----
Genezzo-0.67
http://search.cpan.org/~jcohen/Genezzo-0.67/
an extensible database with SQL and DBI
----
HTML-Template-XPath-0.20
http://search.cpan.org/~tjmather/HTML-Template-XPath-0.20/
Easy access to XML files from HTML::Template using XPath
----
HTTP-Server-Simple-0.23
http://search.cpan.org/~jesse/HTTP-Server-Simple-0.23/
Lightweight HTTP server
----
Ingres-Utility-IINamu-0.06
http://search.cpan.org/~worm/Ingres-Utility-IINamu-0.06/
API to iinamu Ingres RDBMS utility
----
List-Pairwise-0.21
http://search.cpan.org/~tdrugeon/List-Pairwise-0.21/
map/grep arrays and hashes pairwise
----
Mac-Accessibility-1.0
http://search.cpan.org/~boga/Mac-Accessibility-1.0/
----
Module-PortablePath-0.03
http://search.cpan.org/~rpettett/Module-PortablePath-0.03/
Perl extension follow modules to exist in different non-core locations on different systems without having to refer to explicit library paths in code
----
Net-CIDR-MobileJP-0.03
http://search.cpan.org/~tokuhirom/Net-CIDR-MobileJP-0.03/
mobile ip address in Japan
----
Net-Delicious-1.1
http://search.cpan.org/~ascope/Net-Delicious-1.1/
OOP for the del.icio.us API
----
Net-Radius-1.50
http://search.cpan.org/~luismunoz/Net-Radius-1.50/
----
Object-InsideOut-2.16
http://search.cpan.org/~jdhedden/Object-InsideOut-2.16/
Comprehensive inside-out object support module
----
POE-Component-IRC-5.08
http://search.cpan.org/~bingos/POE-Component-IRC-5.08/
a fully event-driven IRC client module.
----
POE-Component-IRC-Plugin-RSS-Headlines-1.01
http://search.cpan.org/~bingos/POE-Component-IRC-Plugin-RSS-Headlines-1.01/
A POE::Component::IRC plugin that provides RSS headline retrieval.
----
Rose-DateTime-0.532
http://search.cpan.org/~jsiracusa/Rose-DateTime-0.532/
DateTime helper functions and objects.
----
Sub-ForceEval-1.11
http://search.cpan.org/~lembark/Sub-ForceEval-1.11/
runtime cluck if a dying subrutine is not eval-ed.
----
Template-Simple-0.02
http://search.cpan.org/~uri/Template-Simple-0.02/
A simple and fast template module
----
TemplateM-2.01
http://search.cpan.org/~abalama/TemplateM-2.01/
Templates processing module
----
Term-UI-0.14
http://search.cpan.org/~kane/Term-UI-0.14/
Term::ReadLine UI made easy
----
Time-Piece-Adaptive-0.03
http://search.cpan.org/~dprice/Time-Piece-Adaptive-0.03/
subclass of Time::Piece which allows the default stringification function to be set.
----
Tree-Simple-1.17
http://search.cpan.org/~stevan/Tree-Simple-1.17/
A simple tree object
----
Wiki-Toolkit-Store-Mediawiki-0.04
http://search.cpan.org/~dprice/Wiki-Toolkit-Store-Mediawiki-0.04/
Mediawiki (MySQL) storage backend for Wiki::Toolkit
----
Yahoo-Marketing-0.04
http://search.cpan.org/~jlavallee/Yahoo-Marketing-0.04/
an interface for Yahoo! Search Marketing's Web Services.
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Mon, 23 Oct 2006 21:57:35 GMT
From: Martin Busik <martin.busik@busik.de>
Subject: New module XML::Traverse::ParseTree
Message-Id: <J7ME8G.ptz@zorch.sf-bay.org>
Hello,
I'm happy to announce a new module XML::Traverse::ParseTree (v 0.02)
This module aims to simplify the access to the contents of a xml
document. When DOM-approach is the one and a SAX-parser-approach
the other extreme, then XML::Traverse::ParseTree strikes a balance between
them.
Parsing has to be done by means of XML::Parser, XML::Traverse::ParseTree
delivers getters and iterators. Access paths are specified in a xpath-like
syntax.
E.g.:
my $xml = XML::Parser->new(Style => "Tree")->parse($xmlcont);
my $h = XML::Traverse::ParseTree->new();
my $a1 = $h->get($xml,'document','structure','sections');
my $i = $h->get($a1,'section[*]','item[*]');
while (my $e = $i->()) {
...
$attr = $h->get($e,'another-child-element','@attribute-name');
$text = $h->get($e,'#TEXT');
}
You can download this package from CPAN:
http://search.cpan.org/~mbusik/XML-Traverse-ParseTree-0.02/
Feedback will be appreciated.
Cheers,
Martin
------------------------------
Date: 23 Oct 2006 20:43:13 -0700
From: "JKG" <JKGambhir@gmail.com>
Subject: Re: Scripting an EXE
Message-Id: <1161661393.339727.52190@e3g2000cwe.googlegroups.com>
Hi Josef,
Thanks buddy.. :)
I tried the following and it works:
C:\>(echo 2; echo q) | t2t2
Though that is all I want, I will still do it with a program (perl
script program) and try to take the log of the output.
I will let you know the results.
Thanks again
JKG
Josef Moellers wrote:
> JKG wrote:
> > Hi Thanks a lot for the help.
> >
> >
> >>Why can't a simple "echo 2 | t2t2.exe" (or the DOS equivalent) do the w=
ork?
> >
> > Yes your suggestion it good and it worked to some point.
> > Actually it is my mistake to explain the behaviour of the EXE properly.
> > I am explaining it again:
> > ------------------------
> > C:\>t2t2.exe
> > Reading the temp files.
> > Reading done.
> > Writing the temp files.
> > Writing done.
> > Please enter option (1..9 or q)=3D> 2
> > You entered 2.
> > File processing done.
> > Please enter option (1..9 or q)=3D>q
> > Quit......bye
> > C:\>
> > ------------------------
> > Means after providing option 2, I have to provide option q also to quit
> > from the EXE.
> >
> > I tried the following command as per your suggestion:
> > C:\>echo 2 | t2t2.exe
> > but then the EXE is running in the infinite loop reading option 2
> > everytime. I just want this EXE to run once for option 2 and then quit
> > (reads option q).
> >
> > Please help....I think you are toooooooo close.
>
> Strange behaviour (re-using "2" over and over again).
> On *ix systems I'd do something like '(echo 2; echo q) | t2t2' or
> 'echo -e "2\nq" | t2t2'.
> You could write a Perl program:
>
> print "2\rq\r";
>
> Josef
>
> > Josef Moellers wrote:
> >
> >>JKG wrote:
> >>
> >>>I have an EXE (say t2t2.exe), I do not have its source. It have the
> >>>following behaviour:
> >>>------------------------
> >>>C:\>t2t2.exe
> >>>Reading the temp files.
> >>>Reading done.
> >>>Writing the temp files.
> >>>Writing done.
> >>>Please enter option (1..9)=3D> 2
> >>>You entered 2.
> >>>File processing done.
> >>>C:\>
> >>>------------------------
> >>>There are 9 options that can be passed. But I always passes 2 and I do
> >>>it several times a day.
> >>>I want to write a perl script for this. I think perl pipes will help.
> >>>But I dont know how to start.
> >>
> >>Why can't a simple "echo 2 | t2t2.exe" (or the DOS equivalent) do the w=
ork?
> >>If you need to parse some feedback, there's Perl/Expect, but I don't
> >>know if that runs on your system.
> >>
> >>Just wanting to help,
> >>
> >>Josef
> >>--
> >>Josef M=F6llers (Pinguinpfleger bei FSC)
> >> If failure had no penalty success would not be a prize
> >> -- T. Pratchett
> >
> >
> >
>
>
> --
> Josef M=F6llers (Pinguinpfleger bei FSC)
> If failure had no penalty success would not be a prize
> -- T. Pratchett
------------------------------
Date: Tue, 24 Oct 2006 09:02:05 +0200
From: Josef Moellers <josef.moellers@fujitsu-siemens.com>
Subject: Re: Scripting an EXE
Message-Id: <ehkdso$qcc$3@nntp.fujitsu-siemens.com>
JKG wrote:
> Hi Josef,
> Thanks buddy.. :)
> I tried the following and it works:
>=20
> C:\>(echo 2; echo q) | t2t2
>=20
> Though that is all I want, I will still do it with a program (perl
> script program) and try to take the log of the output.
> I will let you know the results.
At the lest, you could redirect the output of t2t2 into a file.
If you want to do some filtering etc, you _definitely_ want Expect!
It's learning curve is slightly steep (to say the least ;-), though.
Josef
> Josef Moellers wrote:
>=20
>>JKG wrote:
>>
>>>Hi Thanks a lot for the help.
>>>
>>>
>>>
>>>>Why can't a simple "echo 2 | t2t2.exe" (or the DOS equivalent) do the=
work?
>>>
>>>Yes your suggestion it good and it worked to some point.
>>>Actually it is my mistake to explain the behaviour of the EXE properly=
=2E
>>>I am explaining it again:
>>> ------------------------
>>>C:\>t2t2.exe
>>>Reading the temp files.
>>>Reading done.
>>>Writing the temp files.
>>>Writing done.
>>>Please enter option (1..9 or q)=3D> 2
>>>You entered 2.
>>>File processing done.
>>>Please enter option (1..9 or q)=3D>q
>>>Quit......bye
>>>C:\>
>>>------------------------
>>>Means after providing option 2, I have to provide option q also to qui=
t
>>>from the EXE.
>>>
>>>I tried the following command as per your suggestion:
>>>C:\>echo 2 | t2t2.exe
>>>but then the EXE is running in the infinite loop reading option 2
>>>everytime. I just want this EXE to run once for option 2 and then quit=
>>>(reads option q).
>>>
>>>Please help....I think you are toooooooo close.
>>
>>Strange behaviour (re-using "2" over and over again).
>>On *ix systems I'd do something like '(echo 2; echo q) | t2t2' or
>>'echo -e "2\nq" | t2t2'.
>>You could write a Perl program:
>>
>>print "2\rq\r";
>>
>>Josef
>>
>>
>>>Josef Moellers wrote:
>>>
>>>
>>>>JKG wrote:
>>>>
>>>>
>>>>>I have an EXE (say t2t2.exe), I do not have its source. It have the
>>>>>following behaviour:
>>>>>------------------------
>>>>>C:\>t2t2.exe
>>>>>Reading the temp files.
>>>>>Reading done.
>>>>>Writing the temp files.
>>>>>Writing done.
>>>>>Please enter option (1..9)=3D> 2
>>>>>You entered 2.
>>>>>File processing done.
>>>>>C:\>
>>>>>------------------------
>>>>>There are 9 options that can be passed. But I always passes 2 and I =
do
>>>>>it several times a day.
>>>>>I want to write a perl script for this. I think perl pipes will help=
=2E
>>>>>But I dont know how to start.
>>>>
>>>>Why can't a simple "echo 2 | t2t2.exe" (or the DOS equivalent) do the=
work?
>>>>If you need to parse some feedback, there's Perl/Expect, but I don't
>>>>know if that runs on your system.
>>>>
>>>>Just wanting to help,
>>>>
>>>>Josef
>>>>--
>>>>Josef M=F6llers (Pinguinpfleger bei FSC)
>>>> If failure had no penalty success would not be a prize
>>>> -- T. Pratchett
>>>
>>>
>>>
>>
>>--
>>Josef M=F6llers (Pinguinpfleger bei FSC)
>> If failure had no penalty success would not be a prize
>> -- T. Pratchett
>=20
>=20
>=20
--=20
Josef M=F6llers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize
-- T. Pratchett
------------------------------
Date: 23 Oct 2006 22:47:33 -0700
From: "Kuna" <kunanu@gmail.com>
Subject: Re: Soap Server in perl
Message-Id: <1161668853.247462.316200@i42g2000cwa.googlegroups.com>
Ian Wilson wrote:
> Kuna wrote:
> > Ian Wilson wrote:
> >> Kuna wrote:
> >>> Ian Wilson wrote:
> >>>> Kuna wrote:
> >>>>>
> >>>>> I want to create a SOAP server in perl so have gone through web
> >>>>> but thatr was not satisfactory. If any body will give sample
> >>>>> codes or some well defined link then that will be helpfull to
> >>>>> me.
> >>>>
> >>>> http://www.soaplite.com/
> >>>> The quickstart guide and cookbook have examples.
> >>>
> >>> Hi Ian thanks a lot for replying but this link is not opening and
> >>> apart of that I want to say that I have tried many links but
> >>> those are having fundamental ideas but I need to reate soap
> >>> server in perl which will invoke some methods and show me the
> >>> responce from the server. So if possible then suggest me some
> >>> sample codes for some advanced operation.
> >>
> >>
> >> That URL works fine here. If my Internet connection was broken, the
> >> way yours is, I'd phone my ISP and complain!
> >
> >
> > Sorry Ian I donot mean to say like that but actually I am new to perl
> > and I have given this task to be done so as per my little knowledge I
> > am not able to get these examples from the web so I want that some
> > one will guide me and by which I can able to get some knowledge and
> > get my to be done. Again sorry if I have asked something worng to
> > you.
>
> Its not that simple. If you don't have a web-server with support for CGI
> and Perl in which you can install SOAP::Lite then you'll have to
> implement the SOAP support some other way. The SOAP::Lite documentation
> covers various ways.
>
> Here's an example of server code (soaptemp.pl)
>
> #!/usr/bin/perl -w
>
> use SOAP::Transport::HTTP;
>
> SOAP::Transport::HTTP::CGI
> -> dispatch_to('Temperatures')
> -> handle;
>
> package Temperatures;
>
> sub f2c {
> my ($class, $f) = @_;
> return 5/9*($f-32);
> }
>
> sub c2f {
> my ($class, $c) = @_;
> return 32+$c*9/5;
> }
>
> Here's the corresponding client code (soaptempclient.pl)
>
> #!/usr/bin/perl -w
>
> use SOAP::Lite;
>
> $c = shift @ARGV;
> $c = 37.5 unless $c;
>
> print
> "$c C = ",
> SOAP::Lite
> -> uri('http://your.server.name/Temperatures')
> -> proxy ('https://your.server.name/cgi-bin/soaptemp.pl')
> -> c2f($c)
> -> result,
> " F\n";
>
> Note: this is old code, you should use warnings; use strict; There are
> lots of different ways of writing soap clients and soap servers using
> SOAP::Lite. There is a feature that lets you call remote subroutines
> exactly the way you would if they were local subroutines. There's no
> substitute for reading the documentation.
>
> If you are new to Perl you may find the examples hard to understand. If
> this is so then you need to practice Perl on some simpler problems
> before you move onto SOAP.
>
> I suggest this:
>
> 1) Write a simple Perl program with a subroutine,
>
> 2) Move the subroutine to a module. Alter the main program to use that
> module.
>
> 3) Move your module unchanged to your web server and write a generic
> SOAP dispatcher (designated by the proxy in the client) that hands off
> SOAP requests to modules (designated by the URI provided by the client)
> There's an example in the docs, it is 4 lines long plus shebang,
> comments and spacing.
>
> Use autodispach in the client so that your client only needs a couple of
> lines adding to it.
Thanks Ian
Thanks Ian for understanding me and guieding me in such a best way so I
will must try to go through the examples and tryto solve my task if any
problem or error then will let you know
Regards,
Kuna :)
------------------------------
Date: Mon, 23 Oct 2006 17:36:35 -0500
From: brian d foy <brian.d.foy@gmail.com>
Subject: Re: Why I no longer use Perl
Message-Id: <231020061736350233%brian.d.foy@gmail.com>
In article <1161610846.318615.239050@m73g2000cwd.googlegroups.com>,
<strenholme.usenet@gmail.com> wrote:
> I have been a Perl programmer for over ten years. Recently, I found a
> bug in Perl which made me stop using Perl altogether.
> $ /usr/bin/perl --version
> This is perl, v5.8.0 built for i386-linux-thread-multi
There's your problem. As an experienced programmer you probably already
know that you shouldn't use versions that have a 0 in them. That's just
the usual wisdom of software, not just Perl.
> Perl 6 looks promising; it seems that there is a lot of work being done
> to document anything and everything Perl 6 does.
Wait for 6.1, for the same reason :)
--
Posted via a free Usenet account from http://www.teranews.com
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 9883
***************************************
