i am trying to understand this script example. the text does not explain it. can someone tell me briefly what each of the functions do. any help will be appreciated.
Last edited by Scott; 11-23-2010 at 04:54 PM..
Reason: Code tags, please...
We use a UNIX-based system (Lawson) at work and I was given this command to request a data extract from the db admin. The only thing I really understand is the last line as it appears to be joining the files created from the first three lines into one. Is there anyone who can help me breakdown the... (4 Replies)
# sub: find block (in cols), return line-numbers (begin-end) or 0 if notfound
sub findb{
my ($exp1,$col1,$exp2,$col2)= @_; # $exp = expression to find, $col - column to search in
my $cnt=0;
my ($val1,$val2);
my ($beg,$end);
for($cnt=1;$cnt<=65536;$cnt++){
$val1 =... (3 Replies)
i am analyzing a query written by another developer ,need to understand part of script
am looking at a code ..and it converts comma files to pipe delimited and also takes away quotes from any columns,
source field format: 2510,"Debbie",NewYork
changes to
target: 2510|Debbie|NewYork
... (1 Reply)
Can someone explain what is happening line by line in this script, particularly after the do statement. The script works, it renames all the files in my directory that has a date in the file name. But I would like to know more about it.
#!/bin/bash
newdate=12-10-1995
for file in *--*
do
... (6 Replies)
Hi Guys,
I am new to scripting , I am trying to rebuild a script based on an old script. Can someone help me figure out what the script is doing? This is only a part of the script.
I am looking to interpret these two points in the scripts:-
1)
test=`echo $?`
while
I do not... (3 Replies)
Hi,
New to this forum, as well as to unix scripting..need help to understand below script ...
sendNotice_sp()
{
ATTACH=${LNXLOG:-}
if ; then
if ; then
mail -s "$ERR_MSG" $ERR_EMAIL_TO < $ATTACH
fi
else
mail -s "$ERR_MSG" $ERR_EMAIL_TO < /dev/null
fi
}
afaik this is sm kind of... (6 Replies)
Could someone please help me in understanding the code below:
#!/usr/bin/ksh
Month=`date|cut -c5-7`
Day=`date|cut -c9-10`
Year=`date|cut -c27-28`
Rom2Jul() { case $Month in Feb) Day=$(( $Day+31 ));;
Mar) Day=$((... (27 Replies)
Below script is called as Reducer, I am not sure how it work, can some expert explain me what this script does as i am a beginner.
inputfile:
hi hi how are are you
code:
#!/bin/bash
lastkey=""; -- what does this mean, because i saw in debug mode it is taking value as hi
count=0;... (13 Replies)
Hello,
How come the following script adds each numeric value to a total sum ?
x=$1
func()
{
for i in $1 $2 $3; do
let x= $x+$i
done }
func "8 8 8" 9 9
echo $x
A.How the program sums the string "8 8 8" if it`s only the first field value ($1)?
B.If we define x to be $1... (3 Replies)
Discussion started by: uniran
3 Replies
LEARN ABOUT DEBIAN
opal::manipulate
manipulate(3pm) User Contributed Perl Documentation manipulate(3pm)NAME
OpaL::manipulate - Perl extension for manipulating files.
SYNOPSIS
use OpaL::manipulate qw(functions);
No functions or variables are exported automaticly so you have to specify them here.
DESCRIPTION
OpaL::manipulate is a module for manipulating files.
All functions are autoloaded so they will not be loaded into memory if you have not used them before.
FUNCTIONS
perlmodifyadvanced
It simply applies the script to the file to change its content. You also have to apply a message to tell what you are doing mostly for
debugging and if any error occures. The error level tells how critical this action is to the script.
USAGE:
"perlmodifyadvanced"("file", "script",
"message", errorlevel);
The errorlevel is optional.
perlmodify
It simply fixes some stuff in the script string and then calls perlmodifyadvanced.
USAGE:
"perlmodify"("file", "script",
"message", errorlevel);
The errorlevel is optional.
perlmodify_insertafter
This function searches for something (regular expression). It if is found it inserts the text after it. But it will never insert the
text twice.
You also have to apply a message to tell what you are doing mostly for debugging and if any error occures. The error level tells how
critical this action is to the script.
USAGE:
"perlmodify_insertafter"("file", "find", "text",
"message", errorlevel);
The errorlevel is optional.
AUTHOR
Ola Lundqvist <ola@inguza.com>
REQUIRES
OpaL::action, OpaL::read.
SEE ALSO
OpaL::action
OpaL::read
perl(1)perl v5.10.1 2009-04-21 manipulate(3pm)