Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: how to differentiate columns of a file in perl with no specific delimiter
Top Forums Shell Programming and Scripting how to differentiate columns of a file in perl with no specific delimiter Post 302214159 by Annihilannic on Saturday 12th of July 2008 08:57:26 AM
Old 07-12-2008
Try this:

Code:
perl -ne '
	if (/^[0-9]{2}-[[:alpha:]]{3}-[0-9]{2}/) {
		if (defined($prev)) { printf($prev . "\n"); }
		($f1, $f2, $f3, undef, $f5) = m/([0-9]{2}-[[:alpha:]]{3}-[0-9]{2})[[:blank:]]+([[:alnum:]]+)[[:blank:]]+(([0-9]{2}-)?[0-9]{2}-?[[:alpha:]]{3}-?[0-9]{2}[[:blank:]])?(.*)/;
		if ($f3 == "") { $f3="----" }
		$prev = join(",",$f1,$f2,$f3,$f5);
	} else {
		$prev .= " " . chomp($_);
	}
	END { printf($prev . "\n"); }
' inputfile > outputfile

 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Deleting specific columns from a file

Hi Friends, I want to delete specific columns from a file. Say my file content is as follows: "1","a","ww1",1234" "2","b","wwr3","2222" "3","c","erre","3333" Now i want to delete the column 2 and 4 from this file. That is I want the file content to be: "1","ww1" "2","wwr3"... (11 Replies)
Discussion started by: premar
11 Replies

2. Shell Programming and Scripting

replace space with delimiter in whole file -perl

Hi I have a file which have say about 100,000 records.. the records in it look like Some kind of text 1234567891 abcd February 14, 2008 03:58:54 AM lmnop This is how it looks.. if u notice there is a 2byte space between each column.. and im planning to replace that with '|' .. ... (11 Replies)
Discussion started by: meghana
11 Replies

3. UNIX for Dummies Questions & Answers

Displaying specific columns in a file

Hi, I'm just wondering how you display a specific set of columns of a specified file in Unix. For example, if you had an AddressBook file that stores the Names, Phone numbers, and Addresses of people the user entered in the following format (the numbers are just to give an idea of what column... (1 Reply)
Discussion started by: logorob
1 Replies

4. Shell Programming and Scripting

Replace specific columns in one file with columns in another file

HELLO! This is my first post here! By the way, I think it is great that people do this. My question: I have two files, one is a .dilm and one is a .txt. It is my understanding that the .dilm file can be treated as a .txt file. I wrote another program where I was able to manipulate it as if it... (3 Replies)
Discussion started by: mehdib
3 Replies

5. Shell Programming and Scripting

Selecting Specific Columns and Insert the delimiter TAB

Hi, I am writing a Perl Script for the below : I have a data file that consists of the header information which is 231 Lines and the footer information as 4 lines. The total number of line including the header and footer 1.2 Million with Pipe Delimited file. For example: Header Information:... (4 Replies)
Discussion started by: filter
4 Replies

6. Shell Programming and Scripting

Perl script to get info from specific rows & columns (.xls file)

Hi all, I want to read some specific rows & columns in the .xls file with my script to get the data to be manipulated. Now, I can read the .xls file correctly & i can go to the specific sheet that I want but i have a problem to specify the specific rows & columns. I mean, I want to get the info... (0 Replies)
Discussion started by: Yohannita
0 Replies

7. Shell Programming and Scripting

Transpose whole file and specific columns

Hi, I have a file like this a b c d e f g h i j k l Case1: I want to transpose the whole file Output1 a d g j b e h k c f i l Case2 Transpose a specific column - Say 3rd (6 Replies)
Discussion started by: jacobs.smith
6 Replies

8. Shell Programming and Scripting

Perl Code to change file delimiter (passed as argument) to bar delimiter

Hi, Extremely new to Perl scripting, but need a quick fix without using TEXT::CSV I need to read in a file, pass any delimiter as an argument, and convert it to bar delimited on the output. In addition, enclose fields within double quotes in case of any embedded delimiters. Any help would... (2 Replies)
Discussion started by: JPB1977
2 Replies

9. Shell Programming and Scripting

Perl script to accept specific columns from excel

Hi All, I have below perl script which writes xml from .xls file. Now i want to add below two conditions in this script : 1. to check if the the input .xls file has ony two columns , if more tahn two columns then script should pop up an error. 2. If there are two columns , then first column... (4 Replies)
Discussion started by: omkar.jadhav
4 Replies

10. UNIX for Beginners Questions & Answers

Delimiter appending in a data file if we receive a less columns than expected

Required No.of field = 12 Let say you got a “~” delimited input file and this file has 6 input fields and now I want to add 12-5=7 number of “~” into this input file in order to make it 12 fields datafile can have n number of records ex., a~b~c~d~12~r a~b~c~d~12~r a~b~c~d~12~r... (19 Replies)
Discussion started by: LJJ
19 Replies

LEARN ABOUT NETBSD

dh_perl

DH_PERL(1)                                                           Debhelper                                                          DH_PERL(1)

NAME

       dh_perl - calculates Perl dependencies and cleans up after MakeMaker

SYNOPSIS

       dh_perl [debhelperoptions] [-d] [librarydirs...]

DESCRIPTION

       dh_perl is a debhelper program that is responsible for generating the ${perl:Depends} substitutions and adding them to substvars files.

       The program will look at Perl scripts and modules in your package, and will use this information to generate a dependency on perl or
       perlapi. The dependency will be substituted into your package's control file wherever you place the token ${perl:Depends}.

       dh_perl also cleans up empty directories that MakeMaker can generate when installing Perl modules.

OPTIONS

       -d  In some specific cases you may want to depend on perl-base rather than the full perl package. If so, you can pass the -d option to make
           dh_perl generate a dependency on the correct base package. This is only necessary for some packages that are included in the base
           system.

           Note that this flag may cause no dependency on perl-base to be generated at all. perl-base is Essential, so its dependency can be left
           out, unless a versioned dependency is needed.

       -V  By default, scripts and architecture independent modules don't depend on any specific version of perl. The -V option causes the current
           version of the perl (or perl-base with -d) package to be specified.

       library dirs
           If your package installs Perl modules in non-standard directories, you can make dh_perl check those directories by passing their names
           on the command line. It will only check the vendorlib and vendorarch directories by default.

CONFORMS TO

       Debian policy, version 3.8.3

       Perl policy, version 1.20

SEE ALSO

       debhelper(7)

       This program is a part of debhelper.

AUTHOR

       Brendan O'Dea <bod@debian.org>

11.1.6ubuntu2                                                       2018-05-10                                                          DH_PERL(1)
All times are GMT -4. The time now is 04:58 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy