Sponsored Content
Top Forums UNIX for Dummies Questions & Answers Newbie help with New Line & Blank Line Post 302279706 by vgersh99 on Friday 23rd of January 2009 03:19:56 PM
Old 01-23-2009
something along these lines

nawk -f kt.awk myInputFile

kt.awk:
Code:
BEGIN {
  FS=OFS=","
}
FNR==1 {curr=$1}
$1 != curr && NF>1 { curr=$1; printf "\n"}
{
  if (NF>3)
     print $1,$2,$3 ORS $4
  else
     print
}

 

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

Newbie ? Need Help with If/Then & Line Breaks...

I hope this makes sense, but I need help with what is indicated with %%, below : A.) ####List active servers and send to file#### # ps -ef | grep jboss | grep sh | awk '{if ($14) {print $12;}else {print $11}}' | sort > /export/home/kthatch/script_results client302 client306 client309... (1 Reply)
Discussion started by: kthatch
1 Replies

2. Shell Programming and Scripting

sed: delete regex line and next line if blank

Hi, I want to write a sed script which from batiato: batiato/giubbe: pip_b.2.txt pip_b.3.txt pip_b.3mmm.txt bennato: bennato/peterpan: 123.txt consoli: pip_a.12.txt daniele: (2 Replies)
Discussion started by: one71
2 Replies

3. UNIX for Dummies Questions & Answers

Question: Help need to remove blank line & sed: Couldn't re-allocate memory error.

I've shell script where i used the below command to take the line which contains patterns. sed -n "/$year 05:/,/$year 17:/p" trace.log | grep -f patterns.txt > output.log This was working fine for long time, but now a days this script is not working with and throwing error like sed:... (8 Replies)
Discussion started by: senthil.ak
8 Replies

4. Shell Programming and Scripting

Replace two blank line with a single blank line

Hi Guys, I have a file in which each set of records are separated by two blank line. I want to replace it with a single blank line. Can you guys help me out? Regards, Magesh (9 Replies)
Discussion started by: mac4rfree
9 Replies

5. Shell Programming and Scripting

Fill the empty line by adding line before blank line

FIle A "A" 2 aa 34 3 ac 5 cd "B" 3 hu 67 4 fg 5 gy output shud be A"" 2 aa 34 "A" 3 ac 34 "A" 5 cd 34 "B" 3 hu 67 "B" 4 fg 67 "B" 5 gy 67 (6 Replies)
Discussion started by: cdfd123
6 Replies

6. Shell Programming and Scripting

Print lines between a regExp & a blank line

Hi, I have a file, say files_list, as below (o/p of ls -R cmd) $ cat files_list /remote/dir/path/to/file: sub-dir1 sub-dir2 sub-dir3 ... /remote/dir/path/to/file/sub-dir1: remote_file1.csv.tgz <blank line 1> /remote/dir/path/to/file/sub-dir2: remote_file2.csv.tgz <blank... (3 Replies)
Discussion started by: dips_ag
3 Replies

7. Shell Programming and Scripting

String search and print next all lines in one line until blank line

Dear all I want to search special string in file and then print next all line in one line until blank lines come. Help me plz for same. My input file and desire op file is as under. i/p file: A1/EXT "BSCABD1_21233G1" 757 130823 1157 RADIO X-CEIVER ADMINISTRATION BTS EXTERNAL FAULT ... (7 Replies)
Discussion started by: jaydeep_sadaria
7 Replies

8. Shell Programming and Scripting

Need a program that read a file line by line and prints out lines 1, 2 & 3 after an empty line...

Hello, I need a program that read a file line by line and prints out lines 1, 2 & 3 after an empty line... An example of entries in the file would be: SRVXPAPI001 ERRO JUN24 07:28:34 1775 REASON= 0000, PROCID= #E506 #1065: TPCIPPR, INDEX= 003F ... (8 Replies)
Discussion started by: Ferocci
8 Replies

9. Shell Programming and Scripting

Combine multiline to one line till a blank line

Hello, I have a file as :- ABC DEF GHI JKL <BlankLine> MNO PQR STU VWX <BlankLine> YZA I need it as below:- ABCDEFGHIJKL; MNOPQRSTUVWX; (3 Replies)
Discussion started by: jassi10781
3 Replies

10. Shell Programming and Scripting

In a file, replace blank line by the last line not blank above

Dear All, In a CSV file, say that a given column has been extracted. In that column, information is missing (i.e. blank lines appear). I would like to replace the blank lines by the last valid line (not blank) previously read. For example, consider the extract below: 123 234 543 111... (7 Replies)
Discussion started by: bagvian
7 Replies
Locale::Currency(3pm)					 Perl Programmers Reference Guide				     Locale::Currency(3pm)

NAME
Locale::Currency - ISO three letter codes for currency identification (ISO 4217) SYNOPSIS
use Locale::Currency; $curr = code2currency('usd'); # $curr gets 'US Dollar' $code = currency2code('Euro'); # $code gets 'eur' @codes = all_currency_codes(); @names = all_currency_names(); DESCRIPTION
The "Locale::Currency" module provides access to the ISO three-letter codes for identifying currencies and funds, as defined in ISO 4217. You can either access the codes via the "conversion routines" (described below), or with the two functions which return lists of all cur- rency codes or all currency names. There are two special codes defined by the standard which aren't understood by this module: XTS Specifically reserved for testing purposes. XXX For transactions where no currency is involved. CONVERSION ROUTINES
There are two conversion routines: "code2currency()" and "currency2code()". code2currency() This function takes a three letter currency code and returns a string which contains the name of the currency identified. If the code is not a valid currency code, as defined by ISO 4217, then "undef" will be returned. $curr = code2currency($code); currency2code() This function takes a currency name and returns the corresponding three letter currency code, if such exists. If the argument could not be identified as a currency name, then "undef" will be returned. $code = currency2code('French Franc'); The case of the currency name is not important. See the section "KNOWN BUGS AND LIMITATIONS" below. QUERY ROUTINES
There are two function which can be used to obtain a list of all currency codes, or all currency names: "all_currency_codes()" Returns a list of all three-letter currency codes. The codes are guaranteed to be all lower-case, and not in any particular order. "all_currency_names()" Returns a list of all currency names for which there is a corresponding three-letter currency code. The names are capitalised, and not returned in any particular order. EXAMPLES
The following example illustrates use of the "code2currency()" function. The user is prompted for a currency code, and then told the cor- responding currency name: $| = 1; # turn off buffering print "Enter currency code: "; chop($code = <STDIN>); $curr = code2currency($code); if (defined $curr) { print "$code = $curr "; } else { print "'$code' is not a valid currency code! "; } KNOWN BUGS AND LIMITATIONS
o In the current implementation, all data is read in when the module is loaded, and then held in memory. A lazy implementation would be more memory friendly. o This module also includes the special codes which are not for a currency, such as Gold, Platinum, etc. This might cause a problem if you're using this module to display a list of currencies. Let Neil know if this does cause a problem, and we can do something about it. o ISO 4217 also defines a numeric code for each currency. Currency codes are not currently supported by this module, in the same way Locale::Country supports multiple codesets. o There are three cases where there is more than one code for the same currency name. Kwacha has two codes: mwk for Malawi, and zmk for Zambia. The Russian Ruble has two codes: rub and rur. The Belarussian Ruble has two codes: byr and byb. The currency2code() function only returns one code, so you might not get back the code you expected. SEE ALSO
Locale::Country ISO codes for identification of country (ISO 3166). Locale::Script ISO codes for identification of written scripts (ISO 15924). ISO 4217:1995 Code for the representation of currencies and funds. http://www.bsi-global.com/iso4217currency Official web page for the ISO 4217 maintenance agency. This has the latest list of codes, in MS Word format. Boo. AUTHOR
Michael Hennecke <hennecke@rz.uni-karlsruhe.de> and Neil Bowers <neil@bowers.com> COPYRIGHT
Copyright (C) 2002, Neil Bowers. Copyright (c) 2001 Michael Hennecke and Canon Research Centre Europe (CRE). This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. perl v5.8.0 2002-06-01 Locale::Currency(3pm)
All times are GMT -4. The time now is 10:58 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy