Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Remove Last field from a delimited file
Top Forums Shell Programming and Scripting Remove Last field from a delimited file Post 302898615 by Arun Mishra on Wednesday 23rd of April 2014 04:10:49 AM
Old 04-23-2014
HP Remove Last field from a delimited file
Hi,

I have a '~' delimited file and i want to remove the last field using awk. Please find the sample records below:

Code:
1428128~1~0~1100426~003~50220~005~14~0~194801~11~0~3~14~0~50419052335~0~0820652001~2~00653862 ~0~1~0~00126~1~20000110~20110423~R~          ~0~Z~1662.94~ ~002041~0045~Z~
1428128~1~0~1100426~003~50220~005~14~0~194801~11~0~3~14~0~50419052335~0~0820652001~2~00653862 ~0~1~0~00126~1~20000110~20110521~R~          ~0~Z~3039.46~ ~002041~0045~Z~
1428128~1~0~1100426~003~50220~005~14~0~194801~11~0~3~30~0~50419052335~0~0820652001~2~00653862 ~0~1~0~00126~1~20000110~20110623~R~          ~0~Z~3039.46~ ~002041~0045~Z~

And also after removing the last field i want the last '~' associated with the last field to be removed for each line.

Any help appreciated...

Thanks,

Arun
Last edited by Scrutinizer; 04-23-2014 at 09:36 AM.. Reason: Changed ICODE tags to CODE tags
 

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

Replacing a field in pipe delimited TEXT File

Hi, I want to replace a field in a text delimited file with the actual number of records in the same file. HDR|ABCD|10-13-2008 to 10-19-2008.txt|10-19-2008|XYZ DTL|0|5464-1|0|02-02-2008|02-03-2008||||F||||||||| DTL|1|5464-1|1|02-02-2008|02-03-2008|1||JJJ... (3 Replies)
Discussion started by: ravi0435
3 Replies

2. Shell Programming and Scripting

Count field frequency in a '|' delimited file

I have a large file with fields delimited by '|', and I want to run some analysis on it. What I want to do is count how many times each field is populated, or list the frequency of population for each field. I am in a Sun OS environment. Thanks, - CB (3 Replies)
Discussion started by: ChicagoBlues
3 Replies

3. Shell Programming and Scripting

insert a field into a tab delimited file

Hello, Can someone help me to do this with awk or sed? I have a file with multiple lines, each line has many fields separated with a tab. I would like to add one more field holding 'na' in between the first and second fields. old file looks like, 1, field1 field2 field3 ... 2, field1... (7 Replies)
Discussion started by: ssshen
7 Replies

4. UNIX for Dummies Questions & Answers

Insert Field into a tab-delimited file

Hello, I have about 100 files in a directory with fields which are tab delimited. I would like to append the file name as the first field and it has to be done as many times as the total lines in the file. For example, myFile1.txt has the following data: 1 x y z 2 a b ... (5 Replies)
Discussion started by: Gussifinknottle
5 Replies

5. Shell Programming and Scripting

sed command to remove the first field from a '|' delimited file

Hi I have a file with fields delimited by |. I need to remove the first field from the file. I tried cut but it just extracts that field. sample.output abc|100|name1 cde|200|name2 efg|300|name3 Output should be sample.output 100|name1 200|name2 300|name3 thanks Var (6 Replies)
Discussion started by: var285
6 Replies

6. Shell Programming and Scripting

Pad zeroes first field in a Delimited file

Need help. I tried using an awk command to pad zeroes. Unfortunately, the "|" pipe delimited character is gone when I tried to write the records to another file. awk -F \| ' {$1=sprintf("%06s", $1); print $0}' $CUSTFINAL2 > $CUSTFINAL3 BEFORE "KEYRECORD"|"SA ID"|"PER ID"|"SP ID"|"ACCT... (3 Replies)
Discussion started by: johnhips
3 Replies

7. Shell Programming and Scripting

Extract a nth field from a comma delimited file

Hi, In my file (which is "," delimited and text qualifier is "), I have to extract a particualr field. file1: 1,"aa,b",4 expected is the 2nd field: aa,b I tried the basic cut -d "," -f 2 file 1, this gave me aa alone instead aa,b. A small hint ot help on this will be very... (5 Replies)
Discussion started by: machomaddy
5 Replies

8. Shell Programming and Scripting

How to remove alphabets/special characters/space in the 5th field of a tab delimited file?

Thank you for 4 looking this post. We have a tab delimited file where we are facing problem in a lot of funny character. I have tried using awk but failed that is not working. In the 5th field ID which is supposed to be a integer only of that file, we are getting corrupted data as below. I... (12 Replies)
Discussion started by: Srithar
12 Replies

9. Shell Programming and Scripting

Pivoting csv field from pipe delimited file

Hello All, Thanks for taking time to read through the thread and for providing any possible solution. I am trying to pivot a comma separated field in a pipe delimited file. Data looks something like this: Field1|Field2 123|345,567,789 234|563,560 345|975,098,985,397,984 456|736 Desired... (8 Replies)
Discussion started by: svks1985
8 Replies

10. Shell Programming and Scripting

Replace field in the delimited file

Hi, I have the requirement similar to the one mentioned in the below thread. https://www.unix.com/unix-for-dummies-questions-and-answers/128155-search-replace-string-only-particular-column-delimited-file.html The only difference is that I need to change the field for row 1,2 and the last... (14 Replies)
Discussion started by: chetanojha
14 Replies

LEARN ABOUT DEBIAN

algorithm::checkdigits

CheckDigits(3pm)					User Contributed Perl Documentation					  CheckDigits(3pm)

NAME

       Algorithm::CheckDigits - Perl extension to generate and test check digits

SYNOPSIS

	 perl -MAlgorithm::CheckDigits -e Algorithm::CheckDigits::print_methods

       or

	 use Algorithm::CheckDigits;

	 @ml = Algorithm::CheckDigits->method_list();

	 $isbn = CheckDigits('ISBN');

	 if ($isbn->is_valid('3-930673-48-7')) {
	       # do something
	 }

	 $cn = $isbn->complete('3-930673-48');	   # $cn = '3-930673-48-7'

	 $cd = $isbn->checkdigit('3-930673-48-7'); # $cd = '7'

	 $bn = $isbn->basenumber('3-930673-48-7'); # $bn = '3-930673-48'

ABSTRACT

       This module provides a number of methods to test and generate check digits. For more information have a look at the web site
       www.pruefziffernberechnung.de (german).

SUBROUTINES
/METHODS
   CheckDigits($method)
       Returns an object of an appropriate Algorithm::CheckDigits class for the given algorithm.

       Dies with an error message if called with an unknown algorithm.

       See below for the available algorithms. Every object understands the following methods:

       is_valid($number)
	   Returns true or false if $number contains/contains no valid check digit.

       complete($number)
	   Returns a string representation of $number completed with the appropriate check digit.

       checkdigit($number)
	   Extracts the check digit from $number if $number contains a valid check digit.

       basenumber($number)
	   Extracts the basenumber from $number if $number contains a valid check digit.

   Algorithm::CheckDigits::method_list()
       Returns a list of known methods for check digit computation.

   Algorithm::CheckDigits::print_methods()
       Returns a list of known methods for check digit computation.

       You may use the following to find out which methods your version of Algorithm::CheckDigits provides and where to look for further
       information.

	perl -MAlgorithm::CheckDigits -e Algorithm::CheckDigits::print_methods

   CHECK SUM METHODS
       At the moment these methods to compute check digits are provided: (vatrn - VAT Return Number, in german ustid UmsatzSTeuer-ID)

       m07-001
	   See Algorithm::CheckDigits::M07_001.

       euronote, m09-001
	   European bank notes, see Algorithm::CheckDigits::M09_001.

       amex, bahncard, diners, discover, enroute, eurocard, happydigits, isin, jcb, klubkarstadt, mastercard, miles&more, visa, m09-001, imei,
       imeisv
	   See Algorithm::CheckDigits::M10_001.

       siren, siret, m10-002
	   See Algorithm::CheckDigits::M10_002.

       ismn, m10-003
	   See Algorithm::CheckDigits::M10_003.

       ean, iln, isbn13, nve, 2aus5, m10-004
	   See Algorithm::CheckDigits::M10_004.

       identcode_dp, leitcode_dp, m10-005
	   See Algorithm::CheckDigits::M10_005.

       rentenversicherung, m10-006
	   See Algorithm::CheckDigits::M10_006.

       sedol, m10-008
	   See Algorithm::CheckDigits::M10_008.

       betriebsnummer, m10-009
	   See Algorithm::CheckDigits::M10_009.

       postscheckkonti, m10-010
	   See Algorithm::CheckDigits::M10_010.

       ups, m10-011
	   See Algorithm::CheckDigits::M10_011.

       hkid, isbn, issn, nhs_gb, ustid_pt, vat_sl, wagonnr_br, m11-001
	   See Algorithm::CheckDigits::M11_001.

       pzn, m11-002
	   See Algorithm::CheckDigits::M11_002.

       pkz, m11-003
	   See Algorithm::CheckDigits::M11_003.

       cpf, titulo_eleitor, m11-004
	   See Algorithm::CheckDigits::M11_004.

       ccc_es, m11-006
	   See Algorithm::CheckDigits::M11_006.

       ustid_fi, vatrn_fi, m11-007
	   See Algorithm::CheckDigits::M11_007.

       ustid_dk, vatrn_dk, m11-008
	   See Algorithm::CheckDigits::M11_008.

       nric_sg, m11-009
	   See Algorithm::CheckDigits::M11_009.

       ahv_ch, m11-010
	   See Algorithm::CheckDigits::M11_010.

       ustid_nl, vatrn_nl, m11-011
	   See Algorithm::CheckDigits::M11_011.

       bwpk_de, m11-012
	   See Algorithm::CheckDigits::M11_012.

       ustid_gr, vatrn_gr, m11-013
	   See Algorithm::CheckDigits::M11_013.

       esr5_ch, m11-015
	   See Algorithm::CheckDigits::M11_015.

       ustid_pl, vatrn_pl, m11-016
	   See Algorithm::CheckDigits::M11_016.

       ecno, ec-no, einecs, elincs, m11-017
	   See Algorithm::CheckDigits::M11_017.

       isan, m16-001
	   See Algorithm::CheckDigits::M16_001.

       dni_es, m23-001
	   See Algorithm::CheckDigits::M23_001.

       ustid_ie, vatrn_ie, m23-002
	   See Algorithm::CheckDigits::M23_002.

       code_39, m43-001
	   See Algorithm::CheckDigits::M43_001.

       ustid_lu, vatrn_lu, m89-001
	   See Algorithm::CheckDigits::M89_001.

       ustid_be, vatrn_be, m97-001
	   See Algorithm::CheckDigits::M97_001.

       iban, m97-002
	   See Algorithm::CheckDigits::M97_002.

       upc, mbase-001
	   See Algorithm::CheckDigits::MBase_001.

       blutbeutel, bzue_de, ustid_de, vatrn_de, mbase-002
	   See Algorithm::CheckDigits::MBase_002.

       sici, mbase-003
	   See Algorithm::CheckDigits::MBase_003.

       pa_de, mxx-001
	   See Algorithm::CheckDigits::MXX_001.

       cas, mxx-002
	   See Algorithm::CheckDigits::MXX_002.

       dem, mxx-003
	   Old german bank notes (DEM), see Algorithm::CheckDigits::MXX_003.

       ustid_at, vatrn_at, mxx-004
	   See Algorithm::CheckDigits::MXX_004.

       esr9_ch, mxx-005
	   See Algorithm::CheckDigits::MXX_005.

       verhoeff, mxx-006
	   Verhoeff scheme, see Algorithm::CheckDigits::MXX_006 or Algorithm::Verhoeff

   EXPORT
       None by default.

SEE ALSO

       perl, www.pruefziffernberechnung.de.

AUTHOR

       Mathias Weidner, <mathias@weidner.in-bad-schmiedeberg.de>

THANKS

       Petri Oksanen made me aware that CheckDigits('IMEI') would invoke no test at all since there was no entry for this in the methods hash.

COPYRIGHT AND LICENSE

       Copyright 2004-2006 by Mathias Weidner

       This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

perl v5.10.0							    2008-06-06							  CheckDigits(3pm)
All times are GMT -4. The time now is 11:36 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy