Sponsored Content
Top Forums Shell Programming and Scripting Swapping or switching 2 lines using sed Post 302261060 by null7 on Sunday 23rd of November 2008 07:48:06 AM
Old 11-23-2008
At last i manage to solve the mystery. thanx to redouluv. what i'm done, i put close FH outside the while loop so that it capture the new file with new counter line. Smilie. Btw i still need to undestand this script especially the backup & swap cmnd. btw thanx again. glad to learn new things. Smilie

Code:
 perl -e'BEGIN {
  $Pattern = "1012345678";
  $Bak_ext = ".bak";
  #@Files = glob "ABC_DEF*";
 #print "help $i";
  }

@files = <ABC_DEF*>;
  foreach $File (@files) {
  ##checking:print "1\n";
  ##checking:print $File . "\n";
  #$File = $_;
  open FH, $File or die "$File : $!\n";
   while (<FH>)
 {
      ##checking:print "\n2\n";
      ##checking:print "line $. \n" ;
      if($. == 2 && (split)[3] == $Pattern)
     {
          ##checking:print "i'm line 2\n";
          local @ARGV = ($File);
          local $^I = $Bak_ext;
          local $/ = undef;

          while (<>) {
          s/
          \A(.*?\n)
          ((?:\S+\s+){3}$Pattern\b.*?\n)
          (.*?\n)
          /$1$3$2/xos;
          print;
         }
     }
 }close FH;
  ##checking:print "3\n\n";
}'

Rgrds.
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Swapping lines beginning with certain words using sed/awk

I have a large file which reads like this: fixed-address 192.168.6.6 { hardware ethernet 00:22:64:5b:db:b1; host X; } fixed-address 192.168.6.7 { hardware ethernet 00:22:64:5b:db:b3; host Y; } fixed-address 192.168.6.8 { hardware ethernet 00:22:64:5b:db:b4; host A; }... (4 Replies)
Discussion started by: ksk
4 Replies

2. Shell Programming and Scripting

swapping lines that match a condition using sed, perl or the like

I'm a bit new to regex and sed/perl stuff, so I would like to ask for some advice. I have tried several variations of scripts I've found on the net, but can't seem to get them to work out just right. I have a file with the following information... # Host 1 host 45583 { filename... (4 Replies)
Discussion started by: TheBigAmbulance
4 Replies

3. Shell Programming and Scripting

awk: switching lines and concatenating lines?

Hello, I have only recently begun with awk and need to write this: I have an input consisting of a couple of letters, a space and a number followed by various other characters: fiRcQ 9( ) klsRo 9( ) pause fiRcQ 9( ) pause klsRo continue 1 aPLnJ 62( ) fiRcQ continue 5 ... and so on I... (7 Replies)
Discussion started by: Borghal
7 Replies

4. Homework & Coursework Questions

Swapping Fields with Sed

Use and complete the template provided. The entire template must be completed. If you don't, your post may be deleted! 1. The problem statement, all variables and given/known data: The assignment is to convert a text table to csv format. I've got the cleaning up done, but I need to swap two... (0 Replies)
Discussion started by: VoiceInADesert
0 Replies

5. Shell Programming and Scripting

Swapping three lines

I have some text: <date>some_date</date> <text>some_text</text> <name>some_name<name> and I want to transform it to smthng like that: some_name on some_date: some_text I've tried sed: sed 's/<text>\(.*\)<\/text> <name>\(.*\)<\/name>/\2 - \1/' but it says unterminated... (13 Replies)
Discussion started by: dsjkvf
13 Replies

6. Shell Programming and Scripting

Switching lines

Hi I'm quite new with linux. Very simple, I need to swap every 2 lines in a file. Example INPUT: a a a b b b x x x y y y s s s t t t OUTPUT: b b b a a a y y y x x x t t t (5 Replies)
Discussion started by: hernand
5 Replies

7. Shell Programming and Scripting

AWK swapping fields on different lines

Hi All, Sorry if this question has been posted elsewhere, but I'm hoping someone can help me! Bit of an AWK newbie here, but I'm learning (slowly!) I'm trying to cobble a script together that will save me time (is there any other kind?), to swap two fields (one containing whitespace), with... (5 Replies)
Discussion started by: Bravestarr
5 Replies

8. Shell Programming and Scripting

ksh sed - Extract specific lines with mulitple occurance of interesting lines

Data file example I look for primary and * to isolate the interesting slot number. slot=`sed '/^primary$/,/\*/!d' filename | tail -1 | sed s'/*//' | awk '{print $1" "$2}'` Now I want to get the Touch line for only the associate slot number, in this case, because the asterisk... (2 Replies)
Discussion started by: popeye
2 Replies

9. Shell Programming and Scripting

Swapping the 1st 4 lines only

How can you swap the first 4 line only, the rest will stay the same. thanks #!/bin/sh line=4 awk -v var="$line" 'NR==var { s=$0 getline;s=$0"\n"s getline;print;print s next }1' fileko.tx . desired output: (8 Replies)
Discussion started by: invinzin21
8 Replies

10. Shell Programming and Scripting

Swapping lines

Hi there, I have a text that I'm trying to format into something more readable. However, I'm stuck in the last step. I've searched and tried things over the internet with no avail. OS: Mac After parsing the original text that I won't put here, I managed to get something like this, but this... (8 Replies)
Discussion started by: Kibou
8 Replies
IO::File(3perl) 					 Perl Programmers Reference Guide					   IO::File(3perl)

NAME
IO::File - supply object methods for filehandles SYNOPSIS
use IO::File; $fh = IO::File->new(); if ($fh->open("< file")) { print <$fh>; $fh->close; } $fh = IO::File->new("> file"); if (defined $fh) { print $fh "bar "; $fh->close; } $fh = IO::File->new("file", "r"); if (defined $fh) { print <$fh>; undef $fh; # automatically closes the file } $fh = IO::File->new("file", O_WRONLY|O_APPEND); if (defined $fh) { print $fh "corge "; $pos = $fh->getpos; $fh->setpos($pos); undef $fh; # automatically closes the file } autoflush STDOUT 1; DESCRIPTION
"IO::File" inherits from "IO::Handle" and "IO::Seekable". It extends these classes with methods that are specific to file handles. CONSTRUCTOR
new ( FILENAME [,MODE [,PERMS]] ) Creates an "IO::File". If it receives any parameters, they are passed to the method "open"; if the open fails, the object is destroyed. Otherwise, it is returned to the caller. new_tmpfile Creates an "IO::File" opened for read/write on a newly created temporary file. On systems where this is possible, the temporary file is anonymous (i.e. it is unlinked after creation, but held open). If the temporary file cannot be created or opened, the "IO::File" object is destroyed. Otherwise, it is returned to the caller. METHODS
open( FILENAME [,MODE [,PERMS]] ) open( FILENAME, IOLAYERS ) "open" accepts one, two or three parameters. With one parameter, it is just a front end for the built-in "open" function. With two or three parameters, the first parameter is a filename that may include whitespace or other special characters, and the second parameter is the open mode, optionally followed by a file permission value. If "IO::File::open" receives a Perl mode string (">", "+<", etc.) or an ANSI C fopen() mode string ("w", "r+", etc.), it uses the basic Perl "open" operator (but protects any special characters). If "IO::File::open" is given a numeric mode, it passes that mode and the optional permissions value to the Perl "sysopen" operator. The permissions default to 0666. If "IO::File::open" is given a mode that includes the ":" character, it passes all the three arguments to the three-argument "open" operator. For convenience, "IO::File" exports the O_XXX constants from the Fcntl module, if this module is available. binmode( [LAYER] ) "binmode" sets "binmode" on the underlying "IO" object, as documented in "perldoc -f binmode". "binmode" accepts one optional parameter, which is the layer to be passed on to the "binmode" call. NOTE
Some operating systems may perform "IO::File::new()" or "IO::File::open()" on a directory without errors. This behavior is not portable and not suggested for use. Using "opendir()" and "readdir()" or "IO::Dir" are suggested instead. SEE ALSO
perlfunc, "I/O Operators" in perlop, IO::Handle, IO::Seekable, IO::Dir HISTORY
Derived from FileHandle.pm by Graham Barr <gbarr@pobox.com>. perl v5.14.2 2011-09-19 IO::File(3perl)
All times are GMT -4. The time now is 01:02 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy