Sponsored Content
Full Discussion: Removing blocks from a file
Top Forums Shell Programming and Scripting Removing blocks from a file Post 302376894 by Scott on Wednesday 2nd of December 2009 03:10:24 PM
Old 12-02-2009
This is close (but no cigar!)

Code:
$ cat file1
>
99 0 5.80696
12.722 0.138373 5.31509
12.3915 0.298905 4.65587
12.0588 0.409492 4.04942
11.7234 0.473844 3.46864
11.3851 0.492713 2.89112
11.0435 0.464082 2.29359
10.6984 0.382409 1.6451
10.3501 0.236171 0.891863
10 0 0
>
82.9306 0 5.80696
12.722 0.138373 5.31509
12.3915 0.298905 4.65587
12.0588 0.409492 4.04942
11.7234 0.473844 3.46864
11.3851 0.492713 2.89112
11.0435 0.464082 2.29359
10.6984 0.382409 1.6451
10.3501 0.236171 0.891863
10 0 0
>
60.9306 0 5.80696
12.722 0.138373 5.31509
12.3915 0.298905 4.65587
12.0588 0.409492 4.04942
11.7234 0.473844 3.46864
11.3851 0.492713 2.89112
11.0435 0.464082 2.29359
10.6984 0.382409 1.6451
10.3501 0.236171 0.891863
10 0 0
>
39.9306 0 5.80696
12.722 0.138373 5.31509
12.3915 0.298905 4.65587
12.0588 0.409492 4.04942
11.7234 0.473844 3.46864
11.3851 0.492713 2.89112
11.0435 0.464082 2.29359
10.6984 0.382409 1.6451
10.3501 0.236171 0.891863
10 0 0
>
$ awk -v RS=">" -v ORS=">" '(NF > 2) && (($1 - $(NF-2) > 38))' file1

99 0 5.80696
12.722 0.138373 5.31509
12.3915 0.298905 4.65587
12.0588 0.409492 4.04942
11.7234 0.473844 3.46864
11.3851 0.492713 2.89112
11.0435 0.464082 2.29359
10.6984 0.382409 1.6451
10.3501 0.236171 0.891863
10 0 0
>
82.9306 0 5.80696
12.722 0.138373 5.31509
12.3915 0.298905 4.65587
12.0588 0.409492 4.04942
11.7234 0.473844 3.46864
11.3851 0.492713 2.89112
11.0435 0.464082 2.29359
10.6984 0.382409 1.6451
10.3501 0.236171 0.891863
10 0 0
>
60.9306 0 5.80696
12.722 0.138373 5.31509
12.3915 0.298905 4.65587
12.0588 0.409492 4.04942
11.7234 0.473844 3.46864
11.3851 0.492713 2.89112
11.0435 0.464082 2.29359
10.6984 0.382409 1.6451
10.3501 0.236171 0.891863
10 0 0
>

 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Delete blocks of lines from text file

Hello, Hello Firends, I have file like below. I want to remove selected blocks say abc,pqr,lst. how can i remove those blocks from file. zone abc { blah blah blah } zone xyz { blah blah blah } zone pqr { blah blah blah } (4 Replies)
Discussion started by: nrbhole
4 Replies

2. Solaris

Why does the # of blocks change for a file on a ZFS filesystem?

I created a zpool and zfs filesystem in OpenSolaris. I made two NFS mount points: > zpool history History for 'raidpool': 2009-01-15.17:12:48 zpool create -f raidpool raidz1 c4t1d0 c4t2d0 c4t3d0 c4t4d0 c4t5d0 2009-01-15.17:15:54 zfs create -o mountpoint=/vol01 -o sharenfs=on -o... (0 Replies)
Discussion started by: sqa777
0 Replies

3. Shell Programming and Scripting

extract blocks of text from a file

Hi, This is part of a large text file I need to separate out. I'd like some help to build a shell script that will extract the text between sets of dashed lines, write that to a new file using the whole or part of the first text string as the new file name, then move on to the next one and... (7 Replies)
Discussion started by: cajunfries
7 Replies

4. UNIX for Dummies Questions & Answers

Convert 512-blocks to 4k blocks

I'm Unix. I'm looking at "df" on Unix now and below is an example. It's lists the filesystems out in 512-blocks, I need this in 4k blocks. Is there a way to do this in Unix or do I manually convert and how? So for container 1 there is 7,340,032 in size in 512-blocks. What would the 4k block be... (2 Replies)
Discussion started by: rockycj
2 Replies

5. Shell Programming and Scripting

how to split this file into blocks and then send these blocks as input to the tool called Yices?

Hello, I have a file like this: FILE.TXT: (define argc :: int) (assert ( > argc 1)) (assert ( = argc 1)) <check> # (define c :: float) (assert ( > c 0)) (assert ( = c 0)) <check> # now, i want to separate each block('#' is the delimeter), make them separate files, and then send them as... (5 Replies)
Discussion started by: paramad
5 Replies

6. Shell Programming and Scripting

Extracting data blocks from file

Hi all, I want to extract blocks of data from a file depending on the contents of that block. The input file(table) has several blocks each starting with 'gene' in the first column. I want to extract only those blocks which do not have the expression '_T02' in the second column. Input file ... (3 Replies)
Discussion started by: newbie83
3 Replies

7. Shell Programming and Scripting

Row blocks to column blocks

Hello, Searched for a while and found some "line-to-column" script. My case is similar but with multiple fields each row: S02 Length Per S02 7043 3.864 S02 54477 29.89 S02 104841 57.52 S03 Length Per S03 1150 0.835 S03 1321 0.96 S03 ... (9 Replies)
Discussion started by: yifangt
9 Replies

8. Shell Programming and Scripting

Adding and removing blocks of text from file

Hello all, short story: I'm writing a script to add and remove dns records in dns files. Its on a RHEL 5.5 So far i've locked up the basic operations in a couple of functions: - validate the parameters - search for existant ip in file when adding - search for existant name records in... (6 Replies)
Discussion started by: maverick72
6 Replies

9. Shell Programming and Scripting

Blocks of text in a file - extract when matches...

I sat down yesterday to write this script and have just realised that my methodology is broken........ In essense I have..... ----------------------------------------------------------------- (This line really is in the file) Service ID: 12345 ... (7 Replies)
Discussion started by: Bashingaway
7 Replies

10. Solaris

Translate file name to disk blocks on UFS

Is there any way to translate a file name to the underlying file system's disk blocks/sectors/extents on UFS (Solaris OS on Sparc)? I found several ways to do it on linux file systems like ext2/3/4, using command like hdparm -- fibmap and filefrag. I also found one equivalent way to get that... (9 Replies)
Discussion started by: dorbaruch
9 Replies
Net::DRI(3pm)						User Contributed Perl Documentation					     Net::DRI(3pm)

NAME
Net::DRI - Interface to Domain Name Registries/Registrars/Resellers VERSION
This documentation refers to Net::DRI version 0.95 SYNOPSIS
use Net::DRI; my $dri=Net::DRI->new({ cache_ttl => 10, trid_factory => ..., logging => .... }); ... various operations ... $dri->end(); DESCRIPTION
Net::DRI is a Perl library to access services offered by domain name providers, such as registries or registrars. DRI stands for Domain Registration Interface and it aims to be for domain name registries/registrars/resellers what DBI is for databases: an abstraction over multiple providers, with multiple policies, transports and protocols all used through a uniform API. It is an object-oriented framework implementing RRP (RFC 2832/3632), EPP (core EPP in RFC 5730/5731/5732/5733/5734 aka STD69, extensions in RFC 3915/4114/4310/5076 and various extensions of ccTLDs/gTLDs - currently more than 30 TLDs are directly supported with extensions), RRI (.DE registration protocol), Whois, DAS (Domain Availability Service used by .BE, .EU, .AU, .NL), IRIS (RFC3981) DCHK (RFC5144) over LWZ (RFC4993) for .DE currently and XCP (RFC4992), .FR/.RE email and webservices interface, and resellers interface of some registrars (Gandi, OpenSRS, etc.). It has transports for connecting with UDP/TCP/TLS, HTTP/HTTPS, Web Services (XML-RPC and SOAP with/without WSDL), or SMTP- based registries/registrars. It is not limited to handling of domain names, it can be easily extended. For example, it supports ENUM registrations and validations, or DNSSEC provisioning. A shell is included for easy prototyping and debugging, see Net::DRI::Shell. Caching and logging features are also included by default. Please see the included README file for full details. EXAMPLES
Please see the "eg/" subdirectory of the distribution, it contains various examples. Please also see all unit tests under "t/", they show all parts of the API. SUBROUTINES
/METHODS After having used Net::DRI (which is the only module you should need to "use" from this distribution), you create an object as instance of this class, and every operation will be carried through it. trid_factory() This is an accessor to the trid factory (code reference) used to generate client transaction identificators, that are useful for logging and asynchronous operations. During the "new()" call, a "trid_factory()" is initialized to a default safe value (being Net::DRI::Util::create_trid_1). You need to call this method only if you wish to use another function to generate transaction identificators. All other objects (registry profiles and transports) created after that will inherit this value. If you call again "trid_factory()" the change will only apply to new objects (registry profiles and transports) created after the change, it will not apply to already existing objects (registry profiles and transports). logging() This is an accessor to the underlying Logging object. During the "new()" call you can provide the object, or just a string ("null", "stderr", "files" or "syslog" which are the current logging modules available in Net::DRI), or a reference to an array with the first parameter a string (same as previously) and the second parameter a reference to an hash with data needed by the logging class used (see for example Net::DRI::Logging::Files). If you want to log the application data (what is exchanged with remote server, such as EPP XML streams), you need to use logging level of 'notice', or higher. cache() This is an accessor to the underlying Cache object. See Net::DRI::Cache. This object has a "ttl()" method to access and change the current time to live for cached data. SUPPORT
For now, support questions should be sent to: <netdri@dotandco.com> Please also see the SUPPORT file in the distribution. SEE ALSO
<http://www.dotandco.com/services/software/Net-DRI/> AUTHOR
Patrick Mevzek, <netdri@dotandco.com> and various contributors (see Changes file and web page above) COPYRIGHT
Copyright (c) 2005-2010 Patrick Mevzek <netdri@dotandco.com>. All rights reserved. LICENSE
This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. See the LICENSE file that comes with this distribution for more details. perl v5.10.1 2010-03-25 Net::DRI(3pm)
All times are GMT -4. The time now is 04:35 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy