10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hi All,
i have problem here whenever i run this perl script that is pasted here, it inserts a negative number in place of PO_nbr
.
What the script does is reads a pipe delimited file and then using some values on the file it will query db to get few other values and then it inserts the... (4 Replies)
Discussion started by: selvankj
4 Replies
2. Shell Programming and Scripting
Hi,
I have a very long pipe delimited string. The length of the string could vary. For example:
START|one|two|three|four|five|six|seven
START|one|two|three|four|five|six|seven|eight|nine
START|one|two|three|four
I want to replace in the third occurence of string with another... (9 Replies)
Discussion started by: som.nitk
9 Replies
3. Shell Programming and Scripting
I am trying to insert a picture into a worksheet in Excel using Perl the following is the code
use Win32::OLE;
use Win32::OLE::Const "Microsoft Excel";
use Win32::OLE qw(in with);
# Initiate Excel application
$Excel = Win32::OLE->new('Excel.Application', 'Quit');
$Excel->{Visible} =1;
#... (1 Reply)
Discussion started by: cold_Que
1 Replies
4. Shell Programming and Scripting
hi there, my mysql database has a date/time field using the standard mysql date|time format of
2009-08-31 00:16:44
when inserting into this field using perl DBI, is there is an easy way to insert the current date/time in without having to preformat the date/time string in perl before... (3 Replies)
Discussion started by: hcclnoodles
3 Replies
5. Shell Programming and Scripting
Hey,
I have 10 lines of text ... And I would like to Insert prefix for each line with static text.
perl -pi -e 's/()/$1 TEST$./' data.txt
Each line will have different static prefix, Code above works perfectly for 1st line ... I'm just not sure how I can run same command for 2nd line 3rd... (4 Replies)
Discussion started by: NDxiak
4 Replies
6. UNIX for Advanced & Expert Users
I have a requirement:
I got a perfect example in this forum and looks like it would be quite similar but I have an additional task to do. I would explain.
I have a file x.csv
client_id,client_nbr
ABC,1250
CDE,1520
EFG,1000
PQR,1800
I have a file y.csv
client_id,client_nbr
ABC,1000... (0 Replies)
Discussion started by: RubinPat
0 Replies
7. Shell Programming and Scripting
I need a perl script to find and replace a specific pattern in a file to a new line.
BAsically I have a single line data in a file with 10 mb to 200 MB. I want to put a new line based on a specific pattern to open the file in Excel / Access.
Following is the sample data in a file
... (1 Reply)
Discussion started by: portalfaq
1 Replies
8. Shell Programming and Scripting
I've got the following code
sub mail_report {
$Mailer = '/usr/sbin/sendmail joe@somewhere.net';
open MAIL,"|$Mailer";
print MAIL "Subject: $X connection attempt \n";
open MESSAGE, "<$outdir$X";
print MESSAGE '$outdir$X\n';
close MESSAGE;
close MAIL;
} #End... (2 Replies)
Discussion started by: thumper
2 Replies
9. Shell Programming and Scripting
Hi all.
I am using /bin/sh on an HPUX system.
I have a file, with records as such:
60701006000000030380000000000000030380000400000000000
61001006000000008220000000000000008220000100000000000
61201006000000030150000000000000030150001000000000000
I know the character counts which... (5 Replies)
Discussion started by: lyoncc
5 Replies
10. Shell Programming and Scripting
Is it possible to make a perl or cgi script that does the following ?
1) have a stopwatch with a start / start / pause feature and record the time its paused on. but be able to record up to ten different times
2)print the recorded time to .txt file (1 Reply)
Discussion started by: perleo
1 Replies
CREATE_FUNCTION(3) 1 CREATE_FUNCTION(3)
create_function - Create an anonymous (lambda-style) function
SYNOPSIS
string create_function (string $args, string $code)
DESCRIPTION
Creates an anonymous function from the parameters passed, and returns a unique name for it.
Caution
This function internally performs an eval(3) and as such has the same security issues as eval(3). Additionally it has bad perfor-
mance and memory usage characteristics.
If you are using PHP 5.3.0 or newer a native anonymous function should be used instead.
PARAMETERS
Usually these parameters will be passed as single quote delimited strings. The reason for using single quoted strings, is to protect the
variable names from parsing, otherwise, if you use double quotes there will be a need to escape the variable names, e.g. $avar.
o $args
- The function arguments.
o $code
- The function code.
RETURN VALUES
Returns a unique function name as a string, or FALSE on error.
EXAMPLES
Example #1
Creating an anonymous function with create_function(3)
You can use this function, to (for example) create a function from information gathered at run time:
<?php
$newfunc = create_function('$a,$b', 'return "ln($a) + ln($b) = " . log($a * $b);');
echo "New anonymous function: $newfunc
";
echo $newfunc(2, M_E) . "
";
// outputs
// New anonymous function: lambda_1
// ln(2) + ln(2.718281828459) = 1.6931471805599
?>
Or, perhaps to have general handler function that can apply a set of operations to a list of parameters:
Example #2
Making a general processing function with create_function(3)
<?php
function process($var1, $var2, $farr)
{
foreach ($farr as $f) {
echo $f($var1, $var2) . "
";
}
}
// create a bunch of math functions
$f1 = 'if ($a >=0) {return "b*a^2 = ".$b*sqrt($a);} else {return false;}';
$f2 = "return "min(b^2+a, a^2,b) = ".min($a*$a+$b,$b*$b+$a);";
$f3 = 'if ($a > 0 && $b != 0) {return "ln(a)/b = ".log($a)/$b; } else { return false; }';
$farr = array(
create_function('$x,$y', 'return "some trig: ".(sin($x) + $x*cos($y));'),
create_function('$x,$y', 'return "a hypotenuse: ".sqrt($x*$x + $y*$y);'),
create_function('$a,$b', $f1),
create_function('$a,$b', $f2),
create_function('$a,$b', $f3)
);
echo "
Using the first array of anonymous functions
";
echo "parameters: 2.3445, M_PI
";
process(2.3445, M_PI, $farr);
// now make a bunch of string processing functions
$garr = array(
create_function('$b,$a', 'if (strncmp($a, $b, 3) == 0) return "** "$a" '.
'and "$b"
** Look the same to me! (looking at the first 3 chars)";'),
create_function('$a,$b', '; return "CRCs: " . crc32($a) . ", ".crc32($b);'),
create_function('$a,$b', '; return "similar(a,b) = " . similar_text($a, $b, &$p) . "($p%)";')
);
echo "
Using the second array of anonymous functions
";
process("Twas brilling and the slithy toves", "Twas the night", $garr);
?>
The above example will output:
Using the first array of anonymous functions
parameters: 2.3445, M_PI
some trig: -1.6291725057799
a hypotenuse: 3.9199852871011
b*a^2 = 4.8103313314525
min(b^2+a, a^2,b) = 8.6382729035898
ln(a)/b = 0.27122299212594
Using the second array of anonymous functions
** "Twas the night" and "Twas brilling and the slithy toves"
** Look the same to me! (looking at the first 3 chars)
CRCs: -725381282, 342550513
similar(a,b) = 11(45.833333333333%)
But perhaps the most common use for of lambda-style (anonymous) functions is to create callback functions, for example when using
array_walk(3) or usort(3)
Example #3
Using anonymous functions as callback functions
<?php
$av = array("the ", "a ", "that ", "this ");
array_walk($av, create_function('&$v,$k', '$v = $v . "mango";'));
print_r($av);
?>
The above example will output:
Array
(
[0] => the mango
[1] => a mango
[2] => that mango
[3] => this mango
)
an array of strings ordered from shorter to longer
<?php
$sv = array("small", "larger", "a big string", "it is a string thing");
print_r($sv);
?>
The above example will output:
Array
(
[0] => small
[1] => larger
[2] => a big string
[3] => it is a string thing
)
sort it from longer to shorter
<?php
usort($sv, create_function('$a,$b','return strlen($b) - strlen($a);'));
print_r($sv);
?>
The above example will output:
Array
(
[0] => it is a string thing
[1] => a big string
[2] => larger
[3] => small
)
SEE ALSO
Anonymous functions.
PHP Documentation Group CREATE_FUNCTION(3)