Sponsored Content
Top Forums Shell Programming and Scripting Perl Script - Print Content of next line Post 302363347 by zarahel on Tuesday 20th of October 2009 09:10:19 AM
Old 10-20-2009
It worked...thankx to you all...you guys rulle!

---------- Post updated at 06:09 AM ---------- Previous update was at 04:22 AM ----------

Btw, one more doubt...

Do you know how I can get the previous line instead of the next one?

Imagine that I have the following:

servicestatus {
hostname = Obelix
service name = test

The script will find the line containing "service name = test", and I want to print the content of the previous line "hostname = Obelix".

---------- Post updated at 08:10 AM ---------- Previous update was at 06:09 AM ----------

Ok...i got it

Here´s one getting the previous line:

Code:
#!/usr/bin/perl -w

open (CHECKLOG, "status.dat");

@LINHAS = <CHECKLOG>;
@lnumber = @LINHAS;
$lnumber = @lnumber;

for ($i=0;$i < $lnumber; $i++){
        if($LINHAS[$i] =~ /^\tservice_description=PING/){
                print "Linhas: $LINHAS[$i-1]\n";
        }
}

Thkx again to you experts Smilie
 

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
PHOTON(1)																 PHOTON(1)

NAME
photon - generates photo albums SYNOPSIS
photon [OPTIONS] [PATH] DESCRIPTION
Photon generates clean, yet configurable, static HTML photo galleries. All of the work is done from the command line, and the resulting output can easily be configured by changing the template files found in /usr/share/photon/templates. To create a new template (skin), first create a new directory: mkdir -p ${HOME}/.photon/templates/my_theme/ Then copy the contents of /usr/share/photon/templates/photonv1/ to this new directory. Photon only needs three files to build pages: index.html used to display the content of a folder image.html used to display the page for an image movie.html used to display the page for a movie If a file is missing, then photon will throw an error and will not run. HOW TO BUILD A GALLERY
Quick start $ photon -o myoutputdir /photos Use the gimp plugin $ photon --resize-plugin=gimp -v -o myoutputdir /photos Change the size for all images and the thumbnail and keep the original photo $ photon --sizelist=0,1600x1200,800x600 --thumbsize=320x240 -o myoutputdir /photos Create a gallery from your custom template (skin) $ photon -k my_theme -o myoutputdir /photos See photon help $ photon --help OPTIONS
-a | --awstats Insert Javascript for Awstats --awstats-url=URL Change default value for Awstats script url -c NAME | --comment Name of the comment file (default .comments) -d NUM | --display-columns=NUM Number of columns in index (default 3) -E | --no-exif Don't include EXIF information in HTML file -f | --force Overwrite non-image generated files (html, javascript, etc) (default no) -ff | --force --force Overwrite image files (default no) -h | --help Print this help -I | --no-index Do not generate the high level index.html -J | --no-javascript Do not use javascript (no shortcuts, ... ) -k | --skin=THEME Skin selector (default photonv1) --print-skins Print out available skins (templates) -l NUM | --display-lines=NUM Number of lines in index (default 5) -m | --movie Movie mode, include link to movie (*.mov) -o NAME | --output-directory=NAME Name of the output directory -s LIST | --sizelist=LIST Image sizes (default 0,1024x768,800x600,640x480). Zero, which is the default, uses the original resolution. W x H specifies the width and height of the image in pixels. -t SIZE | --thumbsize=SIZE Size of thumbnails (default 160x120) -v | --verbose Verbosely print information -V | --version Print program version number -z | --compress Compress the original image if selected (default copy the image) --exif-bordercolor=COLOR Exif window border color (default #008000) --exif-bgcolor=COLOR Exif window background color (default #f0fff0) --exif-fgcolor=COLOR Exif window text color (default black) --body-bgcolor=COLOR Body background color (default #ccccff) --img-bgcolor=COLOR Image background color (default white) --exclude=PATTERN Exclude files matching PATTERN --resize-plugin=PLUG Where PLUG is the program used to create thumbnails internal: fastest method (default) gimp: use Gimp>1.x (better quality) --resize-quality-low=NUM Quality for small image. 0 (bad) and 100 (good) --resize-quality-high=NUM Quality for big image 0 (bad) and 100 (good) --gimp-program=PROG use PROG for gimp SHORTCUTS WHILE VIEWING AN IMAGE
n/SPACE Go to the next image (with the same resolution) p/BACKSPACE Go to the previous image (with the same resolution) s Start/Stop the slideshow +/- Increase/Decrease by one second the slideshow's period h Show shortcut and help i Show Exif information z Change to the higher resolution [NOT YET IMPLEMENTED] SEE ALSO
gimp(1) AUTHOR
Written by Luc Saillard, <luc@saillard.org> Main web site: http://www.saillard.org/programs_and_patches/photon/ This manual page was written by Kevin Coyner <kcoyner@debian.org> for the Debian project but may be used by others. 12/16/2006 PHOTON(1)
All times are GMT -4. The time now is 12:44 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy