Sponsored Content
Full Discussion: Function extraction in PERL
Top Forums Shell Programming and Scripting Function extraction in PERL Post 302379208 by vkca on Wednesday 9th of December 2009 11:25:52 PM
Old 12-10-2009
Java Function extraction in PERL

the log contains mathematical operation as follows
fm_void_mathematics : PCM_OP_MATHS input function
PIN_FLD_NUM1 INT 1
PIN_FLD_NUM2 INT 2
PIN_FLD_RESULTS int
PIN_FLD_OUT INT *
D Wed Sep 16 05:40:22 2009 solaris_testing
fm_void_add :
PIN_FLD_SUM int 3
D Wed Sep 16 05:40:22 2009 solaris_testing
fm_void_sub
PIN_FLD_SUB int 1
D Wed Sep 16 05:40:22 2009 solaris_testing
fm_void_mul
PIN_FLD_MUL int 2
D Wed Sep 16 05:40:23 2009 solaris_testing
fm_void_mathematics : PCM_OP_MATHS output function
PIN_FLD_RESULTS INT
PIN_FLD_SUM INT
PIN_FLD_SUB INT
PIN_FLD_MUL INT
D Wed Sep 16 05:40:24 2009 solaris_testing

i want only the main contents from the log i.e fm_void_mathematics : PCM_OP_MATHS input function details and fm_void_mathematics : PCM_OP_MATHS output function details
can you help me writing this in PERL
EXPECTED OUTPUT
fm_void_mathematics : PCM_OP_MATHS input function
PIN_FLD_NUM1 INT 1
PIN_FLD_NUM2 INT 2
PIN_FLD_RESULTS int
PIN_FLD_OUT INT *
fm_void_mathematics : PCM_OP_MATHS output function
PIN_FLD_RESULTS INT
PIN_FLD_SUM INT
PIN_FLD_SUB INT
PIN_FLD_MUL INT
the remaining functions( fm_void_add, fm_void_sub, fm_void_mul) should not be displayed.
P.S : There are many functions like this and the function should not be hardcoded.
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Optimize/speed-up perl extraction

Hi, Is there a way I can extract my data faster. You know my data is 1.2 GB text file with 8Million rows with 38 columns/fields. Imagine how huge this is. How I can optimized the data extraction using perl. That is why I'm creating a script to filter only those informations that I need. Is... (3 Replies)
Discussion started by: pinpe
3 Replies

2. Shell Programming and Scripting

metapattern extraction in PERL

Hi, I want to extract some part of a pattern that matches my requirement in a string with PERL. A case in point is a string like: $eqtst="abh nmae res = 10 s abh nmae req = 10 s"; from which I want the words preceding the "=" symbol. Previously I was assured that there would be only 2 such... (4 Replies)
Discussion started by: Abhishek Ghose
4 Replies

3. Shell Programming and Scripting

String Extraction in Perl

I have a string stored in a variable. For instance, $str = " Opcode called is : CM_OP_xxx " where xxx changes dynamically and can be either LOGIN or SEARCH..... depends on runtime. For example : $str = " Opcode called is : CM_OP_SEARCH " $str = " Opcode called is : CM_OP_LOGIN " I... (3 Replies)
Discussion started by: vkca
3 Replies

4. Shell Programming and Scripting

Perl function extraction

The log file reads as follows. D function_add() ADD input data 1021214 0 VAR1 STR 10 0 VAR2 STR 20 0 VAR3 STR 1 SUM=VAR1+VAR2 D function_add() ADD output data 1021267 0 DISPLAY SUM D function_sub() SUB input data 1021214 0 VAR1 STR 10 0 VAR2 STR 20 0 VAR3 STR 1 sub=VAR1-VAR2 D... (2 Replies)
Discussion started by: vkca
2 Replies

5. Shell Programming and Scripting

Data extraction in perl variable

HI, i have variable in perl like below $tmp="/home/sai/automation/work/TFP_GN.txt" it can conatain any path its filled from config file. now i want extarct the path upto this /home/sai/automation/work/ and put it in another variable say... (4 Replies)
Discussion started by: raghavendra.nsn
4 Replies

6. Shell Programming and Scripting

Data Extraction problem in perl

Hello, I want to extract the words from a file which starts with SRD-R or SRD-DR. I have written a script which is able to trace the word but it is printing the whole line. sub extract_SRD_tag{ my ($tag, $app, $path, @data, $word ); $path = shift; $app = shift; open (FILE, $path) or... (2 Replies)
Discussion started by: suvendu4urs
2 Replies

7. Shell Programming and Scripting

perl extraction of code between comments /* .. */

Hi, I am using the following code to retrieve the contents between C-style comments "/* .. */". perl -lne 'while(/(\/\*.*?\*\/)/g) {print "$1";}' This works fine when the commented section of code is present in a single line. But I also need to extract the data which is present inside... (3 Replies)
Discussion started by: royalibrahim
3 Replies

8. Shell Programming and Scripting

perl function enquery

Dear all, I find a perl script that contains the following codes. Does anybody know the meaning of codes highlight. ..... @field = parse_csv($file); chomp(@field); ........ ........ sub parse_csv { my $text = shift; my @new = (); push( @new, $+ ) while $text =~ m{... (9 Replies)
Discussion started by: eldonlck
9 Replies

9. Shell Programming and Scripting

Perl-extraction using windows cmd

Hi, I need to extract Password expires from the output of windows command print `net user %USERNAME% /domain`; in perl. So i want to redirect the output of this win-cmd to a file and try extracting Password expires along with its value. i'm trying with this code but getting errors. #!usr/bin/perl... (1 Reply)
Discussion started by: sam_bd
1 Replies

10. Shell Programming and Scripting

Converting shell to Perl I run into shell built in function trap and need alternative in Perl

I am working on converting shell to Perl script. In shell we have built in function trap Do you know alternative in Perl or actually we don't need it? Thanks for contribution (3 Replies)
Discussion started by: digioleg54
3 Replies
CUBRID_LOB2_WRITE(3)							 1						      CUBRID_LOB2_WRITE(3)

cubrid_lob2_write - Write to a lob object.

SYNOPSIS
bool cubrid_lob2_write (resource $lob_identifier, string $buf) DESCRIPTION
The cubrid_lob2_write(3) function reads as much as data from $buf and stores it to the LOB object. Note that this function can only append characters now. PARAMETERS
o $lob_identifier -Lob identifier as a result of cubrid_lob2_new(3) or get from the result set. o $buf -Data that need to be written to the lob object. RETURN VALUES
TRUE if the process is successful and FALSE for failure. EXAMPLES
Example #1 cubrid_lob2_write(3) example 1 <?php // test_lob (id INT, contents CLOB) $conn = cubrid_connect("localhost", 33000, "demodb", "dba", ""); cubrid_execute($conn,"DROP TABLE if exists test_lob"); cubrid_execute($conn,"CREATE TABLE test_lob (id INT, contents CLOB)"); $req = cubrid_prepare($conn, "INSERT INTO test_lob VALUES(2, ?)"); $lob = cubrid_lob2_new($conn, 'CLOB'); $len = cubrid_lob2_write($lob, "Hello world"); cubrid_lob2_bind($req, 1, $lob); cubrid_execute($req); cubrid_disconnect($conn); ?> Example #2 cubrid_lob2_write(3) example 2 <?php // test_lob (id INT, contents CLOB) $conn = cubrid_connect("localhost", 33000, "demodb", "dba", ""); cubrid_execute($conn,"DROP TABLE if exists test_lob"); cubrid_execute($conn,"CREATE TABLE test_lob (id INT, contents CLOB)"); $req = cubrid_prepare($conn, "INSERT INTO test_lob VALUES(1, ?)"); $lob1 = cubrid_lob2_new($conn, 'CLOB'); $len = cubrid_lob2_write($lob1, "cubrid php driver"); cubrid_lob2_bind($req, 1, $lob1); cubrid_execute($req); $req = cubrid_execute($conn, "select * from test_lob"); $row = cubrid_fetch_row($req, CUBRID_LOB); $lob2 = $row[1]; cubrid_lob2_seek($lob2, 0, CUBRID_CURSOR_LAST); $pos = cubrid_lob2_tell($lob2); print "pos before write: $pos "; cubrid_lob2_write($lob2, "Hello world"); $pos = cubrid_lob2_tell($lob2); print "pos after write: $pos "; cubrid_disconnect($conn); ?> SEE ALSO
cubrid_lob2_read(3), cubrid_lob2_seek(3), cubrid_lob2_seek64(3), cubrid_lob2_tell(3), cubrid_lob2_tell64(3), cubrid_lob2_size(3), cubrid_lob2_size64(3). PHP Documentation Group CUBRID_LOB2_WRITE(3)
All times are GMT -4. The time now is 03:37 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy