Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Edit a file in perl
Top Forums Shell Programming and Scripting Edit a file in perl Post 302905717 by bakunin on Friday 13th of June 2014 09:17:08 AM
Old 06-13-2014
In your logic every line is printed, then some (starting with "HDR" or "TRL") are changed and then printed again.

You need to switch off the automatic echoing of lines, then move the "print FH" out of the if- and elsif-branches, like this:

Code:
while(<FH>){
        if (/^HDR/){
                s/XXX/YYY/;
        }elsif(/^TRL/){
                s/YYY/XXX/;
        }
        print FH;
}

I hope this helps.

bakunin
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl CGI to access / edit "root" owned config files

I am trying to write a CGI program which accesses UNIX configuration files and changes them as required. The thing is, I don't want the CGI program to be "root" owned - it's Perl based! Is there any way that the Perl CGI program can request a username and password - and then use this to... (1 Reply)
Discussion started by: WIntellect
1 Replies

2. Shell Programming and Scripting

file edit help

Hi, Could anyone give me a idea how to strip the lines from a given file. example *********** 1st occurence 1st occurence 1st occurence 1st occurence *********** 2nd occurence 2nd occurence 2nd occurence 2nd occurence 2nd occurence 2nd occurence ************* 3rd occurence 3rd... (10 Replies)
Discussion started by: sentak
10 Replies

3. Shell Programming and Scripting

Shell/Perl Script to edit dhcpd.conf

Hi, I need to get a script together to edit the dhcp service configuration file dhcpd.conf. Mac addresses are defined in classes ex. class "HOST1" { match if substring (hardware, 1,18)=00:11:11:FF:FF:FF;} class "HOST2" ... class "HOST3" ... ... followed by allow or deny statements:... (4 Replies)
Discussion started by: sahilb
4 Replies

4. Shell Programming and Scripting

Edit a line in a file with perl

Hi, How can I edit a line in a file? For example, a.txt contains: start: 1 2 3 4 stop: a b c d and I want to change "3" to "9" and to add "5" after "4" the result should be (a.txt): start: 1 9 3 4 5 stop: a b c d Thanks, zed (5 Replies)
Discussion started by: zed
5 Replies

5. Shell Programming and Scripting

Edit value in File

I have a file oratab with entry like this SCADAG:/esitst1/oracle/product/9.2.0.8:Y I am trying to discover a way to change the 9.2.0.8 part of this to something like 10.2.0.4 as part of an upgrade script. I have tried cat /etc/oratab >>/tmp/oratab... (1 Reply)
Discussion started by: sewood
1 Replies

6. Shell Programming and Scripting

help on a perl script to edit file

Hi, sample file looks like this.. <hp> <name> <detail>adsg</detail> ... ... </name><ft>4264</ft> </hp> I need to edit the last but one line using perl script. I want the format to be .. <hp> <name> <detail>adsg</detail> ... ... </name> (9 Replies)
Discussion started by: meghana
9 Replies

7. Shell Programming and Scripting

Script to Edit the file content and create new file

I have a requirement, which is as follows *. Folder contains list of xmls. Script has to create new xml files by copying the existing one and renaming it by appending "_pre.xml" at the end. *. Each file has multiple <Name>fileName</Name> entry. The script has to find the first occurance of... (1 Reply)
Discussion started by: sudesh.ach
1 Replies

8. Programming

Problems using Perl DBI to edit database entries - basic stuff

Hello. I am taking a Perl class in college and we've briefly covered SQL and moved on. We have a term project and we can do whatever we want. My project will rely strongly on an SQL Database so I am trying to learn as much about Perl DBI as I can to get things up and going. I am basically... (1 Reply)
Discussion started by: Dave247
1 Replies

9. Shell Programming and Scripting

perl edit file

Is there a way to edit a file without opening two files the only method I know is one file for reading from and one file writing to I cannot think of any other ways (4 Replies)
Discussion started by: 3junior
4 Replies

10. Shell Programming and Scripting

Edit distance using perl or awk

Dear all, I am working on a large Sindhi lexicon which I hope to complete by 2017 and place in open source. The database is in Arabic script in two columns delimited by an equal to sign. Column 1 contains a word or words without the short vowel and also some extraneous information which is... (0 Replies)
Discussion started by: gimley
0 Replies

LEARN ABOUT MOJAVE

datetime::locale::gez_et

DateTime::Locale::gez_ET(3)				User Contributed Perl Documentation			       DateTime::Locale::gez_ET(3)

NAME

       DateTime::Locale::gez_ET

SYNOPSIS

	 use DateTime;

	 my $dt = DateTime->now( locale => 'gez_ET' );
	 print $dt->month_name();

DESCRIPTION

       This is the DateTime locale package for Geez Ethiopia.

DATA

       This locale inherits from the DateTime::Locale::gez locale.

       It contains the following data.

   Days
       Wide (format)

	 XXX
	 XXX
	 XXX
	 XXX
	 XXX
	 XXXX
	 XXX

       Abbreviated (format)

	 XXX
	 XXX
	 XXX
	 XXX
	 XXX
	 XXX
	 XXX

       Narrow (format)

	 X
	 X
	 X
	 X
	 X
	 X
	 X

       Wide (stand-alone)

	 XXX
	 XXX
	 XXX
	 XXX
	 XXX
	 XXXX
	 XXX

       Abbreviated (stand-alone)

	 XXX
	 XXX
	 XXX
	 XXX
	 XXX
	 XXX
	 XXX

       Narrow (stand-alone)

	 X
	 X
	 X
	 X
	 X
	 X
	 X

   Months
       Wide (format)

	 XXX
	 XXX
	 XXX
	 XXX
	 XXXX
	 XXX
	 XXX
	 XXX
	 XXX
	 XXX
	 XXX
	 XXX

       Abbreviated (format)

	 XXX
	 XXX
	 XXX
	 XXX
	 XXX
	 XXX
	 XXX
	 XXX
	 XXX
	 XXX
	 XXX
	 XXX

       Narrow (format)

	 X
	 X
	 X
	 X
	 X
	 X
	 X
	 X
	 X
	 X
	 X
	 X

       Wide (stand-alone)

	 XXX
	 XXX
	 XXX
	 XXX
	 XXXX
	 XXX
	 XXX
	 XXX
	 XXX
	 XXX
	 XXX
	 XXX

       Abbreviated (stand-alone)

	 XXX
	 XXX
	 XXX
	 XXX
	 XXX
	 XXX
	 XXX
	 XXX
	 XXX
	 XXX
	 XXX
	 XXX

       Narrow (stand-alone)

	 X
	 X
	 X
	 X
	 X
	 X
	 X
	 X
	 X
	 X
	 X
	 X

   Quarters
       Wide (format)

	 Q1
	 Q2
	 Q3
	 Q4

       Abbreviated (format)

	 Q1
	 Q2
	 Q3
	 Q4

       Narrow (format)

	 1
	 2
	 3
	 4

       Wide (stand-alone)

	 Q1
	 Q2
	 Q3
	 Q4

       Abbreviated (stand-alone)

	 Q1
	 Q2
	 Q3
	 Q4

       Narrow (stand-alone)

	 1
	 2
	 3
	 4

   Eras
       Wide

	 BCE
	 CE

       Abbreviated

	 X/X
	 X/X

       Narrow

	 X/X
	 X/X

   Date Formats
       Full

	  2008-02-05T18:30:30 = XXXX 05 XXX XXXX 2008 X/X
	  1995-12-22T09:05:02 = XXXX 22 XXX XXXX 1995 X/X
	 -0010-09-15T04:44:23 = XXXXX 15 XXX XXXX -10 X/X

       Long

	  2008-02-05T18:30:30 = 05 XXX 2008
	  1995-12-22T09:05:02 = 22 XXX 1995
	 -0010-09-15T04:44:23 = 15 XXX -10

       Medium

	  2008-02-05T18:30:30 = 05-XXX-2008
	  1995-12-22T09:05:02 = 22-XXX-1995
	 -0010-09-15T04:44:23 = 15-XXX--10

       Short

	  2008-02-05T18:30:30 = 05/02/08
	  1995-12-22T09:05:02 = 22/12/95
	 -0010-09-15T04:44:23 = 15/09/-10

       Default

	  2008-02-05T18:30:30 = 05-XXX-2008
	  1995-12-22T09:05:02 = 22-XXX-1995
	 -0010-09-15T04:44:23 = 15-XXX--10

   Time Formats
       Full

	  2008-02-05T18:30:30 = 6:30:30 XXX UTC
	  1995-12-22T09:05:02 = 9:05:02 XXX UTC
	 -0010-09-15T04:44:23 = 4:44:23 XXX UTC

       Long

	  2008-02-05T18:30:30 = 6:30:30 XXX UTC
	  1995-12-22T09:05:02 = 9:05:02 XXX UTC
	 -0010-09-15T04:44:23 = 4:44:23 XXX UTC

       Medium

	  2008-02-05T18:30:30 = 6:30:30 XXX
	  1995-12-22T09:05:02 = 9:05:02 XXX
	 -0010-09-15T04:44:23 = 4:44:23 XXX

       Short

	  2008-02-05T18:30:30 = 6:30 XXX
	  1995-12-22T09:05:02 = 9:05 XXX
	 -0010-09-15T04:44:23 = 4:44 XXX

       Default

	  2008-02-05T18:30:30 = 6:30:30 XXX
	  1995-12-22T09:05:02 = 9:05:02 XXX
	 -0010-09-15T04:44:23 = 4:44:23 XXX

   Datetime Formats
       Full

	  2008-02-05T18:30:30 = XXXX 05 XXX XXXX 2008 X/X 6:30:30 XXX UTC
	  1995-12-22T09:05:02 = XXXX 22 XXX XXXX 1995 X/X 9:05:02 XXX UTC
	 -0010-09-15T04:44:23 = XXXXX 15 XXX XXXX -10 X/X 4:44:23 XXX UTC

       Long

	  2008-02-05T18:30:30 = 05 XXX 2008 6:30:30 XXX UTC
	  1995-12-22T09:05:02 = 22 XXX 1995 9:05:02 XXX UTC
	 -0010-09-15T04:44:23 = 15 XXX -10 4:44:23 XXX UTC

       Medium

	  2008-02-05T18:30:30 = 05-XXX-2008 6:30:30 XXX
	  1995-12-22T09:05:02 = 22-XXX-1995 9:05:02 XXX
	 -0010-09-15T04:44:23 = 15-XXX--10 4:44:23 XXX

       Short

	  2008-02-05T18:30:30 = 05/02/08 6:30 XXX
	  1995-12-22T09:05:02 = 22/12/95 9:05 XXX
	 -0010-09-15T04:44:23 = 15/09/-10 4:44 XXX

       Default

	  2008-02-05T18:30:30 = 05-XXX-2008 6:30:30 XXX
	  1995-12-22T09:05:02 = 22-XXX-1995 9:05:02 XXX
	 -0010-09-15T04:44:23 = 15-XXX--10 4:44:23 XXX

   Available Formats
       d (d)

	  2008-02-05T18:30:30 = 5
	  1995-12-22T09:05:02 = 22
	 -0010-09-15T04:44:23 = 15

       EEEd (d EEE)

	  2008-02-05T18:30:30 = 5 XXX
	  1995-12-22T09:05:02 = 22 XXX
	 -0010-09-15T04:44:23 = 15 XXX

       Hm (H:mm)

	  2008-02-05T18:30:30 = 18:30
	  1995-12-22T09:05:02 = 9:05
	 -0010-09-15T04:44:23 = 4:44

       hm (h:mm a)

	  2008-02-05T18:30:30 = 6:30 XXX
	  1995-12-22T09:05:02 = 9:05 XXX
	 -0010-09-15T04:44:23 = 4:44 XXX

       Hms (H:mm:ss)

	  2008-02-05T18:30:30 = 18:30:30
	  1995-12-22T09:05:02 = 9:05:02
	 -0010-09-15T04:44:23 = 4:44:23

       hms (h:mm:ss a)

	  2008-02-05T18:30:30 = 6:30:30 XXX
	  1995-12-22T09:05:02 = 9:05:02 XXX
	 -0010-09-15T04:44:23 = 4:44:23 XXX

       M (L)

	  2008-02-05T18:30:30 = 2
	  1995-12-22T09:05:02 = 12
	 -0010-09-15T04:44:23 = 9

       Md (M-d)

	  2008-02-05T18:30:30 = 2-5
	  1995-12-22T09:05:02 = 12-22
	 -0010-09-15T04:44:23 = 9-15

       MEd (E, M-d)

	  2008-02-05T18:30:30 = XXX, 2-5
	  1995-12-22T09:05:02 = XXX, 12-22
	 -0010-09-15T04:44:23 = XXX, 9-15

       MMdd (dd/MM)

	  2008-02-05T18:30:30 = 05/02
	  1995-12-22T09:05:02 = 22/12
	 -0010-09-15T04:44:23 = 15/09

       MMM (LLL)

	  2008-02-05T18:30:30 = XXX
	  1995-12-22T09:05:02 = XXX
	 -0010-09-15T04:44:23 = XXX

       MMMd (MMM d)

	  2008-02-05T18:30:30 = XXX 5
	  1995-12-22T09:05:02 = XXX 22
	 -0010-09-15T04:44:23 = XXX 15

       MMMEd (E MMM d)

	  2008-02-05T18:30:30 = XXX XXX 5
	  1995-12-22T09:05:02 = XXX XXX 22
	 -0010-09-15T04:44:23 = XXX XXX 15

       MMMMd (MMMM d)

	  2008-02-05T18:30:30 = XXX 5
	  1995-12-22T09:05:02 = XXX 22
	 -0010-09-15T04:44:23 = XXX 15

       MMMMdd (dd MMMM)

	  2008-02-05T18:30:30 = 05 XXX
	  1995-12-22T09:05:02 = 22 XXX
	 -0010-09-15T04:44:23 = 15 XXX

       MMMMEd (E MMMM d)

	  2008-02-05T18:30:30 = XXX XXX 5
	  1995-12-22T09:05:02 = XXX XXX 22
	 -0010-09-15T04:44:23 = XXX XXX 15

       ms (mm:ss)

	  2008-02-05T18:30:30 = 30:30
	  1995-12-22T09:05:02 = 05:02
	 -0010-09-15T04:44:23 = 44:23

       y (y)

	  2008-02-05T18:30:30 = 2008
	  1995-12-22T09:05:02 = 1995
	 -0010-09-15T04:44:23 = -10

       yM (y-M)

	  2008-02-05T18:30:30 = 2008-2
	  1995-12-22T09:05:02 = 1995-12
	 -0010-09-15T04:44:23 = -10-9

       yMEd (EEE, y-M-d)

	  2008-02-05T18:30:30 = XXX, 2008-2-5
	  1995-12-22T09:05:02 = XXX, 1995-12-22
	 -0010-09-15T04:44:23 = XXX, -10-9-15

       yMMM (y MMM)

	  2008-02-05T18:30:30 = 2008 XXX
	  1995-12-22T09:05:02 = 1995 XXX
	 -0010-09-15T04:44:23 = -10 XXX

       yMMMEd (EEE, y MMM d)

	  2008-02-05T18:30:30 = XXX, 2008 XXX 5
	  1995-12-22T09:05:02 = XXX, 1995 XXX 22
	 -0010-09-15T04:44:23 = XXX, -10 XXX 15

       yMMMM (y MMMM)

	  2008-02-05T18:30:30 = 2008 XXX
	  1995-12-22T09:05:02 = 1995 XXX
	 -0010-09-15T04:44:23 = -10 XXX

       yQ (y Q)

	  2008-02-05T18:30:30 = 2008 1
	  1995-12-22T09:05:02 = 1995 4
	 -0010-09-15T04:44:23 = -10 3

       yQQQ (y QQQ)

	  2008-02-05T18:30:30 = 2008 Q1
	  1995-12-22T09:05:02 = 1995 Q4
	 -0010-09-15T04:44:23 = -10 Q3

       yyMM (MM/yy)

	  2008-02-05T18:30:30 = 02/08
	  1995-12-22T09:05:02 = 12/95
	 -0010-09-15T04:44:23 = 09/-10

       yyQ (Q yy)

	  2008-02-05T18:30:30 = 1 08
	  1995-12-22T09:05:02 = 4 95
	 -0010-09-15T04:44:23 = 3 -10

       yyyyMMMM (MMMM y)

	  2008-02-05T18:30:30 = XXX 2008
	  1995-12-22T09:05:02 = XXX 1995
	 -0010-09-15T04:44:23 = XXX -10

   Miscellaneous
       Prefers 24 hour time?

       No

       Local first day of the week

       XXXX

SUPPORT

       See DateTime::Locale.

AUTHOR

       Dave Rolsky <autarch@urth.org>

COPYRIGHT

       Copyright (c) 2008 David Rolsky. All rights reserved. This program is free software; you can redistribute it and/or modify it under the
       same terms as Perl itself.

       This module was generated from data provided by the CLDR project, see the LICENSE.cldr in this distribution for details on the CLDR data's
       license.

perl v5.18.2							    2017-10-06					       DateTime::Locale::gez_ET(3)
All times are GMT -4. The time now is 01:48 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy