Re: Web service without a server

[thomas895]

I think you need to step back and get the fundamentals down before attempting to make a web service right away. Moreover, your question is contradictory, without having a web server installed or available, it follows that it is illogical to attempt to do anything for or with it.

A web server is not a "file"(as you are likely imagining it) that can be saved like a text document or image. Surely you must have learned the fundamentals of the web server within the introductory part of whichever course you follow or book you are reading. If not, you may want to reconsider your investment.

The most I can recommend is to follow the tutorials presented for popular solutions such as Dancer or Catalyst.
Also, see How do I post a question effectively?.

[marto]

I think this is a typo:

"web service without need of a web service"

And what they mean is that they have to make a script send a response to a browser, without having a traditional webserver (apache and so on) installed.

[rudrakiran]

thank you for correcting the typo, yes I'm looking for some answers related to 'Web Service' without a need of installing ' a Traditional Web Server'

[rudrakiran]

Thomas, appreciate your time ! but you should know how to respond, mistakes do happen !

[thomas895]

I just wish I did! Now that you've updated your question to be more specific, I can once again recommend Dancer, Catalyst, Mojolicious(::Lite), or even HTTP::Server::Simple.

Here is an example of your desire(borrowed code from the latter):

 #!/usr/bin/perl
 {
 package MyWebServer;
 
 use HTTP::Server::Simple::CGI;
 use base qw(HTTP::Server::Simple::CGI);
 
 my %dispatch = (
     '/bla' => \&resp_bla,
 );
 
 sub handle_request {
     my $self = shift;
     my $cgi  = shift;
   
     my $path = $cgi->path_info();
     my $handler = $dispatch{$path};
 
     if (ref($handler) eq "CODE") {
         print "HTTP/1.0 200 OK\r\n";
         $handler->($cgi);
         
     } else {
         print "HTTP/1.0 404 Not found\r\n";
         print $cgi->header,
               $cgi->start_html('Not found'),
               $cgi->h1('Not found'),
               $cgi->end_html;
     }
 }
 
 sub resp_bla {
     my $cgi  = shift;   # CGI.pm object
     return if !ref $cgi;
     
     print $cgi->header("text/plain"),
           (rand(10) < 5) # pick a random number and see if it is less
+ than 5...
              ? 1 : 0; #...and print 1 if it is, or 0 if it isn't.

 }
 
 } 
 
 # start the server on port 8080
 # access me at   http://localhost:8080/bla
 my $pid = MyWebServer->new(8080)->background();
 print "Use 'kill $pid' to stop server.\n";

Of course, you will want to do a more interesting check than a random number -- say, whether a file exists, a row is present in a table, or if it is a certain time of day.