Not sure what you're trying to do with the script "/tmp/myprogram".
Besides of that, the shebang (the first line) of your script isn't proper, it should be:
Code:
#!/bin/ksh
Anyway, did you get the right output with the awk or cut command?
I want replace 2.6.15-25-server with 2.6.17 ?
$uname -r
2.6.15-25-server
1) mv /bin/uname /bin/uname.orig
2) put the following in the new /bin/uname:
#!/bin/sh
echo Uname (New Version)
/bin/uname.orig
:confused: (3 Replies)
I'm very new to writing scripts, so here is my problem...I have the following code already written (in perl)
system "rm file2";
open(FILE2, ">file2");
open(MYINPUTFILE, "file");
while(<MYINPUTFILE>) {
my($line) = $_;
chomp($line);
print file2 "$line\n";
print... (2 Replies)
<key>ExcludeSimpleHostnames</key>
<integer>0</integer>
<key>FTPPassive</key>
Need simple command that will change the 0 to a 1 in this file when I grep it, but only for this integer key directly after the ExcludeSimpleHostnames key.
I got this output code... (8 Replies)
when i run the following command
db2 list tablespaces
Tablespaces for Current Database
Tablespace ID = 0
Name = SYSCATSPACE
State = 0x0000
Tablespace ID ... (3 Replies)
Hello,
Can you tell me how can I change this format by awk
Input
0.2057422D-01
0.2463722D-01
-0.1068047D-02
Output
0.02057422
0.02463722
-0.001068047
Thanks
wan (8 Replies)
Currently, i am trying to create a simple robust script that is intended to move the contents of a given source directory to a target directory. Optionally, the script should allow to either move the whole source dir content, or dotfiles only, or visible files only. I am aware the target directory... (0 Replies)
I have a script that reaches out to several systems and pulls back infomation in serveral files. I would like to take the infomation returned and reformat it so I can export it to excel.
Below is current output:
File1:item1:abc=1
File1:item2:efg
File2:item1:ab=1
File2:item2:efg... (3 Replies)
I have this END section in an awk script:
END {
for (j in littlebin)
{
print (j, int(log(j)/log(2)) , littlebin)
lbsum+=littlebin
}
for (i in bins)
... (6 Replies)
Dear All,
I would like to extract the file name without extension form a variable...
In particular I have a command like this one:
for file in path/to/file/example_number.ext
do something -input $file -output ${file%_number.ext}.new
done
means that in variable $file are saved all the path... (3 Replies)
Discussion started by: giuliangiuseppe
3 Replies
LEARN ABOUT DEBIAN
plack::app::cgibin
Plack::App::CGIBin(3pm) User Contributed Perl Documentation Plack::App::CGIBin(3pm)NAME
Plack::App::CGIBin - cgi-bin replacement for Plack servers
SYNOPSIS
use Plack::App::CGIBin;
use Plack::Builder;
my $app = Plack::App::CGIBin->new(root => "/path/to/cgi-bin")->to_app;
builder {
mount "/cgi-bin" => $app;
};
# Or from the command line
plackup -MPlack::App::CGIBin -e 'Plack::App::CGIBin->new(root => "/path/to/cgi-bin")->to_app'
DESCRIPTION
Plack::App::CGIBin allows you to load CGI scripts from a directory and convert them into a PSGI application.
This would give you the extreme easiness when you have bunch of old CGI scripts that is loaded using cgi-bin of Apache web server.
HOW IT WORKS
This application checks if a given file path is a perl script and if so, uses CGI::Compile to compile a CGI script into a sub (like
ModPerl::Registry) and then run it as a persistent application using CGI::Emulate::PSGI.
If the given file is not a perl script, it executes the script just like a normal CGI script with fork & exec. This is like a normal web
server mode and no performance benefit is achieved.
The default mechanism to determine if a given file is a Perl script is as follows:
o Check if the filename ends with ".pl". If yes, it is a Perl script.
o Open the file and see if the shebang (first line of the file) contains the word "perl" (like "#!/usr/bin/perl"). If yes, it is a Perl
script.
You can customize this behavior by passing "exec_cb" callback, which takes a file path to its first argument.
For example, if your perl-based CGI script uses lots of global variables and such and are not ready to run on a persistent environment, you
can do:
my $app = Plack::App::CGIBin->new(
root => "/path/to/cgi-bin",
exec_cb => sub { 1 },
)->to_app;
to always force the execute option for any files.
AUTHOR
Tatsuhiko Miyagawa
SEE ALSO
Plack::App::File CGI::Emulate::PSGI CGI::Compile Plack::App::WrapCGI
See also Plack::App::WrapCGI if you compile one CGI script into a PSGI application without serving CGI scripts from a directory, to remove
overhead of filesystem lookups, etc.
perl v5.14.2 2011-11-02 Plack::App::CGIBin(3pm)