Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Using to perl to output specific fields to one file
Top Forums Shell Programming and Scripting Using to perl to output specific fields to one file Post 302969681 by cmccabe on Friday 25th of March 2016 05:33:10 PM
Old 03-25-2016
Using to perl to output specific fields to one file
Trying to use perl to output specific fields from all text files in a directory to one new file. Each text file on a new line. The below seems to work for one text file but not more. Thank you Smilie.

Code:
 perl -ne 's/^#//; @n = (6, 7, 8, 16); print if $. ~~ @n' *.txt > out.txt

format of all text files in directory

Code:
#Sample = xxxxx
#Sample Type = xxxxxx
#Build = xxxxxxx
#Platform = xxxxxxx
#Display Name= XXXXX  (keep this field without the #)
#identifier = xxxxxx  (keep this field without the #)
#Gender = xxxxx       (keep this field without the #)
#Control Gender = xxxxx
#Control Sample = xxxxx
#Quality = X.XXXXXX   (keep this field without the # and X.XXX)

desired output (which is ok for 1 of the files in the directory)

Code:
Display Name= XXXXX  (keep this field without the #)
identifier = xxxxxx  (keep this field without the #)
Gender = xxxxx       (keep this field without the #)
Quality = X.XXXXXX   (keep this field without the # and X.XXX)
Display Name= XXXXX  (keep this field without the #)
identifier = xxxxxx  (keep this field without the #)
Gender = xxxxx       (keep this field without the #)
Quality = X.XXXXXX   (keep this field without the # and X.XXX)

 

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

Cut specific fields from a file containing multiline records

Hi, I am looking for a method to get column13 to column 50 data from the 1st line of a multiline reord. The records are stored in a large file and are separated by newline. sample format is (data in red is to be extracted) <header> A001dfhskhfkdsh hajfhksdhfjh... (3 Replies)
Discussion started by: sunayana3112
3 Replies

2. Shell Programming and Scripting

Cut 2 fields and write to a output file

Hi, I am writing a code where the file is a pipe delimited and I would need to extract the 2nd part of field2 if it is "ATTN", "C/O" or "%" and check to see if field9 is populated or not. If field9 is already populated then leave it as is but if field9 is not populated then take the 2nd part of... (3 Replies)
Discussion started by: msalam65
3 Replies

3. Shell Programming and Scripting

selecting specific fields in a file (maybe with sed?)

Hi, I have a file with following lines: chr1 10 AC=2;AF=1.00;AN=2;DP=2;Dels=0.00;HRun=0;HaplotypeScore=0.00;MQ=23.00;MQ0=0;QD=14.33;SB=-10.01 chrX 18 AB=0.52;AC=1;AF=0.50;AN=2;DP=203;DS;Dels=0.00;HRun=0;HaplotypeScore=20.01;MQ=15.63;MQ0=85;QD=12.80;SB=-1289.58 I need to extract 4... (2 Replies)
Discussion started by: menenuh
2 Replies

4. Shell Programming and Scripting

Perl: Parse Hex file into fields

Hi, I want to split/parse certain bits of the hex data into another field. Example: Input data is Word1: 4f72abfd Output: Parse bits (5 to 0) into field word1data1=0x00cd=205 decimal Parse bits (7 to 6) into field word1data2=0x000c=12 decimal etc. Word2: efff3d02 Parse bits (13 to... (1 Reply)
Discussion started by: morrbie
1 Replies

5. UNIX for Dummies Questions & Answers

using sed delete a line from csv file based on specific data in two separate fields

Hello, :wall: I have a 12 column csv file. I wish to delete the entire line if column 7 = hello and column 12 = goodbye. I have tried everything that I can find in all of my ref books. I know this does not work /^*,*,*,*,*,*,"hello",*,*,*,*,"goodbye"/d Any ideas? Thanks Please... (2 Replies)
Discussion started by: Chris Eagleson
2 Replies

6. Shell Programming and Scripting

Capture specific fields in file

Dear Friends, I have a file a.txt 1|3478.12|487|4578.04|4505.5478|rhfj|rehtire|rhj I want to get the field numbers which have decimal values output: Fields: 2,4,5 Plz help (6 Replies)
Discussion started by: i150371485
6 Replies

7. UNIX for Dummies Questions & Answers

Read the file and generate specific fields by awk

Hi I need to generate these output file from the below input file. Output : customer_id as customer, zip as zip_cd, catg_cd as catg, Input: out.customer::in.customer_id; out.zip_cd::in.zip; out.catg::in.catg_cd; Could you please help me on this. Please use code tags next... (1 Reply)
Discussion started by: Murugesh
1 Replies

8. Shell Programming and Scripting

Parse file for fields and specific text

I have a file of ~500,000 entries in the following: file.txt chr1 11868 12227 ENSG00000223972.5 . + HAVANA exon . gene_id "ENSG00000223972.5"; transcript_id "ENST00000456328.2"; gene_type "transcribed_unprocessed_pseudogene"; gene_status "KNOWN"; gene_name "DDX11L1"; transcript_type... (17 Replies)
Discussion started by: cmccabe
17 Replies

9. Shell Programming and Scripting

awk to output match and mismatch with count using specific fields

In the below awk I am trying output to one file those lines that match between $2,$3,$4 of file1 and file2 with the count in (). I am also trying to output those lines that are missing between $2,$3,$4 of file1 and file2 with the count of in () each. Both input files are tab-delimited, but the... (7 Replies)
Discussion started by: cmccabe
7 Replies

10. UNIX for Beginners Questions & Answers

Extracting specific fields from an XML file

Hello All, I have a requirement to split the input.xml file different files and i have tried using earlier examples(where i have posted in the forum), but still no luck Here is my input.xml <jms-system-resource> <name>UMSJMSSystemResource</name> ... (4 Replies)
Discussion started by: Siv51427882
4 Replies

LEARN ABOUT MOJAVE

datetime::locale::tig_er5.18

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

NAME

       DateTime::Locale::tig_ER

SYNOPSIS

	 use DateTime;

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

DESCRIPTION

       This is the DateTime locale package for Tigre Eritrea.

DATA

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

       It contains the following data.

   Days
       Wide (format)

	 XX
	 XXXX
	 XXXXX
	 XXX
	 XXXX
	 XXXX XXX
	 XXXX XXX

       Abbreviated (format)

	 XX
	 XXX
	 XXX
	 XXX
	 XXX
	 X/X
	 X/X

       Narrow (format)

	 X
	 X
	 X
	 X
	 X
	 X
	 X

       Wide (stand-alone)

	 XX
	 XXXX
	 XXXXX
	 XXX
	 XXXX
	 XXXX XXX
	 XXXX XXX

       Abbreviated (stand-alone)

	 XX
	 XXX
	 XXX
	 XXX
	 XXX
	 X/X
	 X/X

       Narrow (stand-alone)

	 X
	 X
	 X
	 X
	 X
	 X
	 X

   Months
       Wide (format)

	 XXXXX
	 XXXXX
	 XXX
	 XXXX
	 XX
	 XX
	 XXX
	 XXXX
	 XXXXXX
	 XXXXXX
	 XXXXX
	 XXXXX

       Abbreviated (format)

	 XXX
	 XXX
	 XXX
	 XXX
	 XX
	 XX
	 XXX
	 XXX
	 XXX
	 XXX
	 XXX
	 XXX

       Narrow (format)

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

       Wide (stand-alone)

	 XXXXX
	 XXXXX
	 XXX
	 XXXX
	 XX
	 XX
	 XXX
	 XXXX
	 XXXXXX
	 XXXXXX
	 XXXXX
	 XXXXX

       Abbreviated (stand-alone)

	 XXX
	 XXX
	 XXX
	 XXX
	 XX
	 XX
	 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 = XXXXX 05 XXXXX XX 2008 X/X
	  1995-12-22T09:05:02 = XXXXX 22 XXXXX XX 1995 X/X
	 -0010-09-15T04:44:23 = XXXX XXXX 15 XXXXXX XX -10 X/X

       Long

	  2008-02-05T18:30:30 = 05 XXXXX 2008
	  1995-12-22T09:05:02 = 22 XXXXX 1995
	 -0010-09-15T04:44:23 = 15 XXXXXX -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 XX XXXXX UTC
	  1995-12-22T09:05:02 = 9:05:02 XXX XXXXX UTC
	 -0010-09-15T04:44:23 = 4:44:23 XXX XXXXX UTC

       Long

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

       Medium

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

       Short

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

       Default

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

   Datetime Formats
       Full

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

       Long

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

       Medium

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

       Short

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

       Default

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

   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 X/X

       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 XX XXXXX
	  1995-12-22T09:05:02 = 9:05 XXX XXXXX
	 -0010-09-15T04:44:23 = 4:44 XXX XXXXX

       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 XX XXXXX
	  1995-12-22T09:05:02 = 9:05:02 XXX XXXXX
	 -0010-09-15T04:44:23 = 4:44:23 XXX XXXXX

       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 = X/X, 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 = X/X XXX 15

       MMMMd (MMMM d)

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

       MMMMdd (dd MMMM)

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

       MMMMEd (E MMMM d)

	  2008-02-05T18:30:30 = XXX XXXXX 5
	  1995-12-22T09:05:02 = XXX XXXXX 22
	 -0010-09-15T04:44:23 = X/X XXXXXX 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 = X/X, -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 = X/X, -10 XXX 15

       yMMMM (y MMMM)

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

       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 = XXXXX 2008
	  1995-12-22T09:05:02 = XXXXX 1995
	 -0010-09-15T04:44:23 = XXXXXX -10

   Miscellaneous
       Prefers 24 hour time?

       No

       Local first day of the week

       XXXX XXX

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::tig_ER(3)
All times are GMT -4. The time now is 07:57 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy