10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hi folks,
I have a scenario to convert the update statements into insert statements using shell script (awk, sed...) or in database using regex.
I have a bunch of update statements with all columns in a file which I need to convert into insert statements.
UPDATE TABLE_A SET COL1=1 WHERE... (0 Replies)
Discussion started by: dev123
0 Replies
2. Shell Programming and Scripting
push @MACARRAY, "$+{catalog} $+{machine}\n" if ($info =~ /(?<catalog>catalog).+?(?<machine>\*+)/ms);
I am (still) trying to solve problem. Looking around on the server I found this piece of code. Specifically what does "$+{catalog} $+{machine}\n"
do ?
Thanks in advance (1 Reply)
Discussion started by: popeye
1 Replies
3. Shell Programming and Scripting
can someone help me how to interpret this line?
my ($class, $hashref) = @_;
my $portfolio = {};
if ($hashref->{portfolio_id}) {
($portfolio) = GEmySQL->get ("select * from portfolio where portfolio.id=$hashref->{portfolio_id}");
}
===============
Question: how do... (2 Replies)
Discussion started by: onlinelearner02
2 Replies
4. UNIX for Dummies Questions & Answers
Hi All,
I am writing a perl script where I take 2 variables from the user as STDIN to scan the lines of a file to produce as output.
How can I do an IF loop to test this for example in the mock file
12 10
35 20
37 5
45 12if I take user input as 40 and 10, how can I get the output lines in... (3 Replies)
Discussion started by: pawannoel
3 Replies
5. Shell Programming and Scripting
I'm just having a bit of trouble running this code. It tells me that there's a syntax error on line 29. Any help appreciated.
#!/usr/bin/perl
#
# Phone Book Application
#
%phonebook = (
"Wayne", '34687368',
"Home", '378643287',
"Work", '017374637',
"School",... (2 Replies)
Discussion started by: cabaiste
2 Replies
6. Shell Programming and Scripting
#!/usr/bin/perl
$output1 = "/home/log.txt"
$output2 = "/home/grep.txt"
#Statement1 creates an output file called log.txt.
#Statement2 greps a line from log.txt and store the result in grep.txt
I want to create a condition where if the file grep.txt is empty repeat process.
Thanks. (1 Reply)
Discussion started by: sureshcisco
1 Replies
7. Shell Programming and Scripting
Hello and thank you in advance.
I have a perl script that will basically copy files out of a directory , creat a new current date stamped dir and move them that current time stamped dir and append the file names with current time stamp.
I need to add line(s) that this is only run if FileX... (1 Reply)
Discussion started by: Dadwith2boys
1 Replies
8. Shell Programming and Scripting
if (($fields eq $hwp) && ($fields eq 'Y'))
{
$fields = "INTEGRAL";
}
elsif ($fields eq $hwp)
{
$fields = "INTEGRAL";
}
elsif ($fields ne $hwp)
{
$fields = "SEPARATE";
}
print "$fields $fields $fields\n";
Output:
The problem here is that the first... (2 Replies)
Discussion started by: kamitsin
2 Replies
9. Shell Programming and Scripting
Can someone help me out here. I can't get this piece of code to work. i.e. $ALL_EVENTS does not get interpreted in the if brackets. The first part is the code, the second part is the execution of the code. Note: $ALL_EVENTS does equal 2, but there is no value once passed to the if statement. ... (4 Replies)
Discussion started by: jwholey
4 Replies
10. Shell Programming and Scripting
Hello guys,
I was wondering why my code doesn't read a variable when using if statement as follows:
$userlist='users.txt';
$user='b999';
open (ACTULOG, ">>$userlist");
print ACTULOG "$user\n";
close (ACTULOG)
this will work and prints... (3 Replies)
Discussion started by: Bashar
3 Replies
SPEEDY(1p) SPEEDY(1p)
NAME
speedy - a persistent Perl interpreter
SYNOPSIS
speedy [ <perl options> ] [ -- <speedy options> ] [ <filename> ]
DESCRIPTION
speedy, short for SpeedyCGI, is a way to run perl scripts persistently, which can make them run much more quickly. The most common way to
make a script run persistently is by changing the interpreter line at the top of the script from:
#!/usr/bin/perl
to
#!/usr/bin/speedy
After the script is initially run, instead of exiting, the perl interpreter is kept running. During subsequent runs, this interpreter is
used to handle new executions instead of starting a new perl interpreter each time. A very fast frontend program, written in C, is exe-
cuted for each request. This fast frontend then contacts the persistent Perl process, which is usually already running, to do the work and
return the results.
Each perl script runs in its own Unix process, so one perl script can't interfere with another. Command line options can also be used to
deal with programs that have memory leaks or other problems that might keep them from otherwise running persistently.
Although SpeedyCGI is especially useful for CGI scripts, it can be used to keep any perl script running persistently. See CGI::Speedy-
CGI(3.pm) for a complete description of SpeedyCGI, including further details on CGI execution and Apache issues. This manual page is based
on that, but concentrates on running speedy from the command line.
OPTIONS
The speedy command line is the same as for regular perl, with the exception that SpeedyCGI specific options can be passed in after a "--".
For example the line:
#!/usr/bin/speedy -w -- -t300
at the top of your script will set the perl option `-w' and will pass the `-t' option to SpeedyCGI, setting the Timeout value to 300 sec-
onds.
The options can also be set at run-time from the perl script using the CGI::SpeedyCGI module.
OPTIONS AVAILABLE
See CGI::SpeedyCGI(3.pm) for a complete description of the options.
-p<string>
BackendProg : Path to the speedy backend program. (Default: /usr/bin/speedy_backend)
-B<number>
BufsizGet : Use <number> bytes as the maximum size for the buffer that receives data from the perl backend. (Default: 131072)
-b<number>
BufsizPost : Use <number> bytes as the maximum size for the buffer that sends data to the perl backend. (Default: 131072)
-g<string>
Group : Allow a single perl interpreter to run multiple scripts. See CGI::SpeedyCGI(3.pm) for details. (Default: `none')
-M<number>
MaxBackends : If non-zero, limits the number of speedy backends running for this perl script to <number>. (Default: 0)
-r<number>
MaxRuns : Once the perl interpreter has run <number> times, re-exec the backend process. Zero indicates no maximum. This option is
useful for processes that tend to consume resources over time. (Default: 500)
-t<number>
Timeout : If no new requests have been received after <number> seconds, exit the persistent perl interpreter. Zero indicates no
timeout. (Default: 3600)
-T<string>
TmpBase : Use the given prefix for creating temporary files. This must be a filename prefix, not a directory name. (Default:
`/tmp/speedy')
-v Version : Print the SpeedyCGI version and exit.
ENVIRONMENT
Environment variables can also be used to pass in options. This can only be done before the initial execution, not from within the script
itself. The name of the environment variable is always SPEEDY_ followed by the option name in upper-case. For example to set the speedy
Timeout option, use the environment variable named SPEEDY_TIMEOUT.
FILES
/tmp/speedy* A unix socket used to connect to the backend process. See speedy_backend(1) for more information.
AUTHOR
Sam Horrocks
http://daemoninc.com
sam@daemoninc.com
NOTES
This manual page was created by Niko Tyni <ntyni@iki.fi> for Debian GNU/Linux, because the original program does not have one. It is based
on the original and more complete CGI::SpeedyCGI(3pm) manual page.
BUGS
There are command-line parsing incompatibilities with the real Perl. These aren't very easy to fix, as even the perlrun manpage isn't
quite accurate on which parameters can be separated (like '-I') and which can't (like '-C'). speedy doesn't allow any of them to be sepa-
rated. It considers the first option without a leading dash as the script filename.
SEE ALSO
perl(1), CGI::SpeedyCGI(3pm), speedy_backend(1)
SPEEDY(1p)