Sponsored Content
Top Forums Shell Programming and Scripting Perl Script - Print Content of next line Post 302363558 by Scrutinizer on Tuesday 20th of October 2009 03:10:08 PM
Old 10-20-2009
Code:
#!/usr/bin/perl -w
open LOGFILE, 'status.dat' or die "I couldn't get at status.dat:  $!";
while (<LOGFILE>) {
  print $prev if /^service name = test/;
  $prev=$_
}

 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl : Find a string and Print full line

Hi Need a perl script to read lines in a file, scan for a string named "APPLE" and write to different file the only lines containing the matched string. (5 Replies)
Discussion started by: PrasannaKS
5 Replies

2. Shell Programming and Scripting

Perl :How to print the o/p of a Perl script on console and redirecting same in log file @ same time.

How can i print the output of a perl script on a unix console and redirect the same in a log file under same directory simultaneously ? Like in Shell script, we use tee, is there anything in Perl or any other option ? (2 Replies)
Discussion started by: butterfly20
2 Replies

3. Shell Programming and Scripting

Perl question - How do I print contents of an array on a single line?

I have the following code: print @testarray; which returns: 8 8 8 9 How do I return the array like this: The output is: 8, 8, 8, 9 (5 Replies)
Discussion started by: streetfighter2
5 Replies

4. Shell Programming and Scripting

want to print the file content from the specific line

Hi All, I would like to print the content from the specific line of a file . For example... i have file abc.txt which has 100 lines of code ,from this file i would like to print the content from 20,19,18th line......like that Regards Srikanth (4 Replies)
Discussion started by: srikanthg
4 Replies

5. Shell Programming and Scripting

Break a line content and print as column

Hi, I have urls in my input file like this http://unix.com/abc/def http://unix.com/kil/min I want to use the / as separator and print the last content as another column like this http://unix.com/abc/def def http://unix.com/kil/min min I was using awk -F option and then joining the... (3 Replies)
Discussion started by: jacobs.smith
3 Replies

6. Shell Programming and Scripting

Script to process file from a directory and grep the required content and print

Hi All, below script reads the perticular files from the directory. Am trying to fetch status and print them in the required format. It needs to read line and search for string "Passed/Failed" and print them under correct sub header. script : BASE_DIR=/tmp/test/REPORT/CollectReport #... (16 Replies)
Discussion started by: Optimus81
16 Replies

7. Shell Programming and Scripting

Help to print the line that share exactly same with column one content

Input file : AAAG TC AACCCT AACCCT AACCCT AACCCT TCTG TCTG TCTG AC AC TCTG TCTG AC AC AC AC AC AGTG AC AGTG TCC Desired output file : AACCCT AACCCT AACCCT AACCCT AC AC I would like to print out the line that share exactly same as the first column data content. Column one data... (4 Replies)
Discussion started by: perl_beginner
4 Replies

8. Shell Programming and Scripting

Perl SCript to read file content (if else statemenet)

Hi All, I wanted to write a perl script to read the content in a file,the file content is either 0 (zero) OR 1. The idea is like this. If (content =1), then it will proceed to perform some step. and then update the file content to 0(zero) else if (content =0), it will update the content to... (11 Replies)
Discussion started by: hploh
11 Replies

9. Shell Programming and Scripting

Break a line content and print as column

Hi, I have urls in my input file like this (1 Reply)
Discussion started by: tmonk1
1 Replies

10. Shell Programming and Scripting

Perl to extract values and print at end of each line

In the below perl I am trying to extract and print the values AF1=, the GT value, and F or QUAL diveded by 33 (rounded to the nearest whole #). The GT value is at the end after the GT:PL so all the possibilities are read into a hash h, then depending on the value that is in the line the... (1 Reply)
Discussion started by: cmccabe
1 Replies
ePerl(3pm)						User Contributed Perl Documentation						ePerl(3pm)

NAME
Parse::ePerl - Perl interface to the ePerl parser SYNOPSIS
use Parse::ePerl; $rc = Parse::ePerl::Preprocess($p); $rc = Parse::ePerl::Translate($p); $rc = Parse::ePerl::Precompile($p); $rc = Parse::ePerl::Evaluate($p); $rc = Parse::ePerl::Expand($p); DESCRIPTION
Parse::ePerl is the Perl 5 interface package to the functionality of the ePerl parser (see eperl(1) for more details about the stand-alone program). It directly uses the parser code from ePerl to translate a bristled script into a plain Perl script and additionally provides functions to precompile such scripts into P-code and evaluate those scripts to a buffer. All functions are parameterized via a hash reference $p which provide the necessary parameters. The result is a return code $rc which indicates success(1) or failure(0). PREPROCESSOR: $rc = Parse::ePerl::Preprocess($p) This is the ePerl preprocessor which expands "#include" directives. See eperl(1) for more details. Possible parameters for $p: Script Scalar holding the input script in source format. Result Reference to scalar receiving the resulting script in bristled Perl format. BeginDelimiter Scalar specifying the begin delimiter. Default is ``"<:"''. EndDelimiter Scalar specifying the end delimiter. Default is ``":>"''. INC A reference to a list specifying include directories. Default is "@INC". TRANSLATION: $rc = Parse::ePerl::Translate($p) This is the actual ePerl parser, i.e. this function converts a bristled ePerl-style script (provided in "$p-"{Script}> as a scalar) to a plain Perl script. The resulting script is stored into a buffer provided via a scalar reference in "$p-"{Result}>. The translation is directly done by the original C function Bristled2Plain() from ePerl, so the resulting script is exactly the same as with the stand-alone program eperl. Possible parameters for $p: Script Scalar holding the input script in bristled format. Result Reference to scalar receiving the resulting script in plain Perl format. BeginDelimiter Scalar specifying the begin delimiter. Default is ``"<:"''. EndDelimiter Scalar specifying the end delimiter. Default is ``":>"''. CaseDelimiters Boolean flag indicating if the delimiters are case-sensitive (1=default) or case-insensitive(0). Example: The following code $script = <<'EOT'; foo <: print "bar"; :> quux EOT Parse::ePerl::Translate({ Script => $script, Result => $script, }); translates the script in $script to the following plain Perl format: print "foo "; print "bar"; print " "; print "quux "; COMPILATION: $rc = Parse::ePerl::Precompile($p); This is an optional step between translation and evaluation where the plain Perl script is compiled from ASCII representation to P-code (the internal Perl bytecode). This step is used in rare cases only, for instance from within Apache::ePerl(3) for caching purposes. Possible parameters for $p: Script Scalar holding the input script in plain Perl format, usually the result from a previous Parse::ePerl::Translate(3) call. Result Reference to scalar receiving the resulting code reference. This code can be later directly used via the &$var construct or given to the Parse::ePerl::Evaluate(3) function. Error Reference to scalar receiving possible error messages from the compilation (e.g. syntax errors). Cwd Directory to switch to while precompiling the script. Name Name of the script for informal references inside error messages. Example: The following code Parse::ePerl::Precompile({ Script => $script, Result => $script, }); translates the plain Perl code (see above) in $script to a code reference and stores the reference again in $script. The code later can be either directly used via &$script instead of "eval($script)" or passed to the Parse::ePerl::Evaluate(3) function. EVALUATION: $rc = Parse::ePerl::Evaluate($p); Beside Parse::ePerl::Translate(3) this is the second main function of this package. It is intended to evaluate the result of Parse::ePerl::Translate(3) in a ePerl-like environment, i.e. this function tries to emulate the runtime environment and behavior of the program eperl. This actually means that it changes the current working directory and evaluates the script while capturing data generated on STDOUT/STDERR. Possible parameters for $p: Script Scalar (standard case) or reference to scalar (compiled case) holding the input script in plain Perl format or P-code, usually the result from a previous Parse::ePerl::Translate(3) or Parse::ePerl::Precompile(3) call. Result Reference to scalar receiving the resulting code reference. Error Reference to scalar receiving possible error messages from the evaluation (e.g. runtime errors). ENV Hash containing the environment for %ENV which should be used while evaluating the script. Cwd Directory to switch to while evaluating the script. Name Name of the script for informal references inside error messages. Example: The following code $script = <<'EOT'; print "foo "; print "bar"; print " "; print "quux "; EOT Parse::ePerl::Evaluate({ Script => $script, Result => $script, }); translates the script in $script to the following plain data: foo bar quux ONE-STEP EXPANSION: $rc = Parse::ePerl::Expand($p); This function just combines, Parse::ePerl::Translate(3) and Parse::ePerl::Evaluate(3) into one step. The parameters in $p are the union of the possible parameters for both functions. This is intended as a high-level interface for Parse::ePerl. AUTHOR
Ralf S. Engelschall rse@engelschall.com www.engelschall.com SEE ALSO
eperl(1) Web-References: Perl: perl(1), http://www.perl.com/ ePerl: eperl(1), http://www.engelschall.com/sw/eperl/ perl v5.14.2 2012-04-07 ePerl(3pm)
All times are GMT -4. The time now is 08:27 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy