These are much easier to do with variable substitution. It sounds hard to get started, but it's easier when you get the hang of it.
Is SCRIPT_NAME a value you will read as input or do you want it to be the name of the script you are already running? The current running script will be known as $0, parm 1 is $1, parm 2 is $2 etc.
If you are using this, then you can slice the values up however you like, such as:-
You might be wanting to read from an input file as you seem to suggest with your done <"ListFile.txt" so you could also do this:-
Does that help?
Be aware that if you have three parameters, then this while read will put the 2nd & 3rd parameter into $par2
Robin
Last edited by rbatte1; 06-18-2014 at 12:51 PM..
Reason: Added parm3 warning
I am calling SQL script in my UNIX Shell script and trying to create the CSV file and my last column value of each row is 23 blank spaces.
In my SQL script,the last column is like below.
RPAD(' ',23,' ') -- Padding 23 blank Spaces
The CSV file is generated but the sapce(23 spaces) is... (2 Replies)
Hi All,
When i am runing a script from home directory the output is fine, but whenever i am running a script from any of the directory the output is fine while a "Blank file" is created named as "1" in the particular directory.
Will you please suggest any options to fix this problem. It... (1 Reply)
Hi,
I'm running 2.6.9-55.ELsmp. I'm looking for a script to remove a blank line on the first line of a file. The script must also test if the file is 0k, if yes then do nothing, but if the file is > 0k then check if the first line is not blank, if yes then remove the line then save it.
... (4 Replies)
Hello,
I am using this to get only directories :
ls -l | grep '^d'and here is the result :
drwx------ 13 so_nic sonic 13 Nov 4 13:03 GLARY
drwx------ 3 so_nic sonic 3 May 6 2010 PSY2R
drwx------ 15 so_nic sonic 15 Oct 14 08:47 PSYR1
But I only need to keep this... (7 Replies)
I have file which has more than 1000 lines. PFB file info
Line 1.
<SOAP-ENV:Envelope SOAP-ENV:encodingStyle="" xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:SOAPSDK1="http://www.w3.org/2001/XMLSchema" xmlns:SOAPSDK2="http://www.w3.org/2001/XMLSchema-instance"... (8 Replies)
I have below file. I want to remove space at begining of every line and then after also remove blank line from file.
I use below code for each operation.
sed -e 's/^*//' < check.txt > check1.txt
sed '/^\s*$/d' < check1.txt > check2.txt
above code not remove all the space... (12 Replies)
Hi All
Need Help
I have a file with the below format (ABC.TXT) :
®¿¿ABCDHEJJSJJ|XCBJSKK01|M|7348974982790
HDFLJDKJSKJ|KJALKSD02|M|7378439274898
KJHSAJKHHJJ|LJDSAJKK03|F|9898982039999
(cont......)
I need to write a script where it will check for : blank lines (between rows,before... (6 Replies)
I have a file with the following format:
X|High|2|GIC|DM||XHM|||6 Months
X|Moderate|2|GIC|DM||XHM|||6 Months
X|High|2|GCM|DM||XSF|||6 Months
X|Med|2|GCM|DM||XSF|||6
Here there are ten columns but I need to print rows having blank records in any of the rows (except for 6th,8th and 9th... (10 Replies)
I am using : << cut / cut to comment out block of code.
Works fine on few lines of script, then it gives me this cryptic error when I try to comment out about 80 lines.
The "warning " is at last line of script.
done < results
169 echo "END read all positioning parameters"
170... (8 Replies)
Discussion started by: annacreek
8 Replies
LEARN ABOUT MOJAVE
net::server::psgi
Net::Server::PSGI(3) User Contributed Perl Documentation Net::Server::PSGI(3)NAME
Net::Server::PSGI - basic Net::Server based PSGI HTTP server class
TEST ONE LINER
perl -e 'use base qw(Net::Server::PSGI); main->run(port => 8080, ipv => "*")'
# runs a default echo server
SYNOPSIS
use base qw(Net::Server::PSGI);
__PACKAGE__->run(app => &my_echo_handler); # will bind IPv4 port 80
sub my_echo_handler {
my $env = shift;
my $txt = qq{<form method="post" action="/bam"><input type="text" name="foo"><input type="submit"></form>
};
require Data::Dumper;
local $Data::Dumper::Sortkeys = 1;
require CGI::PSGI;
my $form = {};
my $q = CGI::PSGI->new($env);
$form->{$_} = $q->param($_) for $q->param;
$txt .= "<pre>".Data::Dumper->Dump([$env, $form], ['env', 'form'])."</pre>";
return [200, ['Content-type', 'text/html'], [$txt]];
}
DESCRIPTION
If you want a more fully featured PSGI experience, it would be wise to look at the Plack and Starman set of modules. Net::Server::PSGI is
intended as an easy gateway into PSGI. But to get the most out of all that PSGI has to offer, you should review the Plack and
Plack::Middleware. If you only need something a little more rudimentary, then Net::Server::PSGI may be good for you.
Net::Server::PSGI takes Net::Server::HTTP one level farther. It begins with base type MultiType defaulting to Net::Server::Fork. It is
easy to change it to any of the other Net::Server flavors by passing server_type => $other_flavor in the server configurtation. The port
has also been defaulted to port 80 - but could easily be changed to another through the server configuration. You can also very easily add
ssl by including, proto=>"ssl" and provide a SSL_cert_file and SSL_key_file.
For example, here is a basic server that will bind to all interfaces, will speak both HTTP on port 8080 as well as HTTPS on 8443, and will
speak both IPv4, as well as IPv6 if it is available.
use base qw(Net::Server::PSGI);
__PACKAGE__->run(
port => [8080, "8443/ssl"],
ipv => '*', # IPv6 if available
SSL_key_file => '/my/key',
SSL_cert_file => '/my/cert',
);
METHODS
"process_request"
This method has been overridden in Net::Server::PSGI - you should not use it while using Net::Server::PSGI. This overridden method
parses the environment and sets up request alarms and handles dying failures. It calls process_psgi_request once the request is ready
and headers have been parsed.
"process_psgi_request"
Used when psgi_enabled is true. During this method, find_psgi_handler will be called to return the appropriate psgi response handler.
Once finished, print_psgi_headers and print_psgi_body are used to print out the response. See PSGI.
Typically this method should not be overridden. Instead, an appropriate method for finding the app should be given to
find_psgi_handler or app.
"find_psgi_handler"
Used to lookup the appropriate PSGI handler. A reference to the already parsed $env hashref is passed. PATH_INFO will be initialized
to the full path portion of the URI. SCRIPT_NAME will be initialized to the empty string. This handler should set the appropriate
values for SCRIPT_NAME and PATH_INFO depending upon the path matched. A code reference for the handler should be returned. The
default find_psgi_handler will call the "app" method. If that fails a reference to the psgi_echo_handler is returned as the default
application.
sub find_psgi_handler {
my ($self, $env) = @_;
if ($env->{'PATH_INFO'} && $env->{'PATH_INFO'} =~ s{^ (/foo) (?= $ | /) }{}x) {
$env->{'SCRIPT_NAME'} = $1;
return &foo_app;
}
return $self->SUPER::find_psgi_handler($env);
}
"app"
Return a reference to the application being served. This should be a valid PSGI application. See PSGI. By default it will look at
the value of the "app" configuration option. The "app" method may also be used to set the "app" configuration option.
package MyApp;
use base qw(Net::Server::PSGI);
sub default_server_type { 'Prefork' }
sub my_app {
my $env = shift;
return [200, ['Content-type', 'text/html'], ["Hello world"]];
}
MyApp->run(app => &my_app);
# OR
sub app { &my_app }
MyApp->run;
# OR
my $server = MyApp->new;
$server->app(&my_app);
$server->run;
OPTIONS
In addition to the command line arguments of the Net::Server::HTTP base classes you can also set the following options.
app Should return a coderef of the PSGI application. Is returned by the app method.
AUTHOR
Paul T. Seamons paul@seamons.com
SEE ALSO
Please see also Plack, Starman,
Net::Server::Fork, Net::Server::INET, Net::Server::PreFork, Net::Server::PreForkSimple, Net::Server::MultiType, Net::Server::Single
Net::Server::SIG Net::Server::Daemonize Net::Server::Proto Net::Server::HTTP
perl v5.18.2 2012-06-11 Net::Server::PSGI(3)